Histórico da Página

...

Portuguese

Pagetitle

	MailAuth - Autentica no servidor SMTP
	MailAuth - Autentica no servidor SMTP

Função: MailAuth - Autentica no servidor SMTP

Abrangências:	Microsiga Protheus 11 , Protheus 10
Nível de Acesso:	Nível 1 (Acesso Clientes)

Descrição:

Realiza a autenticação no servidor de email SMTP (Simple Mail Transfer Protocol) para envio de mensagens.

Programa Fonte:

AP5MAIL.PRW

Sintaxe:

MailAuth - Autentica no servidor SMTP ( cUsercPass ) --> lRet

Retorno:

lRet

Indica se foi possível a autenticação.

Observações

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

Exemplos

Bloco de código

language	js
theme	Midnight

#include "ap5mail.ch"

User Function xSMail()
Local cServer   := "smtp.totvs.com.br" 	//servidor para envio de

emailLocal

email
Local cAccount  := "xxx"		                     // nome da conta a ser

utilizadaLocal

utilizada
Local cEnvia    := "[email protected]"                    // email de

envioLocal

envio
Local cRecebe   := "[email protected]"                // email do

destinatárioLocal

destinatário
Local cPassword := "yyy"                                        // Define a senha da conta a ser usada para

autenticaçãoLocal

autenticação
Local aFiles    := {}
Local nI        :=

1Local

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: " +

CRLFcMensagem

CRLF
cMensagem += "---------------------------------------------"
cMensagem +=

CRLFcMensagem

CRLF
cMensagem += "Teste de envio de email" +

CRLFCONNECT

CRLF

CONNECT SMTP SERVER cServer ACCOUNT cAccount PASSWORD cPassword Result lConectou

// Efetua

autenticaçãoMailAuth

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

atachadosaFiles

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

lEnviadoElse

lEnviado
Else

SEND MAIL FROM cEnvia

;


    TO cRecebe;

SUBJECT 'Email pelo Protheus';


    BODY cMensagem;


    RESULT

lEnviadoEndif

lEnviado
Endif

If lEnviado

If

lEnviado

Alert("Enviado E-Mail")
Else


    cMensagem := ""


    GET MAIL ERROR cMensagem

Alert(cMensagem)
Endif



DISCONNECT SMTP SERVER Result

lDisConectouIf

lDisConectou

If lDisconectou


    Alert("Desconectado com servidor de E-Mail - " + cServer)

EndifReturn


Endif

Return

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cUser

Caracter

Indica o usuário no qual será feita a autenticação.

X

cPass

Array of Record

Senha do usuário para autenticação.

X

Páginas filhas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave