enviar correo electronico / send eMail

Post by **EduardoLuis** » Tue Sep 10, 2013 5:36 pm

Hi Dany:

I've test some time ago your suggestion, but it don't solve my problem.-
Thanks again.-
Eduardo

Hola Dany:

Hace tiempo testeé ese ejemplo, pero con él no pude resolver el problema.-
Gracias de todos modos.-
Eduardo

Post by **danielmaximiliano** » Tue Sep 10, 2013 5:52 pm

EduardoLuis wrote:Hi Dany:

I've test some time ago your suggestion, but it don't solve my problem.-
Thanks again.-
Eduardo

Eduardo, nose a que te refieres que no pudo resolver el problema.
hoy compile el ejemplo y encontre que hubo modificaciones en Harbour y no genera el .Exe al faltar la libreria HbTipSsl; hice un comentario para Victor Z. en Harbour User.

Translate Google
Eduardo donot do you mean you could not solve the problem.
now compile the example and found that there were changes and generates Harbour. Exe to miss the HbTipSsl library, I made a comment for Victor Z. in Harbour User.

Jairo Maia · Post by **Jairo Maia** » Wed Jun 18, 2014 2:08 pm

Hi Friends,

I´m adapting the sample posted by CarlosRD at Tue Jul 02, 2013 7:44 pm in this topic, so, I would like know how I can to use an HTML file format in body. Is it possible?

Code: Select all

#include "hmg.ch"

Function Main()

 cAssunto := "Email Enviado Pelo OutLook"  // cSubject
 cCorpo   := "Teste.Html"               // cBody
 cAnexo   := "Teste.Xml"                // cAttachment
 cDestino := "jairo.s.maia@gmail.com"      // cTo
 
 DEFINE WINDOW Form_1 ;
  AT 0,0 ;
  WIDTH 400 ;
  HEIGHT 400 ;
  MAIN;
  TITLE 'Enviar correo con Outlook'

  @ 30,70 BUTTON Button_1 CAPTION "enviar" ACTION EnviarCorreio( cAssunto, cCorpo, cAnexo, cDestino )

 END WINDOW

 CENTER WINDOW Form_1

 ACTIVATE WINDOW Form_1

Return

Function EnviarCorreio( cAssunto, cCorpo, cAnexo, cDestino )
 Local oOutLook, oMail, oRecip, oAdjunto
 Local cCaminho := Hb_CurDrive() + ":\" + CurDir() + "\"

 oOutLook := CreateObject("Outlook.Application")

 oMail := oOutLook:CreateItem(0)

 oRecip := oMail:Recipients
 oRecip:Add( cDestino )
  
 oAdjunto:=oMail:Attachments
 oAdjunto:Add( cCaminho + cAnexo )

 oMail:Subject := cAssunto

 /*
   Here, I would like that the Body were an Html file format
   How I can to do it? It's possible?
 */
 oMail:Body    := cCaminho + cCorpo

 oMail:Send()
           
Return Nil

Post by **danielmaximiliano** » Wed Jun 18, 2014 9:20 pm

Hola Jairo :

No tengo Outlook en mi computadora para probar el ejemplo, pero creo que necesitas este codigo

Code: Select all

/*
   Here, I would like that the Body were an Html file format
   How I can to do it? It's possible?
 */
 With oMail
       'Set body format to HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
    End With
 oMail:Body    := cCaminho + cCorpo

Jairo Maia · Post by **Jairo Maia** » Thu Jun 19, 2014 12:43 pm

Hola Daniel,

Gracias por su participación, pero no se compila:

Post by **danielmaximiliano** » Thu Jun 19, 2014 1:03 pm

Perdón Jairo :

Code: Select all

 /*
   Here, I would like that the Body were an Html file format
   How I can to do it? It's possible?
 */
 With Object oMail
	   //** Set body format to HTML  **//
       :BodyFormat = olFormatHTML
       :HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
 ENDWITH
 oMail:Body    := cCaminho + cCorpo

 oMail:Send()

