Envoyer un email sous VB 10

Version imprimable

Bonjour à tous,

Je cherche à envoyer un email via un programme VB 10 que je développe sous Microsoft Visual Studio 2010. Je ne sais pas comment faire sachant que mon mail ne doit pas comporter de contenue, seulement un sujet et un destinataire...

;)

J'ai essayé ça mais j'ai un message d'erreur "L'exeption SmtpExeption n'a pas été gérée" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
        Dim dest As New System.Net.Mail.MailAddress("To Name <*****>")
        Dim exp As New System.Net.Mail.MailAddress("From Name <*****>")
 
        Dim email As New System.Net.Mail.MailMessage
        Dim mailClient As New System.Net.Mail.SmtpClient
 
        mailClient.Host = "*****"
        mailClient.Port = ***
 
        email.To.Add(dest)
        email.From = exp
 
        email.Subject = "OK"
        mailClient.Send(email)
 
        Try
            mailClient.Send(email)
        Catch ex As System.Net.Mail.SmtpException
            MsgBox("Erreur lors de l'envoie")
        End Try

02/12/2010, 11h04
Gilles57-H-G

[ame="http://www.dailymotion.com/video/xafe0t_tuto-visual-basic-2008-envoyer-un-m_tech"]Dailymotion - Tuto Visual basic 2008 | envoyer un mail . - une vidéo High-tech et Science@@AMEPARAM@@http://www.dailymotion.com/swf/video/xafe0t@@AMEPARAM@@xafe0t[/ame]

Ceci parait un peu mieux, j'ai utilisé un moteur de recherche pour avoir la réponse.

http://drq.developpez.com/vb/tutoriels/Winsock/

Pour chercher ce qu'est un moteur de recherche sur internet, utilise un moteur de recherche.

:arf:
02/12/2010, 14h52
tonymx15

Ce n'est pas du tout ce que je cherche à faire, mon sujet ne varie pas ni mon expediteur... C'est un message fixe qui se declenche au lancement d'un programme sans aucun évenement "clique" ou autre...

Il ne possède pas de corps.

;)
02/12/2010, 15h01
ostenhard

Bonjour,

Peux-tu donner le message d'erreur complet, sur quelle ligne ...? Et expliquer plus clairement ce que tu veux.

Citation:

Envoyé par ostenhard

Bonjour,

Peux-tu donner le message d'erreur complet, sur quelle ligne ...? Et expliquer plus clairement ce que tu veux.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
    Public Sub envoyerEmail()
        Dim expediteur As MailAddress = New MailAddress("*****")
        Dim destinataire As MailAddress = New MailAddress("******")
        Dim email As New System.Net.Mail.MailMessage(expediteur, destinataire)
        Dim mailClient As New System.Net.Mail.SmtpClient
        Dim connexion As New System.Net.NetworkCredential("******", "*****")
 
        mailClient.Host = "******"
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = connexion
 
        email.Body = "Corps du message"
        email.Subject = "Message bien envoyé"
 
        Try
            mailClient.Send(email)
            MsgBox("Le message a été envoyer !")
        Catch ex As Exception
            MsgBox("Echec : Le message n'à pas été envoyer !")
        End Try
 
    End Sub

Ca m'affiche "Le message n'a pas été envoyer !", je veux juste envoyer cet email..

02/12/2010, 15h56
ostenhard

Sans blague !

Je veux, enfin, on veut le message d'erreur contenu dans la variable ex de type Exception. Le message de ton MessageBox, on sait le lire !

Citation:

Envoyé par ostenhard

Sans blague !

Je veux, enfin, on veut le message d'erreur contenu dans la variable ex de type Exception. Le message de ton MessageBox, on sait le lire !

Merci de votre "aide" mais je viens à l'instant de trouver le problème... ;);)

Je partage le résultat pour ceux qui cherche à envoyer en email en VB 10 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Sub envoyerEmail()
        Dim expediteur As MailAddress = New MailAddress("*****")
        Dim destinataire As MailAddress = New MailAddress("*****")
        Dim email As New System.Net.Mail.MailMessage(expediteur, destinataire)
 
 
        Dim mailClient As New System.Net.Mail.SmtpClient
 
        mailClient.Host = "*****"
 
        Dim laDate As String = Date.Today
        Dim lheure As String = TimeOfDay
        Dim dateHeure As String = laDate & " - " & lheure
 
        email.Body = "Erreur lors de la mise à jour du " & dateHeure & "."
        email.Subject = "Mise à jour Assmat"
 
        Try
            mailClient.Send(email)
            MsgBox("Le message a été envoyé !")
        Catch ex As Exception
            MsgBox("Le message n'a pas été envoyer !")
        End Try
    End Sub

04/12/2010, 19h31
zaghi

c'est quoi ca :

Code:

mailClient.Host = "*****"
04/12/2010, 19h41
tonymx15

C'est l'adresse du serveur... par exemple "172.320.98.67"...
04/12/2010, 20h00
zaghi

Est que vous pouvez me donner un exemple pour envoyer un email avec votre
procedure (cad l'appel a la procedure).
05/12/2010, 14h17
tonymx15
Pour envoyer l'email il suffit juste d'apeller la procédure :
Code:

1 2 envoyerEmail()
Pour ma part c'est une procédure qui envoie un email prédéfinis, si tu veux faire une procédure qui envoie un email avec des paramètres (sujet, destinataire, contenue...) il te faut refaire la procédure.

;)
05/12/2010, 17h51
zaghi
Citation:
Envoyé par tonymx15

Pour envoyer l'email il suffit juste d'apeller la procédure :

Code:

1 2 envoyerEmail()

Pour ma part c'est une procédure qui envoie un email prédéfinis, si tu veux faire une procédure qui envoie un email avec des paramètres (sujet, destinataire, contenue...) il te faut refaire la procédure.

;)
OK Merci beaucoup.