Enviar Mail

[avielo]

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.

[Daniel Garcia-Gil]

Hola avielo

Tienes la clase URLLINK
mira el ejemplo testurl.prg

[avielo]

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

Aun asi muchas Gracias.

[avielo]

ya lo solucione, lo he echo con la libreria de mail.ch

Code: Select all  Expand view

#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