je ne sais pas avec quoi et comment faire.Et qu'as tu cherché sur le net ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub EnvoiMail() Try Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential("Adresse mail de l'expéditeur", "Mot de passe de l'expéditeur") smtpServer.Port = 587 'Le port peut changer selon le SMTP smtpServer.Host = "SMTP du fournisseur mail" smtpServer.EnableSsl = True mail = New MailMessage() mail.From = New MailAddress("Adresse mail de l'expéditeur") mail.To.Add("Adresse mail du destinataire") mail.Subject = "Sujet du mail" mail.Body = "Corps du mail" mail.Attachments.Add(New Mail.Attachment("Chemin du fichier à joindre")) smtpServer.Send(mail) Catch ex As Exception MsgBox(ex.ToString) End Try End Sub