Hello World

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.server.com"
o.FROM = "my_email@server.com"
o.TO = "your_email@server.com"
o.Subject = "Hello World"
o.Message = "Hello World..."
IF NOT o.send()
  ? "Error : " + o.Erreur
ENDIF
o=Null

Hello World 2

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Server.com"
o.FROM = "my_email@server.com"
o.FROM_NAME = "My Name"
o.TO = "your_email@server.com, other_email@server.com"
o.cc = "copy_email@server.com"
o.cc_name = "Copye Name"
o.Subject = "Hello World"
o.Message = "Hello World..."
IF NOT o.send()
  ? "Error : " + o.Erreur
ENDIF
o=Null

Message with attachment

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Server.com"
o.FROM = "my_email@server.com"
o.FROM_NAME = "My Name"
o.TO = "your_email@server.com"
o.Subject = "Hello World"
o.Message = "Attached..."
o.attachment = "c:\temp\fichier1.jpg, c:\temp\fichier2.jpg"
IF NOT o.send()
  ? "Error : " + o.Erreur
ENDIF
o=Null

Use of ESMTP (authentification for the sending email)
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

Sending Email with a message body resulting from MHTML file generated by XFRX

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.Server.com"
o.FROM = "my_email@server.com"
o.TO = "your_email@server.com"
o.Subject = "MHTML"
o.data_mhtml = "c:\temp\myfile.mht"
IF NOT o.send()
? "Error : " + o.Erreur
ENDIF
o=Null

Combining the above examples: ESMTP + body MHTML generated by XFRX + Attachments

SET PROCEDURE TO VFPwinsock
o=CREATEOBJECT("VFP_Winsock_Send_Mail")
o.SMTP_HOST = "smtp.mail.yahoo.fr"
o.FROM = "my_email@yahoo.fr"
o.TO = "your_email@server.com"
o.Subject = "Great"
o.data_mhtml = "c:\temp\myfile.mht"
o.Auth_Login = "login"
o.Auth_password = "password"
o.attachment = "c:\temp\file1.jpg, c:\temp\file2.jpg"
IF NOT o.send()
? "Error : " + o.Erreur
ENDIF
o=Null

Authentificiation sur un serveur Radius