Discussion :

[valFIVE69]

Bonjour,

je sui débutant en VB et je me suis lancer dans la création d'un programme capable d'envoyer des mail , les code utiliser provienne du net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub sendmail()
        Dim MyMailMessage As New MailMessage
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        MyMailMessage.From = New MailAddress("XXX") 'Expediteur
        MyMailMessage.To.Add("XXX") 'Destinataire
        MyMailMessage.Subject = ("Mise a jour") 'Sujet
        MyMailMessage.Body = ("sécuriter : " & TextBox1.Text & vbNewLine) 'Message
        SMTPServer.Port = ("587") 'Port
        SMTPServer.Credentials = New NetworkCredential("{XXX}", "XXX") 'Email SMTPServer.Send(MyMailMessage) 'Envoie
        SMTPServer.Send(MyMailMessage) 'Envoie
    End Sub

Mon probleme étan là SMTPServer.Send(MyMailMessage) ou il me dit que : l'exception smtpException n'a pas été gérer . j"espere que vous pourer m'aidez

---)

Le lien proposer par l'erreur est ceci : http://msdn.microsoft.com/query/dev1...-VB%29&rd=true

faut-il changer quel que chose dans le script???