I tried thsreporttohtml and works very well, and solved to send the html to Outlook 2000 (thanks to David Stevenson), in the example who comes with the class all works ok, but when I try to put to work in an app. gives me this error:
Alias not found "w019m0bk"
Program Procedure
thsreporttohtml.thsaddfieldstosupporttable
Line #:0
Code:select...
The alias is different every time I run it .
I put this code in the valid event of a commandbutton:
dodefault()
select tocfsum && my table
PUBLIC sgoFH
LOCAL lcCurDir
lcHTMLFile = SYS(5) + CURDIR() + "Mailrep.htm" && my frx
SET CLASSLIB TO ThsRep ADDITIVE
sgoFH = CREATEOBJECT("ThsReportToHtml")
sgoFH.ThsFrxToHTML("MailRep.frx","MailRep.htm",.F.)
RELEASE sgoFH
RELEASE CLASS ThsRep
LOCAL lcBody
IF FILE("Mailrep.htm")
lcBody = FILETOSTR("MailRep.htm")
ENDIF
* This is the way to send the HTML to Outlook 2000 that told to me * David Stevenson
o=createobject("outlook.application")
oitem=o.createitem(0)
oitem.display
oitem.recipients.add("
charlie@arnet.com.ar")
oitem.subject="HTML Test"
oitem.htmlbody=lcbody
oitem.send
oitem=null
o=null
When I run the example with this way to send the mail, I thougth that 2 months of work were resolved, but in my app. do not work, I will appreciate if anybody knows what is happening.
Thanks in advance.
Carlos Etcheverry
Monte Grande
Buenos Aires
Carlos Etcheverry
Monte Grande
Buenos Aires
Argentina
Es mejor un mal dia de pesca que un buen dia de trabajo!