#include "ap5mail.ch"
User Function xSMail()
Local cServer := "smtp.totvs.com.br" //servidor para envio de email
Local cAccount := "xxx" // nome da conta a ser utilizada
Local cEnvia := "[email protected]" // email de envio
Local cRecebe := "[email protected]" // email do destinatário
Local cPassword := "yyy" // Define a senha da conta a ser usada para autenticação
Local aFiles := {}
Local nI := 1
Local cMensagem := ""
Local CRLF := Chr(13) + Chr(10)
Local aFields := {}
Local lConectou := .F.
Local lDisconectou := .F.
Local 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 |