hi,
just a Question : is there a RTFToHTM() Function in Harbour
Jimmy wrote:hi,
just a Question : is there a RTFToHTM() Function in Harbour
oMail := oOutlook:CreateItemFromTemplate( Alltrim( cFile ) )
//olHTML 5 HTML format (.html) oMail:SaveAs ( cZielVerzeichnis + "\" + cFileNoExt(cVData) + "_fromEmail.html", 5 )
oMail:SaveAs ( cSaveAsRTFFile, 1 )
oWord := CreateObject( "Word.Application" )
oDoc := oWord:Documents:Open( cSaveAsRTFFile )
oDoc:SaveAs( cSaveAsHTMLFile, 10 )
oWord:Visible := .t.
oWord:PrintOut()
oDoc:Close()
oWord:Quit()
wdFormatDocument: 0 - Saves as a Word document (.docx)
wdFormatRTF: 1 - Saves as an RTF file
wdFormatText: 2 - Saves as a text file (.txt)
wdFormatHTML: 10 - Saves as an HTML file (.html)
wdFormatXMLDocument: 12 - Saves as an XML document (.docx)
wdFormatPDF: 17 - Saves as a PDF file (.pdf)
wdFormatXPS: 18 - Saves as an XPS file (.xps)
Otto wrote:Do you have Word installed?
Then you can open many formats with the Word object and save them in others.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 56 guests