Discussion :

[beet2che]

bonjour
j'ai installé sur mon pc un smtp client et j'ai exécuter le bout de code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Dim monmail As New MailMessage
                monmail.From = New MailAddress("beet2che@yahoo.fr")
                monmail.To.Add("latino_live@hotmail.fr")
                monmail.Subject = "mail de test"
                monmail.Body = "hello "
                Dim client As New SmtpClient
                client.Host = "192.168.1.150"
                client.Send(monmail)

mais une erreur se déclenche lors de l'exécution : échec d'envoi du courrier
System.IO.IOException:impossible de lire les données de la connexion de transport


merci
cordialement

[rad_hass]

bonjour
j'ai installé sur mon pc un smtp client et j'ai exécuter le bout de code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Dim monmail As New MailMessage
                monmail.From = New MailAddress("beet2che@yahoo.fr")
                monmail.To.Add("latino_live@hotmail.fr")
                monmail.Subject = "mail de test"
                monmail.Body = "hello "
                Dim client As New SmtpClient
                client.Host = "192.168.1.150"
                client.Send(monmail)

mais une erreur se déclenche lors de l'exécution : échec d'envoi du courrier
System.IO.IOException:impossible de lire les données de la connexion de transport


merci
cordialement

peut être qu'il faut préciser le port ?

[beet2che]

le port par défaut c'est le port 25 mais même si on rajoute la ligne qui définisse le port c'est la même erreur qui se déclenche.

[rad_hass]

Y a pas d'identification à faire ?

A part ça je vois pas ... Vérifier le serveur ...

[beet2che]

non il n'y a pas d'identification à faire .
vérifier le serveur? de quel côté?

[tigunn]

Salut,
tu as essayé comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim AdrExp As New MailAddress("Ami@free.fr")
         Dim AdrDest As New MailAddress("be@societe.com")
         Dim Mail As New MailMessage(AdrExp, AdrDest)
         Dim Sauvegarde As New Attachment(AttachFile)
         Mail.Attachments.Add(Sauvegarde)
         Mail.Body = "texte mail"
         Mail.Subject = "mon mail"
         Dim SmtpMail As New SmtpClient("192.168.1.150")
         SmtpMail.Send(Mail)