enviar correo electronico / send eMail

HMG en Español

Moderator: Rathinagiri

EduardoLuis
Posts: 516
Joined: Tue Jun 04, 2013 6:33 pm
Location: Argentina
Been thanked: 28 times

Re: 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

User avatar
danielmaximiliano
Posts: 2028
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 74 times
Been thanked: 11 times
Contact:

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.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
Jairo Maia
Posts: 53
Joined: Sun Jul 17, 2011 1:47 pm
Location: Campinas - SP - Brazil

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

User avatar
danielmaximiliano
Posts: 2028
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 74 times
Been thanked: 11 times
Contact:

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
Jairo Maia
Posts: 53
Joined: Sun Jul 17, 2011 1:47 pm
Location: Campinas - SP - Brazil

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

Hola Daniel,

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

Image

User avatar
danielmaximiliano
Posts: 2028
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 74 times
Been thanked: 11 times
Contact:

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()
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
edufloriv
Posts: 108
Joined: Thu Nov 08, 2012 3:42 am
Location: PERU
Been thanked: 3 times

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

Eduardo Flores Rivas


LIMA - PERU

User avatar
Jairo Maia
Posts: 53
Joined: Sun Jul 17, 2011 1:47 pm
Location: Campinas - SP - Brazil

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.

User avatar
danielmaximiliano
Posts: 2028
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 74 times
Been thanked: 11 times
Contact:

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.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

User avatar
mol
Posts: 2801
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 112 times
Been thanked: 52 times
Contact:

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.

Post Reply