Histórico da Página

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