Histórico da Página

//servidor para envio de 

email
cAccount 

:= "xxx"

// nome da conta a ser 

utilizada
cEnvia := "[email protected]"

// email de 

envio
cRecebe

 := "[email protected]"

// email do 

destinatário
cPassword := "yyy"

// Define a senha da conta a ser usada para 

autenticação
aFiles

:= {}

nI := 

1
cMensagem := ""

lConectou := 

.F.
lDisconectou := 

.F.

lAuth := .F.

 

cMensagem := "Texto com acentuação e caracteres especiais: " + 

CRLF
cMensagem += "---------------------------------------------"
cMensagem += 

CRLF
cMensagem += "Teste de envio de email" + 

CRLF

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou

// Efetua

 autenticação
lAuth := MailAuth(cAccount, cPassword)

If lConectou

    Alert("Conectado com servidor de E-Mail - " + cServer)
Endif

If lAuth
    Alert("Autenticado no servidor de E-Mail - " + cServer)
EndIf

// arquivos a serem 

atachados
aFiles := { "\system\sigafat.xnu", "\system\sigafin.xnu" }

If MsgYesNo("Envia Atachado")
    SEND MAIL FROM cEnvia;

TO cRecebe;

    SUBJECT 'Email pelo Protheus' ;

BODY cMensagem;

    ATTACHMENT aFiles[1], aFiles[2];

    RESULT 

lEnviado
Else
    

SEND MAIL FROM cEnvia

    TO cRecebe;

    SUBJECT 'Email pelo Protheus';

    BODY cMensagem;

    RESULT 

lEnviado
Endif

If lEnviado
   

Alert("Enviado E-Mail")
Else

    cMensagem := ""

    GET MAIL ERROR cMensagem
    

Alert(cMensagem)
Endif

DISCONNECT SMTP SERVER Result 

lDisConectou

If lDisconectou

    Alert("Desconectado com servidor de E-Mail - " + cServer)

Endif

Return