Home

Linha Microsiga Protheus

Páginas filhas
  • Ac410Mail - Envio de e-mails

Ponto-de-Entrada: Ac410Mail - Envio de e-mails
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Descrição:
Permite validar a necessidade de envio de e-mails para os solicitantes de requerimentos academicos do modulo Gestão Educacional.
Programa Fonte
ACAA410
Sintaxe

Ac410Mail - Envio de e-mails ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ], [ ParamIxb[7] ] ) --> lEnvia

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Caracter Número do requerimento em manutenção.
ParamIxb[2] Array of Record Mensagem presente no corpo do requerimento
ParamIxb[3] Array of Record Endereço de e-mail do destinatario.
ParamIxb[4] Array of Record Assunto do e-mail a ser enviado ao destinatario
ParamIxb[5] Array of Record Mensagem do corpo de e-mail a ser enviado.
ParamIxb[6] Array of Record Status do requerimento:1 - Deferido2 - Indeferido3 - Em Análise.
ParamIxb[7] Array of Record Tipo de solicitante do requerimento.1 - Funcionario.2 - Aluno.3 - Candidato4 - Outros
Retorno
    lEnvia()
  • Retorno lógico..T. para envio do e-mail..F. para anular envio do e-mail.
Exemplos
User Function Ac410Mail()Local cNumReq := ParamIxb[1]Local cMsgReq := ParamIxb[2]Local cMailTo := ParamIxb[3]Local cSubjec := ParamIxb[4]Local cMsgMai := ParamIxb[5]Local cStatus := ParamIxb[6]Local cSolici := ParamIxb[7]Local lEnvia  := .T.Conout(space(15) + '   ### PONTO DE ENTRADA AC410MAIL EXECUTADO COM SUCESSO ###')Conout(space(15) + ' @@@ NUMERO DO REQUERIMENTO: ' + cNumReq)Conout(space(15) + ' @@@ E-MAIL DO DESTINATARIO: ' + cMailTo)Conout(space(15) + ' @@@ ASSUNTO DO E-MAIL: ' + cSubjec)Conout(space(15) + ' ### FIM DA EXECUCAO DO PONTO DE ENTRADA AC410MAIL')Return lEnvia
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não