Frameworksp

Páginas filhas
  • MailAuth

Versões comparadas

Versão antiga 6

changes.mady.by.user Daniel Mendes De Melo Sousa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Daniel Mendes De Melo Sousa

Gravado em

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
Portuguese PagetitleMailAuth - Autentica no servidor SMTPMailAuth - 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

de E-mail SMTP (Simple

Mail

Transfer

Protocol)

para

envio

de

mensagens.


Sintaxe:

MailAuth

- Autentica no servidor SMTP ( cUsercPass ) -->

( < cUser > , < cPasswork > ) → lRet


Retorno:

lRet

(logical)

→ Indica se

foi possível

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:

Bloco de código
languagejs
themeMidnight
#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
cServer 
 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



Parâmetros:
NomeTipoDescriçãoObrigatórioDefault
Obrigatório
Referência
cUser
Caracter
CharacterIndica o usuário no qual será feita a autenticação.X
cPass


cPassword
Array of Record
CharacterSenha 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>