Este Ponto de Entrada pertence à rotina de Envio de email (AVCRW). Ele deve ser utilizado para customizar a rotina de Envio de email.
Programa Fonte: AVCRW.PRW
Retorno: Verdadeiro (.T.) ou Falso (.F.).
User Function AVCRW()
If valtype(paramixb) == "C" .and. paramixb[1] == "EMAIL"
cTitAux := 'Título do email'
cSubjectAux := 'Assunto do email'
cBodyAux := 'Mensagem no corpo do email'
cToAux := 'email destino'
cCCAux := 'email destino copia'
lEmailAux := .F.
lExibeTelas:= .T. //.T. Exibe a tela para envio de e-mail e preview; .F. não exibe a tela de envio de e-mail e preview.
lGeraPDF := .T. //Pode ser configurada como .T. para que o arquivo pdf seja gerado para o relatório, mesmo que o lEmailAux esteja como .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)
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_SAIR"
lSair := .T.
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "DIRCLIENT_MUDADIR"
cMudaDir :="C:\DIRETÓRIO_DESTINO_DOS_ARQUIVOS_CRYSTAL\"
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 |
| AVEMAIL_SAIR | Carácter | Permite alterar a variável lSair, não executando a tela de envio de e-mail padrão. |
| DIRCLIENT_MUDADIR | Carácter | Permite mudar o diretório de destino dos arquivos crystal |
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| cTitAux | Carácter | Sim | Variável para definir o valor do título do email | |
| cSubjectAux | Carácter | Sim | Variável para definir o valor do assunto do email | |
| cBodyAux | Carácter | Sim | Variável para definir o valor da mensagem no corpo do email | |
| cToAux | Carácter | Sim | Variável para definir para qual email será enviado | |
| cCCAux | Carácter | Sim | Variável para definir para qual email será enviado a cópia | |
| lExibeTelas | Lógico | Sim | Variável para definir se exibe ou não a tela de envio de e-mail e preview. | |
| lGeraPDF | Lógico | Sim | Variável para definir se deve ser gerado o PDF para o relatório. Seu uso é para gerar o arquivo quando o envio de e-mail está desligado (lEmailAux igual a .F.) | |
| AVEMAIL_CFROM | cFrom | Carácter | Sim | Variável com a origem do e-mail a ser enviado |
| AVEMAIL_RPT | cArqRpt | Carácter | Sim | Variável com o nome do arquivo RPT a ser gerado |
| AVEMAIL_RPT | cDirRpt | Carácter | Sim | Variável com o caminho do arquivo RPT a ser gerado |
| lEmailAux | Lógico | Sim | Variável para indicar se o email será enviado ou não, quando o valor for igual =.T. o email será enviado e quando estiver .F. não será enviado | |
| AVEMAIL_SAIR | lSair | Lógico | Sim | Variável que permite não executar a tela de envio de e-mail padrão. |
| DIRCLIENT_MUDADIR | cMudaDir | Carácter | Sim | Variável que será preenchida com o diretório de destino dos arquivos crystal, como desejado pelo usuário |