TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Atual »

Obtém o corpo da mensagem através do servidor IMAP.

Sintaxe

GetMsgBody( < nMsg > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nMsg

numérico

Indica o número sequencial da mensagem que deseja obter.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Retorna um array com as informações da mensagem.

Observações

  • Utilize esse método somente para conexão IMAP.
  • Caso a conexão utilizada não seja IMAP, será retornado nulo.

Exemplos

#INCLUDE "TOTVS.CH"
#DEFINE EMAIL_ACCOUNT   'p10teste'
#DEFINE EMAIL_PASSWORD  '123'
#DEFINE EMAIL_SERVER    'mail.totvs.com.br'

User Function mail001()
  Local oMail := TMailMng():New( 1, 3, 3 )
  Local nNumMsg := 0
  Local xRet
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSrvAddr := EMAIL_SERVER
  
  xRet := oMail:Connect()
  if xRet <> 0
    conout( nRet )
    conout( oMail:GetErrorString( nRet ) )
    return
  endif
  
  xRet := oMail:GetNumMsgs( @nNumMsg )
  if xRet <> 0
    conout( xRet )
    conout( oMail:GetErrorString( xRet ) )
  endif
  
  if nNumMsg > 0
    varinfo( "", oMail:GetMsgBody( 1 ) )
  endif
  
  oMail:Disconnect()
return
  • Sem rótulos