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

TMSA360.PRW

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

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"} )

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.

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