Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Miguel Prado Gontijo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Eventos de chamada do Ponto de Entrada

Descrição

AVCRW - Envio de email

Observações

Utilizado para a manipulação da tela de envio de email Easy Export Control

Exemplos

Bloco de código
linenumberstrue
User Function AVCRW()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "EMAIL"

cTitAux := 'Título do email'
cSubjectAux := 'Assunto do email'
cBodyAux := 'Mensagem no corpo deo email'
cToAux := 'email destino'
cCCAux := 'email destino copia'

EndIf

Return .T.

Preview



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

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Protheus12

Updates

Parâmetros

Referência
NomeTipoDescriçãoDefaultObrigatório
EMAILCarácterParâmetro que valida a rotina de envio de email

Retorno

()
AVEMAIL_RPTCarácterParâmetro que permite acesso as variáveis do nome do rpt e ao caminho e do arquivo.
AVEMAIL_CFROMCarácterParâmetro que permite acesso a variável cFrom, origem do e-mail.

Retorno

Nil

Variáveis

NomeTipoEscopoPode AlterarDescrição
cTitAuxCarácterPrivateSimVariável para definir o valor do título do email
cSubjectAuxCarácterPrivateSim

Variável para definir o valor do assunto do email

cBodyAuxCarácterPrivateSimVariável para definir o valor da mensagem no corpo do email
cToAuxCarácterPrivateSim Variável para definir para qual email será enviado
cCCAuxCarácterPrivateSimVariável para definir para qual email será enviado a cópia
cFromCarácterPrivateSimVariável com a origem do e-mail a ser enviado
cArqRptCarácterPrivateSimVariável com o nome do arquivo RPT a ser gerado
cDirRptCarácterPrivateSimVariável com o caminho do arquivo RPT a ser gerado

Programa Fonte

AVCRW.PRW