Enviar correo de PREVIEW, con dstinatario?

[Armando]

Hola Amigos:

En versiones recientes la vista previa nos permite la facilidad de llamar
a Outlook para enviar la vista previa por e-mail.

La pregunta, es posible indicar a Outlook la dirección del destinatario,
asunto y mensaje?

Saludos

[gmart1]

Hola,
intenta usar bEmail de la clase rpreview.

Mira esto : http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33978&p=201049&hilit=bemail#p201049

Un saludo.

[Armando]

gmart1:

Muchas gracias, le voy a tirar un ojo.

Saludos

[Armando]

gmart1

Te cuento que no doy pie con bola, hay algún ejemplo?

Saludos

[karinha]

Armando, que yo sepa, esto sólo funciona con Windows Live Mail.

Code: Select all  Expand view

METHOD SendEmail() CLASS TPreview

   local oMail, cName, cFile

   cName := If( ::oReport != nil, ::oReport:cName, ::oDevice:cDocument )
   cFile := cFilePath( ::oDevice:aMeta[ 1 ] ) + StrTran( cName, '.', '' ) + ;
            Left( HB_TToS( HB_DateTime() ), 14 ) + ".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
      DEFINE MAIL oMail ;
         SUBJECT cName ;
         TEXT "Prezado Cliente, Segue Anexo, o PDF da NF-e." ;
         FILES cFile, cFile ;
         FROM USER

      ACTIVATE MAIL oMail

      // MsgInfo( oMail:nRetCode )  check the returned code!
   endif

   ::oMeta1:SetFocus()

return nil
 

Saludos.

[Armando]

Karinha:

Te agradezco la respuesta, ojalá Antonio nos provea de esta facilidad, sería un
buen complemento a lo que ya hay.

Saludos

[karinha]

Armando, mira se ayuda,

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=29820&p=168953&hilit=+mailto%3A+#p168953

Saludos.