Send Mail : Exemples
Expédition de mails en visual foxpro
(Avec le téléchargement il y a un fichier exemple.prg plus complet.)
Le Hello World
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.serveur.com"
o.FROM = "mon_email@serveur.com"
o.TO = "ton_email@serveur.com"
o.Subject = "Hello World"
o.Message = "Hello World..."
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
Un Hello World un peu plus complet
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Serveur.com"
o.FROM = "mon_email@serveur.com"
o.FROM_NAME = "Mon Nom"
o.TO = "ton_email@serveur.com, autre_email@serveur.com"
o.cc = "copie_email@serveur.com"
o.cc_name = "Nom du Copie"
o.Subject = "Hello World"
o.Message = "Hello World..."
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
Message avec pièces jointes
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Serveur.com"
o.FROM = "mon_email@serveur.com"
o.FROM_NAME = "Mon Nom"
o.TO = "ton_email@serveur.com"
o.Subject = "Hello World"
o.Message = "Ci joint..."
o.attachment = "c:\temp\fichier1.jpg, c:\temp\fichier2.jpg"
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
Utilisation de ESMTP (authentification pour l'expédition de mail)
Dans le cas ou le serveur de mail n'est pas en open relay sur votre accès internet :
il faut s'authentifier pour expédier le mail.
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.mail.yahoo.fr"
o.FROM = "mon_email@domaine.com"
o.TO = "ton_email@domaine.com"
o.Subject = "Hello World"
o.Message = "Ci joint..."
o.Auth_Login = "login"
o.Auth_password = "passe"
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
Expédition d'un mail ayant un corps de message issu d'un fichier MHTML généré par XFRX
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Serveur.com"
o.FROM = "mon_email@serveur.com"
o.FROM_NAME = "moi"
o.TO = "ton_email@serveur.com"
o.TO_NAME = "toi"
o.Subject = "Fichier MHTML"
o.data_mhtml = "c:\temp\monfichier.mht"
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
Expédition cumulant les fonctionnalités : ESMTP + corps MHTML généré par XFRX + Pièces Jointes
SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.mail.yahoo.fr"
o.FROM = "mon_email@yahoo.fr"
o.FROM_NAME = "moi"
o.TO = "ton_email@serveur.com"
o.TO_NAME = "toi"
o.Subject = "Génial"
o.data_mhtml = "c:\temp\monfichier.mht"
o.Auth_Login = "login"
o.Auth_password = "passe"
o.attachment = "c:\temp\fichier1.jpg, c:\temp\fichier2.jpg"
IF NOT o.send()
? "Erreur : " + o.Erreur
ENDIF
o=Null
