FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Mozilla Thunderbird
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
Mozilla Thunderbird
Posted: Fri May 24, 2013 02: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 (fw): Select all Collapse
      #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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Posts: 824
Joined: Thu Oct 13, 2005 07:39 AM
Re: Mozilla Thunderbird
Posted: Mon May 27, 2013 01:27 PM
If Thunderbird is your default email client, you can use TMapi to send mails with Thunderbird.

Code (fw): Select all Collapse
 DEFINE MAIL oMail ;
      SUBJECT ::cInfoHead ;
      TEXT ::cMailText;
      FILES cFile, ::cMailDescription  ;
      TO ::cMailAdr ;
      FROM USER ;
      RECEIPT

  ACTIVATE MAIL oMail

  nError := oMail:nRetCode
kind regards

Stefan
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Mozilla Thunderbird
Posted: Mon May 27, 2013 02:50 PM

Stefan,

Very good, thanks! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 42
Joined: Mon Jan 17, 2011 03:44 PM
Re: Mozilla Thunderbird
Posted: Mon May 27, 2013 04:04 PM

Revisando,

Gracias

Continue the discussion