Mail en vb.net

Signaler
Messages postés
1
Date d'inscription
lundi 15 mars 2021
Statut
Membre
Dernière intervention
15 mars 2021
-
bonjour,
j'aimerais m'envoyer un mail a partir de mon application j'ai vue un code sur le net mais ca ne marche pas voici le code
Imports System.Net.Mail.SmtpClient


'http://www.openhost.fr/envoi-email-vb-net-microsoft-visual-studio/
Public Class Form1
Public Overridable Property UseDefaultCredentials As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'oh_MySendMail()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
oh_MySendMail()
End Sub
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

'Paramétrons d’abord les infos concernant les serveurs SMTP utilisés par OpenHost

objSmtpMail.Host = "smtp.gmail.com" 'mettre votre serveur SMTP

objSmtpMail.Port = 25

'Ajout de l’indentité de l’expéditeur du mail

Mailmsg.From = New System.Net.Mail.MailAddress("") 'mettre votre adrese mail

Mailmsg.Sender = New System.Net.Mail.MailAddress("") '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("", "") '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
' https://docs.microsoft.com/fr-fr/dotnet/api/system.net.mail.smtpclient.usedefaultcredentials?redirectedfrom=MSDN&view=net-5.0
'Certains serveurs SMTP exigent que le client soit authentifié avant que le serveur
'envoie le message électronique pour son compte. Définissez cette propriété à 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 scurit,
'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("") ''mettre le destinataire
' Mailmsg.To.Add(txtTo.Text) 'adresse destinataire A 'adapter nom textBox
' Mailmsg.CC.Add(txtCC.Text) 'adresse destinataire CC copie carbone'adapter nom textBox
' Mailmsg.Bcc.Add(txtBCC.Text) 'adresse destinataire CCI copie carbone 'adapter nom textBoxinvisible

'Ajout du Sujet du Mail et du message
Mailmsg.Subject = "Essai"
Mailmsg.Body = "Ceci est un essai"
' Mailmsg.Subject = txtSujet.Text 'adapter nom textBox
' Mailmsg.Body = rtxtMessage.Text 'adapter nom textBox

'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)

'Libration des ressources utilises

Mailmsg.Dispose()

objSmtpMail.Dispose()

'Controle
MsgBox("Mail envoyé", CType(64, MsgBoxStyle)) 'a supprimer après essai

' Me.Close()
End Sub
voici l'eureur qui me saute au visage
Une exception non gérée du type 'System.Net.Mail.SmtpException' s'est produite dans System.dll

Informations supplémentaires : Le serveur SMTP requiert une connexion sécurisée ou le client n'était pas authentifié. La réponse du serveur était : 5.7.0 Must issue a STARTTLS command first. g21sm7642240ejd.6 - gsmtp
aidez moi svp