Delphi DLL

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 DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
email: HCkEmail;
xml: HCkXml;
dtNow: HCkDateTime;
headerOnly: Boolean;
sbText: HCkStringBuilder;
explain: PWideChar;
dsnEmail: HCkEmail;

begin
success := False;

email := CkEmail_Create();

CkEmail_putSubject(email,'Test');
CkEmail_putFrom(email,'joe@example.com');
CkEmail_putBody(email,'This is a test');
CkEmail_AddTo(email,'','recipient@example.com');

Memo1.Lines.Add(CkEmail__getMime(email));
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 := CkXml_Create();
CkXml_putTag(xml,'DeliveryStatusFields');
CkXml_NewChild2(xml,'Final-Recipient','rfc822; recipient@example.com');
CkXml_NewChild2(xml,'Action','failed');
CkXml_NewChild2(xml,'Status','5.1.2');
CkXml_NewChild2(xml,'Diagnostic-Code','smtp; 550 5.1.2 Host unknown (Domain name not found)');
dtNow := CkDateTime_Create();
CkDateTime_SetFromCurrentSystemTime(dtNow);
CkXml_NewChild2(xml,'Last-Attempt-Date',CkDateTime__getAsRfc822(dtNow,True));

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

explain := CkStringBuilder__getAsString(sbText);

dsnEmail := CkEmail_Create();
success := CkEmail_ToDsn(email,explain,CkXml__getXml(xml),headerOnly,dsnEmail);
if (success = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

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

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

CkEmail_Dispose(email);
CkXml_Dispose(xml);
CkDateTime_Dispose(dtNow);
CkStringBuilder_Dispose(sbText);
CkEmail_Dispose(dsnEmail);

end;