Delphi ActiveX Requires Chilkat v11.0.0+

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

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--