Versões comparadas
comparado com
Chave
- Esta linha foi adicionada.
- Esta linha foi removida.
- A formatação mudou.
Descrição:
Autentica 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
lRet
- (logical)
- Indica se foi possível a autenticação.
Para maiores informações consultar a documentação do método SMTPAuth da classe TMailManager.
Exemplos:
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 |
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
cUser | CaracterCharacter | Indica o usuário no qual será feita a autenticação. | X | ||
cPasscPassword | Array of RecordCharacter | 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