1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Imports System.Net.Mail
Public Class Form1
Private Sub btEnvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnvoyer_V1.Click
'Dim email As New System.Web
Dim email As New MailMessage("toto@toto.net", "Adresse_Mail_Valide", "Sujet", "Body")
Dim smtpMail As New System.Net.Mail.SmtpClient("smtp.wanadoo.fr", 25) 'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe
Try
smtpMail.Send(email)
Catch ex As Exception
MsgBox("erreur lors de l'envoie du mail")
MsgBox(ex.ToString)
End Try
End Sub
End Class |
Partager