TMAPIMessage = class(TMAPIProperty)

  protected

    ...

  public

    constructor Create(const oMessage: IMessage); reintroduce;

    destructor Destroy; override;

    property MAPISession;

    property AlternateRecipientAllowed: Boolean read GetAlternateRecipientAllowed write SetAlternateRecipientAllowed;

    property AutoForwarded: Boolean read GetAutoForwarded write SetAutoForwarded;

    property AutoForwardComment: String read GetAutoForwardComment write SetAutoForwardComment;

    property BillingInformation: String read GetBillingInformation write SetBillingInformation;

    property Body: TMAPIMessageBody read GetBody;

    property BodyFormat: TBodyType read GetBodyFormat;

    property BodyPlain: String read GetBodyPlain write SetBodyPlain;

    property BodyRTF: string read GetRTFBody write SetRTFBody;

    property BodyHTML: String read GetHTMLBody write SetHTMLBody;

    property Categories: TStrings read GetCategories;

    property Companies: TStrings read GetCompanies;

    property Contacts: TStrings read GetContacts;

    property ConversationID: TBytes read GetConversationID;

    property ConversationIndex: TBytes read GetConversationIndex;

    property ConversationTopic: String read GetConversationTopic;

    property CreationTime;

    property DeferredDeliveryTime: TDateTime read GetDeferredDeliveryTime write SetDeferredDeliveryTime;

    property DeleteAfterSubmit: Boolean read GetDeleteAfterSubmit write SetDeleteAfterSubmit;

    property EntryID;

    property ExpiryTime: TDateTime read GetExpiryTime write SetExpiryTime;

    property FlagDueBy: TDateTime read GetFlagDueBy write SetFlagDueBy;

    property FlagIcon: TOlFlagIcon read GetFlagIcon write SetFlagIcon;

    property FlagRequest: String read GetFlagRequest write SetFlagRequest;

    property FlagStatus: TFollowUpStatus read GetFlagStatus write SetFlagStatus;

    property Importance: TMsgImportance read GetImportance write SetImportance;

    property InternetCodepage: Cardinal read GetInternetCodepage write SetInternetCodepage;

    property IsMarkedAsTask: Boolean read GetIsMarkedAsTask;

    property LastModificationTime;

    property MessageClass: string read GetMessageClass write SetMessageClass;

    property Mileage: string read GetMileage write SetMileage;

    property NoAging: Boolean read GetNoAging write SetNoAging;

    property OriginatorDeliveryReportRequested: Boolean read GetOriginatorDeliveryReportRequested write SetOriginatorDeliveryReportRequested;

    property ReadReceiptRequested: Boolean read GetReadReceiptRequested write SetReadReceiptRequested;

    property ReceivedByEntryID: TBytes read GetReceivedByEntryID;

    property ReceivedByName: string read GetReceivedByName;

    property ReceivedOnBehalfOfEntryID: TBytes read GetReceivedOnBehalfOfEntryID;

    property ReceivedOnBehalfOfName: string read GetReceivedOnBehalfOfName;

    property ReceivedTime: TDateTime read GetReceivedTime;

    property RecipientReassignmentProhibited: Boolean read GetRecipientReassignmentProhibited write SetRecipientReassignmentProhibited;

    property Recipients: TMAPIRecipients Read GetRecipients;

    property ReminderOverrideDefault: Boolean read GetReminderOverrideDefault write SetReminderOverrideDefault;

    property ReminderPlaySound: Boolean read GetReminderPlaySound write SetReminderPlaySound;

    property ReminderSet: Boolean read GetReminderSet write SetReminderSet;

    property ReminderSoundFile: string read GetReminderSoundFile write SetReminderSoundFile;

    property ReminderTime: TDateTime read GetReminderTime write SetReminderTime;

    property RemoteStatus: TRemoteStatus read GetRemoteStatus write SetRemoteStatus;

    property ReplyRecipientNames: string read GetReplyRecipientNames;

    property ReplyRecipients: TMAPIRecipients read GetReplyRecipients;

    property SenderName: String Read GetSenderName;

    property SenderEmailAddress: String Read GetSenderEmailAddress;

    property SenderEmailType: String Read GetSenderAddressType;

    property Sensitivity: TMsgSensitivity read GetSensitivity write SetSensitivity;

    property SentOn: TDateTime read GetSentOn;

    property SentOnBehalfOfName: string read GetSentOnBehalfOfName write SetSentOnBehalfOfName;

    property SentOnBehalfOfEmailAddress: string read GetSentOnBehalfOfEmailAddress write SetSentOnBehalfOfEmailAddress;

    property SentOnBehalfOfEmailType: string read GetSentOnBehalfOfAddressType write SetSentOnBehalfOfAddressType;

    property SentOnBehalfOfEntryId: TBytes read GetSentOnBehalfOfEntryId write SetSentOnBehalfOfEntryId;

    property Size: Cardinal Read GetMsgSize;

    property Subject: String Read GetSubject Write SetSubject;

    property TaskCompletedDate: TDateTime read GetTaskCompletedDate write SetTaskCompletedDate;

    property TaskDueDate: TDateTime read GetTaskDueDate write SetTaskDueDate;

    property TaskStartDate: TDateTime read GetTaskStartDate write SetTaskStartDate;

    property TaskSubject: string read GetTaskSubject write SetTaskSubject;

    property ToDoTaskOrdinal: TDateTime read GetToDoTaskOrdinal write SetToDoTaskOrdinal;

    property InternetAccountName: String read GetInternetAccountName write SetInternetAccountName;

    property InternetAccountStamp: String read GetInternetAccountStamp write SetInternetAccountStamp;

    property ToNames: String index rtTo read GetRecipientsNames;

    property CcNames: String index rtCc read GetRecipientsNames;

    property BCcNames: String index rtBCc read GetRecipientsNames;

  end;

TMAPIMessageBody = class(TObject)

  private

    ...

  public

    constructor Create(const oMessage: IMessage);

    property Plain: String read GetPlainBody write SetPlainBody;

    property RTF: String read GetRTFBody write SetRTFBody;

    property HTML: String read GetHTMLBody write SetHTMLBody;

    property Codepage: Cardinal Read GetInternetCodepage write SetInternetCodepage;

    property BestBodyType: TBodyType read GetBestBodyType;

    function SaveToStream(Stream: TStream; BodyType: TBodyType): Int64;

    function LoadFromStream(Stream: TStream; BodyType: TBodyType): Boolean;

    function ShowHTML(const WebBrowser: TWebBrowser): Boolean;

  end;