Page 1 of 1

É possível enviar EMAIL com o FWH?

Posted: Fri Dec 15, 2006 1:13 am
by AOKISANTOS
É possível enviar EMAIL com o FWH?


FIQUEM COM DEUS
AOKISANTOS

Posted: Fri Dec 15, 2006 1:27 pm
by dbzap
Via Smtp

Code: Select all

      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

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

      ACTIVATE MAIL oMail

Saludos