Identificador de Regra

GER-000EMAIL01

Módulo: GER - Gerais.

Finalidade: Chamado antes do envio de um e-mail pelo sistema, seja ele no protocolo SMTP ou MAPI.

São disponibilizados todos os dados do e-mail, possibilitando alterar alguma informação de remente, destinatários (inclusive cópia oculta e copia para), além do assunto, do corpo e da lista de arquivos anexos. Também permitir retornar ao sistema se o e-mail deve ou não ser enviado.

Somente no protocolo MAPI a variável de remetente, se carregada originalmente das configurações do usuário e do serviço, não é considerada pelo sistema caso seja alterada pela regra. Salvo situação se não há configuração do usuáiro remente pelo protocolo (ou seja, está vazia).

Características: - Nos casos onde a tela de envio de e-mail é aberta, o identificador é chamado antes da abertura da tela.

- Este identificar não é chamado no envio padrão de e-mail pelos geradores (por exemplo, na visualização do relatório, ao selecionar a opção de enviá-lo por e-mail).

- Quando o envio do e-mail é cancelado via regra (pela variável de sistema "VSEMLENV") as rotinas do sistema consideram que o e-mail foi enviado com sucesso, ou seja, não é gerado um erro na rotina de envio de e-mail.

- Se esse identificador estiver ativo e for executado a partir da tela F081GTP, a variável "VSORIGEM" será alimentada com o valor "TabPre". Com isso, será possível criar alguma regra que consista de forma diferente o envio de e-mail na tela F081GTP.

Tela: Envio de e-mail

Transação: Não se aplica.

Regra:

Definir Alfa VSEMLREM; @ Rementente do e-mail @
Definir Alfa VSEMLDES; @ Destinatários de para do e-mail (separados por ";") @
Definir Alfa VSEMLCCP; @ Destinatários de cópia do e-mail (separados por ";") @
Definir Alfa VSEMLBCC; @ Destinatários de cópia oculta do e-mail (separados por ";") @
Definir Alfa VSEMLASS; @ Assunto do e-mail @
Definir Alfa VSEMLCRP; @ Corpo do e-mail @
Definir Alfa VSEMLANX; @ Anexos do e-mail (separados por ";") @
Definir Alfa VSEMLENV; @ Indicativo se o sistema deve ou não enviar o e-mail ("N" não envia) @

Definir Alfa Enter;
RetornaAscII(13, Enter);

Definir Alfa AlfAux;
AlfAux = Enter + "Remetente = " + VSEMLREM + Enter;
AlfAux = AlfAux + "Para = " + VSEMLDES + Enter;
AlfAux = AlfAux + "Cópia = " + VSEMLCCP + Enter;
AlfAux = AlfAux + "Cópia oculta = " + VSEMLBCC + Enter;
AlfAux = AlfAux + "Assunto = " + VSEMLASS + Enter;
AlfAux = AlfAux + "Corpo = " + VSEMLCRP + Enter;
AlfAux = AlfAux + "Anexos = " + VSEMLANX + Enter;
Mensagem(retorna, AlfAux); @ Mostra mensagem com os dados do e-mail @

VSEMLENV = "N"; @ Informa ao sistema para não enviar o e-mail @

Variáveis Disponibilizadas: