TOTVSTEC

Árvore de páginas

Obtém o cabeçalho de todas as mensagens existentes no servidor IMAP.

Sintaxe

EndGetAllMsgHeader( < @aHeader > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

aHeader

vetor

Indica o vetor que será utilizado como referência para retornar o cabeçalho da mensagem.

X

X

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.) quando o servidor IMAP terminar o envio do cabeçalho da mensagem; caso contrário, retorna falso (.F.).

Observações

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

Exemplos

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

User Function GetMessages()
  Local oMail := TMailMng():New( 1, 3, 3 )
  Local xRet
  Local aHeaders := {}
  
  oMail:cUser := EMAIL_ACCOUNT
  oMail:cPass := EMAIL_PASSWORD
  oMail:cSrvAddr := EMAIL_SERVER
  
  xRet := oMail:Connect()
  if xRet <> 0
    conout( oMail:GetErrorString( xRet ) )
    return
  endIf
  
  xRet := oMail:StartGetAllMsgHeader( "INBOX", { "From", "Subject", "To" } )
  if xRet == 0
    while( !oMail:EndGetAllMsgHeader( @aHeaders ) )
      sleep( 100 )
    enddo
  endif
  
  varinfo( "", aHeaders )
  
  xRet := oMail:Disconnect()
  if xRet <> 0
    conout( oMail:GetErrorString( xRet ) )
  endIf
return
  • Sem rótulos