Delphi ActiveX

Create DSN (Delivery Status Notification) Email

See more Email Object Examples

Demonstrates how to create a DSN (Delivery Status Notification) Email having the format as defined in RFC 3464. Delphi ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
email: TChilkatEmail;
xml: TChilkatXml;
dtNow: TCkDateTime;
headerOnly: Integer;
sbText: TChilkatStringBuilder;
explain: WideString;
dsnEmail: TChilkatEmail;

begin
success := 0;

email := TChilkatEmail.Create(Self);

email.Subject := 'Test';
email.From := 'joe@example.com';
email.Body := 'This is a test';
email.AddTo('','recipient@example.com');

Memo1.Lines.Add(email.GetMime());
Memo1.Lines.Add('');
Memo1.Lines.Add('-------------------------------------------------------------');
Memo1.Lines.Add('');

// This is the email we just created:

// MIME-Version: 1.0
// Date: Mon, 12 May 2025 11:13:15 -0500
// Message-ID: <917FA49F75544EF51948B0A52F403B925B51073F@SLICE>
// Content-Type: text/plain; charset=us-ascii; format=flowed
// Content-Transfer-Encoding: 7bit
// X-Priority: 3 (Normal)
// Subject: Test
// From: joe@example.com
// To: recipient@example.com
// 
// This is a test

// -----------------------------------------------------------------
// Convert the above email into a DSN (Delivery Status Notification)

xml := TChilkatXml.Create(Self);
xml.Tag := 'DeliveryStatusFields';
xml.NewChild2('Final-Recipient','rfc822; recipient@example.com');
xml.NewChild2('Action','failed');
xml.NewChild2('Status','5.1.2');
xml.NewChild2('Diagnostic-Code','smtp; 550 5.1.2 Host unknown (Domain name not found)');
dtNow := TCkDateTime.Create(Self);
dtNow.SetFromCurrentSystemTime();
xml.NewChild2('Last-Attempt-Date',dtNow.GetAsRfc822(1));

headerOnly := 1;
sbText := TChilkatStringBuilder.Create(Self);
sbText.Append('This is an automatically generated Delivery Status Notification.' + #13#10 + #13#10);
sbText.Append('Delivery to the following recipient failed permanently:' + #13#10 + #13#10);
sbText.Append('    recipient@example.com' + #13#10 + #13#10);
sbText.Append('Technical details of permanent failure:' + #13#10);
sbText.Append('DNS Error: Domain name not found' + #13#10);

explain := sbText.GetAsString();

dsnEmail := TChilkatEmail.Create(Self);
success := email.ToDsn(explain,xml.GetXml(),headerOnly,dsnEmail.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add(dsnEmail.GetMime());

// Here's the MIME of the DNS email we just created:
// -------------------------------------------------

// Content-Type: multipart/report; report-type="delivery-status"; boundary="------------060100020300020303000802"
// 
// --------------060100020300020303000802
// Content-Type: text/plain; charset=windows-1252; format=flowed
// Content-Transfer-Encoding: 7bit
// 
// This is an automatically generated Delivery Status Notification.
// 
// Delivery to the following recipient failed permanently:
// 
//     recipient@example.com
// 
// Technical details of permanent failure:
// DNS Error: Domain name not found
// 
// --------------060100020300020303000802
// Content-Type: message/delivery-status
// 
// Final-Recipient: rfc822; recipient@example.com
// Action: failed
// Status: 5.1.2
// Diagnostic-Code: smtp; 550 5.1.2 Host unknown (Domain name not found)
// Last-Attempt-Date: Mon, 12 May 2025 11:30:39 -0500
// 
// --------------060100020300020303000802
// Content-Type: text/rfc822-headers; charset=windows-1252
// 
// MIME-Version: 1.0
// Date: Mon, 12 May 2025 11:30:39 -0500
// Message-ID: <B8E6875D582A78AE779FC0B46ACC8C858CEAF608@SLICE>
// Content-Type: text/plain; charset=us-ascii; format=flowed
// Content-Transfer-Encoding: 7bit
// X-Priority: 3 (Normal)
// Subject: Test
// From: joe@example.com
// To: recipient@example.com
// --------------060100020300020303000802--
end;