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
#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
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
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.
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
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.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 56 guests