hb_sendmail con gmail

[edufloriv]

Saludos mis amigos, esperando se encuentren todos bien de salud.

Para enviar correos siempre he utilizado hb_sendmail y uso una cuenta corporativa de la empresa en la que trabajo y funciona sin ningún problema:

Code: Select all

FUNC CorreoEnviar( cSubject , cBody , aTo )

LOCAL cPopServer    := "mail.farmacom.com.pe"
LOCAL cSMTPServer   := "mail.farmacom.com.pe"
LOCAL cSMTPPassWord := "???????????"
LOCAL cFrom         := "??????????@farmacom.com.pe"
LOCAL cUser         := "??????????@farmacom.com.pe"

   lRespuesta := hb_SendMail( ;
                  cSMTPServer,;           // Servidor
                  25 ,;                         // Puerto
                  cFrom,;                    // From
                  aTo,;                        // To
                  NIL ,;                       /* CC */
                  NIL ,;                       /* BCC */
                  cBody ,;                   // Body
                  cSubject ,;               // Subject
                  Nil ,;                        // aFiles attached
                  cFrom ,;                   // User   (obligatorio)
                  cSMTPPassword,;      // Pass (obligatorio)
                  cPopServer,;             // POP Server (obligatorio)
                  3 ,;                          /* nPriority */
                  .F. ,;                        /* lRead */
                  .F. ,;                        /* lTrace */
                  .T. ,;                        /* lPopAuth */
                  .F. ,;                        /* lNoAuth */
                  NIL ,;                       /* nTimeOut */
                  NIL ,;                       /* cReplyTo */
                  .F. ,;                        /* lTLS */
                  cSMTPPassWord )
RETURN

Se me ha presentado ahora la necesidad de enviar correos usando una cuenta de Gmail, ¿ es posible hacerlo con hb_sendmail ? Si la respuesta es positiva agradeceré me apoyen con los parametros adecuados (y sobre todo recientes) para hacerlo. He consultado algunos foros y la información es algo antigua, por eso apelo a su experiencia reciente.

Deseando se mantengan en salud todos, reciban un cordial abrazo.

[mustafa]

Hola Eduardo
El experto en corrreos es DaNiElMaXiMiLiAnO

El Sample que presento sobre correo fue con CDOsys
https://www.hmgforum.com/viewtopic.php? ... lit=DANIEL

últimamente estoy estudiando un poco este sistema de CDOsys

PD: hay una opción de mandar páginas HTML incrustadas en el cuerpo del eMail
con la opción ==> CreateMHTMLBody

Code: Select all

Ejemplo en nuestro Disco local en Folder Doc_Html tengo el Fichero Demo_003.htlm
con esta opción queda incrustado como texto de la carta no como fichero Attachment
         solus :='"' + "File://" + GetStartUpFolder() + "\Docs_Html\Demo_003 + ".html"+'"' 
         :CreateMHTMLBody( &solus,0)

Un Saludo
Mustafa