From ActiveVFP:

IF llCDO && Win2k or XP
 * use CDO
ELSE  && use CDONTS,IIS SMTP(must be started)
	#DEFINE CdoBodyFormatHTML  0 && Body property is HTML
	#DEFINE CdoBodyFormatText  1 && Body property is plain text (default)
	#DEFINE CdoMailFormatMime  0 && NewMail object is in MIME format
	#DEFINE CdoMailFormatText  1 && NewMail object is plain text (default)
	#DEFINE CdoLow     0         && Low importance
	#DEFINE CdoNormal  1         && Normal importance (default)
	#DEFINE CdoHigh    2         && High importance
	#DEFINE CdoEncodingUUencode  0     && The attachment is to be in UUEncode format (default)  
	#DEFINE CdoEncodingBase64    1     && The attachment is to be in base 64 format  

	lcFileName=oRequest.FORM("txtMailAttachment")
	lcFileDesc=oRequest.FORM("txtMailFileDesc")
	oMail = CreateObject("CDONTS.Newmail")
	oMail.MailFormat = cdoMailFormatMIME
	IF !EMPTY(oRequest.FORM("txtMailFrom"))
		oMail.From = oRequest.FORM("txtMailFrom")
	ENDIF
	IF !EMPTY(oRequest.FORM("txtMailTo"))
		oMail.To = oRequest.FORM("txtMailTo")
	ENDIF
	IF !EMPTY(oRequest.FORM("txtMailBcc"))
		oMail.bcc = oRequest.FORM("txtMailBcc")
	ENDIF
	IF !EMPTY(oRequest.FORM("txtMailReplyTo"))
		oMail.Value("Reply-To") = oRequest.FORM("txtMailReplyTo")
	ENDIF
	IF !EMPTY(oRequest.FORM("D1"))
		oMail.Importance = VAL(oRequest.FORM("D1"))
	ENDIF
	IF !EMPTY(oRequest.FORM("txtMailSubject"))
		oMail.Subject = oRequest.FORM("txtMailSubject")
	ENDIF
	IF !EMPTY(oRequest.FORM("S1"))
		oMail.Body = oRequest.FORM("S1")
	ENDIF
	IF !EMPTY(lcFileName) .AND. FILE(lcFileName)
		oMail.AttachFile(lcFileName,lcFileDesc)
	ENDIF
	oMail.Send
ENDIF

>Hello, does anyone works with VFP and cdonts and show me an example?
>
>Thanks for the help.