ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment envoyer un e-mail en utilisant Winsock   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 12 - Envoyer des Emails

Comment envoyer un e-mail en utilisant Winsock
# 0000000014
ajouté le 14/10/2004 21:53:45 et modifié le 14/10/2004
consulté 10132 fois
Niveau initié

Description
Comment envoyer un e-mail en utilisant Winsock
Code source :
#Define crlf Chr(13)+Chr(10)

oWinsock = Createobject("MSWinsock.Winsock.1")
oWinsock.Protocol = 0     && 0=TCP Protocol, 1=UDP
oWinsock.RemoteHost = '65.39.231.158'&&"mail.suntelecom.net"
oWinsock.RemotePort = 25 && smtp port.
oWinsock.Connect
=Inkey(.25)
oWinsock.senddata("Hello myself.com" + crlf) && You can change this string to anything else..
line1 = "mail from:" + Chr(32) + "moi@somewhere.net" + crlf
line2 = "rcpt to:" + Chr(32) + "you@hotmail.com"+ crlf
line3 = "Date:" + Chr(32) + Dtoc(Date()) + crlf
line4 = "From:" + Chr(32) + "moi@somewhere.net" + crlf
line5 = "To:" + Chr(32) + "you@hotmail.com" + crlf
line6 = "Subject:" + Chr(32) + "Test winsock mail" + crlf
line7 = "This is a test body of the message" + crlf
line9 = "X-Mailer: Mike's Test mail" + crlf
line8 = line4 + line3 + line9 + line5 + line6 + line7
oWinsock.senddata(line1)
=Inkey(.25)
oWinsock.senddata(line2)
=Inkey(.25)
oWinsock.senddata(line8 + "." + crlf)
=Inkey(.25)
oWinsock.senddata("quit")
=Inkey(.25)
oWinsock.Close()


Commentaires
le 01/04/2005, delphi-ne a écrit :
Si j'exécute cet exemple sous debugger j'ai une erreur après avoir exécuté oWinsock.senddata(line8 + "." + crlf)
Avant l'objet a bien l'état 7 (connecté)
Si j'envoie un mail en utilisant un autre exemple : VFPwinsock ca marche.

le 02/04/2005, Mike Gagnon a écrit :
Est-ce que les parametres pour le SMTP, le port et le protocole sont bien configuré pour pointer vers TON domaine?
le 04/04/2005, delphi-ne a écrit :
Je pense par ce que c'es la même chose qu'avec VFPWinsock. D'ailleurs au moment du connect j'ai bien l'état 7.

oWinsock = Createobject("MSWinsock.Winsock.1")
oWinsock.Protocol = 0 && 0=TCP Protocol, 1=UDP
oWinsock.RemoteHost = "smtp.wanadoo.fr"
oWinsock.RemotePort = 25 && smtp port.
oWinsock.Connect

le 11/12/2008, Golani a écrit :
Bonour,
je suis nouvellement inscrit sur Atoutfox et voici ma question: J'execute une requete avec select sur une colone d'une table dans Foxpro 9, je voudrais ensuite qu'un mail soit automatiquement emvoye si la colone nest pas vide. Jusque la je n'ai pas de probleme. Ce que je ne parviens pas a faire cest ecrire ce qu'il ya dans la colone en tant que mesage du mail. Qulqu;un a til une idee?
Cordialement

le 12/12/2008, Mike Gagnon a écrit :
line7 = transform(matable.monchamp) + crlf

le 12/12/2008, Golani a écrit :
Merci pour cette reponse rapide, jessaie et vous tiens au courant
le 12/12/2008, Golani a écrit :
Cela marche trs bien, jai ajoute un output de requete vers une table, et ainsi pu recupere le cmaps. Merci beaucoup. Une derniere question: comment puis-je mettre plusieurs champs les un a la suite des autres dans mon mail? avec des crochets, des virgules...?
merci encore

le 12/12/2008, Golani a écrit :
re-bonjour, cela marche avec de "+" a condition d'aller a la ligne
le 23/04/2011, Azizou a écrit :
Salut
Juste pour savoir comment attacher un fichier au mail à envoyer
Cordialement
Abdourasiz

le 23/04/2011, Mike Gagnon a écrit :
je te suggère d'aller voir su coté de vfpWinsock.
http://www.vfpwinsock.com/

le 25/04/2011, Azizou a écrit :
Salut Mike, j'essaye d'utiliser le code proposer pour envoyer un mail avec vfp6 sans installer un service SMTP, voici ce que j'ai comme message d'erreur : " code d'exception OLE IDispatch 0 de CDO.Message.1 : le transport a échoué dans sa connexion au serveur". j'ai installer IIS7 pourtant. Peux tu me situer sur ce qui ne vas pas ou ce qu'il faut faire?

pour ce qui concerne le vfpwinsock, là également j'ai un problème avec le SMTP_Host. j'ai utilisé smtp.gmail.com pour gmail et smtp.yahoo.com pour yahoo mail sans succès.

D'avance merci.


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3