FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Enviar Mail
Posts: 4
Joined: Fri Sep 11, 2009 10:16 AM
Enviar Mail
Posted: Fri Jan 29, 2010 09:09 AM

Hola wenas, soy nuevo por aquí llevo poco tiempo trabajando con FWH y se me ha plateado una duda que a lo mejor para algunos de ustedes es básica.

Me gustara saber como puedo y si puedo hacer una llamada al gestor de correo predeterminado, preparandolo para enciar un mensaje, tipo a lo que hacia el goto() en html. Me explico, cuando pulse un botón quiero que me coja la dirección de email de un get y me habrá para enviar un mensaje nuevo con la dirección de mail rellena.

Bueno espero puedan ayudarme. Un saludo y gracias por adelantado.

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Enviar Mail
Posted: Fri Jan 29, 2010 11:14 AM

Hola avielo

Tienes la clase URLLINK
mira el ejemplo testurl.prg

Posts: 4
Joined: Fri Sep 11, 2009 10:16 AM
Re: Enviar Mail
Posted: Fri Jan 29, 2010 12:44 PM

Podria servirme, pero habria alguna forma de lanzar el evento desde un boton.

Aun asi muchas Gracias.

Posts: 4
Joined: Fri Sep 11, 2009 10:16 AM
Re: Enviar Mail
Posted: Fri Jan 29, 2010 01:18 PM
ya lo solucione, lo he echo con la libreria de mail.ch

Code (fw): Select all Collapse
#include "Mail.ch"

static function InteractiveMessage(o)
   local oMail
        
   DEFINE MAIL oMail;
    SUBJECT "xxxxxxxxxxxxxxxxxxxxxxxxxxx";
    TEXT "";
    FROM USER 
    
    AADD(oMail:ARECIPIENTS,{ alltrim(o:EMail) } )
   ACTIVATE MAIL oMail
    
    MAPILOGOFF()
    oMail:end()

return nil


Muchas Graicas

Continue the discussion