Problème pour envoyer des mails
Bonjours a tous et merci pour tout dans le passer certains m'ont déjà beaucoup aider.
j'apprends maintenant le vb.net
et je suis confronter a un problème qui me bloque pour le reste du programme..
J'ai beau chercher encore et encore sur des forum, je n'arrive pas a trouver pourquoi je ne peux pas envoyer de mail, alors j'ai l'espoir que vous pourriez m'aider
Email utiliser existe et son a moi,
j'ai bien rentrer mon mot de passe ect
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Imports System.Net
Imports System.Net.Mail
Public Class MAILEXP
Shared Sub SendMail(ByVal name As String)
Dim client As New System.Net.Mail.SmtpClient
Dim message As New System.Net.Mail.MailMessage
Dim expediteur As String = "@gmail.com"
client.UseDefaultCredentials = False
client.Credentials = New System.Net.NetworkCredential(expediteur, "*******")
Try
client.Port = 465
client.Host = "smtp.gmail.com"
client.EnableSsl = True
message.From = New System.Net.Mail.MailAddress(expediteur)
message.To.Add("@gmail.com")
Dim item As New System.Net.Mail.Attachment("c:\....")
message.Attachments.Add(item)
message.Subject = "SUJET"
message.Body = "MESSAGE"
client.Send(message)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class |
Donc si vous pourriez m'expliquer ce qui ne vas pas, je vous en remercie d'avance ;)