PSBinary = ^TSBinary;

  _SBinary = record

    cb: ULONG; // Count of bytes in the lpb member.

    lpb: PBYTE;  // Pointer to the PT_BINARY property value.

  end;

  SBinary = _SBinary;

  TSBinary = SBinary;

DTCTL = record

    ulCtlType: ULONG;

    ulCtlFlags: ULONG;

    lpbNotif: PBYTE;

    cbNotif: ULONG;

    lpszFilter: LPTSTR;

    ulItemID: ULONG;

    case Integer of

      0:

        (lpv: pointer);

      1:

        (lplabel: PDTBLLABEL);

      2:

        (lpedit: PDTBLEDIT);

      3:

        (lplbx: PDTBLLBX);

      4:

        (lpcombobox: PDTBLCOMBOBOX);

      5:

        (lpddlbx: PDTBLDDLBX);

      6:

        (lpcheckbox: PDTBLCHECKBOX);

      7:

        (lpgroupbox: PDTBLGROUPBOX);

      8:

        (lpbutton: PDTBLBUTTON);

      9:

        (lpradiobutton: PDTBLRADIOBUTTON);

      10:

        (lpmvlbx: PDTBLMVLISTBOX);

      11:

        (lpmvddlbx: PDTBLMVDDLBX);

      12:

        (lppage: PDTBLPAGE);

  end;

  TDTCTL = DTCTL;

  PDTCTL = ^TDTCTL;

type

  _OPTIONDATA = record

    ulFlags: ULONG; {MAPI_RECIPIENT, MAPI_MESSAGE}

    lpRecipGUID: PGUID; {Same as returned by AddressTypes()}

    lpszAdrType: PChar; {Same as returned by AddressTypes()}

    lpszDLLName: PChar; {Options DLL}

    ulOrdinal: ULONG; {Ordinal in that DLL}

    cbOptionsData: ULONG; {Count of bytes in lpbOptionsData}

    lpbOptionsData: PBYTE; {Providers per [recip|message] option data}

    cOptionsProps: ULONG; {Count of Options default prop values}

    lpOptionsProps: PSPropValue; {Default Options property values}

  end;

  TOPTIONDATA = _OPTIONDATA;

  POPTIONDATA = ^TOPTIONDATA;

type

  PSSortOrder = ^TSSortOrder;

  //  Defines how to sort the rows of a table, what column to use as the sort key, and the direction of the sort.

  _SSortOrder = record

    ulPropTag: ULONG; {Column to sort on}

    ulOrder: ULONG; {Ascending, descending, combine to left}

  end;

{ Possible values for ulOrder member are as follow:

TABLE_SORT_ASCEND - The table should be sorted in ascending order.

TABLE_SORT_COMBINE - The sort operation should create a category that combines the property identified as the sort key column in the ulPropTag member with the sort key column specified in the previous SSortOrder structure.

  Rem: TABLE_SORT_COMBINE can only be used when the SSortOrder structure is being used as an entry in an SSortOrderSet structure to specify multiple sort orders for a categorized sort. TABLE_SORT_COMBINE cannot be used in the first SSortOrder structure in an SSortOrderSet structure.

TABLE_SORT_DESCEND - The table should be sorted in descending order.

TABLE_SORT_CATEG_MAX - The table should be sorted on the maximum value of the ulPropTag member for the data rows in the categories specified by the previous sort order in the SSortOrderSet structure.

TABLE_SORT_CATEG_MIN - The table should be sorted on the minimum value of the ulPropTag member for the data rows in the categories specified by the previous sort order in the in SSortOrderSet structure.

}

 _SSortOrderSet = record

    cSorts: ULONG; {Number of sort columns in aSort below}

    cCategories: ULONG; {0 for non-categorized, up to cSorts}

    cExpanded: ULONG; {0 if no categories start expanded,}

    {up to cExpanded}

    aSort: array [0 .. MAPI_DIM - 1] of TSSortOrder; {The sort orders}

  end;

  TSSortOrderSet = _SSortOrderSet;

  PSSortOrderSet = ^TSSortOrderSet;

PADRENTRY = ^TADRENTRY;

  _ADRENTRY = record

    ulReserved1: ULONG; {Never used; Reserved; must be zero}

    cValues: ULONG; {Count of properties in the property value array pointed to by the rgPropVals member. The cValues member can be zero. }

    rgPropVals: PSPropValue; {Pointer to a property value array describing the properties for the recipient. The rgPropVals member can be NIL.}

  end;

  TADRENTRY = _ADRENTRY;

PADRLIST = ^TADRLIST;

  _ADRLIST = record

    cEntries: ULONG; {Count of entries in the array specified by the aEntries member.}

    aEntries: array [0 .. MAPI_DIM - 1] of TADRENTRY; {Array of ADRENTRY structures, one structure for each recipient.}

  end;

  TADRLIST = _ADRLIST;

_NOTIFICATION = record

    ulEventType: ULONG; {Type of notification event that occurred, i.e. fnevSomething}

    ulAlignPad: ULONG; {Force to 8-byte boundary}

    info: record   {Union of notification structures describing the affected data for a particular type of event. The structure included in the info member depends on the value of the ulEventType member.}

       case Integer of

       1: (err: TERROR_NOTIFICATION;);

       2: (newmail: TNEWMAIL_NOTIFICATION;);

       3: (obj: TOBJECT_NOTIFICATION;);

       4: (tab: TTABLE_NOTIFICATION;);

       5: (ext: TEXTENDED_NOTIFICATION;);

       6: (statobj: TSTATUS_OBJECT_NOTIFICATION;);

      end;

    end;

TNOTIFICATION = _NOTIFICATION;

PNOTIFICATION = ^TNOTIFICATION;

  TENTRYID = record

    abFlags: array [0 .. 3] of byte;

    ab: array [0 .. MAPI_DIM - 1] of byte;

  end;

  PENTRYID = ^TENTRYID;