Obtém o número de mensagens existentes no servidor de e-mail.
Sintaxe
GetNumMsgs( < @nNumMsg > )
Parâmetros
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
nNumMsg | numérico | Indica o número de mensagens que estão no servidor. | X | 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. |
Exemplos
#INCLUDE "TOTVS.CH" #DEFINE EMAIL_ACCOUNT 'p10teste' #DEFINE EMAIL_PASSWORD '123' #DEFINE EMAIL_SERVER 'mail.totvs.com.br' User Function mail003() Local oMail := TMailMng():New( 0, 3, 3 ) 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( "Open Successful" ) else 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 oMail:Disconnect() return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas