Outlook en Preview

Outlook en Preview

Postby Garbi » 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?

Code: Select all  Expand view
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
Saludos,
Regards,

Jose Luis Alepuz
joseluis@mancomputer.com
www.mancomputer.com
Garbi
 
Posts: 289
Joined: Wed Nov 02, 2005 3:28 pm

Re: Outlook en Preview

Postby darioflores » Thu Feb 22, 2018 7:22 am

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.
darioflores
 
Posts: 17
Joined: Tue Oct 06, 2015 7:06 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Willi Quintana and 12 guests