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
------------------------------------------------------------------------------------
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
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
On 4æ12æ¥, åå10:19, "LE TROLL" <le t...@enfe 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: R...@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
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