Delphi - Send EML File

// The following example codes demonstrate sending EML file using SMTP server
// To get full sample projects, please download and install EASendMail on your machine.
// To run it correctly, please change SMTP server, user, password, sender, recipient value to yours

Unit Unit1;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, EASendMailObjLib_TLB; // add EASendMail Unit

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var
  oSmtp : TMail;
Begin
  oSmtp := TMail.Create(Application);
  oSmtp.LicenseCode := 'TryIt';

  // Set your sender email address
  oSmtp.FromAddr := 'test@emailarchitect.net';

  // Add recipient email address
  oSmtp.AddRecipientEx( 'support@emailarchitect.net', 0);

  // Your SMTP server address
  oSmtp.ServerAddr := 'smtp.emailarchitect.net';

  // User and password for ESMTP authentication, if your server doesn't require
  // user authentication, please remove the following codes
  oSmtp.UserName := 'test@emailarchitect.net';
  oSmtp.Password := 'testpassword';

  // If your SMTP server requires SSL connection, please add this line
  // oSmtp.SSL_init();

  // Load EML file to body text temporally
  oSmtp.ImportMail( 'c:\temp\my.eml' );

  // Assign EML file data to raw content
  oSmtp.raw_Content := oSmtp.BodyText;
  ShowMessage( 'start to send email ...' );

  // Forward EML file with 100% orignal data
  If oSmtp.SendMail() = 0 Then
    ShowMessage( 'email was sent successfully!' )
  Else
    ShowMessage( 'failed to send email with the following error: '
    + oSmtp.GetLastErrDescription());

End;

End.