Hi,

Does anybody manage to send mail by using gmail account?

I have tried sample:


PROCEDURE Main
      LOCAL oSmtp, oEMail
      LOCAL cSmtpUrl
      LOCAL cSubject, cFrom, cTo, cBody, cFile

      // preparing data for eMail
      cSmtpUrl:= "smtp://username:password@smtp.gmail.com"
      cSubject := "Testing eMail"
      cFrom     := "username@gmail.com"
      cTo         := "username@gmail.com"
      cBody     := "This is a test mail sent at: " + DtoC(date()) + "
" + Time()

      // preparing eMail object
      oEMail   := TIpMail():new()
      oEMail:setHeader( cSubject, cFrom, cTo )
      oEMail:setBody( cBody )

      // preparing SMTP object
      oSmtp := TIpClientSmtp():new( cSmtpUrl )

      // sending data via internet connection
      IF oSmtp:open()
         oSmtp:sendMail( oEMail )
         oSmtp:close()
         ? "Mail sent"
      ELSE
         ? "Error:", oSmtp:lastErrorMessage()
      ENDIF
   RETURN

and I got message "Mail sent" but no email come to my gmail account. I
have tried to add:

oSmtp:nDefaultPort := 465

after

oSmtp := TIpClientSmtp():new( cSmtpUrl )

and then I got error message....

Thanks.

Hi

You need to use the hb_sendmail function to send email with gmail

link the tipssl.lib  libeay32.lib ssleay32.lib in front of tip.lib

Regards
Luiz

On 19 jan, 06:57, Martin Bilek <bil...@gmail.com> wrote:
> Hi,
>
> Does anybody manage to send mail by using gmail account?
>
> I have tried sample:
>
> PROCEDURE Main
> =A0 =A0 =A0 LOCAL oSmtp, oEMail
> =A0 =A0 =A0 LOCAL cSmtpUrl
> =A0 =A0 =A0 LOCAL cSubject, cFrom, cTo, cBody, cFile
>
> =A0 =A0 =A0 // preparing data for eMail
> =A0 =A0 =A0 cSmtpUrl:=3D "smtp://username:passw...@smtp.gmail.com"
> =A0 =A0 =A0 cSubject :=3D "Testing eMail"
> =A0 =A0 =A0 cFrom =A0 =A0 :=3D "usern...@gmail.com"
> =A0 =A0 =A0 cTo =A0 =A0 =A0 =A0 :=3D "usern...@gmail.com"
> =A0 =A0 =A0 cBody =A0 =A0 :=3D "This is a test mail sent at: " + DtoC(dat=
e()) + "
> " + Time()
>
> =A0 =A0 =A0 // preparing eMail object
> =A0 =A0 =A0 oEMail =A0 :=3D TIpMail():new()
> =A0 =A0 =A0 oEMail:setHeader( cSubject, cFrom, cTo )
> =A0 =A0 =A0 oEMail:setBody( cBody )
>
> =A0 =A0 =A0 // preparing SMTP object
> =A0 =A0 =A0 oSmtp :=3D TIpClientSmtp():new( cSmtpUrl )
>
> =A0 =A0 =A0 // sending data via internet connection
> =A0 =A0 =A0 IF oSmtp:open()
> =A0 =A0 =A0 =A0 =A0oSmtp:sendMail( oEMail )
> =A0 =A0 =A0 =A0 =A0oSmtp:close()
> =A0 =A0 =A0 =A0 =A0? "Mail sent"
> =A0 =A0 =A0 ELSE
> =A0 =A0 =A0 =A0 =A0? "Error:", oSmtp:lastErrorMessage()
> =A0 =A0 =A0 ENDIF
> =A0 =A0RETURN
>
> and I got message "Mail sent" but no email come to my gmail account. I
> have tried to add:
>
> oSmtp:nDefaultPort :=3D 465
>
> after
>
> oSmtp :=3D TIpClientSmtp():new( cSmtpUrl )
>
> and then I got error message....
>
> Thanks.