topic-5324

AOKISANTOS

Posts: 210

Joined: Sun Jul 23, 2006 01:15 AM

É possível enviar EMAIL com o FWH?

Posted: Fri Dec 15, 2006 01:13 AM

É possível enviar EMAIL com o FWH?

FIQUEM COM DEUS
AOKISANTOS

FWH25+XHARBOUR 99.50

dbzap

Posts: 189

Joined: Mon Nov 07, 2005 07:36 PM

É possível enviar EMAIL com o FWH?

Posted: Fri Dec 15, 2006 01:27 PM

Via Smtp

Code: Select all Collapse

      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 Collapse

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

      ACTIVATE MAIL oMail

Saludos

Julio Gonzalez V.

RANDOM S.A.

SISTEMICA S.A.

FiveTech Support Forums

É possível enviar EMAIL com o FWH?

É possível enviar EMAIL com o FWH?

Continue the discussion