TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Carlos Sampa Junior

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Carlos Sampa Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css
Portuguese

Pagetitle
TMailMng:GetMsgHeader
TMailMng:GetMsgHeader

Obtém o cabeçalho da mensagem, retornando os campos que foram incluídos na mensagem.

Sintaxe

Bloco de código
collapsefalse
GetMsgHeader( < nMsg > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

nMsg

numérico

Indica o número da mensagem na pasta do servidor de e-mail IMAP.

X

 

Retorno

Nome

Tipo

Descrição

aRet

vetor

Retorna um array com os campos do cabeçalho da mensagem. Em caso de erro, retorna nulo.

Observações

  • Utilize esse método somente para conexão IMAP.
  • Caso a conexão utilizada não seja IMAP, será retornado nulo.
  • O retorno será nulo se ocorrer algum problema para obter o cabeçalho da mensagem.

Estrutura de retorno do método:

Bloco de código
linenumbersfalse
collapsefalse
aRet[1]


aRet[1][1] : No. Sequencial da Mensagem.


aRet[1][2] : Tamanho Total da Mensagem.


aRet[1][3] : Flags da Mensagem.


aRet[1][4] : Data e Hora da Mensagem.


aRet[1][5] : UID da Mensagem.


aRet[1][6] : Subarray de campos do header da Mensagem.


aRet[1][6][1] : TO


aRet[1][6][2] : FROM


aRet[1][6][3] : etc ...

Sendo:

Flags

Descrição

A

ANSWERED

F

FLAGGED

D

DELETED

S

SEEN

R

DRAFT

C

RECENT

P

SPECIAL

Exemplos

titleExemplo 1
Bloco de código
themeEclipse
languagecpp
theme
Eclipse
linenumberstrue
collapsefalse
#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,
.T.
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:GetMsgHeader( 1 ) )
  endif
  
  oMail:Disconnect()
return