Iterate Email Headers

Demonstrates how to iterate over the email header fields.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
success: Integer;
n: Integer;
i: Integer;
name: String;
value: String;

begin
email := CoChilkatEmail2.Create();

//  First, load an email from a file.
//  Note: an email object may be loaded from a file, or
//  downloaded directly from a POP3 or IMAP server...

success := email.LoadEml('testReceivedHdrs.eml');
if (success <> 1) then
  begin
    ShowMessage(email.LastErrorText);
    Exit;
  end;

//  How many header fields?

n := email.NumHeaderFields;
if (n > 0) then
  begin

    //  Display the name and value of each header:

    for i := 0 to n - 1 do
      begin
        name := email.GetHeaderFieldName(i);
        value := email.GetHeaderFieldValue(i);
        Memo1.Lines.Add(IntToStr(i));
        Memo1.Lines.Add(name);
        Memo1.Lines.Add(value);

      end;

  end;
end;