Mozilla Thunderbird

[ltorres]

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
 

[Antonio Linares]

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

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

[StefanHaupt]

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
 

[Antonio Linares]

Stefan,

Very good, thanks!

[ltorres]

Revisando,

Gracias