FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Enviar Email
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Enviar Email
Posted: Thu Sep 25, 2008 02:27 PM

Hola amigos

Como podria enviar un email desde fwh en formato html y que me deje una copia en la bandeja de enviados del Outlook ?

un saludo y gracias desde ya

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Enviar Email
Posted: Fri Sep 26, 2008 09:47 AM
C贸digo del maestro Enrico :-)
#define olMailItem 0 


FUNCTION MAIN() 

    LOCAL oOutlook, oMail 

    oOutlook = CREATEOBJECT( "Outlook.Application" ) 

    oMail = oOutlook:CreateItem( olMailItem ) 

    oMail:Recipients:Add( "e.m.giordano@emagsoftware.it" ) 

    oMail:Subject = "Test" 

    oMail:Attachments:Add( "c:\xharbour\image.jpg" ) 

    oMail:HTMLBody = MEMOREAD( "c:\xharbour\test.htm" ) 

    oMail:Send() 

    oOutlook:Quit() 

    RETURN NIL
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Enviar Email
Posted: Fri Sep 26, 2008 01:29 PM

Gracias desde ac谩

me solucion贸 mi problema...

una consulta sobre el uso: debo tener el outlook abierto??

David
Argentina

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Enviar Email
Posted: Fri Sep 26, 2008 02:08 PM

Con Vista y Office 2007, si, tiene que estar abierto 贸 da error

Con otras versiones habr谩 que probarlo.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Enviar Email
Posted: Sat Sep 27, 2008 06:15 AM
Frafive wrote:Hola amigos

Como podria enviar un email desde fwh en formato html y que me deje una copia en la bandeja de enviados del Outlook ?


un saludo y gracias desde ya


Frafive,

CODIGO-BASE

ah铆 he "colgado" una lib para tal efecto.

espero te ayude.
William, Morales

Saludos



m茅xico.sureste
Posts: 149
Joined: Mon Oct 10, 2005 09:30 AM
Enviar Email
Posted: Sat Sep 27, 2008 08:20 AM

William vuestro blog parece abandonado, os he mandado varios mails, y dejado comentardios en el y nadie responde.

La libreria de envio de mails, funciona muy bien pero muestra por pantalla unos cuadros de dialogos q no se si pueden desaparecer.

Saludos.

Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Enviar Email
Posted: Sat Sep 27, 2008 07:25 PM
manuelcalerosolis wrote:William vuestro blog parece abandonado, os he mandado varios mails, y dejado comentardios en el y nadie responde.

La libreria de envio de mails, funciona muy bien pero muestra por pantalla unos cuadros de dialogos q no se si pueden desaparecer.

Saludos.


Mi mentalidad es:

todo siempre se puede, jjejjejjejje

mi correo es: wmormar@yahoo.com.mx
messenger: wmormar@hotmail.com

por ahi te espero
William, Morales

Saludos



m茅xico.sureste
Posts: 199
Joined: Fri Apr 18, 2008 04:21 PM
Enviar Email
Posted: Mon Sep 29, 2008 03:25 AM
Antonio Gusto de saludarte nuevamente,

Yo probe esta funcion y me funciona perfectamente, sera que en vez de enviar un correo con datos adjuntos, se pueda enviar un correo con una tarea para que a la persona que le entre el correo le quede planificado de una vez lo que tiene que hacer.

Atentamente,
Julio Rodrigo Ponce Hinestroza
Suproye
Guatemala

Antonio Linares wrote:C贸digo del maestro Enrico :-)
#define olMailItem 0 


FUNCTION MAIN() 

    LOCAL oOutlook, oMail 

    oOutlook = CREATEOBJECT( "Outlook.Application" ) 

    oMail = oOutlook:CreateItem( olMailItem ) 

    oMail:Recipients:Add( "e.m.giordano@emagsoftware.it" ) 

    oMail:Subject = "Test" 

    oMail:Attachments:Add( "c:\xharbour\image.jpg" ) 

    oMail:HTMLBody = MEMOREAD( "c:\xharbour\test.htm" ) 

    oMail:Send() 

    oOutlook:Quit() 

    RETURN NIL
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Enviar Email
Posted: Mon Sep 29, 2008 04:31 AM
manuelcalerosolis wrote:William vuestro blog parece abandonado, os he mandado varios mails, y dejado comentardios en el y nadie responde.

La libreria de envio de mails, funciona muy bien pero muestra por pantalla unos cuadros de dialogos q no se si pueden desaparecer.

Saludos.


Ya hay actividad en el blog
William, Morales

Saludos



m茅xico.sureste

Continue the discussion