Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Qui connaît par coeur Winsock ?

Qui connaît par coeur Winsock ?

1 réponse
Avatar
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
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
François Picalausa
On 4月12日, 午前10:19, "LE TROLL" <le r.fr> wrote:
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