Define o status de uma determinada mensagem no servidor IMAP.
Sintaxe
SetMsgFlags( < nMsg >, < cFlag > ) |
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
nMsg | numérico | Indica o número sequencial da mensagem no servidor IMAP. | X |
|
cFlag | caractere | Indica o novo status da mensagem. | X |
|
Retorno
Nome | Tipo | Descrição |
|---|---|---|
nRet | numérico | Retorna 0 (zero) quando a operação é completada com sucesso; caso contrário, retornará um código de erro. |
Observações
- Utilize esse método somente para conexão IMAP.
- Caso a conexão utilizada não seja IMAP, será retornado 1 (Operation failed).
cFlag pode ter os segintes valores:
Flags
Descrição
A
ANSWERED
F
FLAGGED
D
DELETED
S
SEEN
R
DRAFT
C
RECENT
P
SPECIAL
Exemplos
#INCLUDE "TOTVS.CH"
#DEFINE EMAIL_ACCOUNT 'p10teste'
#DEFINE EMAIL_PASSWORD '123'
#DEFINE EMAIL_SERVER 'mail.totvs.com.br'
User Function mail004()
Local oMail := TMailMng():New( 1, .T. )
Local nRet := 0
Local nNumMsg := 0
oMail:cUser := EMAIL_ACCOUNT
oMail:cPass := EMAIL_PASSWORD
oMail:cSrvAddr := EMAIL_SERVER
nRet := oMail:Connect()
if nRet <> 0
conout( nret )
conout( oMail:GetErrorString( nret ) )
return
endif
nRet := oMail:GetNumMsgs( @nNumMsg )
if nRet == 0
conout( "Count Successful" )
conout( nNumMsg )
else
conout( nRet )
conout( oMail:GetErrorString( nRet ) )
endif
if nNumMsg > 0
nRet := oMail:SetMsgFlags( 1, "S" )
if nRet <> 0
conout( nRet )
conout( oMail:GetErrorString( nRet ) )
endif
endif
oMail:Disconnect()
return
|