Enviar correo de PREVIEW, con dstinatario?

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Enviar correo de PREVIEW, con dstinatario?
Posted: Tue Jul 17, 2018 02:27 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

gmart1

Posts: 84

Joined: Wed Oct 24, 2007 12:48 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Wed Jul 18, 2018 11:02 AM

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

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Wed Jul 18, 2018 01:11 PM

gmart1:

Muchas gracias, le voy a tirar un ojo.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Sat Jul 21, 2018 03:30 AM

gmart1

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Mon Jul 23, 2018 01:48 PM

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

Code (fw): Select all Collapse

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Mon Jul 23, 2018 04:27 PM

Karinha:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Enviar correo de PREVIEW, con dstinatario?
Posted: Mon Jul 23, 2018 06:19 PM

Armando, mira se ayuda,

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

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion