...
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 |
| 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 |
...
