Option Explicit On Public Class Form1 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' pour le test" TextBox1.Text = "destinataire@F.A.I.extension" TextBox2.Text = "expéditeur@F.A.I.extension" TextBox3.Text = "Bonjour à tous" TextBox4.Multiline = True TextBox4.Text = "Un petit mail." & vbCrLf & "A bientôt" End Sub Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Cursor.Current = Cursors.WaitCursor Dim client As New System.Net.Mail.SmtpClient Dim DotNetMail As New System.Net.Mail.MailMessage() client.Credentials = New System.Net.NetworkCredential(TextBox2.Text, "") client.Port = 587 ' selon fournisseur client.Host = "smtp.free.fr" client.EnableSsl = False DotNetMail.From = New System.Net.Mail.MailAddress(TextBox2.Text) DotNetMail.To.Add(TextBox1.Text) DotNetMail.Subject = TextBox3.Text DotNetMail.Body = TextBox4.Text client.Send(DotNetMail) DotNetMail.Dispose() client.Dispose() Catch err As Exception MsgBox(err.ToString) Exit Sub End Try Cursor.Current = Cursors.Default MsgBox("OK") End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question