begin process at 2012 02 15 20:06:29
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Réseau et Internet

 > 

Envoyer un mail avec WINSock ??????


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Envoyer un mail avec WINSock ??????

vendredi 15 novembre 2002 à 10:27:16 | Envoyer un mail avec WINSock ??????

alex74

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex
vendredi 15 novembre 2002 à 11:06:47 | Re : Envoyer un mail avec WINSock ??????

BasicInstinct

Membre Club
verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex

vendredi 15 novembre 2002 à 11:09:40 | Re : Envoyer un mail avec WINSock ??????

acive

Salut, moi aussi j'ai eu le même prob, mais j'ai trouvé une autre solution, (donne moi ton mail et je te l'envoi), mais c'est un service gratui dans un autre site, et moi aussi j'aurais préféré le faire à ta façon, dans le winsock1.remotehost tu mets pop.free.fr par ex. c'est ca?


-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex

vendredi 15 novembre 2002 à 11:39:04 | Re : Envoyer un mail avec WINSock ??????

alex74

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex


vendredi 15 novembre 2002 à 13:55:31 | Re : Envoyer un mail avec WINSock ??????

jockos

Est-ce que l'envoie de mail par Winsock évite que Outlook détecte l'envoie ?

Peut-on joindre un fichier au mail en passant par Winsock?

Merci


-------------------------------
Réponse au message :
-------------------------------

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex



vendredi 15 novembre 2002 à 14:01:00 | Re : Envoyer un mail avec WINSock ??????

BasicInstinct

Membre Club
le mail ne passe pas par outlook, il n'est donc pas détecté
on peux envoyer les mails au format html, envoyer des pieces jointes, envoyer a plusieurs personnes.....

faut juste suivre le protocole smtp



-------------------------------
Réponse au message :
-------------------------------

Est-ce que l'envoie de mail par Winsock évite que Outlook détecte l'envoie ?

Peut-on joindre un fichier au mail en passant par Winsock?

Merci


-------------------------------
Réponse au message :
-------------------------------

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex




vendredi 15 novembre 2002 à 14:04:41 | Re : Envoyer un mail avec WINSock ??????

jockos

Tu sais comment faire pour envoyé une pièce jointe... j'ai la flemme de me plonger dans le protocole SMTP...

Merci...

-------------------------------
Réponse au message :
-------------------------------

le mail ne passe pas par outlook, il n'est donc pas détecté
on peux envoyer les mails au format html, envoyer des pieces jointes, envoyer a plusieurs personnes.....

faut juste suivre le protocole smtp



-------------------------------
Réponse au message :
-------------------------------

Est-ce que l'envoie de mail par Winsock évite que Outlook détecte l'envoie ?

Peut-on joindre un fichier au mail en passant par Winsock?

Merci


-------------------------------
Réponse au message :
-------------------------------

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex





vendredi 15 novembre 2002 à 14:38:51 | Re : Envoyer un mail avec WINSock ??????

BasicInstinct

Membre Club
non, désolé.
regarde sur les sources, tu devrais trouver ton bonheur je pense



-------------------------------
Réponse au message :
-------------------------------

Tu sais comment faire pour envoyé une pièce jointe... j'ai la flemme de me plonger dans le protocole SMTP...

Merci...

-------------------------------
Réponse au message :
-------------------------------

le mail ne passe pas par outlook, il n'est donc pas détecté
on peux envoyer les mails au format html, envoyer des pieces jointes, envoyer a plusieurs personnes.....

faut juste suivre le protocole smtp



-------------------------------
Réponse au message :
-------------------------------

Est-ce que l'envoie de mail par Winsock évite que Outlook détecte l'envoie ?

Peut-on joindre un fichier au mail en passant par Winsock?

Merci


-------------------------------
Réponse au message :
-------------------------------

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex






lundi 18 novembre 2002 à 07:03:57 | Re : Envoyer un mail avec WINSock ??????

YangLiKe


tien ya tout ce que tu cherche ici:

http://216.26.168.92/vbsquare/demos/sendmail-demo/



-------------------------------
Réponse au message :
-------------------------------

non, désolé.
regarde sur les sources, tu devrais trouver ton bonheur je pense



-------------------------------
Réponse au message :
-------------------------------

Tu sais comment faire pour envoyé une pièce jointe... j'ai la flemme de me plonger dans le protocole SMTP...

Merci...

-------------------------------
Réponse au message :
-------------------------------

le mail ne passe pas par outlook, il n'est donc pas détecté
on peux envoyer les mails au format html, envoyer des pieces jointes, envoyer a plusieurs personnes.....

faut juste suivre le protocole smtp



-------------------------------
Réponse au message :
-------------------------------

Est-ce que l'envoie de mail par Winsock évite que Outlook détecte l'envoie ?

Peut-on joindre un fichier au mail en passant par Winsock?

Merci


-------------------------------
Réponse au message :
-------------------------------

c bon ca marche, j'avais oublié d'ecrire

Winsock1.Connect "mail.bluewin.ch", 25

merci encore pour vos reponses!





-------------------------------
Réponse au message :
-------------------------------

verifie le port de ton winsock ainsi que l'ip de connection.
essaie aussi EHLO au lieu de HELO

le serveur en face te renvoie systematiquement 1 reponse a chaque envoie de ton winsock; controle ta reponse pour voir d'ou viens le probleme.

POP c'est uniquement pour la reception de mails
passe par du SMTP





-------------------------------
Réponse au message :
-------------------------------

J'ai lu le forum que l'on pouvait envoyer des mails avec WInsock, mais ca ne marche pas!

voici mon code :

Private Sub Winsock1_Connect()
Winsock1.SendData "HELO serveur" & vbCrLf
Winsock1.SendData "MAIL FROM:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "RCPT TO:alex74@serveur.fr" & vbCrLf
Winsock1.SendData "DATA" & vbCrLf & "blablabla ca va ?" & vbCrLf & "." & vbCrLf & "QUIT" & vbCrLf
End Sub

J'utilise un serveur POP, c peu etre ca le pb, mais que dois je ajouter a mon code pour que cq marche? Comment connecter le serveur ?

Merci de vos réponses

A+
Alex







mercredi 14 avril 2004 à 12:29:11 | Re : Envoyer un mail avec WINSock ??????

zeunz


comment vous faites pr l'envoi des mails svp? pouvez vous ecrire les sources?
merci bcp.

1 2

Cette discussion est classée dans : serveur, vbcrlf, senddata, winsock1, envoyer


Répondre à ce message

Sujets en rapport avec ce message

problème Winsock et envoi d'email [ par nazzguhl ] Bonjour,J'ai trouvé dans divers messages du forum et bouts de code pour écrire un programme VB6 afin d'envoyer des emails avec WinSock, mais ça ne fon envoyer un mail [ par HatMan ] voila jai pri un code pour envoyer un mail et cela donne sa:Private Sub Command1_Click()Winsock1.Connect "smtp.free.fr", 25End SubPrivate Sub Wi PB Envoi de mails en TCP avec winsock... [ par ceyquem ] Bonjour !Je ne parviens pas à envoyer de mails avec winsowk et le code suivant que j'ai repiqué d'un exemple de vb5 :********************************* Mail et Winsock [ par CorbenD2 ] Bonjour à tous je voudrais envoyer des mails généré par ma base de données , je voudrais les mettre en forme avec un peu d html et pouvoir surtout spé Problème [ par schub1015 ] Voici mon code : Private Sub Command1_Click() Winsock1.Connect "pop.yahoo.fr", 110 Winsock1.SendData "USER xxxx" & vbCrLf Winsock1.SendData " pb de connexion à un serveur pop [ par schub1015 ] Est-ce qu'un code comme celui-ci peut fonctionner ?Private Sub Command1_Click()stade = 0Winsock1.CloseWinsock1.Connect Text4.Text, 110End SubPrivate S Winsock -code bidon,pk sa marche pas ?? [ par nashoy ] 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 pb winsock senddata [ par gini333 ] Voilà mon problème, une fois que le programme a reçu toutes les données de la 1ère requête (lettre "A"), le nextsend passe bien à true, il sort du dat Comment faire un mail Winsock ??? [ par EhJoe ] Bonjour, J'ai écrit (recopié), sans y comprendre grand chose, le code sous-cité, si quelqu'un peut me dire où est l'erreur pour que ça marche (je suis SendData et Path [ par testt ] Bonjour, Voila je ne sais pas vraiment si ce problème a déjà été déposé sur le forum mais j'ai un petit problème avec mon programme. Mon programme ut


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,510 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales