Exibir origem

01. DADOS GERAIS

Produto:	TOTVS Saúde Planos
Linha de Produto:	Linha Protheus
Segmento:	Saúde
Módulo:	GESTÃO DE CONTRATOS / FAMÍLIAS
Função:	GERENCIADOR DE EMAIL
Issue :	DSAUBE-26611

02. SITUAÇÃO/REQUISITO

Foi necessário criar uma rotina automatizada para o envio de e-mails, com o objetivo de tornar a comunicação mais eficiente e padronizar as mensagens geradas pelo sistema.

Durante esse processo, identificou-se a importância de permitir a configuração de eventos para disparo automático, garantindo que as notificações sejam enviadas de forma precisa e no momento adequado.

03. SOLUÇÃO

Gerenciador de Contas de E-mail

O gerenciador de contas de e-mail foi desenvolvido para otimizar e automatizar o envio de e-mails de forma rápida, segura e personalizada.

Introdução

Com uma interface intuitiva, o gerenciador de contas de e-mail permite a personalização de mensagens com campos dinâmicos. Além disso, pode ser utilizado em customizações das mais simples as mais comprexas.

O gerenciador de contas de e-mail também prioriza a segurança, utilizando protocolos de envio confiáveis (como SMTP com autenticação TLS).

Funcionalidades

Entre as principais funcionalidades do gerenciado de e-mails, destacam-se:

Layouts em HTML e CSS

Criação de layouts específicos em HTML e CSS para cada configuração.

Configuração de Remetentes

Permite configurar diferentes remetentes para rotinas diferentes ou para uma mesma rotina levando em consideração a operadora, empresa, contrato e subcontrato.

Personalização do Corpo do E-mail

Personaliza o envio de e-mails para diferentes rotinas ou para uma mesma rotina com base na operadora, empresa, contrato e subcontrato.

Tela de configuração de e-mail:

Linha Microsiga Protheus > DT Gerenciador de Contas de E-mail > image-2025-3-20_11-4-11.png

1 - Título Conf. - Título de identificação do gerenciador de contas de e-mail.

2 - Usu. Conta / Senha - Dados do e-mail remetente que irá enviar o E-mail.

3 - Autentica? - ComboBox que se marcado com Sim deverá ter os dados do Passo 4 como obrigatório.

4 - Usuario Aut. / Senha Aut. - Usuário de e-mail com dados de autenticação e token de autenticação para liberar o envio de E-mail.

Linha Microsiga Protheus > DT Gerenciador de Contas de E-mail > image-2025-3-20_11-10-50.png

5 - Remetente - Remetente que será enviado o E-mail.

6 - SMTP / Porta - SMTP do E-mail que está sendo configurado como Rementente (No exemplo estamos utilizando Gmail) e a Porta que deve ser usada conforme seleção do Passo 7 (No exemplo, utilizamos a porta SSL).

7 - Utiliza TLS? / Utiliza SSL? - Uma das duas deve estar como Sim para poder fazer a conexão com o SMTP e deverá ser configurado conforme informações do Passo 6.

Linha Microsiga Protheus > DT Gerenciador de Contas de E-mail > image-2025-3-20_14-3-26.png

8 - Assun. Email - Assunto que irá aparecer no E-mail que será enviado.

9 - Corpo E-mail - Dados do HTML e CSS para personalizar o E-mail que será enviado conforme tópico Código exemplo de HTML para geração do E-mail.

Código Exemplo de HTML Para a Geração do E-mail

<!DOCTYPE html>
<html lang="pt-BR">
  <head>
    <meta charset="UTF-8" />
    <meta name="viewport" content="width=device-width, initial-scale=1.0" />
    <style>
      body {
        font-family: Arial, sans-serif;
        margin: 0;
        padding: 0;
        background-color: #f4f4f4;
      }
      .container {
        max-width: 600px;
        margin: 40px auto;
        padding: 20px;
        border-radius: 8px;
        background-color: #ffffff;
        box-shadow: 0 4px 8px rgba(0, 0, 0, 0.05);
      }
      .header,
      .footer {
        background-color: #6c9ebd;
        color: #ffffff;
        text-align: center;
        padding: 10px;
        border-radius: 8px 8px 0 0;
      }
      .footer {
        border-radius: 0 0 8px 8px;
        margin-top: 20px;
        font-size: 14px;
      }
      h2 {
        text-align: center;
        color: #333;
      }
      .info {
        padding: 10px 0;
        font-size: 16px;
        color: #555;
      }
      .info strong {
        color: #222;
      }
      table {
        width: 100%;
        border-collapse: collapse;
        margin-top: 20px;
      }
      th,
      td {
        border: 1px solid #ddd;
        padding: 12px;
        text-align: left;
      }
      th {
        background-color: #6c9ebd;
        color: #ffffff;
      }
      tr:nth-child(even) {
        background-color: #f9f9f9;
      }
      .company-name {
        font-size: 20px;
        color: #333;
        text-align: center;
        margin-bottom: 20px;
        font-weight: bold;
      }
    </style>
  </head>
  <body>
    <div class="container">
      <div class="header">
        <h2>Usuario Bloqueado</h2>
      </div>

      <p class="info">
        <strong>Prezado(a):</strong> ##1, portador da matrícula
        <strong>##2</strong>
      </p>

      <p class="info">Esperamos que esta mensagem o(a) encontre bem.</p>
      <p class="info">
        Verificamos em nosso sistema que seu plano de saúde foi bloqueado devido
        à inadimplência. Conforme a Resolução Normativa nº 593 da ANS (Agência
        Nacional de Saúde Suplementar), o contrato pode ser suspenso ou
        rescindido caso haja atraso superior a 60 dias, consecutivos ou não.
      </p>
      <p class="info">
        Para restabelecer seus serviços de assistência à saúde, é necessário
        regularizar os débitos pendentes. Caso já tenha efetuado o pagamento,
        pedimos a gentileza de desconsiderar esta mensagem.
      </p>
      <p class="info">
        Estamos à disposição para auxiliá-lo(a) no que for necessário.
      </p>

      <table>
        <thead>
          <tr>
            <th>Nome</th>
            <th>Data de Inclusão</th>
            <th>Data de Bloqueio</th>
          </tr>
        </thead>
        <tbody>
          ##5
        </tbody>
      </table>

      <div class="footer">
        <p>
          Entre em contato conosco para mais informações.<br />Email: ##3 |
          Telefone: ##4
        </p>
      </div>
    </div>
  </body>
</html>

10 - Func. Dados - Função que retorna os dados que por sua vez irão substituir as marcações no HTML com o ##Número.

Para função de usuário, deve-se inserir a chamada completa U_FuncaoUsuario sem parênteses.

A função de dados deve retornar um objeto JSON onde os atributos devem ser um sequencial de numeral conforme o exemplo no tópico Exemplo de Função de Dados.

Exemplo de Função de Dados:

#INCLUDE "Totvs.ch"

function dados()

	Local cCompHtml   := ""
	Local oJEmailData := JsonObject():New()

	cCompHtml += "<tr>"
	cCompHtml += "	<td>" + AllTrim(BA1->BA1_NOMUSR) + "</td>"
	cCompHtml += "	<td>" + DTOC(BA1->BA1_DATINC) + "</td>"
	cCompHtml += "	<td>" + DTOC(BA1->BA1_DATBLO) + "</td>"
	cCompHtml += "</tr>"    

    oJEmailData["1"] := BA1->BA1_NOMUSR  
	oJEmailData["2"] := BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO)  
	oJEmailData["3"] := BA1->BA1_EMAIL  
	oJEmailData["4"] := BA1->BA1_TELEFO  
	oJEmailData["5"] := cCompHtml

Return oJEmailData

11 - Funcao Conf. - Função (No Exemplo está sendo chamado ao Bloquear um Beneficiário).

- A função inserida no campo Funcao Conf. não pode ser do tipo static e deverá fazer a chamada da função conforme tópico Função de Configuração.
- Para função de usuário, deve-se inserir a chamada completa U_FuncaoUsuario sem parênteses.

Envio de E-mail Utilizando a Configuração do Gerenciador de Contas de E-mail

Após configurar uma conta no Gerenciador de Contas de E-mail, essa configuração poderá ser utilizada para o envio de mensagens, considerando os dados do remetente e o layout em HTML definidos. Para isso, basta utilizar o método SendEmailUsingConfigurator da classe EmailConfigurator. Com apenas alguns parâmetros, a classe identifica automaticamente a configuração apropriada, executa a função de retorno de dados, realiza a substituição das marcações no conteúdo e efetua o envio do e-mail.

Sintaxe

EmailManager:SendEmailUsingManager(< cConfigCode >, < cRecipient >, < aAttachments >, < cCopOcult >)

Parâmetros

Nome	Tipo	Descrição	Obrigatório
cConfigCode	caractere	Código sequencial criado pelo gerenciador de contas de e-mail no campo ID Config.
cRecipient	caractere	Endereço de e-mail do destinatário que receberá o e-mail.	X
aAttachments	Array	Array contendo em cada posição o caminho completo do arquivo com a extenção que será enviado junto ao e-mail.
cCopOcult	caractere	Endereços de e-mail dos destinatários que receberão a mensagem como cópia oculta (CCO), separados por vírgula.

O parâmetro cConfigCode deve ser utilizado apenas quando for necessário informar diretamente o código de uma configuração de e-mail, dispensando o preenchimento do campo "Função Conf." na configuração. Nesse caso, não é preciso vincular a função ou método de origem ao envio do e-mail. No entanto, vale destacar que, ao utilizar esse parâmetro, qualquer alteração de layout exigirá a modificação direta no código-fonte, o que reduz a flexibilidade da manutenção. Por esse motivo, recomenda-se evitar o uso do parâmetro cConfigCode e, sempre que possível, preencher o campo "Função Conf." com o nome da função responsável pelo envio do e-mail.

Primeiramente identifique a função (não pode ser static) ou método que irá realizar o processo de envio do e-mail.

//Código acima

// instanciando a classe Gerenciadora de E-mail
oemail := totvs.protheus.health.plan.manager.EmailManager():New()

// Chamada do método responsável por fazer todo o processamento de envio de E-mail.
// param1 = Cod. do ID do gerenciador,
// param2 = email destinatário,
// param3 = Diretório de anexos que deseja enviar no email (Pode receber um array de diretórios),
// param4 = email que você deseja enviar como cópia
ojson := oemail:SendEmailUsingManager(, "[email protected]",, )

Log de erros

Testando funcionalidade conforme HTML e dados criados:

04. DEMAIS INFORMAÇÕES

Atualização do Dicionário de Dados

inclusão de itens da tabela BZD no Arquivo SX3:

