IMAP SSH Tunneling (Port Forwarding)

Demonstrates how to setup an SSH tunnel for IMAP.

Download Chilkat IMAP ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
sshHostname: String;
sshPort: Integer;
messageSet: CHILKATIMAPLib_TLB.IMessageSet;
fetchUids: Integer;
bundle: CHILKATIMAPLib_TLB.IChilkatEmailBundle2;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
imap := TChilkatImap.Create(Self);

//  Anything unlocks the component and begins a fully-functional 30-day trial.
success := imap.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Connect to an SSH server and establish the SSH tunnel:

//  The SSH hostname may be a hostname or an
//  IP address, such as "192.168.1.108".
//  The port is typically 22 (the standard port for SSH).
sshHostname := 'www.mysshserver.com';
sshPort := 22;
success := imap.SshTunnel(sshHostname,sshPort);
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Authenticate with the SSH server via a login/password
//  or with a public key.
//  This example demonstrates SSH password authentication.
//  Note: This is not authenticating with the IMAP server, it is
//  for authenticating with the SSH server, which is separate.
success := imap.SshAuthenticatePw('mySshLogin','mySshPassword');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  OK, the SSH tunnel is setup.  The IMAP component may
//  be used exactly the same as usual, except all communications
//  are sent through the SSH tunnel.

//  Connect to an IMAP server via the SSH tunnel.
//  Because the SSH tunnel has been previously setup,
//  this does not establish a direct connection with the IMAP
//  server.  It directs the SSH server to establish the connection.
success := imap.Connect('mail.chilkatsoft.com');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Authenticate with the IMAP server via the SSH tunnel.
success := imap.Login('myLogin','myPassword');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

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

//  We can choose to fetch UIDs or sequence numbers.
fetchUids := 1;
//  Get the message IDs of all the emails in the mailbox
messageSet := imap.Search('ALL',fetchUids);
if (messageSet = nil ) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Fetch the emails into a bundle object:

bundle := imap.FetchBundle(messageSet);
if (bundle = nil ) then
  begin

    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Loop over the bundle and display the FROM and SUBJECT of each.

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);
    Memo1.Lines.Add('--');

  end;

//  Disconnect from the IMAP server.
imap.Disconnect();


end;