Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Determine the Number of Unseen Email MessagesDemonstrates how to determine how many unseen messages exist in an email account on an IMAP server.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATIMAPLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var imap: TChilkatImap; success: Integer; totalNum: Integer; messageSet: CHILKATIMAPLib_TLB.IMessageSet; fetchUids: Integer; numUnseen: Integer; i: Integer; msgId: Integer; begin imap := TChilkatImap.Create(Self); // Anything unlocks the component and begins a fully-functional 30-day trial. success := imap.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // Connect to an IMAP server. success := imap.Connect('mail.chilkatsoft.com'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // Login success := imap.Login('***','***'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // Select an IMAP mailbox success := imap.SelectMailbox('Inbox'); if (success <> 1) then begin ShowMessage(imap.LastErrorText); Exit; end; // After selecting the mailbox. the total number of emails // is immediately available: totalNum := imap.NumMessages; Memo1.Lines.Add(IntToStr(totalNum)); // To determine the number of unseen messages, a call // to Search is required, which returns the set of UIDs // of all unseen messages. // We can choose to fetch UIDs or sequence numbers. fetchUids := 1; messageSet := imap.Search('UNSEEN',fetchUids); if (messageSet = nil ) then begin ShowMessage(imap.LastErrorText); Exit; end; numUnseen := messageSet.Count; Memo1.Lines.Add(IntToStr(numUnseen)); Memo1.Lines.Add('UIDs ----'); // Display the UIDs for i := 0 to messageSet.Count - 1 do begin msgId := messageSet.GetId(i); Memo1.Lines.Add(IntToStr(msgId)); end; // Disconnect from the IMAP server. imap.Disconnect(); end; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.