nashoy
Messages postés125Date d'inscriptiondimanche 6 avril 2003StatutMembreDernière intervention 7 octobre 2006
-
5 déc. 2003 à 22:01
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
5 déc. 2003 à 23:41
salut,
jai un ptit code tout bidon,et jaimerai savoir coment je pe/si je pe y ajouter un nom de destinataire et de l'envoyeur, pas ladresse, le nom,et le sujet. voila mon code :
Private Sub Command1_Click()
Winsock1.Connect "mail.wanadoo.fr", 25
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:<env@oyeur.com>" & vbCrLf
Winsock1.SendData "RCPT TO:<desti@nataire.fr>" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub