topic-16123

Posts: 117

Joined: Thu Mar 02, 2006 11:06 AM

tSmtp() with gmail
Posted: Tue Jul 14, 2009 01:42 PM

Hello,

I use the following code

function SendMail()
   local oOutMail, cIP


   WSAStartup()
   oOutMail := TSmtp():New( cIP := GetHostByName( "smtp.gmail.com",465) )
   MsgInfo( cIP )

   oOutMail:bConnecting = { ||nil }
   oOutMail:bConnected  = { ||nil  }
   oOutMail:bDone       = { || MsgInfo( "Message sent successfully" ) }

   oOutMail:SendMail( "hermanswilly@gmail.com",;     // From
                      { "hermanswilly@gmail.com" },; // To
                      "Test2",;              // Msg Text
                      "Test 2",; // Subject
                      { } )  // attached files

return nil

It works fine with my standard provider.

When I want to use gmail port 465 or port 587 it does not work.

Does someone have an idea.

Thanks

Willy

SylRob

Posts: 15

Joined: Thu Nov 01, 2007 04:54 PM

Re: tSmtp() with gmail
Posted: Tue Jul 14, 2009 05:40 PM

Willy,

To use SMTP Gmail you must been authenticated !. I'm not using Fivewin nor Xharbour but see how you can use SMTP authentication with Fivewin !

Quote from GMAIL setup instruction
Please note that if your client does not support SMTP authentication, you won't be able to send mail through your client using your Gmail address.

?End quote

Best,

Sylvain

Sylvain Robert

James Bott

Posts: 4840