bonjour tout le monde,
jessai d'envoyer un mail avec VB 2005 mais j'arrive pas a le faire malgré que j'ai fait un bon tour avant de poser la question mais mes recherche aboutisent toujours a le meme code a peu prés :
celui la est le meilleur essai que j'ai eu je croit : (merci
thepoe ) Public Sub Envoi(
ByVal server
As String,
ByVal De
As String,
ByVal A
As String, _
ByVal Sujet
As String,
ByVal Corps
As String, _
ByVal Utilisateur
As String,
ByVal MotDePasse
As String,
ByVal avecLogin
As Boolean)
Try Dim message
As System.Net.Mail.MailMessage =
New System.Net.Mail.MailMessage( _
New System.Net.Mail.MailAddress(De), _
New System.Net.Mail.MailAddress(A))
message.Subject = Sujet
message.Body = Corps
Dim smtp
As System.Net.Mail.SmtpClient
= New System.Net.Mail.SmtpClient(server)
If avecLogin =
True Then smtp.Credentials =
New System.Net.NetworkCredential(Utilisateur, MotDePasse)
smtp.EnableSsl =
True smtp.Port = 465
smtp.Send(message)
MsgBox(
"Gagné")
Catch ex
As Exception
MsgBox(ex.Message)
End Try
End Sub
mais en fin du compte et lors du lenvoi du message j'ai toujour droit a une exception : "Echec d'envoi du courrier".
je sait pas ce qui ne tourne pas rend dans ce code.