Hello World avec valeurs du Maileur par défaut et créer un fichier Dump si problème

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.TO = "ton_email@serveur.com"
o.Subject = "Hello World"
IF NOT o.send()
  ? "Erreur : " + o.Erreur
  MODIFY FILE o.Dump("c:\temp\dump.txt")
ENDIF
o=Null

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