SMTP using HTTP Proxy

Demonstrates how to communicate with an SMTP server via an HTTP proxy.

Download Chilkat Email ActiveX

Download Chilkat IMAP 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;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is used for sending and receiving 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 SMTP server.
mailman.SmtpHost := 'smtp.chilkatsoft.com';

//  Set the SMTP login/password (if required)
mailman.SmtpUsername := 'myUsername';
mailman.SmtpPassword := 'myPassword';

//  Create a new email object
email := CoChilkatEmail2.Create();

email.Subject := 'This is a test';
email.Body := 'This is a test';
email.From := 'Chilkat Support <support@chilkatsoft.com>';
email.AddTo('Chilkat Admin','admin@chilkatsoft.com');

//  Call SendEmail to connect to the SMTP server via the HTTP proxy and send.
//  The connection (i.e. session) to the SMTP server remains
//  open so that subsequent SendEmail calls may use the
//  same connection.
success := mailman.SendEmail(email As CHILKATMAILLib2_TLB.IChilkatEmail2);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
    Exit;
  end;

//  Some SMTP servers do not actually send the email until
//  the connection is closed.  In these cases, it is necessary to
//  call CloseSmtpConnection for the mail to be  sent.
//  Most SMTP servers send the email immediately, and it is
//  not required to close the connection.  We'll close it here
//  for the example:
success := mailman.CloseSmtpConnection();
if (success <> 1) then
  begin
    ShowMessage('Connection to SMTP server not closed cleanly.');
  end;

ShowMessage('Mail Sent!');
end;