#include "ap5mail.ch"
#include "protheus.ch"
User Function xSMail()
Local cServer Local cServer as character
Local 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
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 | 