Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TM360MAIL - Modifica Texto do E-mail
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
A finalidade deste ponto de entrada é permitir modificar o texto do e-mail que será enviado através do apontamento de ocorrências (Vide boletim técnico 'Envio de e-mail na realização do apontamento de Ocorrências).
Eventos


 

Programa Fonte 
TMSA360.PRW
Sintaxe

TM360MAIL - Modifica Texto do E-mail ( < aDestE> , < aDestI> , < aDocs> ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aDestE Array of Record X
aDestI Array of Record X
aDocs Array of Record X
Retorno
    aRet(vetor)
  • Deve-se retornar um array com a seguinte estrutura:

    aRet[1] -> Assunto da mensagem
    aRet[2] -> Corpo da mensagem (podendo ser HTML)
    aRet[3] -> Destinatarios Externos da mensagem (array simples: {"[email protected]", "[email protected]} ))
    aRet[4] -> Destinatarios Internos da mensagem (array simples contendo o código do usuário no Protheus + o Nome do Usuário: {"000045-Carlos", "000085-Jose"} )
Observações

Lembrando que quando este ponto de entrada estiver compilado, não será permitida a modificação do corpo da mensagem através da tela de edição de e-mail.

Exemplos 
#Include 'PROTHEUS.CH'User Function TM360MAIL()Local aParam  := PARAMIXBLocal nAux  := 0Local cSubject := ''Local aDestE := {}Local aDestI  := {}Local cBody  := ''Local aRet  := {}cSubject   := 'NOTIFICACAO DE OCORRENCIA'aDestE := AClone( aParam[1] )aDestI := AClone( aParam[2] )AAdd( aDestE, '[email protected]' )AAdd( aDestI, '000055-Novo Usuario')cBody := '
'cBody += '  'cBody += '    'cBody += '  'cBody += '
E-MAIL REFERENTE A NOVAS OCORRENCIAS, CONFORME DOCUMENTOS ABAIXO:
'cBody += '
'For nAux := 1 To Len(aParam[3]) cBody +='
' cBody +='  ' cBody +='    ' cBody +='  ' cBody +='
CTRC: ' + aParam[3][nAux][4] + '/' + aParam[3][nAux][5]  cBody +='  
' cBody += '
'NextAAdd( aRet, cSubject )AAdd( aRet, cBody )AAdd( aRet, aDestE )AAdd( aRet, aDestI )Return( aRet )