Delphi DLL

SMTP using HTTP Proxy

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, MailMan, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mailman: HCkMailMan;
email: HCkEmail;

begin
success := False;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// The mailman object is used for sending and receiving email.
mailman := CkMailMan_Create();

// 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.
CkMailMan_putHttpProxyHostname(mailman,'www.my-http-proxy.com');
CkMailMan_putHttpProxyPort(mailman,3128);

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

// Set the SMTP server.
CkMailMan_putSmtpHost(mailman,'smtp.chilkatsoft.com');

// Set the SMTP login/password (if required)
CkMailMan_putSmtpUsername(mailman,'myUsername');
CkMailMan_putSmtpPassword(mailman,'myPassword');

// Create a new email object
email := CkEmail_Create();

CkEmail_putSubject(email,'This is a test');
CkEmail_putBody(email,'This is a test');
CkEmail_putFrom(email,'Chilkat Support <support@chilkatsoft.com>');
success := CkEmail_AddTo(email,'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 := CkMailMan_SendEmail(mailman,email);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    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 := CkMailMan_CloseSmtpConnection(mailman);
if (success <> True) then
  begin
    Memo1.Lines.Add('Connection to SMTP server not closed cleanly.');
  end;

Memo1.Lines.Add('Mail Sent!');

CkMailMan_Dispose(mailman);
CkEmail_Dispose(email);

end;