VFPwinsock

Gérer Winsock et expédier des Emails avec Visual FoxPro.
VFPwinsock

Exemples

Send Mail : Exemples

Expédition de mails en Visual foxpro

(Avec le téléchargement il y a un formulaire permettant de générer du code d'exemple)

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


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

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)

If the email server is not in open relay, an authentication is required:

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.mail.yahoo.fr"
o.FROM = "my_email@domaine.com"
o.TO = "your_email@domaine.com"
o.Subject = "Hello World"
o.Message = "Test..."
o.Auth_Login = "login"
o.Auth_password = "password"
IF NOT o.send()
  ? "Error : " + 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
Reproduction totale ou partielle strictement interdite • KitWeb • Wan Again • Design or Decline • Valid XHTML 1.0 Transitional