Option Strict On Imports System.Net.Mail Imports System.Net.Mail.SmtpClient Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click oh_MySendMail() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click envoimail() End Sub 'https://support.openhost-network.com/autres/programmation-developpement/envoi-email-vb-net-microsoft-visual-studio/ Public Sub oh_MySendMail() 'Création de l’objet objSmtpMail pour utiliser la classe SMTPClient de DotNet Dim objSmtpMail As New System.Net.Mail.SmtpClient 'Création de l’objet Mailmsg Qui représente le « mail » que nous voulons envoyer et que nous allons 'paramétrer en vu de son expédition Dim Mailmsg As New System.Net.Mail.MailMessage Try 'Paramétrons d’abord les infos concernant les serveurs SMTP utilisés par OpenHost objSmtpMail.Host = "smtp.free.fr" 'a adapter objSmtpMail.Port = 25 'Ajout de l’identité de l’expéditeur du mail Mailmsg.From = New System.Net.Mail.MailAddress("expediteur@free.fr") 'mettre votre adresse mail Mailmsg.Sender = New System.Net.Mail.MailAddress("expediteur@free.fr") 'mettre votre adresse mail 'Si vous souhaitez utiliser une connexion Sécurisée mettre TRUE sinon, 'pour commencer les tests mettez FALSE objSmtpMail.EnableSsl = False 'Chargement des paramètres d’authentification, à savoir le login et le password de 'connexion pour s’authentifier sur le serveur SMTP Dim SMTPUserInfo As New System.Net.NetworkCredential("expediteur@free.fr", "****") 'mettre votre adresse mail et votre mot de passe objSmtpMail.UseDefaultCredentials = False objSmtpMail.Credentials = SMTPUserInfo 'Petite remarques sur l’utilisation de l’authentification 'Information provenant de Microsoft ' http://msdn.microsoft.com/fr-fr/library/system.net.mail.smtpclient.usedefaultcredentials.aspx 'Certains serveurs SMTP exigent que le client soit authentifié avant que le serveur 'envoie le message électronique pour son compte. Définissez cette proprité à True 'lorsque cet objet SmtpClient doit, si le serveur le demande, s’authentifier à l’aide 'des informations d’identification par défaut de l’utilisateur actuellement connecté. 'Pour les applications clientes, c’est le comportement souhaité dans la plupart des scénarios. 'Les informations d’identification peuvent être spécifiées également à l’aide des fichiers 'de configuration machine et de l’application. Pour plus d’informations, consultez la page '<mailSettings>, élément (paramètres réseau). 'Si la proprité UseDefaultCredentials a la valeur false, la valeur définie dans la propriété 'Credentials est utilisée pour les informations d’identification lors de la connexion au serveur. 'Si la propriété UseDefaultCredentials a la valeur false et que la propriété Credentials n’a pas été 'définie, le courrier électronique est envoyé anonymement au serveur. 'Remarque 'Si vous fournissez des informations d’identification pour l’authentification de base, 'elles sont envoyées au serveur en texte clair. Cela peut présenter un problème de securité, 'car vos informations d’identification peuvent être vues, puis utilises par d’autres personnes. 'Ajout du destinataire du mail 'Si vous voulez ajouter plusieurs destinataires, il vous suffit de répéter cette ligne pour chaque destinataire 'Idem pour les destinataires en copie et les destinataires en copie masquée. Mailmsg.To.Add("destinataire @free.fr") 'adresse destinataire A ' Mailmsg.CC.Add(Mail.txtCC.Text) 'adresse destinataire CC copie carbone ' Mailmsg.Bcc.Add(Mail.txtBCC.Text) 'adresse destinataire CCI copie carbone invisible 'Mailmsg.Bcc = txtBCC.Text 'Ajout du Sujet du Mail et du message Mailmsg.Subject = "essai" Mailmsg.Body = "mon message" 'Ajout possible de « Headers » pour customiser votre e-mail 'Mailmsg.Headers.Add(« X-Organization », « demo.openhost.fr ») 'Ajout possible du degré de priorité du mail 'Mailmsg.Priority = Net.Mail.MailPriority.High 'Mailmsg.Priority = Net.Mail.MailPriority.Low Mailmsg.Priority = Net.Mail.MailPriority.Normal 'Il ne reste plus qu’ envoyer le mail objSmtpMail.Send(Mailmsg) MessageBox.Show("E-Mail bien envoyé.", "Envoi de l'E-Mail", MessageBoxButtons.OK, MessageBoxIcon.Information) 'Libration des ressources utilises Mailmsg = Nothing objSmtpMail = Nothing Catch ex As Exception MessageBox.Show("Impossible d'envoyer l'E-Mail!", "Envoi de l'E-Mail", MessageBoxButtons.OK, MessageBoxIcon.Error) 'Libration des ressources utilises Mailmsg = Nothing objSmtpMail = Nothing End Try End Sub Public Sub envoimail() Dim MySMTPClient As New SmtpClient("smtp.free.fr") 'adresse serveur Dim MyMail As New MailMessage ' Dim nom As String ' nom = "Amboise 003" 'image Try MyMail.From = New MailAddress("expediteur@free.fr") 'expediteur ' MyMail.Sender = New MailAddress("destinataire @free.fr") MyMail.To.Add(New MailAddress("destinataire@free.fr")) 'destinataire MyMail.Body = "mon message_2" 'MyMail.Priority = MailPriority.Low MyMail.Priority = MailPriority.Normal ' MyMail.Priority = MailPriority.High MyMail.Subject = "essai_2" ' MyMail.IsBodyHtml = CBool("<html><p>Voici mon image.</p>" & _ '"<img src='cid:" & nom & "'" & "width='100' height='100'><br>") MySMTPClient.Send(MyMail) MessageBox.Show("E-Mail bien envoyé.", "Envoi de l'E-Mail", MessageBoxButtons.OK, MessageBoxIcon.Information) MyMail.To.Clear() MyMail.Attachments.Clear() 'Liberation des ressources utilisées MyMail.Dispose() MySMTPClient.Dispose() Catch ex As Exception MessageBox.Show("Impossible d'envoyer l'E-Mail!", "Envoi de l'E-Mail", MessageBoxButtons.OK, MessageBoxIcon.Error) 'Liberation des ressources utilisées MyMail.Dispose() MySMTPClient.Dispose() End Try End Sub End Class