É possível enviar EMAIL com o FWH?

[AOKISANTOS]

É possível enviar EMAIL com o FWH?


FIQUEM COM DEUS
AOKISANTOS

[dbzap]

Via Smtp

Code: Select all  Expand view  RUN

      WSAStartup()
      oMail := TSmtp():New( GetHostByName( cServidorDeCorreos ) )

      oMail:bDone := {|| MsgBeep() }
      oMail:SendMail( cFrom         ,; // From
                      { cTo, cFrom },; // To
                      cText         ,; // Msg Text
                      cAsunto       ,; // Subject
                      { cAdjunto } )   // attached files


Via OutLook ( o MAPI )

Code: Select all  Expand view  RUN

      DEFINE MAIL oMail ;
         SUBJECT cAsunto ;
         TEXT cText ;
         FROM USER ;
         FILES cAdjunto, cFile ;
         TO cTo ;
         RECEIPT

      ACTIVATE MAIL oMail



Saludos