enviar correo electronico / send eMail
Moderator: Rathinagiri
-
- Posts: 682
- Joined: Tue Jun 04, 2013 6:33 pm
- Location: Argentina
Re: enviar correo electronico / send eMail
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
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
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: enviar correo electronico / send eMail
Eduardo, nose a que te refieres que no pudo resolver el problema.EduardoLuis wrote:Hi Dany:
I've test some time ago your suggestion, but it don't solve my problem.-
Thanks again.-
Eduardo
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.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- Jairo Maia
- Posts: 53
- Joined: Sun Jul 17, 2011 1:47 pm
- Location: Campinas - SP - Brazil
Re: enviar correo electronico / send eMail
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?
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
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: enviar correo electronico / send eMail
Hola Jairo :
No tengo Outlook en mi computadora para probar el ejemplo, pero creo que necesitas este codigo
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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- Jairo Maia
- Posts: 53
- Joined: Sun Jul 17, 2011 1:47 pm
- Location: Campinas - SP - Brazil
Re: enviar correo electronico / send eMail
Hola Daniel,
Gracias por su participación, pero no se compila:
Gracias por su participación, pero no se compila:
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: enviar correo electronico / send eMail
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()
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- edufloriv
- Posts: 238
- Joined: Thu Nov 08, 2012 3:42 am
- DBs Used: DBF, MariaDB, MySQL, MSSQL, MariaDB
- Location: PERU
Re: enviar correo electronico / send eMail
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 :
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
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
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
- Jairo Maia
- Posts: 53
- Joined: Sun Jul 17, 2011 1:47 pm
- Location: Campinas - SP - Brazil
Re: enviar correo electronico / send eMail
(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.
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.
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: enviar correo electronico / send eMail
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
no puedo probar el ejemplo ya que Windows 7 no incluye Outlook y este mismo ha sido reemplazado por Windows Live Mail.
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
Posiblemente este definida en alguna parte no puedo decirlo ya que Microsoft lo da como ejemplo.ver que la variable olFormatHTML debe ser algo propia de visual, donde se define?
no puedo probar el ejemplo ya que Windows 7 no incluye Outlook y este mismo ha sido reemplazado por Windows Live Mail.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: enviar correo electronico / send eMail
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.
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.