Criação de Ponto de Entrada na rotina Envio de e-mails

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAJURI

Rotina:

Rotina	Nome Técnico
JURA091	Envio de e-mails
JURXFUN	Funções SIGAJURI

Ponto de Entrada:

JENVMAIL

País(es):

Todos

Ponto de Entrada

Descrição:

O ponto de entrada permite visualizar os principais dados do e-mail após o envio.

Localização:

Agendamento da Rotina JURA091 para envio de email

Eventos:

O ponto de entrada é executado após o envio do email e antes da marcação da Flag de enviado

Programa Fonte:

JURXFUNB - Integrações

Parâmetros

Parâmetro

Tipo

Valor Origem

Descrição

ParamIxb[1]

Array

Posição	Variável		Descrição
1	cMsg	Caracter	Resultado do envio do e-mail (mensagem da rotina de envio).
2	lResulConn	Lógico	Valor lógico informando se foi efetuada a conexão.
3	lResulSend	Lógico	Valor lógico informando se o envio obteve sucesso.
4	cDe	Caracter	Remetentes do e-mail.
5	cPara	Caracter	Destinatários do e-mail.
6	cCc	Caracter	Destinatários em cópia do e-mail (não utilizado).
7	cCCO	Caracter	Destinatários em cópia oculta do e-mail (não utilizado).
8	cAssunto	Caracter	Assunto do e-mail.
9	cAnexo	Caracter	Anexo do e-mail (não utilizado pela rotina).
10	cMsg	Caracter	Corpo da mensagem, contendo HTML formado pela rotina.
11	cServer	Caracter	Servidor SMTP utilizado.
12	cEmail	Caracter	Conta de e-mail utilizada.
13	cPass	Caracter	Senha utilizada.
14	lAuth	Lógico	Valor lógico informando se utilizou autenticação por senha.
15	cContAuth	Carácter	Conta utilizando autenticação usada no envio de e-mail.
16	cPswAuth	Carácter	Senha utilizando sutenticação usada no envio do e-mail.
17	lSSL	Lógico	Valor lógico utilizado para informar que utiliza protocolo SSL.
18	lTLS	Lógico	Valor lógico utilizado para informar que utiliza protocolo TLS.

Código do Assunto Jurídico

Exemplo

JENVMAIL

#Include 'Protheus.ch'

User Function JENVMAIL()
Local nI := 0
Local cValores := ''
Local aVar := {}

aAdd(aVar,ParamIxb[1])

For nI:= 1 to Len(aVar)
cValores+= AllToChar(aVar[nI]) + CRLF
cValores+= "---------------------------------------------------------------" + CRLF
Next

Conout(cValores)

Return()

Observações:

Caso ocorram erros na criação do Ponto de Entrada, a rotina não executa o Flag de enviado e o sistema dispara e-mails em repetição sem interrupção (loop) até a correção da aplicação.

Árvore de páginas

TUSEGW_DT_Criação_de_Ponto_de_Entrada_na_rotina_Envio_de_Emails