DT PE AVCRW Envio de email

CONTEÚDO

Visão Geral
Exemplo de utilização
Parâmetros
Variáveis
Tabelas utilizadas

01. VISÃO GERAL

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

02. EXEMPLO DE UTILIZAÇÃO

Exemplo de Utilização

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

03. PARÂMETROS

Nome	Tipo	Descrição
EMAIL	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

04. VARIÁVEIS

Parâmetro	Nome	Tipo	Permite alterar	Descrição
EMAIL	cTitAux	Carácter	Sim	Variável para definir o valor do título do email
EMAIL	cSubjectAux	Carácter	Sim	Variável para definir o valor do assunto do email
EMAIL	cBodyAux	Carácter	Sim	Variável para definir o valor da mensagem no corpo do email
EMAIL	cToAux	Carácter	Sim	Variável para definir para qual email será enviado
EMAIL	cCCAux	Carácter	Sim	Variável para definir para qual email será enviado a cópia
EMAIL	lExibeTelas	Lógico	Sim	Variável para definir se exibe ou não a tela de envio de e-mail e preview.
EMAIL	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
EMAIL	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

05. TABELAS UTILIZADAS

Não há.

Árvore de páginas