MailAuth - Autentica no servidor SMTP

#include "ap5mail.ch"User Function xSMail()Local cServer   := "smtp.totvs.com.br" 	//servidor para envio de emailLocal cAccount  := "xxx"		                     // nome da conta a ser utilizadaLocal cEnvia    := "[email protected]"                    // email de envioLocal cRecebe   := "[email protected]"                // email do destinatárioLocal cPassword := "yyy"                                        // Define a senha da conta a ser usada para autenticaçãoLocal aFiles    := {}Local nI        := 1Local cMensagem := ""Local CRLF      := Chr(13) + Chr(10)Local aFields := {}Local lConectou := .F.Local lDisconectou := .F.	cMensagem := "Texto com acentuação e caracteres especiais: " + CRLFcMensagem += "---------------------------------------------"cMensagem += CRLFcMensagem += "Teste de envio de email" + CRLFCONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou// Efetua autenticaçãoMailAuth(cAccount, cPassword)If lConectou	Alert("Conectado com servidor de E-Mail - " + cServer)Endif// arquivos a serem atachadosaFiles := { "\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 lEnviadoElse	     	SEND MAIL FROM cEnvia;	     TO cRecebe;	     SUBJECT 'Email pelo Protheus';	     BODY cMensagem;	     RESULT lEnviadoEndif	     If lEnviado	Alert("Enviado E-Mail")Else	cMensagem := ""	GET MAIL ERROR cMensagem 	Alert(cMensagem)Endif   DISCONNECT SMTP SERVER Result lDisConectouIf lDisconectou	Alert("Desconectado com servidor de E-Mail - " + cServer)EndifReturn