Send email via Gmail account

Submitted by Sergey on May 1, 2008 - 14:47 UTC
topic: 
vfp
html
cdo2000
email
gmail
google
foxpro
cdo
smtp
sergey

Gmail SMTP server requires SSL connection on port 465.

Known Gmail limits on sending emails:
  • An attachment size is limited to 25 MB
  • An individual email can be sent to maximum of 100 recipients
  • A large number of undeliverable messages could trigger an account lockdown
Exceeding any limits beside the attachment size will cause Gmail account to be locked down for 24-72 hours.   Sample code below uses CDO 2000 class for sending emails $SAMPLECODE$ 




 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43




* 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 the registered identities, 
	*	Gmail will replace it with your default Gmail address
	.cFrom = "yourGmailAccount@gmail.com"
	
	.cTo = "somebody@otherdomain.com, somebodyelse@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

IF loMail.Send() > 0
	FOR i=1 TO loMail.GetErrorCount()
		? i, loMail.Geterror(i)
	ENDFOR
	* Clear errors
	loMail.ClearErrors()
ELSE
	? "Email sent."
ENDIF
$SEEALSO$ Send email with CDO 2000

Comments

Submitted by Jon on October 21, 2008 - 13:13 UTC
Thank you so much for posting this. I have been trying to send SMTP mail with my Gmail account from Visual FoxPro using several different techniques, none of which were working. This one worked like a charm.

Submitted by Anonymous on April 22, 2009 - 17:48 UTC
Thank you very much!!!!
Exactly what I need!

Submitted by mk on May 4, 2009 - 15:13 UTC
I have a HTML file and i want to send this file as HTML body.

Submitted by Sergey on May 4, 2009 - 15:39 UTC
For simple HTML you can use FILETOSTR() function 




1
2
3
4




	...
	.cHtmlBody = FILETOSTR(lcHtmlFileName)
	...


If HTML includes images, you'll have to use cHtmlBodyUrl property of the class. 




1
2
3
4




	...
	.cHtmlBodyUrl = "file://" + FULLPATH(lcHtmlFileName)
	...

Submitted by Anonymous on January 3, 2010 - 11:40 UTC
i have a mht html file and i want to send this file as body of message

lcHtmlFileName='report03-01-2010.mht'

.cHtmlBodyUrl = "file://" + FULLPATH(lcHtmlFileName)

giving me error as below

ERROR: :1429 # send # 103 # 0x00000216 CDO.Message.1 The content type was not valid in this context. For example, the root of an MHTML message must be an HTML document.

warm regards,
mk.

Submitted by Sergey on January 3, 2010 - 17:19 UTC
It sounds like your .MHT file is not a complete MHTML but a fragment. You can try to wrap it into &lt;HTML> and &lt;BODY> tags or add whatever tags are missing to make it complete MHTML.

Submitted by Anonymous on January 4, 2010 - 14:54 UTC
The file is created with XFRX. XFRX has an option to create a MHTML file.

How can I send the MHTML file created with XFRX?

warm regards,
mk.

Submitted by Carole Shaw on April 28, 2010 - 17:36 UTC
Wonderful, works like a charm!

Submitted by Anonymous on August 4, 2010 - 10:45 UTC
Great post. Thank you.

Submitted by Lupa on October 30, 2010 - 20:46 UTC
Please, how can I save the message directly to the folder concept of Gmail by CDO2000 (without sending)? Thank you for your advice!

Submitted by Sergey on October 30, 2010 - 21:09 UTC
First, Gmail does not have folders. If you mean Labels, the answer is no. You can use CDO 2000 to send email to your Gmail account and set filters in Gmail to route messages appropriately.

Submitted by Lupa on October 31, 2010 - 10:06 UTC
Thank you for your answer. Before I send email, I need to open Gmail to check or complete message and then send. How can I do it?

Submitted by Sergey on October 31, 2010 - 22:29 UTC
You cannot do that with CDO 2000 either.

Submitted by VIETNAMES on December 21, 2010 - 16:13 UTC
Thank You !

Submitted by Anonymous on August 3, 2011 - 06:00 UTC
Hi,

I want to display name actual name instead of my email address 




1
2
3
4
5
6
7
8




      	...
      	.cUserName = "bgx3088@gmail.com"
      	.cPassword = "******"

      	.cFrom = .cUserName
      	...

How to display my name "Yeo" in the from field instead of bgx3088@gmail.com.

Rgrds and Thanks
Yeo

