Here's the CDO/CDONTS .vfp. example:

llCDO=.T.
DO CASE
* Tests for Windows 2000
	CASE "5.00" $ OS()
		llCDO = .T.
	CASE "NT 4.00" $ OS()  && must use CDONTS
		llCDO = .F.
* Tests for Windows 95
	CASE "4.00" $ OS()
		llCDO = .F.
* Tests for Windows 98
	CASE "4.10" $ OS()
		llCDO = .F.
* Tests for Windows Me
	CASE "4.90" $ OS()
		llCDO = .F.
	OTHERWISE  && XP?
		llCDO = .T.
ENDCASE
IF llCDO
	#DEFINE cdoSendUsingPort 2
	#DEFINE smtpserverport 25
	#DEFINE smtpserver 'localhost' && replace with your SMTP server

	LOCAL loMsg
	loMsg = NEWOBJECT("CDO.Message")

	WITH loMsg
		IF !EMPTY(oRequest.FORM("txtMailFrom"))
	   		.FROM = oRequest.FORM("txtMailFrom")
	   	ENDIF
	   	IF !EMPTY(oRequest.FORM("txtMailTo"))
	   		.TO = oRequest.FORM("txtMailTo")
	   	ENDIF
	   	IF !EMPTY(oRequest.FORM("txtMailBcc"))
	   		.BCC = oRequest.FORM("txtMailBcc")
	   	ENDIF
	   	IF !EMPTY(oRequest.FORM("txtMailSubject"))
	   		.Subject = oRequest.FORM("txtMailSubject")
	   	ENDIF
	   	IF !EMPTY(oRequest.FORM("S1"))
	   		.TextBody = oRequest.FORM("S1")
	   	ENDIF
	   	IF !EMPTY(oRequest.FORM("txtMailAttachment"))
	   	    .AddAttachment = oRequest.FORM("txtMailAttachment")
	   	ENDIF
	   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/sendusing").VALUE = 1
	   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/sendusing").VALUE = cdoSendUsingPort
	   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserver").VALUE = smtpserver
	   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserverport").VALUE = smtpserverport
	   .Configuration.FIELDS.UPDATE
	   .SEND
	ENDWITH
	loMsg = NULL
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

>Hi Everyone,
>
>Is there a way that I can send an email even though no outlook is installed.
>Somebody mentioned to me about SMTP email.
>
>Can somebody give me some sample coding or information on how to use SMTP email in VFP?
>
>Basically, I only wanted to send an email(includes CC: and BCC::) and attach some files.