Save Downloaded Email to XML

Download Chilkat Email ActiveX

Delphi example code to download email from a POP3 mailbox, save it to an XML file, and then load the XML into a new bundle object and iterate over the emails to display the From and Subject of each.

// Read email from a POP3 server and save the downloaded email in an XML file.
// Then load the XML file into a new bundle object.
procedure TForm1.Button12Click(Sender: TObject);
var
  email: IChilkatEmail2;
  bundle: IChilkatEmailBundle2;
  bundle2: IChilkatEmailBundle2;
  n: Integer;
  i: Integer;

begin
  // A ChilkatMailMan2 ActiveX component was dropped onto the Delphi
  // form, and this became the Form's member variable "ChilkatMailMan21".

  // Unlock the component -- only needs to be called once in a program.
  ChilkatMailMan21.UnlockComponent('Anything for 30-day trial');

  // Set the POP3 mail server hostname, login, and password.
  ChilkatMailMan21.MailHost := 'mail.chilkatsoft.com';
  ChilkatMailMan21.PopUsername := '***';
  ChilkatMailMan21.PopPassword := '***';

  // Read the entire mailbox, leaving the mail on the POP3 server.
  bundle := ChilkatMailMan21.CopyMail();
  if (bundle = nil) then
      ShowMessage(ChilkatMailMan21.LastErrorText);

  // Save the bundle in an XML file.
  bundle.SaveXml('emailBundle.xml');

  // Demonstrate how to re-load the bundle into a new bundle object.
  bundle2 := ChilkatMailMan21.NewBundle();
  bundle2.LoadXml('emailBundle.xml');

  // Loop over the emails in the bundle2 and add the From address
  // and Subject to a list box.
  n := bundle2.MessageCount;
  for i := 0 to n-1 do begin
      email := bundle2.GetEmail(i);
      ListBox1.Items.Add(email.From);
      ListBox1.Items.Add(email.Subject);
      ListBox1.Items.Add('----');
  end;


end;