Dim mail As New System.Net.Mail.MailMessage Dim smtp As New System.Net.Mail.SmtpClient With mail .Body = "Le corp du message" .Subject = "Le sujet de l'email" .From = New System.Net.Mail.MailAddress("Adresse expéditeur", "Nom expéditeur") .To.Add(New System.Net.Mail.MailAddress("Adresse destinataire")) .IsBodyHtml = False ' <= A toi de voir selon ton contenu End With Try smtp.Send(mail) Catch ex As Exception 'Gestion des erreurs End Try