POP3 using HTTP Proxy

Demonstrates how to communicate with a POP3 server through an HTTP proxy.

Download Chilkat Email ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
bundle: CHILKATMAILLib2_TLB.IChilkatEmailBundle2;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

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');
    Exit;
  end;

//  To connect through an HTTP proxy, set the HttpProxyHostname
//  and HttpProxyPort properties to the hostname (or IP address)
//  and port of the HTTP proxy.  Typical port numbers used by
//  HTTP proxy servers are 3128 and 8080.
mailman.HttpProxyHostname := 'www.my-http-proxy.com';
mailman.HttpProxyPort := 3128;

//  Important:  Your HTTP proxy server must allow non-HTTP
//  traffic to pass.  Otherwise this does not work.

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

//  Set the POP3 login/password.
mailman.PopUsername := 'myLogin';
mailman.PopPassword := 'myPassword';

//  Copy the all email from the user's POP3 mailbox
//  into a bundle object.  The email remains on the server.
// 
//  NOTE: All methods that communicate with a POP3 server
//  will automatically connect and authenticate (i.e. login)
//  if not already connected.  The connection will remain
//  open after the method call returns so that subsequent
//  calls do not need to re-establish the connection.
//  In this case, the connection is established via the HTTP
//  proxy.
bundle := mailman.CopyMail();

if (bundle = nil ) then
  begin
    ShowMessage(mailman.LastErrorText);
    Exit;
  end;

for i := 0 to bundle.MessageCount - 1 do
  begin
    email := bundle.GetEmail(i) As CHILKATMAILLib2_TLB.IChilkatEmail2;
    Memo1.Lines.Add(email.From);
    Memo1.Lines.Add(email.Subject + #13#10);

  end;

mailman.Pop3EndSession();
end;