Discussion :

[tonymx15]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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.

[ostenhard]

Bonjour,

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

[tonymx15]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[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 !

[tonymx15]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zaghi]

c'est quoi ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mailClient.Host = "*****"

[tonymx15]

C'est l'adresse du serveur... par exemple "172.320.98.67"...

[zaghi]

Est que vous pouvez me donner un exemple pour envoyer un email avec votre
procedure (cad l'appel a la procedure).

[tonymx15]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zaghi]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.