FiveTech Software tech support forums

Posted: **Fri May 24, 2013 2:17 pm**

Señores

Estoy usando el Rpreview, el cual tiene un botón que permite enviar la impresión por correo, pero solo lo envía a través de Microsoft Outlook, yo uso Mozilla Thunderbird, quisiera me ayuden con el código si es que ya hicieron este cambio.
Gracias de antemano.

Luis

Code: Select all

      #ifdef __WMPDF__
         DEFINE TBBUTTON OF oBar ;
         ACTION  MSGRUN( "Exportando...",, {|| SaveAsPdf(MEMVar->DirTem+MEMVAR->cNomReport+".PDF",::oDevice:aMeta, ::oWnd )} )  ;
         TOOLTIP Strtran( TXT_SEND_PDF, "&", "" ) ;
         MESSAGE TXT_SEND_PDF
*        ACTION  MSGRUN( "Exportando...",, {|| pdf2mail( ::oDevice:aMeta, ::oWnd )} )  ;
         DEFINE TBBUTTON OF oBar ;
         ACTION  MSGRUN( "Exportando...",, {|| SaveAsPdf(MEMVar->DirTem+MEMVAR->cNomReport+".PDF",::oDevice:aMeta,,.F.),shellexecute(,"Open","outlook.exe","/c ipm.note /a "+MEMVar->DirTem+MEMVAR->cNomReport+".PDF",,1)}) ;
         TOOLTIP Strtran( TXT_SEND_MAIL, "&", "" ) ;
         MESSAGE TXT_SEND_MAIL

      #endif

Posted: **Sat May 25, 2013 10:27 am**

http://forums.mozillazine.org/viewtopic ... 8&t=164233

https://developer.mozilla.org/en-US/doc ... ne_Options

Posted: **Mon May 27, 2013 1:27 pm**

If Thunderbird is your default email client, you can use TMapi to send mails with Thunderbird.

Code: Select all

 DEFINE MAIL oMail ;
      SUBJECT ::cInfoHead ;
      TEXT ::cMailText;
      FILES cFile, ::cMailDescription  ;
      TO ::cMailAdr ;
      FROM USER ;
      RECEIPT

  ACTIVATE MAIL oMail

  nError := oMail:nRetCode

Posted: **Mon May 27, 2013 2:50 pm**

Stefan,

Very good, thanks!

Posted: **Mon May 27, 2013 4:04 pm**

Revisando,

Gracias

FiveTech Software tech support forums

Mozilla Thunderbird

Mozilla Thunderbird

Re: Mozilla Thunderbird

Re: Mozilla Thunderbird

Re: Mozilla Thunderbird

Re: Mozilla Thunderbird