Envoi Mail VB.NET smtp ?

Question

Bonjour, 

J'ai essayé d"envoyer un mail a l'aide d'une application VB.NET.
Sans succès. J'ai effectué plusieurs recherches mais aucune ne m'ont données satisfaction.
Je m'en remet donc a vous !!

Voici le code que j'ai tapé :

Dim dest As new System.Net.Mail.MailAddress("AdresseDestinataire")
Dim exp As new System.Net.Mail.MailAddress("AdresseExpediteur")
Dim Email As new System.Net.Mail.MailMessage(Exp,Dest)
        Email.Subject = "Essai envoi E-Mail VB.NET"
        Email.Body = "Test envoi mail"
        Email.IsBodyHtml = False
        Email.Priority = system.Net.Mail.MailPriority.High
Dim mailClient As New System.Net.Mail.SmtpClient("smtp.live.com")
Dim basicAutentificationInfo As New System.Net.NetworkCredential("login","mdp")
        mailClient.DeliveryMethod = system.Net.mail.SmtpDeliveryMethod.Network
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = basicAutentificationInfo
        Try
           mailClient.Send(Email)
        Catch ex As Exception
           Dim ex2 As Exception = ex
           Dim errorMessage As String = String.Empty
           errorMessage += ex2.ToString()
           ex2 = ex2.InnerException
           MESSAGEBOX.SHOW(errorMessage)
        End Try 

Voila, j'ai une exception qui me dit 'probleme de connexion' ou des fois delai d'attente expiré.
j'ai également essayé de jouer avec le timeout mais rien n'y fait.

Un petit coup de main serai le bien venue.

En vous remerciant.

Julien

whitelegend · Answer

Salut,

Cette ligne est elle l'original ?

Dim basicAutentificationInfo AsNew System.Net.NetworkCredential("login","mdp")

Où as tu supprimé les infos réelles pour pouvoir poster le message? Je parle bien sur de "login" et "mdp" ... 

A la place de ces 2 mots doivent apparaitre tes infos personnelles, on ne sait jamais sur une erreur d'inattention on pourrait l'oublier.

LC

Iraitika · Answer

oui oui, j'ai tout remplacé. Mais ca aurai pu. en fait j'ai trouvé un post plus bas, (comme quoi j'avais pas bien cherché), et a l'aide de celui la je suis passé par le port 587

Dim mailClient As New System.Net.Mail.SmtpClient("smtp.live.com",587)

Et maintenant ca marche. 

Merci quand meme, 

julien

Envoi Mail VB.NET smtp ?

2 réponses

Votre réponse

Discussions similaires