Campo	Tipo	Tamanho	Titulo	Descrição	Relação	Usado	Obrigatório	Exibe Browser	Visual	Contexto	VLDUSR	CBox	Help
BZD_FILIAL	Caracter	8	Filial	Filial do Sistema		Não	Não	Não					Filial do Sistema
BZD_ID	Caracter	6	ID Config.	ID Config.	NextNumero("BZD", 1, "BZD_ID", .T.)	Sim	Sim	Não	Visual	Real			ID do gerenciador
BZD_TITCFG	Caracter	100	Titulo Conf.	Titulo da configuracao		Sim	Sim	Sim	Alterar	Real			Titulo da configuracao
BZD_REMTNT	Caracter	254	Remetente	Remetente		Sim	Sim	Sim	Alterar	Real	VAZIO() .OR. ValidMail(M->BZD_REMTNT)		Remetente
BZD_SMTP	Caracter	254	SMTP	SMTP		Sim	Sim	Sim	Alterar	Real			SMTP
BZD_USUARI	Caracter	254	Usu. Conta	Usuario		Sim	Sim	Não	Alterar	Real	VAZIO() .OR. ValidMail(M->BZD_USUARIO)		Usuario
BZD_SENHA	Caracter	254	Senha	Senha		Sim	Sim	Não	Alterar	Real			Senha
BZD_PORTA	Númeral	6	Porta	Porta		Sim	Sim	Sim	Alterar	Real			Porta
BZD_AUTENT	Caracter	1	Autentica?	Autentica?	"1"	Sim	Sim	Não	Alterar	Real		0=Nao;1=Sim	Autentica?
BZD_USUAUT	Caracter	254	Usuario Aut.	Usuario Aut.		Sim	Não	Não	Alterar	Real	VAZIO() .OR. ValidMail(M->BZD_USUAUT)		Usuario Autenticador
BZD_SENAUT	Caracter	254	Senha Aut.	Senha Aut.		Sim	Não	Não	Alterar	Real			Senha Aut.
BZD_ASSUNT	Caracter	254	Assun. Email	Assun. Email		Sim	Sim	Não	Alterar	Real			Assun. Email
BZD_FUNCAO	Caracter	20	Func. Dados	Func. Dados		Sim	Não	Não	Alterar	Real			Func. Dados
BZD_HTML	Memo	10	Corpo E-mail	Corpo E-mail		Sim	Sim	Não	Alterar	Real			Corpo E-mail
BZD_USERGA	Caracter	17	Log de Alter	Log de Alteracao		Não	Não	Não	Visual	Real			Log de Alteração
BZD_USERGI	Caracter	17	Log de Inclu	Log de Inclusao		Não	Não	Não	Visual	Real
BZD_TLS	Caracter	1	Utiliza TLS?	Utiliza TLS?		Sim	Sim	Não	Alterar	Real		0=Nao;1=Sim	Utiliza TLS?
BZD_SSL	Caracter	1	Utiliza SSL?	Utiliza SSL?		Sim	Sim	Não	Alterar	Real		0=Nao;1=Sim	Utiliza SSL?

inclusão de itens da tabela BZD no Arquivo SX3:

Campo	Tipo	Tamanho	Titulo	Descrição	Relação	Usado	Obrigatório	Exibe Browser	Visual	Contexto	Help
BZF_FILIAL	Caracter	8	Filial	Filial do Sistema		Não	Não	Não			Filial do Sistema
BZF_IDBZD	Caracter	6	ID cabecalho	ID cabecalho	M->BZD_ID	Sim	Não	Não	Visual	Real	ID do cabeçalho
BZF_ID	Caracter	6	ID registro	ID registro		Sim	Não	Não	Visual	Real	ID do registro
BZF_FUNCFG	Caracter	30	Funcao Conf.	Funcao de Configuracao		Sim	Não	Não	Alterar	Real	Função de Configuração
BZF_USERGI	Caracter	17	Log de Inclu	Log de Inclusao		Não	Não	Não	Visual	Real	Log de Inclusão
BZF_USERGA	Caracter	17	Log de Alter	Log de Alteracao		Não	Não	Não	Visual	Real	Log de Alteração

Inclusão no Arquivo SIX:

Índice	Ordem	Chave	Descrição
BZD	1	BZD_FILIAL + BZD_ID	Filial + ID
BZF	1	BZF_FILIAL + BZF_FUNCFG	Filial + funcao em execucao

Inclusões na tabela SX2 (Tabela):

Tabela	BZD
Modo	Compartilhado
Modo Unidade	Exclusivo
Modo Empresa	Exclusivo
Chave Única	BZD_FILIAL + BZD_ID
Nome	Cabecalho do Config. de email

Tabela	BZF
Modo	Compartilhado
Modo Unidade	Exclusivo
Modo Empresa	Exclusivo
Chave Única	BZF_FILIAL + BZF_IDBZD + BZF_FUNCFG
Nome	Funcoes do Config. de email

05. ASSUNTOS RELACIONADOS

Não se aplica