List IMAP Mailboxes with Reference

Demonstrates how to list all sub-mailboxes within a specified context. In this case, we list all mailboxes under "INBOX.vendors".

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;
refName: String;
wildcardedMailbox: String;
mboxes: CHILKATIMAPLib_TLB.IMailboxes;
i: 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('admin@chilkatsoft.com','*myPassword5*');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  The ListMailboxes method returns a Mailboxes object
//  that contains the collection of mailboxes.
//  It accepts two arguments: a refName and a wildcardedMailbox.

//  List all mailboxes under INBOX.vendors
refName := 'INBOX.vendors';

//  Select all mailboxes matching this pattern:
wildcardedMailbox := '*';

mboxes := imap.ListMailboxes(refName,wildcardedMailbox);
if (mboxes = nil ) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

for i := 0 to mboxes.Count - 1 do
  begin
    Memo1.Lines.Add(mboxes.GetName(i));
  end;

//  Sample output looks like this:
//  INBOX.vendors.shareit
//  INBOX.vendors.paypal
//  INBOX.vendors.dell
//  INBOX.vendors.inMotion
//  INBOX.vendors.myhosting
//  INBOX.vendors.peer1

//  Disconnect from the IMAP server.
imap.Disconnect();


end;