Jayadev: New Member Introduction

[danielmaximiliano]

Work :

Code: Select all

#include <hmg.ch>

#require "hbtip"
REQUEST __HBEXTERN__HBSSL__

#include "simpleio.ch"

PROCEDURE Main
Public cFrom, cPassword, cTo , cPort

   IF ! tip_SSL()
      ? "Error: Requires SSL support"
      RETURN
   ENDIF

   hb_default( @cFrom    , "user@gmail.com" )
   hb_default( @cPassword, "passxxxx" )
   hb_default( @cTo      , "to@server.com" )
   hb_default( @cPort    , "465" )

   ? hb_SendMail( ;
      "smtp.gmail.com", ;
      Val(cPort), ;
      cFrom, ;
      cTo, ;
      NIL /* CC */, ;
      {} /* BCC */, ;
      "test: body", ;
      "test: port "+cPort, ;
      NIL /* attachment */, ;
      cFrom, ;
      cPassword, ;
      "", ;
      NIL /* nPriority */, ;
      NIL /* lRead */, ;
      .T. /* lTrace */, ;
      .F., ;
      NIL /* lNoAuth */, ;
      NIL /* nTimeOut */, ;
      NIL /* cReplyTo */, ;
      iif(cPort=="465",.T.,.F.) /* lSSL */  )

   RETURN
   

[attachment=2]2016-12-06 09_02_00-Examinador de Proyecto [mimail.hbp].png[/attachment]

[attachment=1]mi pc.png[/attachment]

[attachment=0]correo.png[/attachment] Install openSSL From : https://slproweb.com/products/Win32OpenSSL.html

[luisvasquezcl]

Hi, Welcome.
Best Regards,
Luis Vasquez.

[Pablo César]

Qué bueno Daniel. Entonces funciona ? Felicitaciones.

That's good Daniel. Then it works? Congratulations.

[danielmaximiliano]

Si funciona, con la instalacion de las dll en la carpeta de la aplicacion como se ve en la captura

If it works, with the installation of the dll in the folder of the application as seen in the capture