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