Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
Ac410Mail - Envio de e-mails
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]CaracterNúmero do requerimento em manutenção.
ParamIxb[2]Array of RecordMensagem presente no corpo do requerimento
ParamIxb[3]Array of RecordEndereço de e-mail do destinatario.
ParamIxb[4]Array of RecordAssunto do e-mail a ser enviado ao destinatario
ParamIxb[5]Array of RecordMensagem do corpo de e-mail a ser enviado.
ParamIxb[6]Array of RecordStatus do requerimento:1 - Deferido2 - Indeferido3 - Em Análise.
ParamIxb[7]Array of RecordTipo 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão