Histórico da Página
...
User Function AVCRW()
If valtype(paramixb) == "C" .and. paramixb[1] == "EMAIL"
cTitAux := 'Título do email'
cSubjectAux := 'Assunto do email'
cBodyAux := 'Mensagem no corpo deo email'
cToAux := 'email destino'
cCCAux := 'email destino copia'
lEmailAux := .F.
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_RPT"
cMensagem := "Ponto de entrada com o caminho e nome do RPT" + CHR(10)+CHR(13) +;
"Arquivo: " + paramixb[3] + CHR(10)+CHR(13) +;
"Caminho: " + CHR(10)+CHR(13) + paramixb[2]
cTitulo := "PE RPT"
MsgInfo(cMensagem,cTitulo)
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_CFROM"
cMensagem := "Ponto de entrada com o email de origem: " + cFrom
cTitulo := "PE EMAIL"
MsgInfo(cMensagem,cTitulo)
Endif
Return
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function AVCRW()
If valtype(paramixb) == "C" .and. paramixb[1] == "EMAIL"
cTitAux := 'Título do email'
cSubjectAux := 'Assunto do email'
cBodyAux := 'Mensagem no corpo deo email'
cToAux := 'email destino'
cCCAux := 'email destino copia'
lEmailAux := .F.
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_RPT"
cMensagem := "Ponto de entrada com o caminho e nome do RPT" + CHR(10)+CHR(13) +;
"Arquivo: " + paramixb[3] + CHR(10)+CHR(13) +;
"Caminho: " + CHR(10)+CHR(13) + paramixb[2]
cTitulo := "PE RPT"
MsgInfo(cMensagem,cTitulo)
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_CFROM"
cMensagem := "Ponto de entrada com o email de origem: " + cFrom
cTitulo := "PE EMAIL"
MsgInfo(cMensagem,cTitulo)
Endif
Return |
03. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
Carácter | Parâmetro que valida a rotina de envio de email | |
AVEMAIL_RPT | Carácter | Parâmetro que permite acesso as variáveis do nome do rpt e ao caminho e do arquivo. |
AVEMAIL_CFROM | Carácter | Parâmetro que permite acesso a variável cFrom, origem do e-mail. |
EDITA_SY0 | Carácter | Parâmetro que permite alteração dos dados da tabela EY0 |
...