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

Comment envoyer un e-mail en utilisant Winsock

	Description
Retour à la liste L'auteur Mike Gagnon 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é 10539 fois Niveau initié
	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.

Comment envoyer un e-mail en utilisant Winsock

Contributions > 12 - Envoyer des Emails