Páginas filhas
  • MailAuth

Descrição:

Autêntica no servidor SMTP - Realiza a autenticação no servidor de E-mail SMTP (Simple Mail Transfer Protocol) para envio de mensagens.


Sintaxe:

MailAuth( < cUser > , < cPasswork > ) → lRet


Retorno:

lRet → Indica se a autenticação foi realizada com sucesso.


Observações:

Para maiores informações consultar a documentação do método SMTPAuth da classe TMailManager → TMailManager:SMTPAuth


Exemplos:

#include "ap5mail.ch"
#include "protheus.ch"

User Function xSMail() 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
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



Parâmetros:
NomeTipoDescriçãoObrigatórioDefaultReferência
cUserCharacterIndica o usuário no qual será feita a autenticação.X

cPasswordCharacterSenha do usuário para autenticação.X




  • Sem rótulos