edufloriv · Post by **edufloriv** » Thu Jun 19, 2014 5:45 pm

Amigos,

Tengo un problema similar. Pero en mi caso el código que pongo a continuación me funciona perfecto con Windows XP, pero con Windows 7 o superior me lanza error :

Code: Select all

FUNC CorreoEnviar( cSubject , cBody )

LOCAL cPopServer    := "mail.miserver.com.pe"
LOCAL cSMTPServer   := "mail.miserver.com.pe"
LOCAL cSMTPPassWord := "mipass"
LOCAL cFrom         := "micorreo@miserver.com.pe"
LOCAL cUser         := "miusuario"
LOCAL aTo           := {"correo1@gmail.com","correo2@hotmail.com","correo3@mimail.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

Como repito con Windows XP corre perfecto, pero con Windows 7 y superior me arroja este error:

Date:19/06/14 Time: 11:54:11
Error BASE/1081 Operaci¢n no soportada: TIPCLIENTPOP:new()

Called from TIPCLIENT:NEW(0)
Called from TIPCLIENTPOP:NEW(0)
Called from HB_SENDMAIL(0)
Called from CORREOENVIAR(42)

Estoy compilando con HMG 3.0.46

Mil gracias

Jairo Maia · Post by **Jairo Maia** » Fri Jun 20, 2014 3:15 pm

(Google Translator: Portuguese to Spanish)

Hola Daniel,
Le agradezco su tiempo dispensado, vi que estabas tratando de adaptar algo de código de Microsoft Visual Basic para HMG/Harbour.

Sin embargo, creo que este código sólo funciona con Visual, por tanto, ver que la variable olFormatHTML debe ser algo propia de visual, donde se define?

Pero tengo una buena noticia: He resuelto el problema. ¿Y sabes cómo? Tomé el ejemplo del Sr. Eduardo Flores publicado anteriormente, adapté mi necesidad, y no puedo imaginar mi alegría al recibir el correo con el cuerpo HTML perfecto.

Estoy muy contento de que todos los ejemplos con Hb_SendMail() siempre hacerse la prueba de este foro y el foro de Brasil, nunca podrían hacer que funcione. Daniel, Mucho, pero muchas gracias por su esfuerzo.

Holá Eduardo Flores,
En primer lugar, gracias por publicar un ejemplo. Me sirvió mucho. También probado en Windows 7 Home Basic. Con esto dio ningún error y mensajes de correo electrónico llegó correctamente. Espero que un colega le puede ayudar. Muchas gracias.

Post by **danielmaximiliano** » Fri Jun 20, 2014 6:21 pm

Hola Jairo :

hace tiempo hice 2 ejemplos para envio de email.
1) con CDOsys de microsoft
2) utilizando la libreria HBTIP (HBSendmail tambien usa HBTIP)

el ejemplo que publicaste utiliza CreateObject() y la variable OMail puede ser tratada como un Objeto en Harbour, por lo tanto se puede utilizar

Code: Select all

 With Object oMail
        :To            :=  cEmailTo
        :CC            := cEmailCC
        :BCC           := cEmailBCC
        :subject       := cSubjectLine
        :HTMLBody   := cRangetoHTML
        /*1=Plain text, 2=HTML 3=RichText -- ISSUE: this does not keep HTML formatting -- converts all text  */
        :BodyFormat := nBodyFormat
        :Display     
    EndWith

ver que la variable olFormatHTML debe ser algo propia de visual, donde se define?

Posiblemente este definida en alguna parte no puedo decirlo ya que Microsoft lo da como ejemplo.
no puedo probar el ejemplo ya que Windows 7 no incluye Outlook y este mismo ha sido reemplazado por Windows Live Mail.

mol · Post by **mol** » Fri Aug 22, 2014 10:41 am

Hi guys!
I want to refresh this topic and ask if somebody knows a way to call standard windows email program?
I want to call default program defined by "default programs" from control panel.
It can be outlook, outlook express, thundirbird.

HMGforum.com

enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail

Re: enviar correo electronico / send eMail