(Delphi DLL) Email Body - Plain Text and/or HTML

Any given email may have a plain-text body, an HTML body, or both. The Body property will return the HTML body by default (if it exists) otherwise it will return the plain-text body. There are methods for checking to see if an email has a particular body (HasPlainTextBody and HasHtmlBody) and there are methods for getting a specific body: GetHtmlBody, GetPlainTextBody.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: HCkEmail;
success: Boolean;
bText: Boolean;
bHtml: Boolean;

begin
email := CkEmail_Create();

//  Load an email from a .eml

success := CkEmail_LoadEml(email,'something.eml');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

//  Display the default Body:
Memo1.Lines.Add(CkEmail__body(email));

//  If a plain-text body is present, display it:

bText := CkEmail_HasPlainTextBody(email);
if (bText = True) then
  begin
    Memo1.Lines.Add(CkEmail__getPlainTextBody(email));
  end;

//  If an HTML body is present, display the HTML source:

bHtml := CkEmail_HasHtmlBody(email);
if (bHtml = True) then
  begin
    Memo1.Lines.Add(CkEmail__getHtmlBody(email));
  end;

CkEmail_Dispose(email);

end;