Outlook en Preview

[Garbi]

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?

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

[darioflores]

Hola, para introducir el mensaje en html prueba con:

oMail:htmlbody := tuTextoenhtml

La dirección del destinatario yo la pongo como:
oMail:to := direcciondecorreo

Un saludo.