Histórico da Página
Versões comparadas
comparado com
Chave
- Esta linha foi adicionada.
- Esta linha foi removida.
- A formatação mudou.
Descrição:
Autêntica
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
no servidor SMTP
MailAuth-
Autentica no servidor SMTPFunção: MailAuth - Autentica no servidor SMTP
Descrição:Realiza
a
autenticação
no
servidor
de email SMTPde E-mail SMTP (Simple
Transfer
Protocol)
para
envio
de
mensagens.
Sintaxe:
MailAuth
- Autentica no servidor SMTP ( cUsercPass ) -->( < cUser > , < cPasswork > ) → lRet
Retorno:
lRet
(logical)→ Indica se
foi possívela autenticação foi realizada com sucesso.
Observações:
Para maiores informações consultar a documentação do método SMTPAuth da classe TMailManager → TMailManager
.Exemplos:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#include "ap5mail.ch" #include "protheus.ch" User Function xSMail() Local cServer as character Local cAccount as character LocalcServer 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 |
Nome | Tipo | Descrição | Obrigatório | Default |
---|
Referência | |
---|---|
cUser |
Character | Indica o usuário no qual será feita a autenticação. | X |
cPassword |
Character | 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> |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas