Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese PagetitleMailAuth - Autentica no servidor SMTPMailAuth - Autentica no servidor SMTP

Função: MailAuth - Autentica no servidor SMTP

Descrição:

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

Sintaxe:

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

Retorno:

lRet

(logical)

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 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

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

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Páginas filhas

Versões comparadas

Versão antiga 7

Nova versão 8

Chave