Submitted by Sergey on August 3, 2011 - 11:37 UTC
You have no control how From address will be displayed at destination. It will depends on email client used. But you can add a name part that could be displayed by an email client. 





1
2
3
4
5
6
7
8




      	...
      	.cUserName = "bgx3088@gmail.com"
      	.cPassword = "******"

      	.cFrom = "My display name" + "&lt;" + .cUserName + "&gt;"             &amp;&amp; My display name&lt;bgx3088@gmail.com&gt;
      	...

Submitted by Ray on August 28, 2011 - 10:38 UTC
Thanks, works great.

But how can I put it inside a loop, so that I can send different messages to different people ?
e.g. in a payroll system, to send monthly pay slip to diferent people

Submitted by Sergey on August 28, 2011 - 17:21 UTC
Hi Ray,

Something like 




1
2
3
4
5
6
7
8




SELECT MyTableWithPayrollData
SCAN
  * Code to send email goes here
    ...
ENDSCAN

Submitted by Anonymous on November 21, 2011 - 10:58 UTC
We are currently trying to send an email in a win7 environment and constantly receiving the error

<strong>1429# send #188 #0x00000213 The transport failed to connect to the server.</strong>

We are using a google apps acount, on port 587 and ssl true.

Is there any specific reason as to why this is happening.

Submitted by Sergey on November 21, 2011 - 11:07 UTC
You're using incorrect port. Port 587 is for TLS/STARTTLS which CDO 2000 does not support.

Submitted by Anonymous on November 21, 2011 - 12:21 UTC
Ok thank you

Submitted by Hans Beyhs on December 12, 2011 - 18:43 UTC
Hi Sergey,
I was very happy to find such an excellent solution of sending mail from VFP. However...
I also receive this error message, "not able to connect to server", when I was sending
to a GMX account and tried both 25 and 587 ports.
Some servers have a wait time of 30 seconds when they receive mail through port 25,
because they want to avoid spam mails. Do you know of any problems sending through
GMSX and using port 25?
Greetings from Germany
Hans

Submitted by Sergey on December 12, 2011 - 18:47 UTC
Hi Hans ,

Only port 465 can be used with CDO 2000 to access Gmail.

Submitted by Hans Beyhs on December 12, 2011 - 18:51 UTC
Hi Sergey,
... false alarm...
I did not see, that you actually mentioned, that GMX requires port 465.
Sorry for bothering you. And THANK YOU for your nice work.
Cheers
Hans

Submitted by clement on December 9, 2011 - 16:26 UTC
Thank you for this code, it help me a lot.

Submitted by Kevin Delaney on May 7, 2012 - 10:03 UTC
Hi Sergey

I have been using your the above code to send emails via Gmail for years without any issues.
Last week I upgraded from Outlook 2002 to Outlook 2010 and it appears as thought CDO has been uninstalled.
I get "Class Definition CDO.Configuration is not found".
I did search Universalthread and located the CDOSYS.DLL but REGSVR32.EXE would not register it.
I am using Windows 7 64 bit.
Any ideas
Best regards
Kevin

Submitted by Allen on May 31, 2012 - 14:57 UTC
Thanks for all your contributions, Sergey. This has been working great, but I've just run into a problem with PDF attachments. My program creates a PDF from a report and then emails it via Gmail. The PDF appears to be ok, since I can open it on the source machine and they are small enough (5 KB-40KB). However, when the email attachment is opened, I get a message from Adobe Reader: "There was an error processing a page. A file I/O error has occurred."

The odd thing is, if I step through this code in the command window, it works. When I realized that, I tried putting delays at various places in the process, to make sure the PDF was really completely created and the attachment was really "attached," but it hasn't helped.

Has anyone else seen this problem? Any ideas for resolving it?

Submitted by Sergey on May 31, 2012 - 15:04 UTC
Hi Allen,

It's not clear where error occurs.

Submitted by SUBHENDU DE on June 13, 2012 - 12:00 UTC

hi Allen : Same thing happened with me. I am also using windows 7 .
I have watched that attachment PDF file size is increasing by 2KB.
Hence the same message is coming "A file I/O error has occurred".
Any solution please.

Submitted by Esteban Carle on July 10, 2012 - 19:19 UTC
Great !! was the solution for a old routine to send email !
Thanks

Submitted by lotfi on October 9, 2012 - 17:55 UTC
hi

excellent prg under vfp9 it works very well but under my app standalone when i execute this procedure in my logiciel.exe error : cdo.configuration not found

thanks

Submitted by Anonymous on November 19, 2012 - 18:13 UTC
The code works great for blindly sending a Gmail from VFP, however can it be modified to open the default mail client loaded with the parameters recipient, subject, body and attachment

Submitted by Kishor Rach on February 19, 2013 - 16:44 UTC
When I try to send email from Gmail I get the following error:
1 ERROR::1429 # send # 226 # 0x00000213 CDO.Message.1 The transport failed to connect to the server

Submitted by Sytze on May 9, 2013 - 03:37 UTC
I had the same issue today.
So I then logged into the mail account (Outlook.com)
It asked me to verify some details (and use that Captcha nonsense)

Then I tried emailing again and all was sweet


Submitted by Anonymous on November 3, 2013 - 05:23 UTC
I am receiving error : 1429 # send # 189 # 0x00000211 The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available.

Submitted by ChrisO on November 19, 2013 - 17:59 UTC
A user has been using the CDO email code for a while without error. But since moving to a new server, they are getting the following error:

Error while emailing to blahblah@gmail.com. ERROR #1429 send # 182 # 0x0000020F

The email option performs a FILETOSTR in order to read a template html file off the harddrive, performs substitution on the template text and then displays the msg on screen BEFORE it is sent. When its sent, the text is set as the email html body. Again, this error only started after moving to a new server. Any ideas?

Submitted by Anonymous on November 21, 2013 - 09:54 UTC
When I try to send mail with CDO2000
I am receiving ERROR: 1429 # send 530 # 0x00000213 CDO.Message.1 The transport failed to connect to the server
It works in our network. But in another network gives this error. Where should I look at?

Submitted by Parshooter on July 17, 2014 - 23:03 UTC
I want to create Gmail emails and save them to Gmail's "Draft" box. My client wants to review out-going emails before sending them. Is this possible with CDO2000?

Thanks.

Submitted by Charles Eglinton on April 9, 2015 - 23:34 UTC
Thank you very much, Sergey!!
Using VFP9 and Windows 7 64-bit and got your routine to work.
I've been trying many other solutions for the past few hours with no success.

I'm Using Dreamhost Mail SMTP and here are my settings:

WITH loMail
.cServer = "mail.yourdreamhostname.com"
.nServerPort = 587
.lUseSSL = .N.

.nAuthenticate = 1 && cdoBasic
.cUserName = 'myname@yourdreamhostname.com'
.cPassword = "password4myname"

* If From address doesn't match any of the registered identities,
* Gmail will replace it with your default Gmail address
.cFrom = 'myname@yourdreamhostname.com'
.cTo = 'recipient_name@gmail.com'

Thanks again!

Submitted by Dhanyakumar Sukhdeo Kadam on March 8, 2016 - 08:20 UTC
Dear Sir

CDO2000 code works fine for operating systems win xp,win 7
but it fails for windows server 2003
error message is as follows
ERROR: :1429 # send # 164 # 0x00000213 CDO.Message.1 The transport failed to connect to the server.


Submitted by John McAdam on April 1, 2016 - 12:34 UTC
Hi Sergey - can you please show us how to obtain a delivery confirmation?

Many thanks for your kind assistance!

Submitted by Sergey on April 1, 2016 - 14:15 UTC
Hi John,

See https://support.microsoft.com/en-us/kb/302839 and https://www.berezniker.com/comment/284#comment-284

Submitted by José Zorrilla on August 23, 2016 - 14:57 UTC
Gracias por la contribución a la comunidad de VFP.

Submitted by Jim Fisher on November 4, 2016 - 14:31 UTC
I have created an application which uses your excellent work which successfully sends emails via GMail on my computer and a number of others. However, on one remote client, this fails with the message
ERROR:1429#send#1230x00004e05 The requested body part was not found in the message.
When I use his gmail credentials on my computer, all works well. When he uses my credentials on his computer, he gets the same failure message. Any suggestion as to where to look first on his computer? I'm happy the app works OK and that it is not the gmail account.

Jim

Submitted by saravanan d on March 7, 2018 - 14:29 UTC
thank u sir , i am glad to thank u very much i will send mail through in vfp coding first time with your help ,with your coding i am happy, thank u ,i m thankfull to you all time.

Submitted by saravanan d on March 7, 2018 - 15:05 UTC
security problem created by your mail account , u can select less security in gmail account and try again it will go sucess, thank u
ERROR:1429#send#1230x00004e05
will solved