Home » Pages » Visual Foxpro

Send email via Gmail account

By Sergey - Posted on May 1st, 2008
Tagged:

The Gmail SMTP server requires SSL connection on port 465.

Sample code below uses CDO 2000 class for sending emails

This is sample code. Add error handling and adjust to your requirements as necessary.

&& Replace addresses with real ones before running the code
 
loMail = NEWOBJECT("Cdo2000", "Cdo2000.fxp")
 
WITH loMail
	.cServer = "smtp.gmail.com"
	.nServerPort = 465
	.lUseSSL = .T.
 
	.nAuthenticate = 1 	&& cdoBasic
	.cUserName = "yourGmailAccount@gmail.com"
	.cPassword = "yourGmailPassword"
 
	&& If From address doesn't match any of registered identities, 
	&&	Gmail will replace it with your default Gmail address
	.cFrom = "yourGmailAccount@gmail.com"
 
	.cTo = "somenody@otherdomain.com, somenodyelse@otherdomain.com"
 
	.cSubject = "CDO 2000 email through Gmail SMTP server"
 
	&& Uncomment next lines to send HTML body
	&&.cHtmlBody = "<html><body><b>This is an HTML body<br>" + ;
	&&		"It'll be displayed by most email clients</b></body></html>" 	
 
	.cTextBody = "This is a text body." + CHR(13) + CHR(10) + ;
			"It'll be displayed if HTML body is not present or by text only email clients"
 
	&& Attachments are optional
	&& .cAttachment = "myreport.pdf, myspreadsheet.xls"
ENDWITH
 
? IIF( loMail.Send() > 0, loMail.Geterror(1), "Email sent.")