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