Qui connaît par coeur Winsock ?

Le
LE TROLL
Seconde demande

Bonjour,

Je coince sur Winsock, peut-on me dire où sont les erreurs et comment
faire une gestion d'erreur par ligne, pour que ça
fonctionne, merci :o)

Sub Form_Activate()
Winsock1.Close
Winsock1.RemoteHost = "smtp.free.fr"
Winsock1.RemotePort = 25
Winsock1.Connect
End Sub

Sub Winsock1_Connect()
Winsock1.SendData "HELO mailing" & vbCrLf
Winsock1.SendData "MAIL FROM: ROM@NS.fr" & vbCrLf
Winsock1.SendData "RCPT TO: ###@free.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf
Winsock1.SendData "SUBJECT: Nouveaux ROMANS" & vbCrLf
Winsock1.SendData "Les nouveaux ROMANS" & vbCrLf
Winsock1.SendData "http://stores.lulu.com/EhJoe" & vbCrLf
Winsock1.SendData "." & vbCrLf
Winsock1.Close
Unload Form1
End
End Sub


--
Merci beaucoup, au revoir et à bientôt :o)

Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François Picalausa
Le #15411941
On 4月12日, 午前10:19, "LE TROLL"
Seconde demande

        Bonjour,

    Je coince sur Winsock, peut-on me dire où sont les err eurs et comment
faire une gestion d'erreur par ligne, pour que ça
fonctionne, merci :o)

Sub Form_Activate()
  Winsock1.Close
  Winsock1.RemoteHost = "smtp.free.fr"
  Winsock1.RemotePort = 25
  Winsock1.Connect
End Sub

Sub Winsock1_Connect()
  Winsock1.SendData "HELO mailing" & vbCrLf
  Winsock1.SendData "MAIL FROM: " & vbCrLf
  Winsock1.SendData "RCPT TO: #" & vbCrLf
  Winsock1.SendData "DATA" & vbCrLf
  Winsock1.SendData "SUBJECT: Nouveaux ROMANS" & vbCrLf
    Winsock1.SendData "Les nouveaux ROMANS" & vbCrLf
    Winsock1.SendData "http://stores.lulu.com/EhJoe" & vbCrLf
  Winsock1.SendData "." & vbCrLf
  Winsock1.Close
  Unload Form1
  End
End Sub



Hello,

Un exemple d'envoi de mail par Winsock, avec gestion des retour
serveur (ce qui est plus qu'important et que, de mémoire, on t'a dà ©jà
conseillé de gérer), est disponible sur la faq:
http://faq.vb.free.fr/index.php?question=2

Voici plusieurs causes probables du problème
1/ du fait que tu ne tiens pas compte des réponese du serveur
2/ peut-être de la fermeture abrupte du programme (pourtant, je pense
que l'analogie entre end et l'arrêt de la voiture par un mur a ét é
évoquée plus d'un fois... je te conseille de chercher dans les
archives de ce groupe).
3/Vu que SendData est asynchrone - ce qui se détermine par la simple
présence des événements SendComplete et SendProgresse - il e st fort
probable que tu coupe la connection avant d'avoir tout envoyé.
4/ Tu ne respecte pas le protocole SMTP (tu n'envoie pas QUIT à la
fin)

François
Publicité
Poster une réponse
Anonyme