Delphi DLL

Add a Related String Resource to an Email

Demonstrates the Chilkat Email.AddRelatedString method, which adds a text-based related MIME resource, such as a style sheet, from an in-memory string and returns the generated Content-ID. The first argument is the MIME resource name, the second is the text content, and the third is the charset used to encode it. Because the Content-ID is generated by the call, this example adds the style sheet first, then builds an HTML body in a StringBuilder that references the style sheet by that cid:, and passes the result to SetHtmlBody.

Background: Related items are not always images loaded from disk — sometimes the resource is text you already have in memory, like a generated CSS style sheet or an SVG. AddRelatedString lets you embed such content directly without writing a temporary file first. As with other related items, it lives in the multipart/related enclosure and is referenced from the HTML by the Content-ID the method returns.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
email: HCkEmail;
cid: PWideChar;
sbHtml: HCkStringBuilder;
numReplaced: Integer;

begin
//  Demonstrates the AddRelatedString method, which adds a text-based related MIME resource
//  (such as a style sheet) from an in-memory string and returns the generated Content-ID.
//  The first argument is the resource name, the second is the text content, the third is the charset.

email := CkEmail_Create();
CkEmail_putSubject(email,'Email with a related style sheet');

//  Add the text-based related resource first; capture the generated Content-ID.
cid := CkEmail__addRelatedString(email,'styles.css','body { color: navy; }','utf-8');
if (CkEmail_getLastMethodSuccess(email) = False) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

//  Build the HTML body, referencing the related style sheet by its Content-ID.  A
//  placeholder is used and then replaced with the actual Content-ID.
sbHtml := CkStringBuilder_Create();
CkStringBuilder_Append(sbHtml,'<html><head><link rel="stylesheet" href="cid:PLACEHOLDER_CID"/></head><body>Styled content.</body></html>');
numReplaced := CkStringBuilder_Replace(sbHtml,'PLACEHOLDER_CID',cid);
CkEmail_SetHtmlBody(email,CkStringBuilder__getAsString(sbHtml));

Memo1.Lines.Add('Related Content-ID = ' + cid);
Memo1.Lines.Add('NumRelatedItems = ' + IntToStr(CkEmail_getNumRelatedItems(email)));

CkEmail_Dispose(email);
CkStringBuilder_Dispose(sbHtml);