Histórico da Página

 cAccount as character
Local cEnvia as character
Local cRecebe as character
Local cPassword as character
Local aFiles as array
Local cMensagem as character
Local lConectou as logical
Local lDisconectou as logical
Local lAuth as logical

cServer := "smtp.totvs.com.br" 

//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