POP3 Session Log

Download Chilkat Email ActiveX

Demonstrates how the Chilkat email component keeps a log of the current POP3 session in the mailman.Pop3SessionLog property.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
sa: CHILKATUTILLib_TLB.ICkStringArray;
i: Integer;
n: Integer;

begin
//  The mailman object is used for receiving (POP3)
//  and sending (SMTP) email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');

  end;

//  Set the POP3 server's hostname
mailman.MailHost := 'mail.chilkatsoft.com';

//  Set the POP3 login/password.
mailman.PopUsername := 'matt@chilkatsoft.com';
mailman.PopPassword := '****';

//  You may explicitly begin and end POP3 sessions by calling
//  Pop3BeginSession and Pop3EndSession.  However,
//  if a method is called that requires a connection to the POP3
//  server, the connection and session will become established
//  automatically.  Therefore, it is not required to explicitly call
//  Pop3BeginSession and Pop3EndSession.

success := mailman.Pop3BeginSession();
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;

//  Get a list of the UIDLs for the email in the mailbox and print it.
sa := mailman.GetUidls() as CHILKATUTILLib_TLB.ICkStringArray;

n := sa.Count;

for i := 0 to n - 1 do
  begin
    Memo1.Lines.Add(sa.GetString(i));
  end;

//  Display the POP3 session log:
Memo1.Lines.Add(mailman.Pop3SessionLog);

success := mailman.Pop3EndSession();
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;
end;