Enviar Email

Enviar Email

Postby Frafive » Thu Sep 25, 2008 2: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
Frafive
 
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Postby Antonio Linares » Fri Sep 26, 2008 9:47 am

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby dobfivewin » Fri Sep 26, 2008 1:29 pm

Gracias desde acá

me solucionó mi problema...

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

David
Argentina
dobfivewin
 
Posts: 325
Joined: Sun Feb 03, 2008 11:04 pm
Location: Argetnina

Postby Antonio Linares » Fri Sep 26, 2008 2: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Enviar Email

Postby wmormar » Sat Sep 27, 2008 6: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
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby manuelcalerosolis » Sat Sep 27, 2008 8: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.
User avatar
manuelcalerosolis
 
Posts: 149
Joined: Mon Oct 10, 2005 9:30 am
Location: Huelva - Spain

Postby wmormar » Sat Sep 27, 2008 7: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
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby jponce » Mon Sep 29, 2008 3: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 :-)
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
jponce
 
Posts: 197
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala

Postby wmormar » Mon Sep 29, 2008 4: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
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 56 guests