outlook_tlb.pas

MS Office Delphi sample add-in README

    property Session: _NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property CurrentUser: Recipient readonly dispid 8449;
    property Folders: _Folders readonly dispid 8451;
    property Type_: WideString readonly dispid 8452;
    property AddressLists: AddressLists readonly dispid 8461;
    function  CreateRecipient(const RecipientName: WideString): Recipient; dispid 8458;
    function  GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; dispid 8459;
    function  GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; dispid 8456;
    function  GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; dispid 8457;
    function  GetRecipientFromID(const EntryID: WideString): Recipient; dispid 8455;
    function  GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; dispid 8460;
    procedure Logoff; dispid 8454;
    procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; 
                    NewSession: OleVariant); dispid 8453;
    function  PickFolder: MAPIFolder; dispid 8462;
    procedure RefreshRemoteHeaders; dispid 8471;
    property SyncObjects: SyncObjects readonly dispid 8472;
    procedure AddStore(Store: OleVariant); dispid 8473;
    procedure RemoveStore(const Folder: MAPIFolder); dispid 8474;
  end;

// *********************************************************************//
// Interface: Recipient
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00063045-0000-0000-C000-000000000046}
// *********************************************************************//
  Recipient = interface(IDispatch)
    ['{00063045-0000-0000-C000-000000000046}']
    function  Get_Application: _Application; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: _NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Address: WideString; safecall;
    function  Get_AddressEntry: AddressEntry; safecall;
    procedure Set_AddressEntry(const AddressEntry: AddressEntry); safecall;
    function  Get_AutoResponse: WideString; safecall;
    procedure Set_AutoResponse(const AutoResponse: WideString); safecall;
    function  Get_DisplayType: OlDisplayType; safecall;
    function  Get_EntryID: WideString; safecall;
    function  Get_Index: Integer; safecall;
    function  Get_MeetingResponseStatus: OlResponseStatus; safecall;
    function  Get_Name: WideString; safecall;
    function  Get_Resolved: WordBool; safecall;
    function  Get_TrackingStatus: OlTrackingStatus; safecall;
    procedure Set_TrackingStatus(TrackingStatus: OlTrackingStatus); safecall;
    function  Get_TrackingStatusTime: TDateTime; safecall;
    procedure Set_TrackingStatusTime(TrackingStatusTime: TDateTime); safecall;
    function  Get_Type_: Integer; safecall;
    procedure Set_Type_(Type_: Integer); safecall;
    procedure Delete; safecall;
    function  FreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant): WideString; safecall;
    function  Resolve: WordBool; safecall;
    property Application: _Application read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: _NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Address: WideString read Get_Address;
    property AddressEntry: AddressEntry read Get_AddressEntry write Set_AddressEntry;
    property AutoResponse: WideString read Get_AutoResponse write Set_AutoResponse;
    property DisplayType: OlDisplayType read Get_DisplayType;
    property EntryID: WideString read Get_EntryID;
    property Index: Integer read Get_Index;
    property MeetingResponseStatus: OlResponseStatus read Get_MeetingResponseStatus;
    property Name: WideString read Get_Name;
    property Resolved: WordBool read Get_Resolved;
    property TrackingStatus: OlTrackingStatus read Get_TrackingStatus write Set_TrackingStatus;
    property TrackingStatusTime: TDateTime read Get_TrackingStatusTime write Set_TrackingStatusTime;
    property Type_: Integer read Get_Type_ write Set_Type_;
  end;

// *********************************************************************//
// DispIntf:  RecipientDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00063045-0000-0000-C000-000000000046}
// *********************************************************************//
  RecipientDisp = dispinterface
    ['{00063045-0000-0000-C000-000000000046}']
    property Application: _Application readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: _NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 109;
    property Address: WideString readonly dispid 12291;
    property AddressEntry: AddressEntry dispid 121;
    property AutoResponse: WideString dispid 106;
    property DisplayType: OlDisplayType readonly dispid 14592;
    property EntryID: WideString readonly dispid 61470;
    property Index: Integer readonly dispid 91;
    property MeetingResponseStatus: OlResponseStatus readonly dispid 102;
    property Name: WideString readonly dispid 12289;
    property Resolved: WordBool readonly dispid 100;
    property TrackingStatus: OlTrackingStatus dispid 118;
    property TrackingStatusTime: TDateTime dispid 119;
    property Type_: Integer dispid 3093;
    procedure Delete; dispid 110;
    function  FreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant): WideString; dispid 111;
    function  Resolve: WordBool; dispid 113;
  end;

// *********************************************************************//
// Interface: AddressEntry
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0006304B-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressEntry = interface(IDispatch)
    ['{0006304B-0000-0000-C000-000000000046}']
    function  Get_Application: _Application; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: _NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Address: WideString; safecall;
    procedure Set_Address(const Address: WideString); safecall;
    function  Get_DisplayType: OlDisplayType; safecall;
    function  Get_ID: WideString; safecall;
    function  Get_Manager: AddressEntry; safecall;
    function  Get_MAPIOBJECT: IUnknown; safecall;
    procedure Set_MAPIOBJECT(const MAPIOBJECT: IUnknown); safecall;
    function  Get_Members: AddressEntries; safecall;
    function  Get_Name: WideString; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    function  Get_Type_: WideString; safecall;
    procedure Set_Type_(const Type_: WideString); safecall;
    procedure Delete; safecall;
    procedure Details(HWnd: OleVariant); safecall;
    function  GetFreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant): WideString; safecall;
    procedure Update(MakePermanent: OleVariant; Refresh: OleVariant); safecall;
    procedure UpdateFreeBusy; safecall;
    property Application: _Application read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: _NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Address: WideString read Get_Address write Set_Address;
    property DisplayType: OlDisplayType read Get_DisplayType;
    property ID: WideString read Get_ID;
    property Manager: AddressEntry read Get_Manager;
    property MAPIOBJECT: IUnknown read Get_MAPIOBJECT write Set_MAPIOBJECT;
    property Members: AddressEntries read Get_Members;
    property Name: WideString read Get_Name write Set_Name;
    property Type_: WideString read Get_Type_ write Set_Type_;
  end;

// *********************************************************************//
// DispIntf:  AddressEntryDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0006304B-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressEntryDisp = dispinterface
    ['{0006304B-0000-0000-C000-000000000046}']
    property Application: _Application readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: _NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Address: WideString dispid 12291;
    property DisplayType: OlDisplayType readonly dispid 14592;
    property ID: WideString readonly dispid 61470;
    property Manager: AddressEntry readonly dispid 771;
    property MAPIOBJECT: IUnknown dispid 61696;
    property Members: AddressEntries readonly dispid 772;
    property Name: WideString dispid 12289;
    property Type_: WideString dispid 12290;
    procedure Delete; dispid 770;
    procedure Details(HWnd: OleVariant); dispid 769;
    function  GetFreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant): WideString; dispid 774;
    procedure Update(MakePermanent: OleVariant; Refresh: OleVariant); dispid 768;
    procedure UpdateFreeBusy; dispid 775;
  end;

// *********************************************************************//
// Interface: AddressEntries
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0006304A-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressEntries = interface(IDispatch)
    ['{0006304A-0000-0000-C000-000000000046}']
    function  Get_Application: _Application; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: _NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Count: Integer; safecall;
    function  Item(Index: OleVariant): AddressEntry; safecall;
    function  Get_RawTable: IUnknown; safecall;
    function  Add(const Type_: WideString; Name: OleVariant; Address: OleVariant): AddressEntry; safecall;
    function  GetFirst: AddressEntry; safecall;
    function  GetLast: AddressEntry; safecall;
    function  GetNext: AddressEntry; safecall;
    function  GetPrevious: AddressEntry; safecall;
    procedure Sort(Property_: OleVariant; Order: OleVariant); safecall;
    property Application: _Application read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: _NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property RawTable: IUnknown read Get_RawTable;
  end;

// *********************************************************************//
// DispIntf:  AddressEntriesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0006304A-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressEntriesDisp = dispinterface
    ['{0006304A-0000-0000-C000-000000000046}']
    property Application: _Application readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: _NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Count: Integer readonly dispid 80;
    function  Item(Index: OleVariant): AddressEntry; dispid 81;
    property RawTable: IUnknown readonly dispid 90;
    function  Add(const Type_: WideString; Name: OleVariant; Address: OleVariant): AddressEntry; dispid 95;
    function  GetFirst: AddressEntry; dispid 86;
    function  GetLast: AddressEntry; dispid 88;
    function  GetNext: AddressEntry; dispid 87;
    function  GetPrevious: AddressEntry; dispid 89;
    procedure Sort(Property_: OleVariant; Order: OleVariant); dispid 97;
  end;

// *********************************************************************//
// Interface: _Folders
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00063040-0000-0000-C000-000000000046}
// *********************************************************************//
  _Folders = interface(IDispatch)
    ['{00063040-0000-0000-C000-000000000046}']
    function  Get_Application: _Application; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: _NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Count: Integer; safecall;
    function  Item(Index: OleVariant): MAPIFolder; safecall;
    function  Get_RawTable: IUnknown; safecall;
    function  Add(const Name: WideString; Type_: OleVariant): MAPIFolder; safecall;
    function  GetFirst: MAPIFolder; safecall;
    function  GetLast: MAPIFolder; safecall;
    function  GetNext: MAPIFolder; safecall;
    function  GetPrevious: MAPIFolder; safecall;
    procedure Remove(Index: Integer); safecall;
    property Application: _Application read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: _NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property RawTable: IUnknown read Get_RawTable;
  end;

// *********************************************************************//
// DispIntf:  _FoldersDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00063040-0000-0000-C000-000000000046}
// *********************************************************************//
  _FoldersDisp = dispinterface
    ['{00063040-0000-0000-C000-000000000046}']
    property Application: _Application readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: _NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Count: Integer readonly dispid 80;
    function  Item(Index: OleVariant): MAPIFolder; dispid 81;
    property RawTable: IUnknown readonly dispid 90;
    function  Add(const Name: WideString; Type_: OleVariant): MAPIFolder; dispid 95;
    function  GetFirst: MAPIFolder; dispid 86;
    function  GetLast: MAPIFolder; dispid 88;
    function  GetNext: MAPIFolder; dispid 87;
    function  GetPrevious: MAPIFolder; dispid 89;
    procedure Remove(Index: Integer); dispid 84;
  end;

// *********************************************************************//
// Interface: MAPIFolder
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {00063006-0000-0000-C000-000000000046}
// *********************************************************************//
  MAPIFolder = interface(IDispatch)
    ['{00063006-0000-0000-C000-000000000046}']
    function  Get_Application: _Application; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: _NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_DefaultItemType: OlItemType; safecall;
    function  Get_DefaultMessageClass: WideString; safecall;
    function  Get_Description: WideString; safecall;
    procedure Set_Description(const Description: WideString); safecall;
    function  Get_EntryID: WideString; safecall;
    function  Get_Folders: _Folders; safecall;
    function  Get_Items: _Items; safecall;
    function  Get_Name: WideString; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    function  Get_StoreID: WideString; safecall;
    function  Get_UnReadItemCount: Integer; safecall;
    function  CopyTo(const DestinationFo