Determine the Number of Unseen Email Messages

Demonstrates how to determine how many unseen messages exist in an email account on an IMAP server.

Download Chilkat IMAP ActiveX

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;