units/wab/WabIab.pas

   1 unit WabIab;
   2
   3 interface
   4
   5 uses
   6   Windows, ActiveKOL, WabDefs, ActiveX;
   7
   8 {$I WAB.INC}
   9
  10 {$ALIGN ON}
  11 {$MINENUMSIZE 4}
  12 {$WEAKPACKAGEUNIT}
  13
  14 (*$HPPEMIT '#include <wabiab.h>'*)
  15
  16 { CreateOneOff *}
  17 //****** MAPI_UNICODE                   ((ULONG) 0x80000000) */
  18 //****** MAPI_SEND_NO_RICH_INFO         ((ULONG) 0x00010000) */
  19
  20 { RecipOptions }
  21 //****** MAPI_UNICODE                   ((ULONG) 0x80000000) */
  22
  23 { QueryDefaultRecipOpt }
  24 //****** MAPI_UNICODE                   ((ULONG) 0x80000000) */
  25
  26 { GetSearchPath }
  27 //****** MAPI_UNICODE                   ((ULONG) 0x80000000) */
  28
  29 const
  30
  31 { These are WAB only flags for IAdrBook::ResolveName }
  32
  33 //      MAPI_UNICODE                        ((ULONG) 0x80000000)
  34   WAB_RESOLVE_LOCAL_ONLY                = ULONG($80000000);
  35   {$EXTERNALSYM WAB_RESOLVE_LOCAL_ONLY}
  36   WAB_RESOLVE_ALL_EMAILS                = ULONG($40000000);
  37   {$EXTERNALSYM WAB_RESOLVE_ALL_EMAILS}
  38   WAB_RESOLVE_NO_ONE_OFFS               = ULONG($20000000);
  39   {$EXTERNALSYM WAB_RESOLVE_NO_ONE_OFFS}
  40   WAB_RESOLVE_NEED_CERT                 = ULONG($10000000);
  41   {$EXTERNALSYM WAB_RESOLVE_NEED_CERT}
  42   WAB_RESOLVE_NO_NOT_FOUND_UI           = ULONG($08000000);
  43   {$EXTERNALSYM WAB_RESOLVE_NO_NOT_FOUND_UI}
  44   WAB_RESOLVE_USE_CURRENT_PROFILE       = ULONG($04000000);
  45   {$EXTERNALSYM WAB_RESOLVE_USE_CURRENT_PROFILE}
  46   WAB_RESOLVE_FIRST_MATCH               = ULONG($02000000);
  47   {$EXTERNALSYM WAB_RESOLVE_FIRST_MATCH}
  48   WAB_RESOLVE_UNICODE                   = ULONG($01000000);
  49   {$EXTERNALSYM WAB_RESOLVE_UNICODE}
  50 //      MAPI_DIALOG                         ((ULONG) 0x00000008)
  51
  52 type
  53   IAddrBook = interface(IMAPIProp)
  54     function OpenEntry(cbEntryID: ULONG; lpEntryID: PEntryID; lpInterface: PIID;
  55       ulFlags: ULONG; var lpulObjType: ULONG; out lppUnk: IUnknown): HResult; stdcall;
  56     function CompareEntryIDs(cbEntryID1: ULONG; lpEntryID1: PEntryID;
  57       cbEntryID2: ULONG; lpEntryID2: PEntryID; ulFlags: ULONG;
  58       var lpulResult: ULONG): HResult; stdcall;
  59     function Advise(cbEntryID: ULONG; lpEntryID: PEntryID; ulEventMask: ULONG;
  60       lpAdviseSink: IMAPIAdviseSink; var lpulConnection: ULONG): HResult; stdcall;
  61     function Unadvise(ulConnection: ULONG): HResult; stdcall;
  62     function CreateOneOff(lpszName, lpszAdrType, lpszAddress: LPTSTR; ulFlags: ULONG;
  63       var lpcbEntryID: ULONG; var lppEntryID: PEntryID): HResult; stdcall;
  64     function NewEntry(ulUIParam, ulFlags, cbEIDContainer: ULONG;
  65       lpEIDContainer: PEntryID; cbEIDNewEntryTpl: ULONG; lpEIDNewEntryTpl: PEntryID;
  66       var lpcbEIDNewEntry: ULONG; var lppEIDNewEntry: PEntryID): HResult; stdcall;
  67     function ResolveName(ulUIParam, ulFlags: ULONG; lpszNewEntryTitle: LPTSTR;
  68       var lpAdrList: PAdrList): HResult; stdcall;
  69     function Address(var lpulUIParam: ULONG; lpAdrParms: PAdrParam;
  70       var lppAdrList: PAdrList): HResult; stdcall;
  71     function Details(var lpulUIParam: ULONG; lpfnDismiss: PFnDismiss;
  72       lpvDismissContext: Pointer; cbEntryID: ULONG; lpEntryID: PEntryID;
  73       lpfButtonCallback: PFnButton; lpvButtonContext: Pointer; lpszButtonText: LPTSTR;
  74       ulFlags: ULONG): HResult; stdcall;
  75     function RecipOptions(ulUIParam, ulFlags: ULONG; lpRecip: PAdrEntry): HResult; stdcall;
  76     function QueryDefaultRecipOpt(lpszAdrType: LPTSTR; ulFlags: ULONG;
  77       var lpcValues: ULONG; var lppOptions: PSPropValue): HResult; stdcall;
  78     function GetPAB(var lpcbEntryID: ULONG; var lppEntryID: PEntryID): HResult; stdcall;
  79     function SetPAB(cbEntryID: ULONG; lpEntryID: PEntryID): HResult; stdcall;
  80     function GetDefaultDir(var lpcbEntryID: ULONG; var lppEntryID: PEntryID): HResult; stdcall;
  81     function SetDefaultDir(cbEntryID: ULONG; lpEntryID: PEntryID): HResult; stdcall;
  82     function GetSearchPath(ulFlags: ULONG; var lppSearchPath: PSRowSet): HResult; stdcall;
  83     function SetSearchPath(ulFlags: ULONG; lpSearchPath: PSRowSet): HResult; stdcall;
  84     function PrepareRecips(ulFlags: ULONG; lpPropTagArray: PSPropTagArray;
  85       lpRecipList: PSPropTagArray): HResult; stdcall;
  86   end;
  87   {$EXTERNALSYM IAddrBook}
  88
  89 implementation
  90
  91 end.