ENVOYER UN MAIL TRES SIMPLEMENT
Zmasteur
Messages postés
54
Date d'inscription
mardi 31 juillet 2001
Statut
Membre
Dernière intervention
5 juin 2011
-
4 janv. 2002 à 18:03
cyberice67 Messages postés 88 Date d'inscription samedi 6 décembre 2003 Statut Membre Dernière intervention 7 novembre 2016 - 7 févr. 2004 à 11:50
cyberice67 Messages postés 88 Date d'inscription samedi 6 décembre 2003 Statut Membre Dernière intervention 7 novembre 2016 - 7 févr. 2004 à 11:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2323-envoyer-un-mail-tres-simplement
https://codes-sources.commentcamarche.net/source/2323-envoyer-un-mail-tres-simplement
7 févr. 2004 à 11:50
Si qqun y arrive merci de me refilé le code pour ca s'rai sympa...
@+++ et bon dvpment !
28 janv. 2004 à 19:40
Alors si qq peu me dire comment attacher un fichier??? Sera sympa!!
14 nov. 2003 à 16:50
9 oct. 2003 à 15:31
Winsock1.SendData "MAIL FROM:Mavariable" & vbCrLf
merci pour ce Bon code.
6 sept. 2003 à 11:37
16 mars 2003 à 15:42
c possible de le faire sans winsock ?
23 janv. 2003 à 17:54
Do While Not Winsock1.State = sckClosing
DoEvents
Loop
Winsock1.Close
23 janv. 2003 à 17:48
14 juin 2002 à 19:01
8 mai 2002 à 13:55
29 mars 2002 à 19:28
********************************************************************
10 mars 2002 à 15:59
Dans la ligne Winsock1.SendData "HELO seveur" & vbCrLf
remplace HELO seveur par HELO serveur
a+
10 mars 2002 à 15:57
j'avais le meme probleme
d'abord , crées une FORM
Ensuite , un bouton puis un controle WINSOCK
double click sur le bouton et rentre le code source correspondant (je ne pense pas ke cela marche avec wanadoo mais regarde :
Winsock1.Connect "smtp.ifrance.com", 25
Ensuite , double click sur ton controle Winsock et tape la source correspondante :
Private Sub Winsock1_Connect()
Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:yo@man.com" & vbCrLf
Winsock1.SendData "RCPT TO:haha@ifrance.com" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "salut ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
Bon , surtout, quand tu double click sur le contole winsock , noublie pas de mettre le :
Private Sub Winsock1_Connect()
C le Connect() qui est important :)
voila
a+
5 févr. 2002 à 23:11
je n'arrive pas à utiliser Winsock.
je place un winsock sur une frm et ensuite je met un boutton avec le code Cliquer qui correspond a votre code. je remplace "serveur" par smtp.wanadoo.fr.
Dans la sub connect de winsock je rentre:
Winsock1.SendData "HELO seveur" & vbCrLf
Winsock1.SendData "MAIL FROM:essai@ifrance.com" & vbCrLf
Winsock1.SendData "RCPT TO:florian.ros@wanadoo.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
Et je ne recoit pas de mail?
Comment ce fesse?? :-)
Merci a bientot
4 janv. 2002 à 22:28
4 janv. 2002 à 18:03