É possível enviar EMAIL com o FWH?
Posted: Fri Dec 15, 2006 1:13 amÉ possível enviar EMAIL com o FWH?
FIQUEM COM DEUS
AOKISANTOS
FIQUEM COM DEUS
AOKISANTOS
- Code: Select all Expand view
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
DEFINE MAIL oMail ;
SUBJECT cAsunto ;
TEXT cText ;
FROM USER ;
FILES cAdjunto, cFile ;
TO cTo ;
RECEIPT
ACTIVATE MAIL oMail
Saludos