Enviar Email

[Frafive]

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

[Antonio Linares]

Código del maestro Enrico

Code: Select all  Expand view  RUN

#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


[dobfivewin]

Gracias desde acá

me solucionó mi problema...

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

David
Argentina

[Antonio Linares]

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

Con otras versiones habrá que probarlo.

[wmormar]

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.

[manuelcalerosolis]

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.

[wmormar]

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

[jponce]

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

Código del maestro Enrico

Code: Select all  Expand view  RUN

#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


[wmormar]

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