Outlook en Preview
Posted: Wed Feb 21, 2018 11:55 am
Hola estoy modificando el rpreview.prg para usar el outlook y con los ejemplos que he podido obtener del foro he puesto esto en la función de sendemail y me lanza el error " Error description: Error BASE/1003 No existe la variable: OLFORMATHTML"
¿Alguna sugerencia?
¿Alguna sugerencia?
Code: Select all
METHOD SendEmail() CLASS TPreview
local oMail, cName, cFile, olMailItem
cName := If( ::oReport != nil, ::oReport:cName, ::oDevice:cDocument )
cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ".pdf"
CursorWait()
cFile := ::SaveAs( .t., cFile, .f. )
CursorArrow()
if ! File( cFile )
MsgInfo( FWString( "PDF not saved to send Email" ), FWString( "Information" ) )
elseif ::bEmail != nil
Eval( ::bEmail, Self, cName, cFile )
else
oOutlook := CreateObject( "Outlook.Application" )
oMail := oOutlook:CreateItem( olMailItem )
with object oMail
oMail:Subject = cName
oMail:BodyFormat = olFormatHTML
oMail:Recipients:Add( Alltrim(vmailpre) )
oMail:Attachments:Add( cFile )
oMail:Display = .T.
END
endif
::oMeta1:SetFocus()
return nil