(Delphi ActiveX) Get IMAP UID from Email Header

Demonstrates how to get the IMAP UID from an email header. After fetching an email or header using IMAP, the UID is contained in the ckx-imap-uid header field.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
fetchUids: Integer;
messageSet: IMessageSet;
bundle: IChilkatEmailBundle;
i: Integer;
szBundle: Integer;
msOneMsg: TMessageSet;
email: IChilkatEmail;
uidStr: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

imap := TChilkatImap.Create(Self);

// Connect to an IMAP server.
// Use TLS
imap.Ssl := 1;
imap.Port := 993;
success := imap.Connect('imap.someMailServer.com');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Login
success := imap.Login('login','password');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

fetchUids := 1;
// Get the message UIDs of all the emails in the mailbox
messageSet := imap.Search('ALL',fetchUids);
if (imap.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

bundle := imap.FetchHeaders(messageSet);
if (imap.LastMethodSuccess <> 1) then
  begin

    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// The UID of each fetched email header is available 
// in the ckx-imap-uid header field.
i := 0;
szBundle := bundle.MessageCount;
msOneMsg := TMessageSet.Create(Self);
while i < szBundle do
  begin
    email := bundle.GetEmail(i);

    // Build a message set containing one UID
    uidStr := email.GetHeaderField('ckx-imap-uid');
    msOneMsg.FromCompactString(uidStr);

    // Move this message to some other folder.
    success := imap.MoveMessages(msOneMsg.ControlInterface,'someOtherFolder');
    if (success <> 1) then
      begin
        Memo1.Lines.Add(imap.LastErrorText);
        // Exit the loop...
        i := szBundle;
      end;

    i := i + 1;
  end;

// Disconnect from the IMAP server.
success := imap.Disconnect();
end;