hi,
just a Question : is there a RTFToHTM() Function in Harbour :?:
just a Question : is there a RTFToHTM() Function in Harbour :?:
greeting,
Jimmy
Jimmy
Jimmy wrote:hi,By Rochinha.
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?i do not want to convert a RTF.
Then you can open many formats with the Word object and save them in others.
RTFToHTM() open the RTF ans saveas HTML