type

  TSmartFilter = class(TObject)

  private

    ....
    ....

  public

    constructor Create(const MAPITable: IMAPITable);

    destructor Destroy; override;

    property IsOrRelation: Boolean read GetIsOrRelation write SetIsOrRelation;

    property TimeAfter: TDateTime read GetTimeFirst write SetTimeFirst;

    property TimeBefore: TDateTime read GetTimeLast write SetTimeLast;

    property Subject: WideString read GetSubject write SetSubject;

    property Sender: WideString read GetSender write SetSender;

    property Recipient: WideString read GetRecipient write SetRecipient;

    property Size: ULONG read GetSize write SetSize;

    property BodyText: WideString read GetBodyText write SetBodyText;

    property Unread: Boolean read GetUnread write SetUnread;

    property Filter: PSRestriction read FRestriction;

    //

    procedure SetFilter(const Reset: Boolean = False);

  end;