unit OutlookXP; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // PASTLWTR : 1.2 // File generated on 6/19/2002 4:58:17 PM from Type Library described below. // ************************************************************************ // // Type Lib: h:\typelib\typelib\typelibraries\OfficeXP\msoutl.olb (1) // LIBID: {00062FFF-0000-0000-C000-000000000046} // LCID: 0 // Helpfile: h:\typelib\typelib\typelibraries\OfficeXP\VBAOL10.CHM // HelpString: Microsoft Outlook 10.0 Object Library // DepndLst: // (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb) // (2) v2.2 Office, (C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL) // Errors: // Hint: Symbol 'Application' renamed to 'OutlookApplication' // Hint: Member 'Class' of 'Action' changed to 'Class_' // Hint: Parameter 'Class' of Action.Class changed to 'Class_' // Hint: Member 'Class' of '_Application' changed to 'Class_' // Hint: Parameter 'Class' of _Application.Class changed to 'Class_' // Hint: Parameter 'Object' of _Application.CreateObject changed to 'Object_' // Hint: Parameter 'Type' of _Application.GetNamespace changed to 'Type_' // Hint: Member 'Class' of '_NameSpace' changed to 'Class_' // Hint: Parameter 'Class' of _NameSpace.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of _NameSpace.Type changed to 'Type_' // Hint: Member 'Class' of 'Recipient' changed to 'Class_' // Hint: Parameter 'Class' of Recipient.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Recipient.Type changed to 'Type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Recipient.Type changed to 'Type_' // Hint: Member 'Class' of 'AddressEntry' changed to 'Class_' // Hint: Parameter 'Class' of AddressEntry.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of AddressEntry.Type changed to 'Type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of AddressEntry.Type changed to 'Type_' // Hint: Member 'Class' of 'AddressEntries' changed to 'Class_' // Hint: Parameter 'Class' of AddressEntries.Class changed to 'Class_' // Hint: Parameter 'Type' of AddressEntries.Add changed to 'Type_' // Hint: Parameter 'Property' of AddressEntries.Sort changed to 'Property_' // Hint: Member 'Class' of '_Folders' changed to 'Class_' // Hint: Parameter 'Class' of _Folders.Class changed to 'Class_' // Hint: Parameter 'Type' of _Folders.Add changed to 'Type_' // Hint: Member 'Class' of 'MAPIFolder' changed to 'Class_' // Hint: Parameter 'Class' of MAPIFolder.Class changed to 'Class_' // Hint: Member 'Class' of '_Items' changed to 'Class_' // Hint: Parameter 'Class' of _Items.Class changed to 'Class_' // Hint: Parameter 'Type' of _Items.Add changed to 'Type_' // Hint: Parameter 'Property' of _Items.Sort changed to 'Property_' // Hint: Member 'Class' of '_Explorer' changed to 'Class_' // Hint: Parameter 'Class' of _Explorer.Class changed to 'Class_' // Hint: Member 'Class' of 'Panes' changed to 'Class_' // Hint: Parameter 'Class' of Panes.Class changed to 'Class_' // Hint: Member 'Class' of 'Selection' changed to 'Class_' // Hint: Parameter 'Class' of Selection.Class changed to 'Class_' // Hint: Member 'Class' of 'View' changed to 'Class_' // Hint: Parameter 'Class' of View.Class changed to 'Class_' // Hint: Member 'Class' of '_Views' changed to 'Class_' // Hint: Parameter 'Class' of _Views.Class changed to 'Class_' // Hint: Member 'Class' of 'AddressLists' changed to 'Class_' // Hint: Parameter 'Class' of AddressLists.Class changed to 'Class_' // Hint: Member 'Class' of 'AddressList' changed to 'Class_' // Hint: Parameter 'Class' of AddressList.Class changed to 'Class_' // Hint: Member 'Class' of 'SyncObjects' changed to 'Class_' // Hint: Parameter 'Class' of SyncObjects.Class changed to 'Class_' // Hint: Member 'Class' of '_SyncObject' changed to 'Class_' // Hint: Parameter 'Class' of _SyncObject.Class changed to 'Class_' // Hint: Member 'Class' of '_Inspector' changed to 'Class_' // Hint: Parameter 'Class' of _Inspector.Class changed to 'Class_' // Hint: Member 'Class' of '_Explorers' changed to 'Class_' // Hint: Parameter 'Class' of _Explorers.Class changed to 'Class_' // Hint: Member 'Class' of '_Inspectors' changed to 'Class_' // Hint: Parameter 'Class' of _Inspectors.Class changed to 'Class_' // Hint: Member 'Class' of 'Search' changed to 'Class_' // Hint: Parameter 'Class' of Search.Class changed to 'Class_' // Hint: Member 'Class' of '_Results' changed to 'Class_' // Hint: Parameter 'Class' of _Results.Class changed to 'Class_' // Hint: Parameter 'Property' of _Results.Sort changed to 'Property_' // Hint: Member 'Class' of '_Reminders' changed to 'Class_' // Hint: Parameter 'Class' of _Reminders.Class changed to 'Class_' // Hint: Member 'Class' of '_Reminder' changed to 'Class_' // Hint: Parameter 'Class' of _Reminder.Class changed to 'Class_' // Hint: Member 'Class' of 'Actions' changed to 'Class_' // Hint: Parameter 'Class' of Actions.Class changed to 'Class_' // Hint: Member 'Class' of 'PropertyPages' changed to 'Class_' // Hint: Parameter 'Class' of PropertyPages.Class changed to 'Class_' // Hint: Member 'Class' of '_AppointmentItem' changed to 'Class_' // Hint: Parameter 'Class' of _AppointmentItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _AppointmentItem.SaveAs changed to 'Type_' // Hint: Member 'End' of '_AppointmentItem' changed to 'End_' // Hint: Parameter 'End' of _AppointmentItem.End changed to 'End_' // Hint: Parameter 'End' of _AppointmentItem.End changed to 'End_' // Hint: Member 'Class' of 'Attachments' changed to 'Class_' // Hint: Parameter 'Class' of Attachments.Class changed to 'Class_' // Hint: Parameter 'Type' of Attachments.Add changed to 'Type_' // Hint: Member 'Class' of 'Attachment' changed to 'Class_' // Hint: Parameter 'Class' of Attachment.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Attachment.Type changed to 'Type_' // Hint: Member 'Class' of 'FormDescription' changed to 'Class_' // Hint: Parameter 'Class' of FormDescription.Class changed to 'Class_' // Hint: Member 'Class' of 'UserProperties' changed to 'Class_' // Hint: Parameter 'Class' of UserProperties.Class changed to 'Class_' // Hint: Parameter 'Type' of UserProperties.Add changed to 'Type_' // Hint: Member 'Class' of 'UserProperty' changed to 'Class_' // Hint: Parameter 'Class' of UserProperty.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of UserProperty.Type changed to 'Type_' // Hint: Member 'Class' of 'Recipients' changed to 'Class_' // Hint: Parameter 'Class' of Recipients.Class changed to 'Class_' // Hint: Member 'Class' of '_MailItem' changed to 'Class_' // Hint: Parameter 'Class' of _MailItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _MailItem.SaveAs changed to 'Type_' // Hint: Member 'To' of '_MailItem' changed to 'To_' // Hint: Parameter 'To' of _MailItem.To changed to 'To_' // Hint: Parameter 'To' of _MailItem.To changed to 'To_' // Hint: Member 'Class' of 'Links' changed to 'Class_' // Hint: Parameter 'Class' of Links.Class changed to 'Class_' // Hint: Member 'Class' of 'Link' changed to 'Class_' // Hint: Parameter 'Class' of Link.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of Link.Type changed to 'Type_' // Hint: Member 'Class' of 'ItemProperties' changed to 'Class_' // Hint: Parameter 'Class' of ItemProperties.Class changed to 'Class_' // Hint: Parameter 'Type' of ItemProperties.Add changed to 'Type_' // Hint: Member 'Class' of 'ItemProperty' changed to 'Class_' // Hint: Parameter 'Class' of ItemProperty.Class changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of ItemProperty.Type changed to 'Type_' // Hint: Member 'Class' of 'RecurrencePattern' changed to 'Class_' // Hint: Parameter 'Class' of RecurrencePattern.Class changed to 'Class_' // Hint: Member 'Class' of 'Exceptions' changed to 'Class_' // Hint: Parameter 'Class' of Exceptions.Class changed to 'Class_' // Hint: Member 'Class' of 'Exception' changed to 'Class_' // Hint: Parameter 'Class' of Exception.Class changed to 'Class_' // Hint: Member 'Class' of '_MeetingItem' changed to 'Class_' // Hint: Parameter 'Class' of _MeetingItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _MeetingItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_ContactItem' changed to 'Class_' // Hint: Parameter 'Class' of _ContactItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _ContactItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_DistListItem' changed to 'Class_' // Hint: Parameter 'Class' of _DistListItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _DistListItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_DocumentItem' changed to 'Class_' // Hint: Parameter 'Class' of _DocumentItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _DocumentItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_JournalItem' changed to 'Class_' // Hint: Parameter 'Class' of _JournalItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _JournalItem.SaveAs changed to 'Type_' // Hint: Member 'End' of '_JournalItem' changed to 'End_' // Hint: Parameter 'End' of _JournalItem.End changed to 'End_' // Hint: Parameter 'End' of _JournalItem.End changed to 'End_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of _JournalItem.Type changed to 'Type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Parameter 'Type' of _JournalItem.Type changed to 'Type_' // Hint: Member 'Class' of '_NoteItem' changed to 'Class_' // Hint: Parameter 'Class' of _NoteItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _NoteItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of 'OutlookBarGroup' changed to 'Class_' // Hint: Parameter 'Class' of OutlookBarGroup.Class changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarShortcuts' changed to 'Class_' // Hint: Parameter 'Class' of _OutlookBarShortcuts.Class changed to 'Class_' // Hint: Member 'Class' of 'OutlookBarShortcut' changed to 'Class_' // Hint: Parameter 'Class' of OutlookBarShortcut.Class changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarGroups' changed to 'Class_' // Hint: Parameter 'Class' of _OutlookBarGroups.Class changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarPane' changed to 'Class_' // Hint: Parameter 'Class' of _OutlookBarPane.Class changed to 'Class_' // Hint: Member 'Class' of 'OutlookBarStorage' changed to 'Class_' // Hint: Parameter 'Class' of OutlookBarStorage.Class changed to 'Class_' // Hint: Member 'Class' of 'PropertyPageSite' changed to 'Class_' // Hint: Parameter 'Class' of PropertyPageSite.Class changed to 'Class_' // Hint: Member 'Class' of 'Pages' changed to 'Class_' // Hint: Parameter 'Class' of Pages.Class changed to 'Class_' // Hint: Member 'Class' of '_PostItem' changed to 'Class_' // Hint: Parameter 'Class' of _PostItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _PostItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_RemoteItem' changed to 'Class_' // Hint: Parameter 'Class' of _RemoteItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _RemoteItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_ReportItem' changed to 'Class_' // Hint: Parameter 'Class' of _ReportItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _ReportItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_TaskItem' changed to 'Class_' // Hint: Parameter 'Class' of _TaskItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _TaskItem.SaveAs changed to 'Type_' // Hint: Symbol 'Assign' renamed to 'Assign_' // Hint: Member 'Class' of '_TaskRequestAcceptItem' changed to 'Class_' // Hint: Parameter 'Class' of _TaskRequestAcceptItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _TaskRequestAcceptItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_TaskRequestDeclineItem' changed to 'Class_' // Hint: Parameter 'Class' of _TaskRequestDeclineItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _TaskRequestDeclineItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_TaskRequestItem' changed to 'Class_' // Hint: Parameter 'Class' of _TaskRequestItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _TaskRequestItem.SaveAs changed to 'Type_' // Hint: Member 'Class' of '_TaskRequestUpdateItem' changed to 'Class_' // Hint: Parameter 'Class' of _TaskRequestUpdateItem.Class changed to 'Class_' // Hint: Parameter 'Type' of _TaskRequestUpdateItem.SaveAs changed to 'Type_' // Hint: Symbol 'Application' renamed to 'OutlookApplication' // Hint: Member 'Class' of 'Action' changed to 'Class_' // Hint: Member 'Class' of '_Application' changed to 'Class_' // Hint: Member 'Class' of '_NameSpace' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'Recipient' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'AddressEntry' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'AddressEntries' changed to 'Class_' // Hint: Member 'Class' of '_Folders' changed to 'Class_' // Hint: Member 'Class' of 'MAPIFolder' changed to 'Class_' // Hint: Member 'Class' of '_Items' changed to 'Class_' // Hint: Member 'Class' of '_Explorer' changed to 'Class_' // Hint: Member 'Class' of 'Panes' changed to 'Class_' // Hint: Member 'Class' of 'Selection' changed to 'Class_' // Hint: Member 'Class' of 'View' changed to 'Class_' // Hint: Member 'Class' of '_Views' changed to 'Class_' // Hint: Member 'Class' of 'AddressLists' changed to 'Class_' // Hint: Member 'Class' of 'AddressList' changed to 'Class_' // Hint: Member 'Class' of 'SyncObjects' changed to 'Class_' // Hint: Member 'Class' of '_SyncObject' changed to 'Class_' // Hint: Member 'Class' of '_Inspector' changed to 'Class_' // Hint: Member 'Class' of '_Explorers' changed to 'Class_' // Hint: Member 'Class' of '_Inspectors' changed to 'Class_' // Hint: Member 'Class' of 'Search' changed to 'Class_' // Hint: Member 'Class' of '_Results' changed to 'Class_' // Hint: Member 'Class' of '_Reminders' changed to 'Class_' // Hint: Member 'Class' of '_Reminder' changed to 'Class_' // Hint: Member 'Class' of 'Actions' changed to 'Class_' // Hint: Member 'Class' of 'PropertyPages' changed to 'Class_' // Hint: Member 'Class' of '_AppointmentItem' changed to 'Class_' // Hint: Member 'End' of '_AppointmentItem' changed to 'End_' // Hint: Member 'Class' of 'Attachments' changed to 'Class_' // Hint: Member 'Class' of 'Attachment' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'FormDescription' changed to 'Class_' // Hint: Member 'Class' of 'UserProperties' changed to 'Class_' // Hint: Member 'Class' of 'UserProperty' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'Recipients' changed to 'Class_' // Hint: Member 'Class' of '_MailItem' changed to 'Class_' // Hint: Member 'To' of '_MailItem' changed to 'To_' // Hint: Member 'Class' of 'Links' changed to 'Class_' // Hint: Member 'Class' of 'Link' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'ItemProperties' changed to 'Class_' // Hint: Member 'Class' of 'ItemProperty' changed to 'Class_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of 'RecurrencePattern' changed to 'Class_' // Hint: Member 'Class' of 'Exceptions' changed to 'Class_' // Hint: Member 'Class' of 'Exception' changed to 'Class_' // Hint: Member 'Class' of '_MeetingItem' changed to 'Class_' // Hint: Member 'Class' of '_ContactItem' changed to 'Class_' // Hint: Member 'Class' of '_DistListItem' changed to 'Class_' // Hint: Member 'Class' of '_DocumentItem' changed to 'Class_' // Hint: Member 'Class' of '_JournalItem' changed to 'Class_' // Hint: Member 'End' of '_JournalItem' changed to 'End_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Symbol 'Type' renamed to 'type_' // Hint: Member 'Class' of '_NoteItem' changed to 'Class_' // Hint: Member 'Class' of 'OutlookBarGroup' changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarShortcuts' changed to 'Class_' // Hint: Member 'Class' of 'OutlookBarShortcut' changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarGroups' changed to 'Class_' // Hint: Member 'Class' of '_OutlookBarPane' changed to 'Class_' // Hint: Member 'Class' of 'OutlookBarStorage' changed to 'Class_' // Hint: Member 'Class' of 'PropertyPageSite' changed to 'Class_' // Hint: Member 'Class' of 'Pages' changed to 'Class_' // Hint: Member 'Class' of '_PostItem' changed to 'Class_' // Hint: Member 'Class' of '_RemoteItem' changed to 'Class_' // Hint: Member 'Class' of '_ReportItem' changed to 'Class_' // Hint: Member 'Class' of '_TaskItem' changed to 'Class_' // Hint: Symbol 'Assign' renamed to 'Assign_' // Hint: Member 'Class' of '_TaskRequestAcceptItem' changed to 'Class_' // Hint: Member 'Class' of '_TaskRequestDeclineItem' changed to 'Class_' // Hint: Member 'Class' of '_TaskRequestItem' changed to 'Class_' // Hint: Member 'Class' of '_TaskRequestUpdateItem' changed to 'Class_' // Error creating palette bitmap of (TDataSourceObject) : Registry key CLSID\{0006F02C-0000-0000-C000-000000000046}\ToolboxBitmap32 not found // ************************************************************************ // // *************************************************************************// // NOTE: // Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties // which return objects that may need to be explicitly created via a function // call prior to any access via the property. These items have been disabled // in order to prevent accidental use from within the object inspector. You // may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively // removing them from the $IFDEF blocks. However, such items must still be // programmatically created via a method of the appropriate CoClass before // they can be used. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. //{$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} //{$VARPROPSETTER ON} interface uses Windows, ActiveX, Classes, DBOleCtl, Graphics, OfficeXP, OleCtrls, OleServer, StdVCL; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions OutlookMajorVersion = 9; OutlookMinorVersion = 1; LIBID_Outlook: TGUID = '{00062FFF-0000-0000-C000-000000000046}'; IID_Action: TGUID = '{00063043-0000-0000-C000-000000000046}'; IID__Application: TGUID = '{00063001-0000-0000-C000-000000000046}'; IID__NameSpace: TGUID = '{00063002-0000-0000-C000-000000000046}'; IID_Recipient: TGUID = '{00063045-0000-0000-C000-000000000046}'; IID_AddressEntry: TGUID = '{0006304B-0000-0000-C000-000000000046}'; IID_AddressEntries: TGUID = '{0006304A-0000-0000-C000-000000000046}'; IID__Folders: TGUID = '{00063040-0000-0000-C000-000000000046}'; IID_MAPIFolder: TGUID = '{00063006-0000-0000-C000-000000000046}'; IID__Items: TGUID = '{00063041-0000-0000-C000-000000000046}'; IID__Explorer: TGUID = '{00063003-0000-0000-C000-000000000046}'; IID_Panes: TGUID = '{00063009-0000-0000-C000-000000000046}'; IID_Selection: TGUID = '{00063087-0000-0000-C000-000000000046}'; IID_View: TGUID = '{00063095-0000-0000-C000-000000000046}'; IID__Views: TGUID = '{0006308D-0000-0000-C000-000000000046}'; IID_AddressLists: TGUID = '{00063048-0000-0000-C000-000000000046}'; IID_AddressList: TGUID = '{00063049-0000-0000-C000-000000000046}'; IID_SyncObjects: TGUID = '{00063086-0000-0000-C000-000000000046}'; IID__SyncObject: TGUID = '{00063083-0000-0000-C000-000000000046}'; DIID_SyncObjectEvents: TGUID = '{00063085-0000-0000-C000-000000000046}'; CLASS_SyncObject: TGUID = '{00063084-0000-0000-C000-000000000046}'; IID__Inspector: TGUID = '{00063005-0000-0000-C000-000000000046}'; IID__Explorers: TGUID = '{0006300A-0000-0000-C000-000000000046}'; DIID_ExplorerEvents: TGUID = '{0006304F-0000-0000-C000-000000000046}'; DIID_ExplorerEvents_10: TGUID = '{0006300F-0000-0000-C000-000000000046}'; CLASS_Explorer: TGUID = '{00063050-0000-0000-C000-000000000046}'; IID__Inspectors: TGUID = '{00063008-0000-0000-C000-000000000046}'; DIID_InspectorEvents: TGUID = '{0006307D-0000-0000-C000-000000000046}'; DIID_InspectorEvents_10: TGUID = '{0006302A-0000-0000-C000-000000000046}'; CLASS_Inspector: TGUID = '{00063058-0000-0000-C000-000000000046}'; IID_Search: TGUID = '{0006300B-0000-0000-C000-000000000046}'; IID__Results: TGUID = '{0006300C-0000-0000-C000-000000000046}'; IID__Reminders: TGUID = '{000630B1-0000-0000-C000-000000000046}'; IID__Reminder: TGUID = '{000630B0-0000-0000-C000-000000000046}'; IID_Actions: TGUID = '{0006303E-0000-0000-C000-000000000046}'; DIID_ApplicationEvents: TGUID = '{0006304E-0000-0000-C000-000000000046}'; IID_PropertyPages: TGUID = '{00063080-0000-0000-C000-000000000046}'; IID__AppointmentItem: TGUID = '{00063033-0000-0000-C000-000000000046}'; IID_Attachments: TGUID = '{0006303C-0000-0000-C000-000000000046}'; IID_Attachment: TGUID = '{00063007-0000-0000-C000-000000000046}'; IID_FormDescription: TGUID = '{00063046-0000-0000-C000-000000000046}'; IID_UserProperties: TGUID = '{0006303D-0000-0000-C000-000000000046}'; IID_UserProperty: TGUID = '{00063042-0000-0000-C000-000000000046}'; IID_Recipients: TGUID = '{0006303B-0000-0000-C000-000000000046}'; IID__MailItem: TGUID = '{00063034-0000-0000-C000-000000000046}'; DIID_ItemEvents: TGUID = '{0006303A-0000-0000-C000-000000000046}'; IID_Links: TGUID = '{0006308A-0000-0000-C000-000000000046}'; IID_Link: TGUID = '{00063089-0000-0000-C000-000000000046}'; IID_ItemProperties: TGUID = '{000630A8-0000-0000-C000-000000000046}'; IID_ItemProperty: TGUID = '{000630A7-0000-0000-C000-000000000046}'; DIID_ItemEvents_10: TGUID = '{0006302B-0000-0000-C000-000000000046}'; CLASS_MailItem: TGUID = '{00061033-0000-0000-C000-000000000046}'; IID_RecurrencePattern: TGUID = '{00063044-0000-0000-C000-000000000046}'; IID_Exceptions: TGUID = '{0006304C-0000-0000-C000-000000000046}'; IID_Exception: TGUID = '{0006304D-0000-0000-C000-000000000046}'; CLASS_AppointmentItem: TGUID = '{00061030-0000-0000-C000-000000000046}'; IID__MeetingItem: TGUID = '{00063062-0000-0000-C000-000000000046}'; CLASS_MeetingItem: TGUID = '{00061036-0000-0000-C000-000000000046}'; IID__ContactItem: TGUID = '{00063021-0000-0000-C000-000000000046}'; IID__DistListItem: TGUID = '{00063081-0000-0000-C000-000000000046}'; IID__DocumentItem: TGUID = '{00063020-0000-0000-C000-000000000046}'; DIID_ExplorersEvents: TGUID = '{00063078-0000-0000-C000-000000000046}'; DIID_FoldersEvents: TGUID = '{00063076-0000-0000-C000-000000000046}'; DIID_InspectorsEvents: TGUID = '{00063079-0000-0000-C000-000000000046}'; DIID_ItemsEvents: TGUID = '{00063077-0000-0000-C000-000000000046}'; IID__JournalItem: TGUID = '{00063022-0000-0000-C000-000000000046}'; DIID_NameSpaceEvents: TGUID = '{0006308C-0000-0000-C000-000000000046}'; IID__NoteItem: TGUID = '{00063025-0000-0000-C000-000000000046}'; IID_OutlookBarGroup: TGUID = '{00063073-0000-0000-C000-000000000046}'; IID__OutlookBarShortcuts: TGUID = '{00063074-0000-0000-C000-000000000046}'; IID_OutlookBarShortcut: TGUID = '{00063075-0000-0000-C000-000000000046}'; IID__OutlookBarGroups: TGUID = '{00063072-0000-0000-C000-000000000046}'; DIID_OutlookBarGroupsEvents: TGUID = '{0006307B-0000-0000-C000-000000000046}'; IID__OutlookBarPane: TGUID = '{00063070-0000-0000-C000-000000000046}'; IID_OutlookBarStorage: TGUID = '{00063071-0000-0000-C000-000000000046}'; DIID_OutlookBarPaneEvents: TGUID = '{0006307A-0000-0000-C000-000000000046}'; DIID_OutlookBarShortcutsEvents: TGUID = '{0006307C-0000-0000-C000-000000000046}'; IID_PropertyPage: TGUID = '{0006307E-0000-0000-C000-000000000046}'; IID_PropertyPageSite: TGUID = '{0006307F-0000-0000-C000-000000000046}'; IID_Pages: TGUID = '{0006303F-0000-0000-C000-000000000046}'; IID__PostItem: TGUID = '{00063024-0000-0000-C000-000000000046}'; IID__RemoteItem: TGUID = '{00063023-0000-0000-C000-000000000046}'; IID__ReportItem: TGUID = '{00063026-0000-0000-C000-000000000046}'; IID__TaskItem: TGUID = '{00063035-0000-0000-C000-000000000046}'; CLASS_TaskItem: TGUID = '{00061032-0000-0000-C000-000000000046}'; IID__TaskRequestAcceptItem: TGUID = '{00063038-0000-0000-C000-000000000046}'; IID__TaskRequestDeclineItem: TGUID = '{00063039-0000-0000-C000-000000000046}'; IID__TaskRequestItem: TGUID = '{00063036-0000-0000-C000-000000000046}'; IID__TaskRequestUpdateItem: TGUID = '{00063037-0000-0000-C000-000000000046}'; DIID_ApplicationEvents_10: TGUID = '{0006300E-0000-0000-C000-000000000046}'; DIID_ResultsEvents: TGUID = '{0006300D-0000-0000-C000-000000000046}'; DIID__ViewsEvents: TGUID = '{000630A5-0000-0000-C000-000000000046}'; DIID_ReminderCollectionEvents: TGUID = '{000630B2-0000-0000-C000-000000000046}'; CLASS_OutlookApplication: TGUID = '{0006F03A-0000-0000-C000-000000000046}'; CLASS_ContactItem: TGUID = '{00061031-0000-0000-C000-000000000046}'; CLASS_DistListItem: TGUID = '{0006103C-0000-0000-C000-000000000046}'; CLASS_DocumentItem: TGUID = '{00061061-0000-0000-C000-000000000046}'; CLASS_Explorers: TGUID = '{00063053-0000-0000-C000-000000000046}'; CLASS_Inspectors: TGUID = '{00063054-0000-0000-C000-000000000046}'; CLASS_Folders: TGUID = '{00063051-0000-0000-C000-000000000046}'; CLASS_Items: TGUID = '{00063052-0000-0000-C000-000000000046}'; CLASS_JournalItem: TGUID = '{00061037-0000-0000-C000-000000000046}'; CLASS_NameSpace: TGUID = '{0006308B-0000-0000-C000-000000000046}'; CLASS_NoteItem: TGUID = '{00061034-0000-0000-C000-000000000046}'; CLASS_OutlookBarGroups: TGUID = '{00063056-0000-0000-C000-000000000046}'; CLASS_OutlookBarPane: TGUID = '{00063055-0000-0000-C000-000000000046}'; CLASS_OutlookBarShortcuts: TGUID = '{00063057-0000-0000-C000-000000000046}'; CLASS_PostItem: TGUID = '{0006103A-0000-0000-C000-000000000046}'; CLASS_RemoteItem: TGUID = '{00061060-0000-0000-C000-000000000046}'; CLASS_ReportItem: TGUID = '{00061035-0000-0000-C000-000000000046}'; CLASS_TaskRequestAcceptItem: TGUID = '{00061052-0000-0000-C000-000000000046}'; CLASS_TaskRequestDeclineItem: TGUID = '{00061053-0000-0000-C000-000000000046}'; CLASS_TaskRequestItem: TGUID = '{00061050-0000-0000-C000-000000000046}'; CLASS_TaskRequestUpdateItem: TGUID = '{00061051-0000-0000-C000-000000000046}'; IID__IRecipientControl: TGUID = '{D87E7E16-6897-11CE-A6C0-00AA00608FAA}'; DIID__DRecipientControl: TGUID = '{0006F025-0000-0000-C000-000000000046}'; DIID__DRecipientControlEvents: TGUID = '{D87E7E17-6897-11CE-A6C0-00AA00608FAA}'; CLASS__RecipientControl: TGUID = '{0006F023-0000-0000-C000-000000000046}'; IID__IDocSiteControl: TGUID = '{43507DD0-811D-11CE-B565-00AA00608FAA}'; DIID__DDocSiteControl: TGUID = '{0006F026-0000-0000-C000-000000000046}'; DIID__DDocSiteControlEvents: TGUID = '{50BB9B50-811D-11CE-B565-00AA00608FAA}'; CLASS__DocSiteControl: TGUID = '{0006F024-0000-0000-C000-000000000046}'; IID__IDpxCtrl: TGUID = '{0006F097-0000-0000-C000-000000000046}'; CLASS__DpxCtrl: TGUID = '{0006F099-0000-0000-C000-000000000046}'; IID__IPageWrapCtrl: TGUID = '{494F0970-DD96-11D2-AF70-006008AFF117}'; DIID__DPageWrapCtrl: TGUID = '{0006F096-0000-0000-C000-000000000046}'; DIID__DPageWrapCtrlEvents: TGUID = '{494F0971-DD96-11D2-AF70-006008AFF117}'; CLASS__PageWrapCtrl: TGUID = '{0006F098-0000-0000-C000-000000000046}'; IID__IInspectorCtrl: TGUID = '{E182A127-EADD-46E1-B878-482C48CD8754}'; DIID__DInspectorCtrl: TGUID = '{0006F09D-0000-0000-C000-000000000046}'; DIID__DInspectorEvents: TGUID = '{2D9C6D57-BD3C-4275-BED2-73F0EDC18CCE}'; CLASS__InspectorCtrl: TGUID = '{0006F09C-0000-0000-C000-000000000046}'; DIID_DDataSourceObject: TGUID = '{11858B51-DE06-494E-915A-6CCEF17F7CB6}'; CLASS_DataSourceObject: TGUID = '{0006F02C-0000-0000-C000-000000000046}'; CLASS_Results: TGUID = '{00061039-0000-0000-C000-000000000046}'; CLASS_Views: TGUID = '{0006F027-0000-0000-C000-000000000046}'; CLASS_Reminder: TGUID = '{0006F028-0000-0000-C000-000000000046}'; CLASS_Reminders: TGUID = '{0006F029-0000-0000-C000-000000000046}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum OlActionCopyLike type OlActionCopyLike = TOleEnum; const olReply = $00000000; olReplyAll = $00000001; olForward = $00000002; olReplyFolder = $00000003; olRespond = $00000004; // Constants for enum OlActionReplyStyle type OlActionReplyStyle = TOleEnum; const olOmitOriginalText = $00000000; olEmbedOriginalItem = $00000001; olIncludeOriginalText = $00000002; olIndentOriginalText = $00000003; olLinkOriginalItem = $00000004; olUserPreference = $00000005; olReplyTickOriginalText = $000003E8; // Constants for enum OlActionResponseStyle type OlActionResponseStyle = TOleEnum; const olOpen = $00000000; olSend = $00000001; olPrompt = $00000002; // Constants for enum OlActionShowOn type OlActionShowOn = TOleEnum; const olDontShow = $00000000; olMenu = $00000001; olMenuAndToolbar = $00000002; // Constants for enum OlAttachmentType type OlAttachmentType = TOleEnum; const olByValue = $00000001; olByReference = $00000004; olEmbeddeditem = $00000005; olOLE = $00000006; // Constants for enum OlBusyStatus type OlBusyStatus = TOleEnum; const olFree = $00000000; olTentative = $00000001; olBusy = $00000002; olOutOfOffice = $00000003; // Constants for enum OlDaysOfWeek type OlDaysOfWeek = TOleEnum; const olSunday = $00000001; olMonday = $00000002; olTuesday = $00000004; olWednesday = $00000008; olThursday = $00000010; olFriday = $00000020; olSaturday = $00000040; // Constants for enum OlDefaultFolders type OlDefaultFolders = TOleEnum; const olFolderDeletedItems = $00000003; olFolderOutbox = $00000004; olFolderSentMail = $00000005; olFolderInbox = $00000006; olFolderCalendar = $00000009; olFolderContacts = $0000000A; olFolderJournal = $0000000B; olFolderNotes = $0000000C; olFolderTasks = $0000000D; olFolderDrafts = $00000010; olPublicFoldersAllPublicFolders = $00000012; // Constants for enum OlDisplayType type OlDisplayType = TOleEnum; const olUser = $00000000; olDistList = $00000001; olForum = $00000002; olAgent = $00000003; olOrganization = $00000004; olPrivateDistList = $00000005; olRemoteUser = $00000006; // Constants for enum OlEditorType type OlEditorType = TOleEnum; const olEditorText = $00000001; olEditorHTML = $00000002; olEditorRTF = $00000003; olEditorWord = $00000004; // Constants for enum OlFlagStatus type OlFlagStatus = TOleEnum; const olNoFlag = $00000000; olFlagComplete = $00000001; olFlagMarked = $00000002; // Constants for enum OlFolderDisplayMode type OlFolderDisplayMode = TOleEnum; const olFolderDisplayNormal = $00000000; olFolderDisplayFolderOnly = $00000001; olFolderDisplayNoNavigation = $00000002; // Constants for enum OlFormRegistry type OlFormRegistry = TOleEnum; const olDefaultRegistry = $00000000; olPersonalRegistry = $00000002; olFolderRegistry = $00000003; olOrganizationRegistry = $00000004; // Constants for enum OlGender type OlGender = TOleEnum; const olUnspecified = $00000000; olFemale = $00000001; olMale = $00000002; // Constants for enum OlImportance type OlImportance = TOleEnum; const olImportanceLow = $00000000; olImportanceNormal = $00000001; olImportanceHigh = $00000002; // Constants for enum OlInspectorClose type OlInspectorClose = TOleEnum; const olSave = $00000000; olDiscard = $00000001; olPromptForSave = $00000002; // Constants for enum OlItemType type OlItemType = TOleEnum; const olMailItem = $00000000; olAppointmentItem = $00000001; olContactItem = $00000002; olTaskItem = $00000003; olJournalItem = $00000004; olNoteItem = $00000005; olPostItem = $00000006; olDistributionListItem = $00000007; // Constants for enum OlJournalRecipientType type OlJournalRecipientType = TOleEnum; const olAssociatedContact = $00000001; // Constants for enum OlMailingAddress type OlMailingAddress = TOleEnum; const olNone = $00000000; olHome = $00000001; olBusiness = $00000002; olOther = $00000003; // Constants for enum OlMailRecipientType type OlMailRecipientType = TOleEnum; const olOriginator = $00000000; olTo = $00000001; olCC = $00000002; olBCC = $00000003; // Constants for enum OlMeetingRecipientType type OlMeetingRecipientType = TOleEnum; const olOrganizer = $00000000; olRequired = $00000001; olOptional = $00000002; olResource = $00000003; // Constants for enum OlMeetingResponse type OlMeetingResponse = TOleEnum; const olMeetingTentative = $00000002; olMeetingAccepted = $00000003; olMeetingDeclined = $00000004; // Constants for enum OlMeetingStatus type OlMeetingStatus = TOleEnum; const olNonMeeting = $00000000; olMeeting = $00000001; olMeetingReceived = $00000003; olMeetingCanceled = $00000005; // Constants for enum OlNetMeetingType type OlNetMeetingType = TOleEnum; const olNetMeeting = $00000000; olNetShow = $00000001; olExchangeConferencing = $00000002; // Constants for enum OlNoteColor type OlNoteColor = TOleEnum; const olBlue = $00000000; olGreen = $00000001; olPink = $00000002; olYellow = $00000003; olWhite = $00000004; // Constants for enum OlObjectClass type OlObjectClass = TOleEnum; const olApplication = $00000000; olNamespace = $00000001; olFolder = $00000002; olRecipient = $00000004; olAttachment = $00000005; olAddressList = $00000007; olAddressEntry = $00000008; olFolders = $0000000F; olItems = $00000010; olRecipients = $00000011; olAttachments = $00000012; olAddressLists = $00000014; olAddressEntries = $00000015; olAppointment = $0000001A; olMeetingRequest = $00000035; olMeetingCancellation = $00000036; olMeetingResponseNegative = $00000037; olMeetingResponsePositive = $00000038; olMeetingResponseTentative = $00000039; olRecurrencePattern = $0000001C; olExceptions = $0000001D; olException = $0000001E; olAction = $00000020; olActions = $00000021; olExplorer = $00000022; olInspector = $00000023; olPages = $00000024; olFormDescription = $00000025; olUserProperties = $00000026; olUserProperty = $00000027; olContact = $00000028; olDocument = $00000029; olJournal = $0000002A; olMail = $0000002B; olNote = $0000002C; olPost = $0000002D; olReport = $0000002E; olRemote = $0000002F; olTask = $00000030; olTaskRequest = $00000031; olTaskRequestUpdate = $00000032; olTaskRequestAccept = $00000033; olTaskRequestDecline = $00000034; olExplorers = $0000003C; olInspectors = $0000003D; olPanes = $0000003E; olOutlookBarPane = $0000003F; olOutlookBarStorage = $00000040; olOutlookBarGroups = $00000041; olOutlookBarGroup = $00000042; olOutlookBarShortcuts = $00000043; olOutlookBarShortcut = $00000044; olDistributionList = $00000045; olPropertyPageSite = $00000046; olPropertyPages = $00000047; olSyncObject = $00000048; olSyncObjects = $00000049; olSelection = $0000004A; olLink = $0000004B; olLinks = $0000004C; olSearch = $0000004D; olResults = $0000004E; olViews = $0000004F; olView = $00000050; olItemProperties = $00000062; olItemProperty = $00000063; olReminders = $00000064; olReminder = $00000065; // Constants for enum OlOutlookBarViewType type OlOutlookBarViewType = TOleEnum; const olLargeIcon = $00000000; olSmallIcon = $00000001; // Constants for enum OlPane type OlPane = TOleEnum; const olOutlookBar = $00000001; olFolderList = $00000002; olPreview = $00000003; // Constants for enum OlRecurrenceState type OlRecurrenceState = TOleEnum; const olApptNotRecurring = $00000000; olApptMaster = $00000001; olApptOccurrence = $00000002; olApptException = $00000003; // Constants for enum OlRecurrenceType type OlRecurrenceType = TOleEnum; const olRecursDaily = $00000000; olRecursWeekly = $00000001; olRecursMonthly = $00000002; olRecursMonthNth = $00000003; olRecursYearly = $00000005; olRecursYearNth = $00000006; // Constants for enum OlRemoteStatus type OlRemoteStatus = TOleEnum; const olRemoteStatusNone = $00000000; olUnMarked = $00000001; olMarkedForDownload = $00000002; olMarkedForCopy = $00000003; olMarkedForDelete = $00000004; // Constants for enum OlResponseStatus type OlResponseStatus = TOleEnum; const olResponseNone = $00000000; olResponseOrganized = $00000001; olResponseTentative = $00000002; olResponseAccepted = $00000003; olResponseDeclined = $00000004; olResponseNotResponded = $00000005; // Constants for enum OlSaveAsType type OlSaveAsType = TOleEnum; const olTXT = $00000000; olRTF = $00000001; olTemplate = $00000002; olMSG = $00000003; olDoc = $00000004; olHTML = $00000005; olVCard = $00000006; olVCal = $00000007; olICal = $00000008; // Constants for enum OlSensitivity type OlSensitivity = TOleEnum; const olNormal = $00000000; olPersonal = $00000001; olPrivate = $00000002; olConfidential = $00000003; // Constants for enum OlSortOrder type OlSortOrder = TOleEnum; const olSortNone = $00000000; olAscending = $00000001; olDescending = $00000002; // Constants for enum OlTaskDelegationState type OlTaskDelegationState = TOleEnum; const olTaskNotDelegated = $00000000; olTaskDelegationUnknown = $00000001; olTaskDelegationAccepted = $00000002; olTaskDelegationDeclined = $00000003; // Constants for enum OlTaskOwnership type OlTaskOwnership = TOleEnum; const olNewTask = $00000000; olDelegatedTask = $00000001; olOwnTask = $00000002; // Constants for enum OlTaskRecipientType type OlTaskRecipientType = TOleEnum; const olUpdate = $00000002; olFinalStatus = $00000003; // Constants for enum OlTaskResponse type OlTaskResponse = TOleEnum; const olTaskSimple = $00000000; olTaskAssign = $00000001; olTaskAccept = $00000002; olTaskDecline = $00000003; // Constants for enum OlTaskStatus type OlTaskStatus = TOleEnum; const olTaskNotStarted = $00000000; olTaskInProgress = $00000001; olTaskComplete = $00000002; olTaskWaiting = $00000003; olTaskDeferred = $00000004; // Constants for enum OlTrackingStatus type OlTrackingStatus = TOleEnum; const olTrackingNone = $00000000; olTrackingDelivered = $00000001; olTrackingNotDelivered = $00000002; olTrackingNotRead = $00000003; olTrackingRecallFailure = $00000004; olTrackingRecallSuccess = $00000005; olTrackingRead = $00000006; olTrackingReplied = $00000007; // Constants for enum OlUserPropertyType type OlUserPropertyType = TOleEnum; const olOutlookInternal = $00000000; olText = $00000001; olNumber = $00000003; olDateTime = $00000005; olYesNo = $00000006; olDuration = $00000007; olKeywords = $0000000B; olPercent = $0000000C; olCurrency = $0000000E; olFormula = $00000012; olCombination = $00000013; // Constants for enum OlWindowState type OlWindowState = TOleEnum; const olMaximized = $00000000; olMinimized = $00000001; olNormalWindow = $00000002; // Constants for enum OlSyncState type OlSyncState = TOleEnum; const olSyncStopped = $00000000; olSyncStarted = $00000001; // Constants for enum OlBodyFormat type OlBodyFormat = TOleEnum; const olFormatUnspecified = $00000000; olFormatPlain = $00000001; olFormatHTML = $00000002; olFormatRichText = $00000003; // Constants for enum OlDownloadState type OlDownloadState = TOleEnum; const olHeaderOnly = $00000000; olFullItem = $00000001; // Constants for enum OlOfficeDocItemsType type OlOfficeDocItemsType = TOleEnum; const olExcelWorkSheetItem = $00000008; olWordDocumentItem = $00000009; olPowerPointShowItem = $0000000A; // Constants for enum OlViewSaveOption type OlViewSaveOption = TOleEnum; const olViewSaveOptionThisFolderEveryone = $00000000; olViewSaveOptionThisFolderOnlyMe = $00000001; olViewSaveOptionAllFoldersOfType = $00000002; // Constants for enum OlViewType type OlViewType = TOleEnum; const olTableView = $00000000; olCardView = $00000001; olCalendarView = $00000002; olIconView = $00000003; olTimelineView = $00000004; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// Action = interface; ActionDisp = dispinterface; _Application = interface; _ApplicationDisp = dispinterface; _NameSpace = interface; _NameSpaceDisp = dispinterface; Recipient = interface; RecipientDisp = dispinterface; AddressEntry = interface; AddressEntryDisp = dispinterface; AddressEntries = interface; AddressEntriesDisp = dispinterface; _Folders = interface; _FoldersDisp = dispinterface; MAPIFolder = interface; MAPIFolderDisp = dispinterface; _Items = interface; _ItemsDisp = dispinterface; _Explorer = interface; _ExplorerDisp = dispinterface; Panes = interface; PanesDisp = dispinterface; Selection = interface; SelectionDisp = dispinterface; View = interface; ViewDisp = dispinterface; _Views = interface; _ViewsDisp = dispinterface; AddressLists = interface; AddressListsDisp = dispinterface; AddressList = interface; AddressListDisp = dispinterface; SyncObjects = interface; SyncObjectsDisp = dispinterface; _SyncObject = interface; _SyncObjectDisp = dispinterface; SyncObjectEvents = dispinterface; _Inspector = interface; _InspectorDisp = dispinterface; _Explorers = interface; _ExplorersDisp = dispinterface; ExplorerEvents = dispinterface; ExplorerEvents_10 = dispinterface; _Inspectors = interface; _InspectorsDisp = dispinterface; InspectorEvents = dispinterface; InspectorEvents_10 = dispinterface; Search = interface; SearchDisp = dispinterface; _Results = interface; _ResultsDisp = dispinterface; _Reminders = interface; _RemindersDisp = dispinterface; _Reminder = interface; _ReminderDisp = dispinterface; Actions = interface; ActionsDisp = dispinterface; ApplicationEvents = dispinterface; PropertyPages = interface; PropertyPagesDisp = dispinterface; _AppointmentItem = interface; _AppointmentItemDisp = dispinterface; Attachments = interface; AttachmentsDisp = dispinterface; Attachment = interface; AttachmentDisp = dispinterface; FormDescription = interface; FormDescriptionDisp = dispinterface; UserProperties = interface; UserPropertiesDisp = dispinterface; UserProperty = interface; UserPropertyDisp = dispinterface; Recipients = interface; RecipientsDisp = dispinterface; _MailItem = interface; _MailItemDisp = dispinterface; ItemEvents = dispinterface; Links = interface; LinksDisp = dispinterface; Link = interface; LinkDisp = dispinterface; ItemProperties = interface; ItemPropertiesDisp = dispinterface; ItemProperty = interface; ItemPropertyDisp = dispinterface; ItemEvents_10 = dispinterface; RecurrencePattern = interface; RecurrencePatternDisp = dispinterface; Exceptions = interface; ExceptionsDisp = dispinterface; Exception = interface; ExceptionDisp = dispinterface; _MeetingItem = interface; _MeetingItemDisp = dispinterface; _ContactItem = interface; _ContactItemDisp = dispinterface; _DistListItem = interface; _DistListItemDisp = dispinterface; _DocumentItem = interface; _DocumentItemDisp = dispinterface; ExplorersEvents = dispinterface; FoldersEvents = dispinterface; InspectorsEvents = dispinterface; ItemsEvents = dispinterface; _JournalItem = interface; _JournalItemDisp = dispinterface; NameSpaceEvents = dispinterface; _NoteItem = interface; _NoteItemDisp = dispinterface; OutlookBarGroup = interface; OutlookBarGroupDisp = dispinterface; _OutlookBarShortcuts = interface; _OutlookBarShortcutsDisp = dispinterface; OutlookBarShortcut = interface; OutlookBarShortcutDisp = dispinterface; _OutlookBarGroups = interface; _OutlookBarGroupsDisp = dispinterface; OutlookBarGroupsEvents = dispinterface; _OutlookBarPane = interface; _OutlookBarPaneDisp = dispinterface; OutlookBarStorage = interface; OutlookBarStorageDisp = dispinterface; OutlookBarPaneEvents = dispinterface; OutlookBarShortcutsEvents = dispinterface; PropertyPage = interface; PropertyPageSite = interface; PropertyPageSiteDisp = dispinterface; Pages = interface; PagesDisp = dispinterface; _PostItem = interface; _PostItemDisp = dispinterface; _RemoteItem = interface; _RemoteItemDisp = dispinterface; _ReportItem = interface; _ReportItemDisp = dispinterface; _TaskItem = interface; _TaskItemDisp = dispinterface; _TaskRequestAcceptItem = interface; _TaskRequestAcceptItemDisp = dispinterface; _TaskRequestDeclineItem = interface; _TaskRequestDeclineItemDisp = dispinterface; _TaskRequestItem = interface; _TaskRequestItemDisp = dispinterface; _TaskRequestUpdateItem = interface; _TaskRequestUpdateItemDisp = dispinterface; ApplicationEvents_10 = dispinterface; ResultsEvents = dispinterface; _ViewsEvents = dispinterface; ReminderCollectionEvents = dispinterface; _IRecipientControl = interface; _DRecipientControl = dispinterface; _DRecipientControlEvents = dispinterface; _IDocSiteControl = interface; _DDocSiteControl = dispinterface; _DDocSiteControlEvents = dispinterface; _IDpxCtrl = interface; _IDpxCtrlDisp = dispinterface; _IPageWrapCtrl = interface; _DPageWrapCtrl = dispinterface; _DPageWrapCtrlEvents = dispinterface; _IInspectorCtrl = interface; _DInspectorCtrl = dispinterface; _DInspectorEvents = dispinterface; DDataSourceObject = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// SyncObject = _SyncObject; Explorer = _Explorer; Inspector = _Inspector; MailItem = _MailItem; AppointmentItem = _AppointmentItem; MeetingItem = _MeetingItem; TaskItem = _TaskItem; OutlookApplication = _Application; ContactItem = _ContactItem; DistListItem = _DistListItem; DocumentItem = _DocumentItem; Explorers = _Explorers; Inspectors = _Inspectors; Folders = _Folders; Items = _Items; JournalItem = _JournalItem; NameSpace = _NameSpace; NoteItem = _NoteItem; OutlookBarGroups = _OutlookBarGroups; OutlookBarPane = _OutlookBarPane; OutlookBarShortcuts = _OutlookBarShortcuts; PostItem = _PostItem; RemoteItem = _RemoteItem; ReportItem = _ReportItem; TaskRequestAcceptItem = _TaskRequestAcceptItem; TaskRequestDeclineItem = _TaskRequestDeclineItem; TaskRequestItem = _TaskRequestItem; TaskRequestUpdateItem = _TaskRequestUpdateItem; _RecipientControl = _DRecipientControl; _DocSiteControl = _DDocSiteControl; _DpxCtrl = _IDpxCtrl; _PageWrapCtrl = _DPageWrapCtrl; _InspectorCtrl = _DInspectorCtrl; DataSourceObject = DDataSourceObject; Results = _Results; Views = _Views; Reminder = _Reminder; Reminders = _Reminders; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// POleVariant1 = ^OleVariant; {*} PWordBool1 = ^WordBool; {*} PUserType1 = ^TGUID; {*} PShortint1 = ^Shortint; {*} PPShortint1 = ^PShortint1; {*} PUserType2 = ^DISPPARAMS; {*} // *********************************************************************// // Interface: Action // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063043-0000-0000-C000-000000000046} // *********************************************************************// Action = interface(IDispatch) ['{00063043-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_CopyLike: OlActionCopyLike; safecall; procedure Set_CopyLike(CopyLike: OlActionCopyLike); safecall; function Get_Enabled: WordBool; safecall; procedure Set_Enabled(Enabled: WordBool); safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Name: WideString; safecall; procedure Set_Name(const Name: WideString); safecall; function Get_Prefix: WideString; safecall; procedure Set_Prefix(const Prefix: WideString); safecall; function Get_ReplyStyle: OlActionReplyStyle; safecall; procedure Set_ReplyStyle(ReplyStyle: OlActionReplyStyle); safecall; function Get_ResponseStyle: OlActionResponseStyle; safecall; procedure Set_ResponseStyle(ResponseStyle: OlActionResponseStyle); safecall; function Get_ShowOn: OlActionShowOn; safecall; procedure Set_ShowOn(ShowOn: OlActionShowOn); safecall; procedure Delete; safecall; function Execute: IDispatch; 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 CopyLike: OlActionCopyLike read Get_CopyLike write Set_CopyLike; property Enabled: WordBool read Get_Enabled write Set_Enabled; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Name: WideString read Get_Name write Set_Name; property Prefix: WideString read Get_Prefix write Set_Prefix; property ReplyStyle: OlActionReplyStyle read Get_ReplyStyle write Set_ReplyStyle; property ResponseStyle: OlActionResponseStyle read Get_ResponseStyle write Set_ResponseStyle; property ShowOn: OlActionShowOn read Get_ShowOn write Set_ShowOn; end; // *********************************************************************// // DispIntf: ActionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063043-0000-0000-C000-000000000046} // *********************************************************************// ActionDisp = dispinterface ['{00063043-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 CopyLike: OlActionCopyLike dispid 100; property Enabled: WordBool dispid 103; property MessageClass: WideString dispid 26; property Name: WideString dispid 12289; property Prefix: WideString dispid 61; property ReplyStyle: OlActionReplyStyle dispid 101; property ResponseStyle: OlActionResponseStyle dispid 102; property ShowOn: OlActionShowOn dispid 105; procedure Delete; dispid 108; function Execute: IDispatch; dispid 106; end; // *********************************************************************// // Interface: _Application // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063001-0000-0000-C000-000000000046} // *********************************************************************// _Application = interface(IDispatch) ['{00063001-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_Assistant: Assistant; safecall; function Get_Name: WideString; safecall; function Get_Version: WideString; safecall; function ActiveExplorer: _Explorer; safecall; function ActiveInspector: _Inspector; safecall; function CreateItem(ItemType: OlItemType): IDispatch; safecall; function CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; safecall; function CreateObject(const ObjectName: WideString): IDispatch; safecall; function GetNamespace(const Type_: WideString): _NameSpace; safecall; procedure Quit; safecall; function Get_COMAddIns: COMAddIns; safecall; function Get_Explorers: _Explorers; safecall; function Get_Inspectors: _Inspectors; safecall; function Get_LanguageSettings: LanguageSettings; safecall; function Get_ProductCode: WideString; safecall; function Get_AnswerWizard: AnswerWizard; safecall; function Get_FeatureInstall: MsoFeatureInstall; safecall; procedure Set_FeatureInstall(FeatureInstall: MsoFeatureInstall); safecall; function ActiveWindow: IDispatch; safecall; function CopyFile(const FilePath: WideString; const DestFolderPath: WideString): IDispatch; safecall; function AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant; Tag: OleVariant): Search; safecall; function IsSearchSynchronous(const LookInFolders: WideString): WordBool; safecall; procedure GetNewNickNames(var pvar: OleVariant); safecall; function Get_Reminders: _Reminders; 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 Assistant: Assistant read Get_Assistant; property Name: WideString read Get_Name; property Version: WideString read Get_Version; property COMAddIns: COMAddIns read Get_COMAddIns; property Explorers: _Explorers read Get_Explorers; property Inspectors: _Inspectors read Get_Inspectors; property LanguageSettings: LanguageSettings read Get_LanguageSettings; property ProductCode: WideString read Get_ProductCode; property AnswerWizard: AnswerWizard read Get_AnswerWizard; property FeatureInstall: MsoFeatureInstall read Get_FeatureInstall write Set_FeatureInstall; property Reminders: _Reminders read Get_Reminders; end; // *********************************************************************// // DispIntf: _ApplicationDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063001-0000-0000-C000-000000000046} // *********************************************************************// _ApplicationDisp = dispinterface ['{00063001-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 Assistant: Assistant readonly dispid 276; property Name: WideString readonly dispid 12289; property Version: WideString readonly dispid 278; function ActiveExplorer: _Explorer; dispid 273; function ActiveInspector: _Inspector; dispid 274; function CreateItem(ItemType: OlItemType): IDispatch; dispid 266; function CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; dispid 267; function CreateObject(const ObjectName: WideString): IDispatch; dispid 277; function GetNamespace(const Type_: WideString): _NameSpace; dispid 272; procedure Quit; dispid 275; property COMAddIns: COMAddIns readonly dispid 280; property Explorers: _Explorers readonly dispid 281; property Inspectors: _Inspectors readonly dispid 282; property LanguageSettings: LanguageSettings readonly dispid 283; property ProductCode: WideString readonly dispid 284; property AnswerWizard: AnswerWizard readonly dispid 285; property FeatureInstall: MsoFeatureInstall dispid 286; function ActiveWindow: IDispatch; dispid 287; function CopyFile(const FilePath: WideString; const DestFolderPath: WideString): IDispatch; dispid 64098; function AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant; Tag: OleVariant): Search; dispid 64101; function IsSearchSynchronous(const LookInFolders: WideString): WordBool; dispid 64108; procedure GetNewNickNames(var pvar: OleVariant); dispid 64072; property Reminders: _Reminders readonly dispid 64153; end; // *********************************************************************// // Interface: _NameSpace // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063002-0000-0000-C000-000000000046} // *********************************************************************// _NameSpace = interface(IDispatch) ['{00063002-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_CurrentUser: Recipient; safecall; function Get_Folders: _Folders; safecall; function Get_type_: WideString; safecall; function Get_AddressLists: AddressLists; safecall; function CreateRecipient(const RecipientName: WideString): Recipient; safecall; function GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; safecall; function GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; safecall; function GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; safecall; function GetRecipientFromID(const EntryID: WideString): Recipient; safecall; function GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; safecall; procedure Logoff; safecall; procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; NewSession: OleVariant); safecall; function PickFolder: MAPIFolder; safecall; procedure RefreshRemoteHeaders; safecall; function Get_SyncObjects: SyncObjects; safecall; procedure AddStore(Store: OleVariant); safecall; procedure RemoveStore(const Folder: MAPIFolder); safecall; function Get_Offline: WordBool; safecall; procedure Dial(ContactItem: OleVariant); safecall; function Get_MAPIOBJECT: IUnknown; 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 CurrentUser: Recipient read Get_CurrentUser; property Folders: _Folders read Get_Folders; property type_: WideString read Get_type_; property AddressLists: AddressLists read Get_AddressLists; property SyncObjects: SyncObjects read Get_SyncObjects; property Offline: WordBool read Get_Offline; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; end; // *********************************************************************// // DispIntf: _NameSpaceDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063002-0000-0000-C000-000000000046} // *********************************************************************// _NameSpaceDisp = dispinterface ['{00063002-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 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; property Offline: WordBool readonly dispid 64076; procedure Dial(ContactItem: OleVariant); dispid 64013; property MAPIOBJECT: IUnknown readonly dispid 61696; 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 DestinationFolder: MAPIFolder): MAPIFolder; safecall; procedure Delete; safecall; procedure Display; safecall; function GetExplorer(DisplayMode: OleVariant): _Explorer; safecall; procedure MoveTo(const DestinationFolder: MAPIFolder); safecall; function Get_UserPermissions: IDispatch; safecall; function Get_WebViewOn: WordBool; safecall; procedure Set_WebViewOn(WebViewOn: WordBool); safecall; function Get_WebViewURL: WideString; safecall; procedure Set_WebViewURL(const WebViewURL: WideString); safecall; function Get_WebViewAllowNavigation: WordBool; safecall; procedure Set_WebViewAllowNavigation(WebViewAllowNavigation: WordBool); safecall; procedure AddToPFFavorites; safecall; function Get_AddressBookName: WideString; safecall; procedure Set_AddressBookName(const AddressBookName: WideString); safecall; function Get_ShowAsOutlookAB: WordBool; safecall; procedure Set_ShowAsOutlookAB(ShowAsOutlookAB: WordBool); safecall; function Get_FolderPath: WideString; safecall; procedure AddToFavorites(fNoUI: OleVariant; Name: OleVariant); safecall; function Get_InAppFolderSyncObject: WordBool; safecall; procedure Set_InAppFolderSyncObject(InAppFolderSyncObject: WordBool); safecall; function Get_CurrentView: View; safecall; function Get_CustomViewsOnly: WordBool; safecall; procedure Set_CustomViewsOnly(CustomViewsOnly: WordBool); safecall; function Get_Views: _Views; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_FullFolderPath: WideString; 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 DefaultItemType: OlItemType read Get_DefaultItemType; property DefaultMessageClass: WideString read Get_DefaultMessageClass; property Description: WideString read Get_Description write Set_Description; property EntryID: WideString read Get_EntryID; property Folders: _Folders read Get_Folders; property Items: _Items read Get_Items; property Name: WideString read Get_Name write Set_Name; property StoreID: WideString read Get_StoreID; property UnReadItemCount: Integer read Get_UnReadItemCount; property UserPermissions: IDispatch read Get_UserPermissions; property WebViewOn: WordBool read Get_WebViewOn write Set_WebViewOn; property WebViewURL: WideString read Get_WebViewURL write Set_WebViewURL; property WebViewAllowNavigation: WordBool read Get_WebViewAllowNavigation write Set_WebViewAllowNavigation; property AddressBookName: WideString read Get_AddressBookName write Set_AddressBookName; property ShowAsOutlookAB: WordBool read Get_ShowAsOutlookAB write Set_ShowAsOutlookAB; property FolderPath: WideString read Get_FolderPath; property InAppFolderSyncObject: WordBool read Get_InAppFolderSyncObject write Set_InAppFolderSyncObject; property CurrentView: View read Get_CurrentView; property CustomViewsOnly: WordBool read Get_CustomViewsOnly write Set_CustomViewsOnly; property Views: _Views read Get_Views; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property FullFolderPath: WideString read Get_FullFolderPath; end; // *********************************************************************// // DispIntf: MAPIFolderDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063006-0000-0000-C000-000000000046} // *********************************************************************// MAPIFolderDisp = dispinterface ['{00063006-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 DefaultItemType: OlItemType readonly dispid 12550; property DefaultMessageClass: WideString readonly dispid 12551; property Description: WideString dispid 12292; property EntryID: WideString readonly dispid 61470; property Folders: _Folders readonly dispid 8451; property Items: _Items readonly dispid 12544; property Name: WideString dispid 12289; property StoreID: WideString readonly dispid 12552; property UnReadItemCount: Integer readonly dispid 13827; function CopyTo(const DestinationFolder: MAPIFolder): MAPIFolder; dispid 61490; procedure Delete; dispid 61509; procedure Display; dispid 12548; function GetExplorer(DisplayMode: OleVariant): _Explorer; dispid 12545; procedure MoveTo(const DestinationFolder: MAPIFolder); dispid 61492; property UserPermissions: IDispatch readonly dispid 12561; property WebViewOn: WordBool dispid 12562; property WebViewURL: WideString dispid 12563; property WebViewAllowNavigation: WordBool dispid 12564; procedure AddToPFFavorites; dispid 12565; property AddressBookName: WideString dispid 64110; property ShowAsOutlookAB: WordBool dispid 64111; property FolderPath: WideString readonly dispid 64120; procedure AddToFavorites(fNoUI: OleVariant; Name: OleVariant); dispid 64097; property InAppFolderSyncObject: WordBool dispid 64075; property CurrentView: View readonly dispid 8704; property CustomViewsOnly: WordBool dispid 64070; property Views: _Views readonly dispid 12553; property MAPIOBJECT: IUnknown readonly dispid 61696; property FullFolderPath: WideString readonly dispid 64145; end; // *********************************************************************// // Interface: _Items // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063041-0000-0000-C000-000000000046} // *********************************************************************// _Items = interface(IDispatch) ['{00063041-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): IDispatch; safecall; function Get_RawTable: IUnknown; safecall; function Get_IncludeRecurrences: WordBool; safecall; procedure Set_IncludeRecurrences(IncludeRecurrences: WordBool); safecall; function Add(Type_: OleVariant): IDispatch; safecall; function Find(const Filter: WideString): IDispatch; safecall; function FindNext: IDispatch; safecall; function GetFirst: IDispatch; safecall; function GetLast: IDispatch; safecall; function GetNext: IDispatch; safecall; function GetPrevious: IDispatch; safecall; procedure Remove(Index: Integer); safecall; procedure ResetColumns; safecall; function Restrict(const Filter: WideString): _Items; safecall; procedure SetColumns(const Columns: WideString); safecall; procedure Sort(const Property_: WideString; Descending: 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; property IncludeRecurrences: WordBool read Get_IncludeRecurrences write Set_IncludeRecurrences; end; // *********************************************************************// // DispIntf: _ItemsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063041-0000-0000-C000-000000000046} // *********************************************************************// _ItemsDisp = dispinterface ['{00063041-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): IDispatch; dispid 81; property RawTable: IUnknown readonly dispid 90; property IncludeRecurrences: WordBool dispid 206; function Add(Type_: OleVariant): IDispatch; dispid 95; function Find(const Filter: WideString): IDispatch; dispid 98; function FindNext: IDispatch; dispid 99; function GetFirst: IDispatch; dispid 86; function GetLast: IDispatch; dispid 88; function GetNext: IDispatch; dispid 87; function GetPrevious: IDispatch; dispid 89; procedure Remove(Index: Integer); dispid 84; procedure ResetColumns; dispid 93; function Restrict(const Filter: WideString): _Items; dispid 100; procedure SetColumns(const Columns: WideString); dispid 92; procedure Sort(const Property_: WideString; Descending: OleVariant); dispid 97; end; // *********************************************************************// // Interface: _Explorer // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063003-0000-0000-C000-000000000046} // *********************************************************************// _Explorer = interface(IDispatch) ['{00063003-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_CommandBars: CommandBars; safecall; function Get_CurrentFolder: MAPIFolder; safecall; procedure _Set_CurrentFolder(const CurrentFolder: MAPIFolder); safecall; procedure Close; safecall; procedure Display; safecall; function Get_Caption: WideString; safecall; function Get_CurrentView: OleVariant; safecall; procedure Set_CurrentView(CurrentView: OleVariant); safecall; function Get_Height: Integer; safecall; procedure Set_Height(Height: Integer); safecall; function Get_Left: Integer; safecall; procedure Set_Left(Left: Integer); safecall; function Get_Panes: Panes; safecall; function Get_Selection: Selection; safecall; function Get_Top: Integer; safecall; procedure Set_Top(Top: Integer); safecall; function Get_Width: Integer; safecall; procedure Set_Width(Width: Integer); safecall; function Get_WindowState: OlWindowState; safecall; procedure Set_WindowState(WindowState: OlWindowState); safecall; procedure Activate; safecall; function IsPaneVisible(Pane: OlPane): WordBool; safecall; procedure ShowPane(Pane: OlPane; Visible: WordBool); safecall; function Get_Views: IDispatch; safecall; function Get_HTMLDocument: IDispatch; 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 CommandBars: CommandBars read Get_CommandBars; property CurrentFolder: MAPIFolder read Get_CurrentFolder write _Set_CurrentFolder; property Caption: WideString read Get_Caption; property CurrentView: OleVariant read Get_CurrentView write Set_CurrentView; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Panes: Panes read Get_Panes; property Selection: Selection read Get_Selection; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; property Views: IDispatch read Get_Views; property HTMLDocument: IDispatch read Get_HTMLDocument; end; // *********************************************************************// // DispIntf: _ExplorerDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063003-0000-0000-C000-000000000046} // *********************************************************************// _ExplorerDisp = dispinterface ['{00063003-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 CommandBars: CommandBars readonly dispid 8448; property CurrentFolder: MAPIFolder dispid 8449; procedure Close; dispid 8451; procedure Display; dispid 8452; property Caption: WideString readonly dispid 8465; property CurrentView: OleVariant dispid 8704; property Height: Integer dispid 8468; property Left: Integer dispid 8469; property Panes: Panes readonly dispid 8705; property Selection: Selection readonly dispid 8706; property Top: Integer dispid 8470; property Width: Integer dispid 8471; property WindowState: OlWindowState dispid 8466; procedure Activate; dispid 8467; function IsPaneVisible(Pane: OlPane): WordBool; dispid 8707; procedure ShowPane(Pane: OlPane; Visible: WordBool); dispid 8708; property Views: IDispatch readonly dispid 12553; property HTMLDocument: IDispatch readonly dispid 64146; end; // *********************************************************************// // Interface: Panes // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063009-0000-0000-C000-000000000046} // *********************************************************************// Panes = interface(IDispatch) ['{00063009-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): IDispatch; 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; end; // *********************************************************************// // DispIntf: PanesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063009-0000-0000-C000-000000000046} // *********************************************************************// PanesDisp = dispinterface ['{00063009-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): IDispatch; dispid 81; end; // *********************************************************************// // Interface: Selection // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063087-0000-0000-C000-000000000046} // *********************************************************************// Selection = interface(IDispatch) ['{00063087-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): IDispatch; 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; end; // *********************************************************************// // DispIntf: SelectionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063087-0000-0000-C000-000000000046} // *********************************************************************// SelectionDisp = dispinterface ['{00063087-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): IDispatch; dispid 81; end; // *********************************************************************// // Interface: View // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063095-0000-0000-C000-000000000046} // *********************************************************************// View = interface(IDispatch) ['{00063095-0000-0000-C000-000000000046}'] function Get_Application: _Application; safecall; function Get_Class_: OlObjectClass; safecall; function Get_Session: _NameSpace; safecall; function Get_Parent: IDispatch; safecall; procedure Apply; safecall; function Copy(const Name: WideString; SaveOption: OlViewSaveOption): View; safecall; procedure Delete; safecall; procedure Reset; safecall; procedure Save; safecall; function Get_Language: WideString; safecall; procedure Set_Language(const Language: WideString); safecall; function Get_LockUserChanges: WordBool; safecall; procedure Set_LockUserChanges(LockUserChanges: WordBool); safecall; function Get_Name: WideString; safecall; procedure Set_Name(const Name: WideString); safecall; function Get_SaveOption: OlViewSaveOption; safecall; function Get_Standard: WordBool; safecall; function Get_ViewType: OlViewType; safecall; function Get_XML: WideString; safecall; procedure Set_XML(const XML: WideString); safecall; procedure GoToDate(Date: TDateTime); 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 Language: WideString read Get_Language write Set_Language; property LockUserChanges: WordBool read Get_LockUserChanges write Set_LockUserChanges; property Name: WideString read Get_Name write Set_Name; property SaveOption: OlViewSaveOption read Get_SaveOption; property Standard: WordBool read Get_Standard; property ViewType: OlViewType read Get_ViewType; property XML: WideString read Get_XML write Set_XML; end; // *********************************************************************// // DispIntf: ViewDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063095-0000-0000-C000-000000000046} // *********************************************************************// ViewDisp = dispinterface ['{00063095-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; procedure Apply; dispid 407; function Copy(const Name: WideString; SaveOption: OlViewSaveOption): View; dispid 61490; procedure Delete; dispid 61514; procedure Reset; dispid 64068; procedure Save; dispid 61512; property Language: WideString dispid 64065; property LockUserChanges: WordBool dispid 64064; property Name: WideString dispid 0; property SaveOption: OlViewSaveOption readonly dispid 64063; property Standard: WordBool readonly dispid 64062; property ViewType: OlViewType readonly dispid 404; property XML: WideString dispid 64060; procedure GoToDate(Date: TDateTime); dispid 64054; end; // *********************************************************************// // Interface: _Views // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006308D-0000-0000-C000-000000000046} // *********************************************************************// _Views = interface(IDispatch) ['{0006308D-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): View; safecall; function Add(const Name: WideString; ViewType: OlViewType; SaveOption: OlViewSaveOption): View; safecall; procedure Remove(Index: OleVariant); safecall; function _NewEnum: IUnknown; 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; end; // *********************************************************************// // DispIntf: _ViewsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006308D-0000-0000-C000-000000000046} // *********************************************************************// _ViewsDisp = dispinterface ['{0006308D-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): View; dispid 0; function Add(const Name: WideString; ViewType: OlViewType; SaveOption: OlViewSaveOption): View; dispid 95; procedure Remove(Index: OleVariant); dispid 84; function _NewEnum: IUnknown; dispid -4; end; // *********************************************************************// // Interface: AddressLists // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063048-0000-0000-C000-000000000046} // *********************************************************************// AddressLists = interface(IDispatch) ['{00063048-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): AddressList; 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; end; // *********************************************************************// // DispIntf: AddressListsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063048-0000-0000-C000-000000000046} // *********************************************************************// AddressListsDisp = dispinterface ['{00063048-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): AddressList; dispid 81; end; // *********************************************************************// // Interface: AddressList // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063049-0000-0000-C000-000000000046} // *********************************************************************// AddressList = interface(IDispatch) ['{00063049-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_AddressEntries: AddressEntries; safecall; function Get_ID: WideString; safecall; function Get_Index: Integer; safecall; function Get_IsReadOnly: WordBool; safecall; function Get_Name: WideString; 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 AddressEntries: AddressEntries read Get_AddressEntries; property ID: WideString read Get_ID; property Index: Integer read Get_Index; property IsReadOnly: WordBool read Get_IsReadOnly; property Name: WideString read Get_Name; end; // *********************************************************************// // DispIntf: AddressListDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063049-0000-0000-C000-000000000046} // *********************************************************************// AddressListDisp = dispinterface ['{00063049-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 AddressEntries: AddressEntries readonly dispid 256; property ID: WideString readonly dispid 61470; property Index: Integer readonly dispid 91; property IsReadOnly: WordBool readonly dispid 61463; property Name: WideString readonly dispid 12289; end; // *********************************************************************// // Interface: SyncObjects // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063086-0000-0000-C000-000000000046} // *********************************************************************// SyncObjects = interface(IDispatch) ['{00063086-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): SyncObject; safecall; function Get_AppFolders: _SyncObject; 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 AppFolders: _SyncObject read Get_AppFolders; end; // *********************************************************************// // DispIntf: SyncObjectsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063086-0000-0000-C000-000000000046} // *********************************************************************// SyncObjectsDisp = dispinterface ['{00063086-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): SyncObject; dispid 81; property AppFolders: _SyncObject readonly dispid 64074; end; // *********************************************************************// // Interface: _SyncObject // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063083-0000-0000-C000-000000000046} // *********************************************************************// _SyncObject = interface(IDispatch) ['{00063083-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_Name: WideString; safecall; procedure Start; safecall; procedure Stop; 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 Name: WideString read Get_Name; end; // *********************************************************************// // DispIntf: _SyncObjectDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063083-0000-0000-C000-000000000046} // *********************************************************************// _SyncObjectDisp = dispinterface ['{00063083-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 Name: WideString readonly dispid 8448; procedure Start; dispid 8449; procedure Stop; dispid 8450; end; // *********************************************************************// // DispIntf: SyncObjectEvents // Flags: (4096) Dispatchable // GUID: {00063085-0000-0000-C000-000000000046} // *********************************************************************// SyncObjectEvents = dispinterface ['{00063085-0000-0000-C000-000000000046}'] procedure SyncStart; dispid 61441; procedure Progress(State: OlSyncState; const Description: WideString; Value: Integer; Max: Integer); dispid 61442; procedure OnError(Code: Integer; const Description: WideString); dispid 61443; procedure SyncEnd; dispid 61444; end; // *********************************************************************// // Interface: _Inspector // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063005-0000-0000-C000-000000000046} // *********************************************************************// _Inspector = interface(IDispatch) ['{00063005-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_CommandBars: CommandBars; safecall; function Get_CurrentItem: IDispatch; safecall; function Get_EditorType: OlEditorType; safecall; function Get_ModifiedFormPages: IDispatch; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; procedure Display(Modal: OleVariant); safecall; procedure HideFormPage(const PageName: WideString); safecall; function IsWordMail: WordBool; safecall; procedure SetCurrentFormPage(const PageName: WideString); safecall; procedure ShowFormPage(const PageName: WideString); safecall; function Get_HTMLEditor: IDispatch; safecall; function Get_WordEditor: IDispatch; safecall; function Get_Caption: WideString; safecall; function Get_Height: Integer; safecall; procedure Set_Height(Height: Integer); safecall; function Get_Left: Integer; safecall; procedure Set_Left(Left: Integer); safecall; function Get_Top: Integer; safecall; procedure Set_Top(Top: Integer); safecall; function Get_Width: Integer; safecall; procedure Set_Width(Width: Integer); safecall; function Get_WindowState: OlWindowState; safecall; procedure Set_WindowState(WindowState: OlWindowState); safecall; procedure Activate; 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 CommandBars: CommandBars read Get_CommandBars; property CurrentItem: IDispatch read Get_CurrentItem; property EditorType: OlEditorType read Get_EditorType; property ModifiedFormPages: IDispatch read Get_ModifiedFormPages; property HTMLEditor: IDispatch read Get_HTMLEditor; property WordEditor: IDispatch read Get_WordEditor; property Caption: WideString read Get_Caption; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; end; // *********************************************************************// // DispIntf: _InspectorDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063005-0000-0000-C000-000000000046} // *********************************************************************// _InspectorDisp = dispinterface ['{00063005-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 CommandBars: CommandBars readonly dispid 8448; property CurrentItem: IDispatch readonly dispid 8450; property EditorType: OlEditorType readonly dispid 8464; property ModifiedFormPages: IDispatch readonly dispid 8454; procedure Close(SaveMode: OlInspectorClose); dispid 8451; procedure Display(Modal: OleVariant); dispid 8452; procedure HideFormPage(const PageName: WideString); dispid 8456; function IsWordMail: WordBool; dispid 8453; procedure SetCurrentFormPage(const PageName: WideString); dispid 8460; procedure ShowFormPage(const PageName: WideString); dispid 8457; property HTMLEditor: IDispatch readonly dispid 8462; property WordEditor: IDispatch readonly dispid 8463; property Caption: WideString readonly dispid 8465; property Height: Integer dispid 8468; property Left: Integer dispid 8469; property Top: Integer dispid 8470; property Width: Integer dispid 8471; property WindowState: OlWindowState dispid 8466; procedure Activate; dispid 8467; end; // *********************************************************************// // Interface: _Explorers // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300A-0000-0000-C000-000000000046} // *********************************************************************// _Explorers = interface(IDispatch) ['{0006300A-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): Explorer; safecall; function Add(Folder: OleVariant; DisplayMode: OlFolderDisplayMode): _Explorer; 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; end; // *********************************************************************// // DispIntf: _ExplorersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300A-0000-0000-C000-000000000046} // *********************************************************************// _ExplorersDisp = dispinterface ['{0006300A-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): Explorer; dispid 81; function Add(Folder: OleVariant; DisplayMode: OlFolderDisplayMode): _Explorer; dispid 95; end; // *********************************************************************// // DispIntf: ExplorerEvents // Flags: (4096) Dispatchable // GUID: {0006304F-0000-0000-C000-000000000046} // *********************************************************************// ExplorerEvents = dispinterface ['{0006304F-0000-0000-C000-000000000046}'] procedure Activate; dispid 61441; procedure FolderSwitch; dispid 61442; procedure BeforeFolderSwitch(const NewFolder: IDispatch; var Cancel: WordBool); dispid 61443; procedure ViewSwitch; dispid 61444; procedure BeforeViewSwitch(NewView: OleVariant; var Cancel: WordBool); dispid 61445; procedure Deactivate; dispid 61446; procedure SelectionChange; dispid 61447; procedure Close; dispid 61448; end; // *********************************************************************// // DispIntf: ExplorerEvents_10 // Flags: (4096) Dispatchable // GUID: {0006300F-0000-0000-C000-000000000046} // *********************************************************************// ExplorerEvents_10 = dispinterface ['{0006300F-0000-0000-C000-000000000046}'] procedure Activate; dispid 61441; procedure FolderSwitch; dispid 61442; procedure BeforeFolderSwitch(const NewFolder: IDispatch; var Cancel: WordBool); dispid 61443; procedure ViewSwitch; dispid 61444; procedure BeforeViewSwitch(NewView: OleVariant; var Cancel: WordBool); dispid 61445; procedure Deactivate; dispid 61446; procedure SelectionChange; dispid 61447; procedure Close; dispid 61448; procedure BeforeMaximize(var Cancel: WordBool); dispid 64017; procedure BeforeMinimize(var Cancel: WordBool); dispid 64018; procedure BeforeMove(var Cancel: WordBool); dispid 64019; procedure BeforeSize(var Cancel: WordBool); dispid 64020; procedure BeforeItemCopy(var Cancel: WordBool); dispid 64014; procedure BeforeItemCut(var Cancel: WordBool); dispid 64015; procedure BeforeItemPaste(var ClipboardContent: OleVariant; const Target: MAPIFolder; var Cancel: WordBool); dispid 64016; end; // *********************************************************************// // Interface: _Inspectors // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063008-0000-0000-C000-000000000046} // *********************************************************************// _Inspectors = interface(IDispatch) ['{00063008-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): Inspector; safecall; function Add(const Item: IDispatch): _Inspector; 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; end; // *********************************************************************// // DispIntf: _InspectorsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063008-0000-0000-C000-000000000046} // *********************************************************************// _InspectorsDisp = dispinterface ['{00063008-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): Inspector; dispid 81; function Add(const Item: IDispatch): _Inspector; dispid 95; end; // *********************************************************************// // DispIntf: InspectorEvents // Flags: (4096) Dispatchable // GUID: {0006307D-0000-0000-C000-000000000046} // *********************************************************************// InspectorEvents = dispinterface ['{0006307D-0000-0000-C000-000000000046}'] procedure Activate; dispid 61441; procedure Deactivate; dispid 61446; procedure Close; dispid 61448; end; // *********************************************************************// // DispIntf: InspectorEvents_10 // Flags: (4096) Dispatchable // GUID: {0006302A-0000-0000-C000-000000000046} // *********************************************************************// InspectorEvents_10 = dispinterface ['{0006302A-0000-0000-C000-000000000046}'] procedure Activate; dispid 61441; procedure Deactivate; dispid 61446; procedure Close; dispid 61448; procedure BeforeMaximize(var Cancel: WordBool); dispid 64017; procedure BeforeMinimize(var Cancel: WordBool); dispid 64018; procedure BeforeMove(var Cancel: WordBool); dispid 64019; procedure BeforeSize(var Cancel: WordBool); dispid 64020; end; // *********************************************************************// // Interface: Search // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300B-0000-0000-C000-000000000046} // *********************************************************************// Search = interface(IDispatch) ['{0006300B-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_Filter: WideString; safecall; function Get_IsSynchronous: WordBool; safecall; function Get_Results: _Results; safecall; function Get_SearchSubFolders: WordBool; safecall; procedure Stop; safecall; function Get_Tag: WideString; safecall; function Get_Scope: WideString; 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 Filter: WideString read Get_Filter; property IsSynchronous: WordBool read Get_IsSynchronous; property Results: _Results read Get_Results; property SearchSubFolders: WordBool read Get_SearchSubFolders; property Tag: WideString read Get_Tag; property Scope: WideString read Get_Scope; end; // *********************************************************************// // DispIntf: SearchDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300B-0000-0000-C000-000000000046} // *********************************************************************// SearchDisp = dispinterface ['{0006300B-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 Filter: WideString readonly dispid 64100; property IsSynchronous: WordBool readonly dispid 64104; property Results: _Results readonly dispid 64105; property SearchSubFolders: WordBool readonly dispid 64102; procedure Stop; dispid 64103; property Tag: WideString readonly dispid 64109; property Scope: WideString readonly dispid 64165; end; // *********************************************************************// // Interface: _Results // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300C-0000-0000-C000-000000000046} // *********************************************************************// _Results = interface(IDispatch) ['{0006300C-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): IDispatch; safecall; function Get_RawTable: IUnknown; safecall; function GetFirst: IDispatch; safecall; function GetLast: IDispatch; safecall; function GetNext: IDispatch; safecall; function GetPrevious: IDispatch; safecall; procedure ResetColumns; safecall; procedure SetColumns(const Columns: WideString); safecall; procedure Sort(const Property_: WideString; Descending: OleVariant); safecall; function Get_DefaultItemType: OlItemType; safecall; procedure Set_DefaultItemType(DefaultItemType: OlItemType); 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; property DefaultItemType: OlItemType read Get_DefaultItemType write Set_DefaultItemType; end; // *********************************************************************// // DispIntf: _ResultsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006300C-0000-0000-C000-000000000046} // *********************************************************************// _ResultsDisp = dispinterface ['{0006300C-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): IDispatch; dispid 81; property RawTable: IUnknown readonly dispid 90; function GetFirst: IDispatch; dispid 86; function GetLast: IDispatch; dispid 88; function GetNext: IDispatch; dispid 87; function GetPrevious: IDispatch; dispid 89; procedure ResetColumns; dispid 93; procedure SetColumns(const Columns: WideString); dispid 92; procedure Sort(const Property_: WideString; Descending: OleVariant); dispid 97; property DefaultItemType: OlItemType dispid 64143; end; // *********************************************************************// // Interface: _Reminders // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630B1-0000-0000-C000-000000000046} // *********************************************************************// _Reminders = interface(IDispatch) ['{000630B1-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): _Reminder; safecall; procedure Remove(Index: OleVariant); safecall; function _NewEnum: IUnknown; 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; end; // *********************************************************************// // DispIntf: _RemindersDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630B1-0000-0000-C000-000000000046} // *********************************************************************// _RemindersDisp = dispinterface ['{000630B1-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): _Reminder; dispid 0; procedure Remove(Index: OleVariant); dispid 82; function _NewEnum: IUnknown; dispid -4; end; // *********************************************************************// // Interface: _Reminder // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630B0-0000-0000-C000-000000000046} // *********************************************************************// _Reminder = interface(IDispatch) ['{000630B0-0000-0000-C000-000000000046}'] function Get_Application: _Application; safecall; function Get_Class_: OlObjectClass; safecall; function Get_Session: _NameSpace; safecall; function Get_Parent: IDispatch; safecall; procedure Dismiss; safecall; procedure Snooze(SnoozeTime: OleVariant); safecall; function Get_Caption: WideString; safecall; function Get_IsVisible: WordBool; safecall; function Get_Item: IDispatch; safecall; function Get_NextReminderDate: TDateTime; safecall; function Get_OriginalReminderDate: TDateTime; 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 Caption: WideString read Get_Caption; property IsVisible: WordBool read Get_IsVisible; property Item: IDispatch read Get_Item; property NextReminderDate: TDateTime read Get_NextReminderDate; property OriginalReminderDate: TDateTime read Get_OriginalReminderDate; end; // *********************************************************************// // DispIntf: _ReminderDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630B0-0000-0000-C000-000000000046} // *********************************************************************// _ReminderDisp = dispinterface ['{000630B0-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; procedure Dismiss; dispid 64154; procedure Snooze(SnoozeTime: OleVariant); dispid 64155; property Caption: WideString readonly dispid 0; property IsVisible: WordBool readonly dispid 64157; property Item: IDispatch readonly dispid 64158; property NextReminderDate: TDateTime readonly dispid 64159; property OriginalReminderDate: TDateTime readonly dispid 64160; end; // *********************************************************************// // Interface: Actions // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303E-0000-0000-C000-000000000046} // *********************************************************************// Actions = interface(IDispatch) ['{0006303E-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): Action; safecall; function Add: Action; 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; end; // *********************************************************************// // DispIntf: ActionsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303E-0000-0000-C000-000000000046} // *********************************************************************// ActionsDisp = dispinterface ['{0006303E-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): Action; dispid 81; function Add: Action; dispid 100; procedure Remove(Index: Integer); dispid 82; end; // *********************************************************************// // DispIntf: ApplicationEvents // Flags: (4096) Dispatchable // GUID: {0006304E-0000-0000-C000-000000000046} // *********************************************************************// ApplicationEvents = dispinterface ['{0006304E-0000-0000-C000-000000000046}'] procedure ItemSend(const Item: IDispatch; var Cancel: WordBool); dispid 61442; procedure NewMail; dispid 61443; procedure Reminder(const Item: IDispatch); dispid 61444; procedure OptionsPagesAdd(const Pages: PropertyPages); dispid 61445; procedure Startup; dispid 61446; procedure Quit; dispid 61447; end; // *********************************************************************// // Interface: PropertyPages // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063080-0000-0000-C000-000000000046} // *********************************************************************// PropertyPages = interface(IDispatch) ['{00063080-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): IDispatch; safecall; procedure Add(Page: OleVariant; const Title: WideString); safecall; procedure Remove(Index: 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; end; // *********************************************************************// // DispIntf: PropertyPagesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063080-0000-0000-C000-000000000046} // *********************************************************************// PropertyPagesDisp = dispinterface ['{00063080-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): IDispatch; dispid 81; procedure Add(Page: OleVariant; const Title: WideString); dispid 95; procedure Remove(Index: OleVariant); dispid 84; end; // *********************************************************************// // Interface: _AppointmentItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063033-0000-0000-C000-000000000046} // *********************************************************************// _AppointmentItem = interface(IDispatch) ['{00063033-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_AllDayEvent: WordBool; safecall; procedure Set_AllDayEvent(AllDayEvent: WordBool); safecall; function Get_BusyStatus: OlBusyStatus; safecall; procedure Set_BusyStatus(BusyStatus: OlBusyStatus); safecall; function Get_Duration: Integer; safecall; procedure Set_Duration(Duration: Integer); safecall; function Get_End_: TDateTime; safecall; procedure Set_End_(End_: TDateTime); safecall; function Get_IsOnlineMeeting: WordBool; safecall; procedure Set_IsOnlineMeeting(IsOnlineMeeting: WordBool); safecall; function Get_IsRecurring: WordBool; safecall; function Get_Location: WideString; safecall; procedure Set_Location(const Location: WideString); safecall; function Get_MeetingStatus: OlMeetingStatus; safecall; procedure Set_MeetingStatus(MeetingStatus: OlMeetingStatus); safecall; function Get_NetMeetingAutoStart: WordBool; safecall; procedure Set_NetMeetingAutoStart(NetMeetingAutoStart: WordBool); safecall; function Get_NetMeetingOrganizerAlias: WideString; safecall; procedure Set_NetMeetingOrganizerAlias(const NetMeetingOrganizerAlias: WideString); safecall; function Get_NetMeetingServer: WideString; safecall; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); safecall; function Get_NetMeetingType: OlNetMeetingType; safecall; procedure Set_NetMeetingType(NetMeetingType: OlNetMeetingType); safecall; function Get_OptionalAttendees: WideString; safecall; procedure Set_OptionalAttendees(const OptionalAttendees: WideString); safecall; function Get_Organizer: WideString; safecall; function Get_Recipients: Recipients; safecall; function Get_RecurrenceState: OlRecurrenceState; safecall; function Get_ReminderMinutesBeforeStart: Integer; safecall; procedure Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer); safecall; function Get_ReminderOverrideDefault: WordBool; safecall; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); safecall; function Get_ReminderPlaySound: WordBool; safecall; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); safecall; function Get_ReminderSet: WordBool; safecall; procedure Set_ReminderSet(ReminderSet: WordBool); safecall; function Get_ReminderSoundFile: WideString; safecall; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); safecall; function Get_ReplyTime: TDateTime; safecall; procedure Set_ReplyTime(ReplyTime: TDateTime); safecall; function Get_RequiredAttendees: WideString; safecall; procedure Set_RequiredAttendees(const RequiredAttendees: WideString); safecall; function Get_Resources: WideString; safecall; procedure Set_Resources(const Resources: WideString); safecall; function Get_ResponseRequested: WordBool; safecall; procedure Set_ResponseRequested(ResponseRequested: WordBool); safecall; function Get_ResponseStatus: OlResponseStatus; safecall; function Get_Start: TDateTime; safecall; procedure Set_Start(Start: TDateTime); safecall; procedure ClearRecurrencePattern; safecall; function ForwardAsVcal: MailItem; safecall; function GetRecurrencePattern: RecurrencePattern; safecall; function Respond(Response: OlMeetingResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): MeetingItem; safecall; procedure Send; safecall; function Get_NetMeetingDocPathName: WideString; safecall; procedure Set_NetMeetingDocPathName(const NetMeetingDocPathName: WideString); safecall; function Get_NetShowURL: WideString; safecall; procedure Set_NetShowURL(const NetShowURL: WideString); safecall; function Get_Links: Links; safecall; function Get_ConferenceServerAllowExternal: WordBool; safecall; procedure Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal: WordBool); safecall; function Get_ConferenceServerPassword: WideString; safecall; procedure Set_ConferenceServerPassword(const ConferenceServerPassword: WideString); safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_InternetCodepage: Integer; safecall; procedure Set_InternetCodepage(InternetCodepage: Integer); safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property AllDayEvent: WordBool read Get_AllDayEvent write Set_AllDayEvent; property BusyStatus: OlBusyStatus read Get_BusyStatus write Set_BusyStatus; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property IsOnlineMeeting: WordBool read Get_IsOnlineMeeting write Set_IsOnlineMeeting; property IsRecurring: WordBool read Get_IsRecurring; property Location: WideString read Get_Location write Set_Location; property MeetingStatus: OlMeetingStatus read Get_MeetingStatus write Set_MeetingStatus; property NetMeetingAutoStart: WordBool read Get_NetMeetingAutoStart write Set_NetMeetingAutoStart; property NetMeetingOrganizerAlias: WideString read Get_NetMeetingOrganizerAlias write Set_NetMeetingOrganizerAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NetMeetingType: OlNetMeetingType read Get_NetMeetingType write Set_NetMeetingType; property OptionalAttendees: WideString read Get_OptionalAttendees write Set_OptionalAttendees; property Organizer: WideString read Get_Organizer; property Recipients: Recipients read Get_Recipients; property RecurrenceState: OlRecurrenceState read Get_RecurrenceState; property ReminderMinutesBeforeStart: Integer read Get_ReminderMinutesBeforeStart write Set_ReminderMinutesBeforeStart; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReplyTime: TDateTime read Get_ReplyTime write Set_ReplyTime; property RequiredAttendees: WideString read Get_RequiredAttendees write Set_RequiredAttendees; property Resources: WideString read Get_Resources write Set_Resources; property ResponseRequested: WordBool read Get_ResponseRequested write Set_ResponseRequested; property ResponseStatus: OlResponseStatus read Get_ResponseStatus; property Start: TDateTime read Get_Start write Set_Start; property NetMeetingDocPathName: WideString read Get_NetMeetingDocPathName write Set_NetMeetingDocPathName; property NetShowURL: WideString read Get_NetShowURL write Set_NetShowURL; property Links: Links read Get_Links; property ConferenceServerAllowExternal: WordBool read Get_ConferenceServerAllowExternal write Set_ConferenceServerAllowExternal; property ConferenceServerPassword: WideString read Get_ConferenceServerPassword write Set_ConferenceServerPassword; property ItemProperties: ItemProperties read Get_ItemProperties; property DownloadState: OlDownloadState read Get_DownloadState; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _AppointmentItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063033-0000-0000-C000-000000000046} // *********************************************************************// _AppointmentItemDisp = dispinterface ['{00063033-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property AllDayEvent: WordBool dispid 33301; property BusyStatus: OlBusyStatus dispid 33285; property Duration: Integer dispid 33299; property End_: TDateTime dispid 33294; property IsOnlineMeeting: WordBool dispid 33344; property IsRecurring: WordBool readonly dispid 33315; property Location: WideString dispid 33288; property MeetingStatus: OlMeetingStatus dispid 33303; property NetMeetingAutoStart: WordBool dispid 33348; property NetMeetingOrganizerAlias: WideString dispid 33347; property NetMeetingServer: WideString dispid 33346; property NetMeetingType: OlNetMeetingType dispid 33345; property OptionalAttendees: WideString dispid 3587; property Organizer: WideString readonly dispid 66; property Recipients: Recipients readonly dispid 63508; property RecurrenceState: OlRecurrenceState readonly dispid 62789; property ReminderMinutesBeforeStart: Integer dispid 34049; property ReminderOverrideDefault: WordBool dispid 34076; property ReminderPlaySound: WordBool dispid 34078; property ReminderSet: WordBool dispid 34051; property ReminderSoundFile: WideString dispid 34079; property ReplyTime: TDateTime dispid 33312; property RequiredAttendees: WideString dispid 3588; property Resources: WideString dispid 3586; property ResponseRequested: WordBool dispid 99; property ResponseStatus: OlResponseStatus readonly dispid 33304; property Start: TDateTime dispid 33293; procedure ClearRecurrencePattern; dispid 61605; function ForwardAsVcal: MailItem; dispid 62791; function GetRecurrencePattern: RecurrencePattern; dispid 61604; function Respond(Response: OlMeetingResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): MeetingItem; dispid 62722; procedure Send; dispid 61557; property NetMeetingDocPathName: WideString dispid 33351; property NetShowURL: WideString dispid 33352; property Links: Links readonly dispid 62469; property ConferenceServerAllowExternal: WordBool dispid 33350; property ConferenceServerPassword: WideString dispid 33353; property ItemProperties: ItemProperties readonly dispid 64009; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property InternetCodepage: Integer dispid 16350; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: Attachments // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303C-0000-0000-C000-000000000046} // *********************************************************************// Attachments = interface(IDispatch) ['{0006303C-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): Attachment; safecall; function Add(Source: OleVariant; Type_: OleVariant; Position: OleVariant; DisplayName: OleVariant): Attachment; 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; end; // *********************************************************************// // DispIntf: AttachmentsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303C-0000-0000-C000-000000000046} // *********************************************************************// AttachmentsDisp = dispinterface ['{0006303C-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): Attachment; dispid 81; function Add(Source: OleVariant; Type_: OleVariant; Position: OleVariant; DisplayName: OleVariant): Attachment; dispid 101; procedure Remove(Index: Integer); dispid 84; end; // *********************************************************************// // Interface: Attachment // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063007-0000-0000-C000-000000000046} // *********************************************************************// Attachment = interface(IDispatch) ['{00063007-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_DisplayName: WideString; safecall; procedure Set_DisplayName(const DisplayName: WideString); safecall; function Get_FileName: WideString; safecall; function Get_Index: Integer; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_PathName: WideString; safecall; function Get_Position: Integer; safecall; procedure Set_Position(Position: Integer); safecall; function Get_type_: OlAttachmentType; safecall; procedure Delete; safecall; procedure SaveAsFile(const Path: WideString); 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 DisplayName: WideString read Get_DisplayName write Set_DisplayName; property FileName: WideString read Get_FileName; property Index: Integer read Get_Index; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property PathName: WideString read Get_PathName; property Position: Integer read Get_Position write Set_Position; property type_: OlAttachmentType read Get_type_; end; // *********************************************************************// // DispIntf: AttachmentDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063007-0000-0000-C000-000000000046} // *********************************************************************// AttachmentDisp = dispinterface ['{00063007-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 113; property DisplayName: WideString dispid 12289; property FileName: WideString readonly dispid 14084; property Index: Integer readonly dispid 91; property MAPIOBJECT: IUnknown readonly dispid 61696; property PathName: WideString readonly dispid 14088; property Position: Integer dispid 114; property type_: OlAttachmentType readonly dispid 14085; procedure Delete; dispid 105; procedure SaveAsFile(const Path: WideString); dispid 104; end; // *********************************************************************// // Interface: FormDescription // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063046-0000-0000-C000-000000000046} // *********************************************************************// FormDescription = interface(IDispatch) ['{00063046-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_Category: WideString; safecall; procedure Set_Category(const Category: WideString); safecall; function Get_CategorySub: WideString; safecall; procedure Set_CategorySub(const CategorySub: WideString); safecall; function Get_Comment: WideString; safecall; procedure Set_Comment(const Comment: WideString); safecall; function Get_ContactName: WideString; safecall; procedure Set_ContactName(const ContactName: WideString); safecall; function Get_DisplayName: WideString; safecall; procedure Set_DisplayName(const DisplayName: WideString); safecall; function Get_Hidden: WordBool; safecall; procedure Set_Hidden(Hidden: WordBool); safecall; function Get_Icon: WideString; safecall; procedure Set_Icon(const Icon: WideString); safecall; function Get_Locked: WordBool; safecall; procedure Set_Locked(Locked: WordBool); safecall; function Get_MessageClass: WideString; safecall; function Get_MiniIcon: WideString; safecall; procedure Set_MiniIcon(const MiniIcon: WideString); safecall; function Get_Name: WideString; safecall; procedure Set_Name(const Name: WideString); safecall; function Get_Number: WideString; safecall; procedure Set_Number(const Number: WideString); safecall; function Get_OneOff: WordBool; safecall; procedure Set_OneOff(OneOff: WordBool); safecall; function Get_Password: WideString; safecall; procedure Set_Password(const Password: WideString); safecall; function Get_ScriptText: WideString; safecall; function Get_Template: WideString; safecall; procedure Set_Template(const Template: WideString); safecall; function Get_UseWordMail: WordBool; safecall; procedure Set_UseWordMail(UseWordMail: WordBool); safecall; function Get_Version: WideString; safecall; procedure Set_Version(const Version: WideString); safecall; procedure PublishForm(Registry: OlFormRegistry; Folder: 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 Category: WideString read Get_Category write Set_Category; property CategorySub: WideString read Get_CategorySub write Set_CategorySub; property Comment: WideString read Get_Comment write Set_Comment; property ContactName: WideString read Get_ContactName write Set_ContactName; property DisplayName: WideString read Get_DisplayName write Set_DisplayName; property Hidden: WordBool read Get_Hidden write Set_Hidden; property Icon: WideString read Get_Icon write Set_Icon; property Locked: WordBool read Get_Locked write Set_Locked; property MessageClass: WideString read Get_MessageClass; property MiniIcon: WideString read Get_MiniIcon write Set_MiniIcon; property Name: WideString read Get_Name write Set_Name; property Number: WideString read Get_Number write Set_Number; property OneOff: WordBool read Get_OneOff write Set_OneOff; property Password: WideString read Get_Password write Set_Password; property ScriptText: WideString read Get_ScriptText; property Template: WideString read Get_Template write Set_Template; property UseWordMail: WordBool read Get_UseWordMail write Set_UseWordMail; property Version: WideString read Get_Version write Set_Version; end; // *********************************************************************// // DispIntf: FormDescriptionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063046-0000-0000-C000-000000000046} // *********************************************************************// FormDescriptionDisp = dispinterface ['{00063046-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 Category: WideString dispid 13060; property CategorySub: WideString dispid 13061; property Comment: WideString dispid 12292; property ContactName: WideString dispid 13059; property DisplayName: WideString dispid 12289; property Hidden: WordBool dispid 13063; property Icon: WideString dispid 4093; property Locked: WordBool dispid 102; property MessageClass: WideString readonly dispid 26; property MiniIcon: WideString dispid 4092; property Name: WideString dispid 61469; property Number: WideString dispid 104; property OneOff: WordBool dispid 101; property Password: WideString dispid 103; property ScriptText: WideString readonly dispid 109; property Template: WideString dispid 106; property UseWordMail: WordBool dispid 105; property Version: WideString dispid 13057; procedure PublishForm(Registry: OlFormRegistry; Folder: OleVariant); dispid 107; end; // *********************************************************************// // Interface: UserProperties // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303D-0000-0000-C000-000000000046} // *********************************************************************// UserProperties = interface(IDispatch) ['{0006303D-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): UserProperty; safecall; function Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; DisplayFormat: OleVariant): UserProperty; safecall; function Find(const Name: WideString; Custom: OleVariant): UserProperty; 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; end; // *********************************************************************// // DispIntf: UserPropertiesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303D-0000-0000-C000-000000000046} // *********************************************************************// UserPropertiesDisp = dispinterface ['{0006303D-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): UserProperty; dispid 81; function Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; DisplayFormat: OleVariant): UserProperty; dispid 102; function Find(const Name: WideString; Custom: OleVariant): UserProperty; dispid 103; procedure Remove(Index: Integer); dispid 82; end; // *********************************************************************// // Interface: UserProperty // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063042-0000-0000-C000-000000000046} // *********************************************************************// UserProperty = interface(IDispatch) ['{00063042-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_Formula: WideString; safecall; procedure Set_Formula(const Formula: WideString); safecall; function Get_Name: WideString; safecall; function Get_type_: OlUserPropertyType; safecall; function Get_ValidationFormula: WideString; safecall; procedure Set_ValidationFormula(const ValidationFormula: WideString); safecall; function Get_ValidationText: WideString; safecall; procedure Set_ValidationText(const ValidationText: WideString); safecall; function Get_Value: OleVariant; safecall; procedure Set_Value(Value: OleVariant); safecall; procedure Delete; safecall; function Get_IsUserProperty: 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 Formula: WideString read Get_Formula write Set_Formula; property Name: WideString read Get_Name; property type_: OlUserPropertyType read Get_type_; property ValidationFormula: WideString read Get_ValidationFormula write Set_ValidationFormula; property ValidationText: WideString read Get_ValidationText write Set_ValidationText; property Value: OleVariant read Get_Value write Set_Value; property IsUserProperty: WordBool read Get_IsUserProperty; end; // *********************************************************************// // DispIntf: UserPropertyDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063042-0000-0000-C000-000000000046} // *********************************************************************// UserPropertyDisp = dispinterface ['{00063042-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 Formula: WideString dispid 103; property Name: WideString readonly dispid 112; property type_: OlUserPropertyType readonly dispid 109; property ValidationFormula: WideString dispid 104; property ValidationText: WideString dispid 105; property Value: OleVariant dispid 0; procedure Delete; dispid 108; property IsUserProperty: WordBool readonly dispid 64008; end; // *********************************************************************// // Interface: Recipients // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303B-0000-0000-C000-000000000046} // *********************************************************************// Recipients = interface(IDispatch) ['{0006303B-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): Recipient; safecall; function Add(const Name: WideString): Recipient; safecall; procedure Remove(Index: Integer); safecall; function ResolveAll: 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 Count: Integer read Get_Count; end; // *********************************************************************// // DispIntf: RecipientsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303B-0000-0000-C000-000000000046} // *********************************************************************// RecipientsDisp = dispinterface ['{0006303B-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): Recipient; dispid 81; function Add(const Name: WideString): Recipient; dispid 111; procedure Remove(Index: Integer); dispid 84; function ResolveAll: WordBool; dispid 126; end; // *********************************************************************// // Interface: _MailItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063034-0000-0000-C000-000000000046} // *********************************************************************// _MailItem = interface(IDispatch) ['{00063034-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_AlternateRecipientAllowed: WordBool; safecall; procedure Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool); safecall; function Get_AutoForwarded: WordBool; safecall; procedure Set_AutoForwarded(AutoForwarded: WordBool); safecall; function Get_BCC: WideString; safecall; procedure Set_BCC(const BCC: WideString); safecall; function Get_CC: WideString; safecall; procedure Set_CC(const CC: WideString); safecall; function Get_DeferredDeliveryTime: TDateTime; safecall; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); safecall; function Get_DeleteAfterSubmit: WordBool; safecall; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); safecall; function Get_ExpiryTime: TDateTime; safecall; procedure Set_ExpiryTime(ExpiryTime: TDateTime); safecall; function Get_FlagDueBy: TDateTime; safecall; procedure Set_FlagDueBy(FlagDueBy: TDateTime); safecall; function Get_FlagRequest: WideString; safecall; procedure Set_FlagRequest(const FlagRequest: WideString); safecall; function Get_FlagStatus: OlFlagStatus; safecall; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); safecall; function Get_HTMLBody: WideString; safecall; procedure Set_HTMLBody(const HTMLBody: WideString); safecall; function Get_OriginatorDeliveryReportRequested: WordBool; safecall; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); safecall; function Get_ReadReceiptRequested: WordBool; safecall; procedure Set_ReadReceiptRequested(ReadReceiptRequested: WordBool); safecall; function Get_ReceivedByEntryID: WideString; safecall; function Get_ReceivedByName: WideString; safecall; function Get_ReceivedOnBehalfOfEntryID: WideString; safecall; function Get_ReceivedOnBehalfOfName: WideString; safecall; function Get_ReceivedTime: TDateTime; safecall; function Get_RecipientReassignmentProhibited: WordBool; safecall; procedure Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool); safecall; function Get_Recipients: Recipients; safecall; function Get_ReminderOverrideDefault: WordBool; safecall; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); safecall; function Get_ReminderPlaySound: WordBool; safecall; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); safecall; function Get_ReminderSet: WordBool; safecall; procedure Set_ReminderSet(ReminderSet: WordBool); safecall; function Get_ReminderSoundFile: WideString; safecall; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); safecall; function Get_ReminderTime: TDateTime; safecall; procedure Set_ReminderTime(ReminderTime: TDateTime); safecall; function Get_RemoteStatus: OlRemoteStatus; safecall; procedure Set_RemoteStatus(RemoteStatus: OlRemoteStatus); safecall; function Get_ReplyRecipientNames: WideString; safecall; function Get_ReplyRecipients: Recipients; safecall; function Get_SaveSentMessageFolder: MAPIFolder; safecall; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); safecall; function Get_SenderName: WideString; safecall; function Get_Sent: WordBool; safecall; function Get_SentOn: TDateTime; safecall; function Get_SentOnBehalfOfName: WideString; safecall; procedure Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString); safecall; function Get_Submitted: WordBool; safecall; function Get_To_: WideString; safecall; procedure Set_To_(const To_: WideString); safecall; function Get_VotingOptions: WideString; safecall; procedure Set_VotingOptions(const VotingOptions: WideString); safecall; function Get_VotingResponse: WideString; safecall; procedure Set_VotingResponse(const VotingResponse: WideString); safecall; procedure ClearConversationIndex; safecall; function Forward: MailItem; safecall; function Reply: MailItem; safecall; function ReplyAll: MailItem; safecall; procedure Send; safecall; function Get_Links: Links; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_BodyFormat: OlBodyFormat; safecall; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_InternetCodepage: Integer; safecall; procedure Set_InternetCodepage(InternetCodepage: Integer); safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property AlternateRecipientAllowed: WordBool read Get_AlternateRecipientAllowed write Set_AlternateRecipientAllowed; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property BCC: WideString read Get_BCC write Set_BCC; property CC: WideString read Get_CC write Set_CC; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReadReceiptRequested: WordBool read Get_ReadReceiptRequested write Set_ReadReceiptRequested; property ReceivedByEntryID: WideString read Get_ReceivedByEntryID; property ReceivedByName: WideString read Get_ReceivedByName; property ReceivedOnBehalfOfEntryID: WideString read Get_ReceivedOnBehalfOfEntryID; property ReceivedOnBehalfOfName: WideString read Get_ReceivedOnBehalfOfName; property ReceivedTime: TDateTime read Get_ReceivedTime; property RecipientReassignmentProhibited: WordBool read Get_RecipientReassignmentProhibited write Set_RecipientReassignmentProhibited; property Recipients: Recipients read Get_Recipients; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property RemoteStatus: OlRemoteStatus read Get_RemoteStatus write Set_RemoteStatus; property ReplyRecipientNames: WideString read Get_ReplyRecipientNames; property ReplyRecipients: Recipients read Get_ReplyRecipients; property SaveSentMessageFolder: MAPIFolder read Get_SaveSentMessageFolder write _Set_SaveSentMessageFolder; property SenderName: WideString read Get_SenderName; property Sent: WordBool read Get_Sent; property SentOn: TDateTime read Get_SentOn; property SentOnBehalfOfName: WideString read Get_SentOnBehalfOfName write Set_SentOnBehalfOfName; property Submitted: WordBool read Get_Submitted; property To_: WideString read Get_To_ write Set_To_; property VotingOptions: WideString read Get_VotingOptions write Set_VotingOptions; property VotingResponse: WideString read Get_VotingResponse write Set_VotingResponse; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property DownloadState: OlDownloadState read Get_DownloadState; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _MailItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063034-0000-0000-C000-000000000046} // *********************************************************************// _MailItemDisp = dispinterface ['{00063034-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property AlternateRecipientAllowed: WordBool dispid 2; property AutoForwarded: WordBool dispid 5; property BCC: WideString dispid 3586; property CC: WideString dispid 3587; property DeferredDeliveryTime: TDateTime dispid 15; property DeleteAfterSubmit: WordBool dispid 3585; property ExpiryTime: TDateTime dispid 21; property FlagDueBy: TDateTime dispid 48; property FlagRequest: WideString dispid 34096; property FlagStatus: OlFlagStatus dispid 4240; property HTMLBody: WideString dispid 62468; property OriginatorDeliveryReportRequested: WordBool dispid 35; property ReadReceiptRequested: WordBool dispid 41; property ReceivedByEntryID: WideString readonly dispid 63; property ReceivedByName: WideString readonly dispid 64; property ReceivedOnBehalfOfEntryID: WideString readonly dispid 67; property ReceivedOnBehalfOfName: WideString readonly dispid 68; property ReceivedTime: TDateTime readonly dispid 3590; property RecipientReassignmentProhibited: WordBool dispid 43; property Recipients: Recipients readonly dispid 63508; property ReminderOverrideDefault: WordBool dispid 34076; property ReminderPlaySound: WordBool dispid 34078; property ReminderSet: WordBool dispid 34051; property ReminderSoundFile: WideString dispid 34079; property ReminderTime: TDateTime dispid 34050; property RemoteStatus: OlRemoteStatus dispid 34065; property ReplyRecipientNames: WideString readonly dispid 80; property ReplyRecipients: Recipients readonly dispid 61459; property SaveSentMessageFolder: MAPIFolder dispid 62465; property SenderName: WideString readonly dispid 3098; property Sent: WordBool readonly dispid 62466; property SentOn: TDateTime readonly dispid 57; property SentOnBehalfOfName: WideString dispid 66; property Submitted: WordBool readonly dispid 62467; property To_: WideString dispid 3588; property VotingOptions: WideString dispid 61467; property VotingResponse: WideString dispid 34084; procedure ClearConversationIndex; dispid 63522; function Forward: MailItem; dispid 63507; function Reply: MailItem; dispid 63504; function ReplyAll: MailItem; dispid 63505; procedure Send; dispid 61557; property Links: Links readonly dispid 62469; property ItemProperties: ItemProperties readonly dispid 64009; property BodyFormat: OlBodyFormat dispid 64073; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property InternetCodepage: Integer dispid 16350; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // DispIntf: ItemEvents // Flags: (4096) Dispatchable // GUID: {0006303A-0000-0000-C000-000000000046} // *********************************************************************// ItemEvents = dispinterface ['{0006303A-0000-0000-C000-000000000046}'] procedure Open(var Cancel: WordBool); dispid 61443; procedure CustomAction(const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool); dispid 61446; procedure CustomPropertyChange(const Name: WideString); dispid 61448; procedure Forward(const Forward: IDispatch; var Cancel: WordBool); dispid 62568; procedure Close(var Cancel: WordBool); dispid 61444; procedure PropertyChange(const Name: WideString); dispid 61449; procedure Read; dispid 61441; procedure Reply(const Response: IDispatch; var Cancel: WordBool); dispid 62566; procedure ReplyAll(const Response: IDispatch; var Cancel: WordBool); dispid 62567; procedure Send(var Cancel: WordBool); dispid 61445; procedure Write(var Cancel: WordBool); dispid 61442; procedure BeforeCheckNames(var Cancel: WordBool); dispid 61450; procedure AttachmentAdd(const Attachment: Attachment); dispid 61451; procedure AttachmentRead(const Attachment: Attachment); dispid 61452; procedure BeforeAttachmentSave(const Attachment: Attachment; var Cancel: WordBool); dispid 61453; end; // *********************************************************************// // Interface: Links // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006308A-0000-0000-C000-000000000046} // *********************************************************************// Links = interface(IDispatch) ['{0006308A-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): Link; safecall; function Add(const Item: IDispatch): Link; safecall; procedure Remove(Index: 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; end; // *********************************************************************// // DispIntf: LinksDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006308A-0000-0000-C000-000000000046} // *********************************************************************// LinksDisp = dispinterface ['{0006308A-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): Link; dispid 81; function Add(const Item: IDispatch): Link; dispid 95; procedure Remove(Index: OleVariant); dispid 84; end; // *********************************************************************// // Interface: Link // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063089-0000-0000-C000-000000000046} // *********************************************************************// Link = interface(IDispatch) ['{00063089-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_Name: WideString; safecall; function Get_type_: OlObjectClass; safecall; function Get_Item: IDispatch; 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 Name: WideString read Get_Name; property type_: OlObjectClass read Get_type_; property Item: IDispatch read Get_Item; end; // *********************************************************************// // DispIntf: LinkDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063089-0000-0000-C000-000000000046} // *********************************************************************// LinkDisp = dispinterface ['{00063089-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 Name: WideString readonly dispid 12289; property type_: OlObjectClass readonly dispid 8449; property Item: IDispatch readonly dispid 8450; end; // *********************************************************************// // Interface: ItemProperties // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630A8-0000-0000-C000-000000000046} // *********************************************************************// ItemProperties = interface(IDispatch) ['{000630A8-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): ItemProperty; safecall; function _NewEnum: IUnknown; safecall; function Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; DisplayFormat: OleVariant): ItemProperty; 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; end; // *********************************************************************// // DispIntf: ItemPropertiesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630A8-0000-0000-C000-000000000046} // *********************************************************************// ItemPropertiesDisp = dispinterface ['{000630A8-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): ItemProperty; dispid 0; function _NewEnum: IUnknown; dispid -4; function Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; DisplayFormat: OleVariant): ItemProperty; dispid 102; procedure Remove(Index: Integer); dispid 82; end; // *********************************************************************// // Interface: ItemProperty // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630A7-0000-0000-C000-000000000046} // *********************************************************************// ItemProperty = interface(IDispatch) ['{000630A7-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_Formula: WideString; safecall; procedure Set_Formula(const Formula: WideString); safecall; function Get_Name: WideString; safecall; function Get_type_: OlUserPropertyType; safecall; function Get_ValidationFormula: WideString; safecall; procedure Set_ValidationFormula(const ValidationFormula: WideString); safecall; function Get_ValidationText: WideString; safecall; procedure Set_ValidationText(const ValidationText: WideString); safecall; function Get_Value: OleVariant; safecall; procedure Set_Value(Value: OleVariant); safecall; procedure Delete; safecall; function Get_IsUserProperty: 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 Formula: WideString read Get_Formula write Set_Formula; property Name: WideString read Get_Name; property type_: OlUserPropertyType read Get_type_; property ValidationFormula: WideString read Get_ValidationFormula write Set_ValidationFormula; property ValidationText: WideString read Get_ValidationText write Set_ValidationText; property Value: OleVariant read Get_Value write Set_Value; property IsUserProperty: WordBool read Get_IsUserProperty; end; // *********************************************************************// // DispIntf: ItemPropertyDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {000630A7-0000-0000-C000-000000000046} // *********************************************************************// ItemPropertyDisp = dispinterface ['{000630A7-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 Formula: WideString dispid 103; property Name: WideString readonly dispid 112; property type_: OlUserPropertyType readonly dispid 109; property ValidationFormula: WideString dispid 104; property ValidationText: WideString dispid 105; property Value: OleVariant dispid 0; procedure Delete; dispid 108; property IsUserProperty: WordBool readonly dispid 64008; end; // *********************************************************************// // DispIntf: ItemEvents_10 // Flags: (4096) Dispatchable // GUID: {0006302B-0000-0000-C000-000000000046} // *********************************************************************// ItemEvents_10 = dispinterface ['{0006302B-0000-0000-C000-000000000046}'] procedure Open(var Cancel: WordBool); dispid 61443; procedure CustomAction(const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool); dispid 61446; procedure CustomPropertyChange(const Name: WideString); dispid 61448; procedure Forward(const Forward: IDispatch; var Cancel: WordBool); dispid 62568; procedure Close(var Cancel: WordBool); dispid 61444; procedure PropertyChange(const Name: WideString); dispid 61449; procedure Read; dispid 61441; procedure Reply(const Response: IDispatch; var Cancel: WordBool); dispid 62566; procedure ReplyAll(const Response: IDispatch; var Cancel: WordBool); dispid 62567; procedure Send(var Cancel: WordBool); dispid 61445; procedure Write(var Cancel: WordBool); dispid 61442; procedure BeforeCheckNames(var Cancel: WordBool); dispid 61450; procedure AttachmentAdd(const Attachment: Attachment); dispid 61451; procedure AttachmentRead(const Attachment: Attachment); dispid 61452; procedure BeforeAttachmentSave(const Attachment: Attachment; var Cancel: WordBool); dispid 61453; procedure BeforeDelete(const Item: IDispatch; var Cancel: WordBool); dispid 64117; end; // *********************************************************************// // Interface: RecurrencePattern // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063044-0000-0000-C000-000000000046} // *********************************************************************// RecurrencePattern = interface(IDispatch) ['{00063044-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_DayOfMonth: Integer; safecall; procedure Set_DayOfMonth(DayOfMonth: Integer); safecall; function Get_DayOfWeekMask: OlDaysOfWeek; safecall; procedure Set_DayOfWeekMask(DayOfWeekMask: OlDaysOfWeek); safecall; function Get_Duration: Integer; safecall; procedure Set_Duration(Duration: Integer); safecall; function Get_EndTime: TDateTime; safecall; procedure Set_EndTime(EndTime: TDateTime); safecall; function Get_Exceptions: Exceptions; safecall; function Get_Instance: Integer; safecall; procedure Set_Instance(Instance: Integer); safecall; function Get_Interval: Integer; safecall; procedure Set_Interval(Interval: Integer); safecall; function Get_MonthOfYear: Integer; safecall; procedure Set_MonthOfYear(MonthOfYear: Integer); safecall; function Get_NoEndDate: WordBool; safecall; procedure Set_NoEndDate(NoEndDate: WordBool); safecall; function Get_Occurrences: Integer; safecall; procedure Set_Occurrences(Occurrences: Integer); safecall; function Get_PatternEndDate: TDateTime; safecall; procedure Set_PatternEndDate(PatternEndDate: TDateTime); safecall; function Get_PatternStartDate: TDateTime; safecall; procedure Set_PatternStartDate(PatternStartDate: TDateTime); safecall; function Get_RecurrenceType: OlRecurrenceType; safecall; procedure Set_RecurrenceType(RecurrenceType: OlRecurrenceType); safecall; function Get_Regenerate: WordBool; safecall; procedure Set_Regenerate(Regenerate: WordBool); safecall; function Get_StartTime: TDateTime; safecall; procedure Set_StartTime(StartTime: TDateTime); safecall; function GetOccurrence(StartDate: TDateTime): AppointmentItem; 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 DayOfMonth: Integer read Get_DayOfMonth write Set_DayOfMonth; property DayOfWeekMask: OlDaysOfWeek read Get_DayOfWeekMask write Set_DayOfWeekMask; property Duration: Integer read Get_Duration write Set_Duration; property EndTime: TDateTime read Get_EndTime write Set_EndTime; property Exceptions: Exceptions read Get_Exceptions; property Instance: Integer read Get_Instance write Set_Instance; property Interval: Integer read Get_Interval write Set_Interval; property MonthOfYear: Integer read Get_MonthOfYear write Set_MonthOfYear; property NoEndDate: WordBool read Get_NoEndDate write Set_NoEndDate; property Occurrences: Integer read Get_Occurrences write Set_Occurrences; property PatternEndDate: TDateTime read Get_PatternEndDate write Set_PatternEndDate; property PatternStartDate: TDateTime read Get_PatternStartDate write Set_PatternStartDate; property RecurrenceType: OlRecurrenceType read Get_RecurrenceType write Set_RecurrenceType; property Regenerate: WordBool read Get_Regenerate write Set_Regenerate; property StartTime: TDateTime read Get_StartTime write Set_StartTime; end; // *********************************************************************// // DispIntf: RecurrencePatternDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063044-0000-0000-C000-000000000046} // *********************************************************************// RecurrencePatternDisp = dispinterface ['{00063044-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 DayOfMonth: Integer dispid 4096; property DayOfWeekMask: OlDaysOfWeek dispid 4097; property Duration: Integer dispid 4109; property EndTime: TDateTime dispid 4108; property Exceptions: Exceptions readonly dispid 4110; property Instance: Integer dispid 4099; property Interval: Integer dispid 4100; property MonthOfYear: Integer dispid 4102; property NoEndDate: WordBool dispid 4107; property Occurrences: Integer dispid 4101; property PatternEndDate: TDateTime dispid 4098; property PatternStartDate: TDateTime dispid 4104; property RecurrenceType: OlRecurrenceType dispid 4103; property Regenerate: WordBool dispid 4106; property StartTime: TDateTime dispid 4105; function GetOccurrence(StartDate: TDateTime): AppointmentItem; dispid 4111; end; // *********************************************************************// // Interface: Exceptions // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006304C-0000-0000-C000-000000000046} // *********************************************************************// Exceptions = interface(IDispatch) ['{0006304C-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): Exception; 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; end; // *********************************************************************// // DispIntf: ExceptionsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006304C-0000-0000-C000-000000000046} // *********************************************************************// ExceptionsDisp = dispinterface ['{0006304C-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): Exception; dispid 81; end; // *********************************************************************// // Interface: Exception // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006304D-0000-0000-C000-000000000046} // *********************************************************************// Exception = interface(IDispatch) ['{0006304D-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_AppointmentItem: AppointmentItem; safecall; function Get_Deleted: WordBool; safecall; function Get_OriginalDate: TDateTime; safecall; function Get_ItemProperties: ItemProperties; 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 AppointmentItem: AppointmentItem read Get_AppointmentItem; property Deleted: WordBool read Get_Deleted; property OriginalDate: TDateTime read Get_OriginalDate; property ItemProperties: ItemProperties read Get_ItemProperties; end; // *********************************************************************// // DispIntf: ExceptionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006304D-0000-0000-C000-000000000046} // *********************************************************************// ExceptionDisp = dispinterface ['{0006304D-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 AppointmentItem: AppointmentItem readonly dispid 8193; property Deleted: WordBool readonly dispid 8194; property OriginalDate: TDateTime readonly dispid 8192; property ItemProperties: ItemProperties readonly dispid 64009; end; // *********************************************************************// // Interface: _MeetingItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063062-0000-0000-C000-000000000046} // *********************************************************************// _MeetingItem = interface(IDispatch) ['{00063062-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_AutoForwarded: WordBool; safecall; procedure Set_AutoForwarded(AutoForwarded: WordBool); safecall; function Get_DeferredDeliveryTime: TDateTime; safecall; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); safecall; function Get_DeleteAfterSubmit: WordBool; safecall; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); safecall; function Get_ExpiryTime: TDateTime; safecall; procedure Set_ExpiryTime(ExpiryTime: TDateTime); safecall; function Get_FlagDueBy: TDateTime; safecall; procedure Set_FlagDueBy(FlagDueBy: TDateTime); safecall; function Get_FlagRequest: WideString; safecall; procedure Set_FlagRequest(const FlagRequest: WideString); safecall; function Get_FlagStatus: OlFlagStatus; safecall; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); safecall; function Get_OriginatorDeliveryReportRequested: WordBool; safecall; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); safecall; function Get_ReceivedTime: TDateTime; safecall; procedure Set_ReceivedTime(ReceivedTime: TDateTime); safecall; function Get_Recipients: Recipients; safecall; function Get_ReminderSet: WordBool; safecall; procedure Set_ReminderSet(ReminderSet: WordBool); safecall; function Get_ReminderTime: TDateTime; safecall; procedure Set_ReminderTime(ReminderTime: TDateTime); safecall; function Get_ReplyRecipients: Recipients; safecall; function Get_SaveSentMessageFolder: MAPIFolder; safecall; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); safecall; function Get_SenderName: WideString; safecall; function Get_Sent: WordBool; safecall; function Get_SentOn: TDateTime; safecall; function Get_Submitted: WordBool; safecall; function Forward: MeetingItem; safecall; function GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; safecall; function Reply: MailItem; safecall; function ReplyAll: MailItem; safecall; procedure Send; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReceivedTime: TDateTime read Get_ReceivedTime write Set_ReceivedTime; property Recipients: Recipients read Get_Recipients; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property ReplyRecipients: Recipients read Get_ReplyRecipients; property SaveSentMessageFolder: MAPIFolder read Get_SaveSentMessageFolder write _Set_SaveSentMessageFolder; property SenderName: WideString read Get_SenderName; property Sent: WordBool read Get_Sent; property SentOn: TDateTime read Get_SentOn; property Submitted: WordBool read Get_Submitted; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _MeetingItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063062-0000-0000-C000-000000000046} // *********************************************************************// _MeetingItemDisp = dispinterface ['{00063062-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property AutoForwarded: WordBool dispid 5; property DeferredDeliveryTime: TDateTime dispid 15; property DeleteAfterSubmit: WordBool dispid 3585; property ExpiryTime: TDateTime dispid 21; property FlagDueBy: TDateTime dispid 48; property FlagRequest: WideString dispid 34096; property FlagStatus: OlFlagStatus dispid 4240; property OriginatorDeliveryReportRequested: WordBool dispid 35; property ReceivedTime: TDateTime dispid 3590; property Recipients: Recipients readonly dispid 63508; property ReminderSet: WordBool dispid 34051; property ReminderTime: TDateTime dispid 34050; property ReplyRecipients: Recipients readonly dispid 61459; property SaveSentMessageFolder: MAPIFolder dispid 62465; property SenderName: WideString readonly dispid 3098; property Sent: WordBool readonly dispid 62466; property SentOn: TDateTime readonly dispid 57; property Submitted: WordBool readonly dispid 62467; function Forward: MeetingItem; dispid 63507; function GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328; function Reply: MailItem; dispid 63504; function ReplyAll: MailItem; dispid 63505; procedure Send; dispid 61557; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _ContactItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063021-0000-0000-C000-000000000046} // *********************************************************************// _ContactItem = interface(IDispatch) ['{00063021-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_Account: WideString; safecall; procedure Set_Account(const Account: WideString); safecall; function Get_Anniversary: TDateTime; safecall; procedure Set_Anniversary(Anniversary: TDateTime); safecall; function Get_AssistantName: WideString; safecall; procedure Set_AssistantName(const AssistantName: WideString); safecall; function Get_AssistantTelephoneNumber: WideString; safecall; procedure Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString); safecall; function Get_Birthday: TDateTime; safecall; procedure Set_Birthday(Birthday: TDateTime); safecall; function Get_Business2TelephoneNumber: WideString; safecall; procedure Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString); safecall; function Get_BusinessAddress: WideString; safecall; procedure Set_BusinessAddress(const BusinessAddress: WideString); safecall; function Get_BusinessAddressCity: WideString; safecall; procedure Set_BusinessAddressCity(const BusinessAddressCity: WideString); safecall; function Get_BusinessAddressCountry: WideString; safecall; procedure Set_BusinessAddressCountry(const BusinessAddressCountry: WideString); safecall; function Get_BusinessAddressPostalCode: WideString; safecall; procedure Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString); safecall; function Get_BusinessAddressPostOfficeBox: WideString; safecall; procedure Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString); safecall; function Get_BusinessAddressState: WideString; safecall; procedure Set_BusinessAddressState(const BusinessAddressState: WideString); safecall; function Get_BusinessAddressStreet: WideString; safecall; procedure Set_BusinessAddressStreet(const BusinessAddressStreet: WideString); safecall; function Get_BusinessFaxNumber: WideString; safecall; procedure Set_BusinessFaxNumber(const BusinessFaxNumber: WideString); safecall; function Get_BusinessHomePage: WideString; safecall; procedure Set_BusinessHomePage(const BusinessHomePage: WideString); safecall; function Get_BusinessTelephoneNumber: WideString; safecall; procedure Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString); safecall; function Get_CallbackTelephoneNumber: WideString; safecall; procedure Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString); safecall; function Get_CarTelephoneNumber: WideString; safecall; procedure Set_CarTelephoneNumber(const CarTelephoneNumber: WideString); safecall; function Get_Children: WideString; safecall; procedure Set_Children(const Children: WideString); safecall; function Get_CompanyAndFullName: WideString; safecall; function Get_CompanyLastFirstNoSpace: WideString; safecall; function Get_CompanyLastFirstSpaceOnly: WideString; safecall; function Get_CompanyMainTelephoneNumber: WideString; safecall; procedure Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString); safecall; function Get_CompanyName: WideString; safecall; procedure Set_CompanyName(const CompanyName: WideString); safecall; function Get_ComputerNetworkName: WideString; safecall; procedure Set_ComputerNetworkName(const ComputerNetworkName: WideString); safecall; function Get_CustomerID: WideString; safecall; procedure Set_CustomerID(const CustomerID: WideString); safecall; function Get_Department: WideString; safecall; procedure Set_Department(const Department: WideString); safecall; function Get_Email1Address: WideString; safecall; procedure Set_Email1Address(const Email1Address: WideString); safecall; function Get_Email1AddressType: WideString; safecall; procedure Set_Email1AddressType(const Email1AddressType: WideString); safecall; function Get_Email1DisplayName: WideString; safecall; function Get_Email1EntryID: WideString; safecall; function Get_Email2Address: WideString; safecall; procedure Set_Email2Address(const Email2Address: WideString); safecall; function Get_Email2AddressType: WideString; safecall; procedure Set_Email2AddressType(const Email2AddressType: WideString); safecall; function Get_Email2DisplayName: WideString; safecall; function Get_Email2EntryID: WideString; safecall; function Get_Email3Address: WideString; safecall; procedure Set_Email3Address(const Email3Address: WideString); safecall; function Get_Email3AddressType: WideString; safecall; procedure Set_Email3AddressType(const Email3AddressType: WideString); safecall; function Get_Email3DisplayName: WideString; safecall; function Get_Email3EntryID: WideString; safecall; function Get_FileAs: WideString; safecall; procedure Set_FileAs(const FileAs: WideString); safecall; function Get_FirstName: WideString; safecall; procedure Set_FirstName(const FirstName: WideString); safecall; function Get_FTPSite: WideString; safecall; procedure Set_FTPSite(const FTPSite: WideString); safecall; function Get_FullName: WideString; safecall; procedure Set_FullName(const FullName: WideString); safecall; function Get_FullNameAndCompany: WideString; safecall; function Get_Gender: OlGender; safecall; procedure Set_Gender(Gender: OlGender); safecall; function Get_GovernmentIDNumber: WideString; safecall; procedure Set_GovernmentIDNumber(const GovernmentIDNumber: WideString); safecall; function Get_Hobby: WideString; safecall; procedure Set_Hobby(const Hobby: WideString); safecall; function Get_Home2TelephoneNumber: WideString; safecall; procedure Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString); safecall; function Get_HomeAddress: WideString; safecall; procedure Set_HomeAddress(const HomeAddress: WideString); safecall; function Get_HomeAddressCity: WideString; safecall; procedure Set_HomeAddressCity(const HomeAddressCity: WideString); safecall; function Get_HomeAddressCountry: WideString; safecall; procedure Set_HomeAddressCountry(const HomeAddressCountry: WideString); safecall; function Get_HomeAddressPostalCode: WideString; safecall; procedure Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString); safecall; function Get_HomeAddressPostOfficeBox: WideString; safecall; procedure Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString); safecall; function Get_HomeAddressState: WideString; safecall; procedure Set_HomeAddressState(const HomeAddressState: WideString); safecall; function Get_HomeAddressStreet: WideString; safecall; procedure Set_HomeAddressStreet(const HomeAddressStreet: WideString); safecall; function Get_HomeFaxNumber: WideString; safecall; procedure Set_HomeFaxNumber(const HomeFaxNumber: WideString); safecall; function Get_HomeTelephoneNumber: WideString; safecall; procedure Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString); safecall; function Get_Initials: WideString; safecall; procedure Set_Initials(const Initials: WideString); safecall; function Get_InternetFreeBusyAddress: WideString; safecall; procedure Set_InternetFreeBusyAddress(const InternetFreeBusyAddress: WideString); safecall; function Get_ISDNNumber: WideString; safecall; procedure Set_ISDNNumber(const ISDNNumber: WideString); safecall; function Get_JobTitle: WideString; safecall; procedure Set_JobTitle(const JobTitle: WideString); safecall; function Get_Journal: WordBool; safecall; procedure Set_Journal(Journal: WordBool); safecall; function Get_Language: WideString; safecall; procedure Set_Language(const Language: WideString); safecall; function Get_LastFirstAndSuffix: WideString; safecall; function Get_LastFirstNoSpace: WideString; safecall; function Get_LastFirstNoSpaceCompany: WideString; safecall; function Get_LastFirstSpaceOnly: WideString; safecall; function Get_LastFirstSpaceOnlyCompany: WideString; safecall; function Get_LastName: WideString; safecall; procedure Set_LastName(const LastName: WideString); safecall; function Get_LastNameAndFirstName: WideString; safecall; function Get_MailingAddress: WideString; safecall; procedure Set_MailingAddress(const MailingAddress: WideString); safecall; function Get_MailingAddressCity: WideString; safecall; procedure Set_MailingAddressCity(const MailingAddressCity: WideString); safecall; function Get_MailingAddressCountry: WideString; safecall; procedure Set_MailingAddressCountry(const MailingAddressCountry: WideString); safecall; function Get_MailingAddressPostalCode: WideString; safecall; procedure Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString); safecall; function Get_MailingAddressPostOfficeBox: WideString; safecall; procedure Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString); safecall; function Get_MailingAddressState: WideString; safecall; procedure Set_MailingAddressState(const MailingAddressState: WideString); safecall; function Get_MailingAddressStreet: WideString; safecall; procedure Set_MailingAddressStreet(const MailingAddressStreet: WideString); safecall; function Get_ManagerName: WideString; safecall; procedure Set_ManagerName(const ManagerName: WideString); safecall; function Get_MiddleName: WideString; safecall; procedure Set_MiddleName(const MiddleName: WideString); safecall; function Get_MobileTelephoneNumber: WideString; safecall; procedure Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString); safecall; function Get_NetMeetingAlias: WideString; safecall; procedure Set_NetMeetingAlias(const NetMeetingAlias: WideString); safecall; function Get_NetMeetingServer: WideString; safecall; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); safecall; function Get_NickName: WideString; safecall; procedure Set_NickName(const NickName: WideString); safecall; function Get_OfficeLocation: WideString; safecall; procedure Set_OfficeLocation(const OfficeLocation: WideString); safecall; function Get_OrganizationalIDNumber: WideString; safecall; procedure Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString); safecall; function Get_OtherAddress: WideString; safecall; procedure Set_OtherAddress(const OtherAddress: WideString); safecall; function Get_OtherAddressCity: WideString; safecall; procedure Set_OtherAddressCity(const OtherAddressCity: WideString); safecall; function Get_OtherAddressCountry: WideString; safecall; procedure Set_OtherAddressCountry(const OtherAddressCountry: WideString); safecall; function Get_OtherAddressPostalCode: WideString; safecall; procedure Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString); safecall; function Get_OtherAddressPostOfficeBox: WideString; safecall; procedure Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString); safecall; function Get_OtherAddressState: WideString; safecall; procedure Set_OtherAddressState(const OtherAddressState: WideString); safecall; function Get_OtherAddressStreet: WideString; safecall; procedure Set_OtherAddressStreet(const OtherAddressStreet: WideString); safecall; function Get_OtherFaxNumber: WideString; safecall; procedure Set_OtherFaxNumber(const OtherFaxNumber: WideString); safecall; function Get_OtherTelephoneNumber: WideString; safecall; procedure Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString); safecall; function Get_PagerNumber: WideString; safecall; procedure Set_PagerNumber(const PagerNumber: WideString); safecall; function Get_PersonalHomePage: WideString; safecall; procedure Set_PersonalHomePage(const PersonalHomePage: WideString); safecall; function Get_PrimaryTelephoneNumber: WideString; safecall; procedure Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString); safecall; function Get_Profession: WideString; safecall; procedure Set_Profession(const Profession: WideString); safecall; function Get_RadioTelephoneNumber: WideString; safecall; procedure Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString); safecall; function Get_ReferredBy: WideString; safecall; procedure Set_ReferredBy(const ReferredBy: WideString); safecall; function Get_SelectedMailingAddress: OlMailingAddress; safecall; procedure Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress); safecall; function Get_Spouse: WideString; safecall; procedure Set_Spouse(const Spouse: WideString); safecall; function Get_Suffix: WideString; safecall; procedure Set_Suffix(const Suffix: WideString); safecall; function Get_TelexNumber: WideString; safecall; procedure Set_TelexNumber(const TelexNumber: WideString); safecall; function Get_Title: WideString; safecall; procedure Set_Title(const Title: WideString); safecall; function Get_TTYTDDTelephoneNumber: WideString; safecall; procedure Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString); safecall; function Get_User1: WideString; safecall; procedure Set_User1(const User1: WideString); safecall; function Get_User2: WideString; safecall; procedure Set_User2(const User2: WideString); safecall; function Get_User3: WideString; safecall; procedure Set_User3(const User3: WideString); safecall; function Get_User4: WideString; safecall; procedure Set_User4(const User4: WideString); safecall; function Get_UserCertificate: WideString; safecall; procedure Set_UserCertificate(const UserCertificate: WideString); safecall; function Get_WebPage: WideString; safecall; procedure Set_WebPage(const WebPage: WideString); safecall; function Get_YomiCompanyName: WideString; safecall; procedure Set_YomiCompanyName(const YomiCompanyName: WideString); safecall; function Get_YomiFirstName: WideString; safecall; procedure Set_YomiFirstName(const YomiFirstName: WideString); safecall; function Get_YomiLastName: WideString; safecall; procedure Set_YomiLastName(const YomiLastName: WideString); safecall; function ForwardAsVcard: MailItem; safecall; function Get_Links: Links; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_LastFirstNoSpaceAndSuffix: WideString; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_IMAddress: WideString; safecall; procedure Set_IMAddress(const IMAddress: WideString); safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; procedure Set_Email1DisplayName(const Email1DisplayName: WideString); safecall; procedure Set_Email2DisplayName(const Email2DisplayName: WideString); safecall; procedure Set_Email3DisplayName(const Email3DisplayName: WideString); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Account: WideString read Get_Account write Set_Account; property Anniversary: TDateTime read Get_Anniversary write Set_Anniversary; property AssistantName: WideString read Get_AssistantName write Set_AssistantName; property AssistantTelephoneNumber: WideString read Get_AssistantTelephoneNumber write Set_AssistantTelephoneNumber; property Birthday: TDateTime read Get_Birthday write Set_Birthday; property Business2TelephoneNumber: WideString read Get_Business2TelephoneNumber write Set_Business2TelephoneNumber; property BusinessAddress: WideString read Get_BusinessAddress write Set_BusinessAddress; property BusinessAddressCity: WideString read Get_BusinessAddressCity write Set_BusinessAddressCity; property BusinessAddressCountry: WideString read Get_BusinessAddressCountry write Set_BusinessAddressCountry; property BusinessAddressPostalCode: WideString read Get_BusinessAddressPostalCode write Set_BusinessAddressPostalCode; property BusinessAddressPostOfficeBox: WideString read Get_BusinessAddressPostOfficeBox write Set_BusinessAddressPostOfficeBox; property BusinessAddressState: WideString read Get_BusinessAddressState write Set_BusinessAddressState; property BusinessAddressStreet: WideString read Get_BusinessAddressStreet write Set_BusinessAddressStreet; property BusinessFaxNumber: WideString read Get_BusinessFaxNumber write Set_BusinessFaxNumber; property BusinessHomePage: WideString read Get_BusinessHomePage write Set_BusinessHomePage; property BusinessTelephoneNumber: WideString read Get_BusinessTelephoneNumber write Set_BusinessTelephoneNumber; property CallbackTelephoneNumber: WideString read Get_CallbackTelephoneNumber write Set_CallbackTelephoneNumber; property CarTelephoneNumber: WideString read Get_CarTelephoneNumber write Set_CarTelephoneNumber; property Children: WideString read Get_Children write Set_Children; property CompanyAndFullName: WideString read Get_CompanyAndFullName; property CompanyLastFirstNoSpace: WideString read Get_CompanyLastFirstNoSpace; property CompanyLastFirstSpaceOnly: WideString read Get_CompanyLastFirstSpaceOnly; property CompanyMainTelephoneNumber: WideString read Get_CompanyMainTelephoneNumber write Set_CompanyMainTelephoneNumber; property CompanyName: WideString read Get_CompanyName write Set_CompanyName; property ComputerNetworkName: WideString read Get_ComputerNetworkName write Set_ComputerNetworkName; property CustomerID: WideString read Get_CustomerID write Set_CustomerID; property Department: WideString read Get_Department write Set_Department; property Email1Address: WideString read Get_Email1Address write Set_Email1Address; property Email1AddressType: WideString read Get_Email1AddressType write Set_Email1AddressType; property Email1DisplayName: WideString read Get_Email1DisplayName write Set_Email1DisplayName; property Email1EntryID: WideString read Get_Email1EntryID; property Email2Address: WideString read Get_Email2Address write Set_Email2Address; property Email2AddressType: WideString read Get_Email2AddressType write Set_Email2AddressType; property Email2DisplayName: WideString read Get_Email2DisplayName write Set_Email2DisplayName; property Email2EntryID: WideString read Get_Email2EntryID; property Email3Address: WideString read Get_Email3Address write Set_Email3Address; property Email3AddressType: WideString read Get_Email3AddressType write Set_Email3AddressType; property Email3DisplayName: WideString read Get_Email3DisplayName write Set_Email3DisplayName; property Email3EntryID: WideString read Get_Email3EntryID; property FileAs: WideString read Get_FileAs write Set_FileAs; property FirstName: WideString read Get_FirstName write Set_FirstName; property FTPSite: WideString read Get_FTPSite write Set_FTPSite; property FullName: WideString read Get_FullName write Set_FullName; property FullNameAndCompany: WideString read Get_FullNameAndCompany; property Gender: OlGender read Get_Gender write Set_Gender; property GovernmentIDNumber: WideString read Get_GovernmentIDNumber write Set_GovernmentIDNumber; property Hobby: WideString read Get_Hobby write Set_Hobby; property Home2TelephoneNumber: WideString read Get_Home2TelephoneNumber write Set_Home2TelephoneNumber; property HomeAddress: WideString read Get_HomeAddress write Set_HomeAddress; property HomeAddressCity: WideString read Get_HomeAddressCity write Set_HomeAddressCity; property HomeAddressCountry: WideString read Get_HomeAddressCountry write Set_HomeAddressCountry; property HomeAddressPostalCode: WideString read Get_HomeAddressPostalCode write Set_HomeAddressPostalCode; property HomeAddressPostOfficeBox: WideString read Get_HomeAddressPostOfficeBox write Set_HomeAddressPostOfficeBox; property HomeAddressState: WideString read Get_HomeAddressState write Set_HomeAddressState; property HomeAddressStreet: WideString read Get_HomeAddressStreet write Set_HomeAddressStreet; property HomeFaxNumber: WideString read Get_HomeFaxNumber write Set_HomeFaxNumber; property HomeTelephoneNumber: WideString read Get_HomeTelephoneNumber write Set_HomeTelephoneNumber; property Initials: WideString read Get_Initials write Set_Initials; property InternetFreeBusyAddress: WideString read Get_InternetFreeBusyAddress write Set_InternetFreeBusyAddress; property ISDNNumber: WideString read Get_ISDNNumber write Set_ISDNNumber; property JobTitle: WideString read Get_JobTitle write Set_JobTitle; property Journal: WordBool read Get_Journal write Set_Journal; property Language: WideString read Get_Language write Set_Language; property LastFirstAndSuffix: WideString read Get_LastFirstAndSuffix; property LastFirstNoSpace: WideString read Get_LastFirstNoSpace; property LastFirstNoSpaceCompany: WideString read Get_LastFirstNoSpaceCompany; property LastFirstSpaceOnly: WideString read Get_LastFirstSpaceOnly; property LastFirstSpaceOnlyCompany: WideString read Get_LastFirstSpaceOnlyCompany; property LastName: WideString read Get_LastName write Set_LastName; property LastNameAndFirstName: WideString read Get_LastNameAndFirstName; property MailingAddress: WideString read Get_MailingAddress write Set_MailingAddress; property MailingAddressCity: WideString read Get_MailingAddressCity write Set_MailingAddressCity; property MailingAddressCountry: WideString read Get_MailingAddressCountry write Set_MailingAddressCountry; property MailingAddressPostalCode: WideString read Get_MailingAddressPostalCode write Set_MailingAddressPostalCode; property MailingAddressPostOfficeBox: WideString read Get_MailingAddressPostOfficeBox write Set_MailingAddressPostOfficeBox; property MailingAddressState: WideString read Get_MailingAddressState write Set_MailingAddressState; property MailingAddressStreet: WideString read Get_MailingAddressStreet write Set_MailingAddressStreet; property ManagerName: WideString read Get_ManagerName write Set_ManagerName; property MiddleName: WideString read Get_MiddleName write Set_MiddleName; property MobileTelephoneNumber: WideString read Get_MobileTelephoneNumber write Set_MobileTelephoneNumber; property NetMeetingAlias: WideString read Get_NetMeetingAlias write Set_NetMeetingAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NickName: WideString read Get_NickName write Set_NickName; property OfficeLocation: WideString read Get_OfficeLocation write Set_OfficeLocation; property OrganizationalIDNumber: WideString read Get_OrganizationalIDNumber write Set_OrganizationalIDNumber; property OtherAddress: WideString read Get_OtherAddress write Set_OtherAddress; property OtherAddressCity: WideString read Get_OtherAddressCity write Set_OtherAddressCity; property OtherAddressCountry: WideString read Get_OtherAddressCountry write Set_OtherAddressCountry; property OtherAddressPostalCode: WideString read Get_OtherAddressPostalCode write Set_OtherAddressPostalCode; property OtherAddressPostOfficeBox: WideString read Get_OtherAddressPostOfficeBox write Set_OtherAddressPostOfficeBox; property OtherAddressState: WideString read Get_OtherAddressState write Set_OtherAddressState; property OtherAddressStreet: WideString read Get_OtherAddressStreet write Set_OtherAddressStreet; property OtherFaxNumber: WideString read Get_OtherFaxNumber write Set_OtherFaxNumber; property OtherTelephoneNumber: WideString read Get_OtherTelephoneNumber write Set_OtherTelephoneNumber; property PagerNumber: WideString read Get_PagerNumber write Set_PagerNumber; property PersonalHomePage: WideString read Get_PersonalHomePage write Set_PersonalHomePage; property PrimaryTelephoneNumber: WideString read Get_PrimaryTelephoneNumber write Set_PrimaryTelephoneNumber; property Profession: WideString read Get_Profession write Set_Profession; property RadioTelephoneNumber: WideString read Get_RadioTelephoneNumber write Set_RadioTelephoneNumber; property ReferredBy: WideString read Get_ReferredBy write Set_ReferredBy; property SelectedMailingAddress: OlMailingAddress read Get_SelectedMailingAddress write Set_SelectedMailingAddress; property Spouse: WideString read Get_Spouse write Set_Spouse; property Suffix: WideString read Get_Suffix write Set_Suffix; property TelexNumber: WideString read Get_TelexNumber write Set_TelexNumber; property Title: WideString read Get_Title write Set_Title; property TTYTDDTelephoneNumber: WideString read Get_TTYTDDTelephoneNumber write Set_TTYTDDTelephoneNumber; property User1: WideString read Get_User1 write Set_User1; property User2: WideString read Get_User2 write Set_User2; property User3: WideString read Get_User3 write Set_User3; property User4: WideString read Get_User4 write Set_User4; property UserCertificate: WideString read Get_UserCertificate write Set_UserCertificate; property WebPage: WideString read Get_WebPage write Set_WebPage; property YomiCompanyName: WideString read Get_YomiCompanyName write Set_YomiCompanyName; property YomiFirstName: WideString read Get_YomiFirstName write Set_YomiFirstName; property YomiLastName: WideString read Get_YomiLastName write Set_YomiLastName; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property LastFirstNoSpaceAndSuffix: WideString read Get_LastFirstNoSpaceAndSuffix; property DownloadState: OlDownloadState read Get_DownloadState; property IMAddress: WideString read Get_IMAddress write Set_IMAddress; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _ContactItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063021-0000-0000-C000-000000000046} // *********************************************************************// _ContactItemDisp = dispinterface ['{00063021-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property Account: WideString dispid 14848; property Anniversary: TDateTime dispid 14913; property AssistantName: WideString dispid 14896; property AssistantTelephoneNumber: WideString dispid 14894; property Birthday: TDateTime dispid 14914; property Business2TelephoneNumber: WideString dispid 14875; property BusinessAddress: WideString dispid 32795; property BusinessAddressCity: WideString dispid 32838; property BusinessAddressCountry: WideString dispid 32841; property BusinessAddressPostalCode: WideString dispid 32840; property BusinessAddressPostOfficeBox: WideString dispid 32842; property BusinessAddressState: WideString dispid 32839; property BusinessAddressStreet: WideString dispid 32837; property BusinessFaxNumber: WideString dispid 14884; property BusinessHomePage: WideString dispid 14929; property BusinessTelephoneNumber: WideString dispid 14856; property CallbackTelephoneNumber: WideString dispid 14850; property CarTelephoneNumber: WideString dispid 14878; property Children: WideString dispid 32780; property CompanyAndFullName: WideString readonly dispid 32792; property CompanyLastFirstNoSpace: WideString readonly dispid 32818; property CompanyLastFirstSpaceOnly: WideString readonly dispid 32819; property CompanyMainTelephoneNumber: WideString dispid 14935; property CompanyName: WideString dispid 14870; property ComputerNetworkName: WideString dispid 14921; property CustomerID: WideString dispid 14922; property Department: WideString dispid 14872; property Email1Address: WideString dispid 32899; property Email1AddressType: WideString dispid 32898; property Email1DisplayName: WideString dispid 32896; property Email1EntryID: WideString readonly dispid 32901; property Email2Address: WideString dispid 32915; property Email2AddressType: WideString dispid 32914; property Email2DisplayName: WideString dispid 32912; property Email2EntryID: WideString readonly dispid 32917; property Email3Address: WideString dispid 32931; property Email3AddressType: WideString dispid 32930; property Email3DisplayName: WideString dispid 32928; property Email3EntryID: WideString readonly dispid 32933; property FileAs: WideString dispid 32773; property FirstName: WideString dispid 14854; property FTPSite: WideString dispid 14924; property FullName: WideString dispid 12289; property FullNameAndCompany: WideString readonly dispid 32793; property Gender: OlGender dispid 14925; property GovernmentIDNumber: WideString dispid 14855; property Hobby: WideString dispid 14915; property Home2TelephoneNumber: WideString dispid 14895; property HomeAddress: WideString dispid 32794; property HomeAddressCity: WideString dispid 14937; property HomeAddressCountry: WideString dispid 14938; property HomeAddressPostalCode: WideString dispid 14939; property HomeAddressPostOfficeBox: WideString dispid 14942; property HomeAddressState: WideString dispid 14940; property HomeAddressStreet: WideString dispid 14941; property HomeFaxNumber: WideString dispid 14885; property HomeTelephoneNumber: WideString dispid 14857; property Initials: WideString dispid 14858; property InternetFreeBusyAddress: WideString dispid 32984; property ISDNNumber: WideString dispid 14893; property JobTitle: WideString dispid 14871; property Journal: WordBool dispid 32805; property Language: WideString dispid 14860; property LastFirstAndSuffix: WideString readonly dispid 32822; property LastFirstNoSpace: WideString readonly dispid 32816; property LastFirstNoSpaceCompany: WideString readonly dispid 32820; property LastFirstSpaceOnly: WideString readonly dispid 32817; property LastFirstSpaceOnlyCompany: WideString readonly dispid 32821; property LastName: WideString dispid 14865; property LastNameAndFirstName: WideString readonly dispid 32791; property MailingAddress: WideString dispid 14869; property MailingAddressCity: WideString dispid 14887; property MailingAddressCountry: WideString dispid 14886; property MailingAddressPostalCode: WideString dispid 14890; property MailingAddressPostOfficeBox: WideString dispid 14891; property MailingAddressState: WideString dispid 14888; property MailingAddressStreet: WideString dispid 14889; property ManagerName: WideString dispid 14926; property MiddleName: WideString dispid 14916; property MobileTelephoneNumber: WideString dispid 14876; property NetMeetingAlias: WideString dispid 32863; property NetMeetingServer: WideString dispid 32864; property NickName: WideString dispid 14927; property OfficeLocation: WideString dispid 14873; property OrganizationalIDNumber: WideString dispid 14864; property OtherAddress: WideString dispid 32796; property OtherAddressCity: WideString dispid 14943; property OtherAddressCountry: WideString dispid 14944; property OtherAddressPostalCode: WideString dispid 14945; property OtherAddressPostOfficeBox: WideString dispid 14948; property OtherAddressState: WideString dispid 14946; property OtherAddressStreet: WideString dispid 14947; property OtherFaxNumber: WideString dispid 14883; property OtherTelephoneNumber: WideString dispid 14879; property PagerNumber: WideString dispid 14881; property PersonalHomePage: WideString dispid 14928; property PrimaryTelephoneNumber: WideString dispid 14874; property Profession: WideString dispid 14918; property RadioTelephoneNumber: WideString dispid 14877; property ReferredBy: WideString dispid 14919; property SelectedMailingAddress: OlMailingAddress dispid 32802; property Spouse: WideString dispid 14920; property Suffix: WideString dispid 14853; property TelexNumber: WideString dispid 14892; property Title: WideString dispid 14917; property TTYTDDTelephoneNumber: WideString dispid 14923; property User1: WideString dispid 32847; property User2: WideString dispid 32848; property User3: WideString dispid 32849; property User4: WideString dispid 32850; property UserCertificate: WideString dispid 32790; property WebPage: WideString dispid 32811; property YomiCompanyName: WideString dispid 32814; property YomiFirstName: WideString dispid 32812; property YomiLastName: WideString dispid 32813; function ForwardAsVcard: MailItem; dispid 63649; property Links: Links readonly dispid 62469; property ItemProperties: ItemProperties readonly dispid 64009; property LastFirstNoSpaceAndSuffix: WideString readonly dispid 32824; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property IMAddress: WideString dispid 32866; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _DistListItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063081-0000-0000-C000-000000000046} // *********************************************************************// _DistListItem = interface(IDispatch) ['{00063081-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_DLName: WideString; safecall; procedure Set_DLName(const DLName: WideString); safecall; function Get_MemberCount: Integer; safecall; function Get_CheckSum: Integer; safecall; function Get_Members: OleVariant; safecall; procedure Set_Members(Members: OleVariant); safecall; function Get_OneOffMembers: OleVariant; safecall; procedure Set_OneOffMembers(OneOffMembers: OleVariant); safecall; function Get_Links: Links; safecall; procedure AddMembers(const Recipients: Recipients); safecall; procedure RemoveMembers(const Recipients: Recipients); safecall; function GetMember(Index: Integer): Recipient; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; procedure AddMember(const Recipient: Recipient); safecall; procedure RemoveMember(const Recipient: Recipient); safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property DLName: WideString read Get_DLName write Set_DLName; property MemberCount: Integer read Get_MemberCount; property CheckSum: Integer read Get_CheckSum; property Members: OleVariant read Get_Members write Set_Members; property OneOffMembers: OleVariant read Get_OneOffMembers write Set_OneOffMembers; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _DistListItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063081-0000-0000-C000-000000000046} // *********************************************************************// _DistListItemDisp = dispinterface ['{00063081-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property DLName: WideString dispid 32851; property MemberCount: Integer readonly dispid 32843; property CheckSum: Integer readonly dispid 32844; property Members: OleVariant dispid 32853; property OneOffMembers: OleVariant dispid 32852; property Links: Links readonly dispid 62469; procedure AddMembers(const Recipients: Recipients); dispid 63744; procedure RemoveMembers(const Recipients: Recipients); dispid 63745; function GetMember(Index: Integer): Recipient; dispid 63749; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; procedure AddMember(const Recipient: Recipient); dispid 64140; procedure RemoveMember(const Recipient: Recipient); dispid 64141; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _DocumentItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063020-0000-0000-C000-000000000046} // *********************************************************************// _DocumentItem = interface(IDispatch) ['{00063020-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _DocumentItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063020-0000-0000-C000-000000000046} // *********************************************************************// _DocumentItemDisp = dispinterface ['{00063020-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // DispIntf: ExplorersEvents // Flags: (4096) Dispatchable // GUID: {00063078-0000-0000-C000-000000000046} // *********************************************************************// ExplorersEvents = dispinterface ['{00063078-0000-0000-C000-000000000046}'] procedure NewExplorer(const Explorer: _Explorer); dispid 61441; end; // *********************************************************************// // DispIntf: FoldersEvents // Flags: (4096) Dispatchable // GUID: {00063076-0000-0000-C000-000000000046} // *********************************************************************// FoldersEvents = dispinterface ['{00063076-0000-0000-C000-000000000046}'] procedure FolderAdd(const Folder: MAPIFolder); dispid 61441; procedure FolderChange(const Folder: MAPIFolder); dispid 61442; procedure FolderRemove; dispid 61443; end; // *********************************************************************// // DispIntf: InspectorsEvents // Flags: (4096) Dispatchable // GUID: {00063079-0000-0000-C000-000000000046} // *********************************************************************// InspectorsEvents = dispinterface ['{00063079-0000-0000-C000-000000000046}'] procedure NewInspector(const Inspector: _Inspector); dispid 61441; end; // *********************************************************************// // DispIntf: ItemsEvents // Flags: (4096) Dispatchable // GUID: {00063077-0000-0000-C000-000000000046} // *********************************************************************// ItemsEvents = dispinterface ['{00063077-0000-0000-C000-000000000046}'] procedure ItemAdd(const Item: IDispatch); dispid 61441; procedure ItemChange(const Item: IDispatch); dispid 61442; procedure ItemRemove; dispid 61443; end; // *********************************************************************// // Interface: _JournalItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063022-0000-0000-C000-000000000046} // *********************************************************************// _JournalItem = interface(IDispatch) ['{00063022-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_ContactNames: WideString; safecall; procedure Set_ContactNames(const ContactNames: WideString); safecall; function Get_DocPosted: WordBool; safecall; procedure Set_DocPosted(DocPosted: WordBool); safecall; function Get_DocPrinted: WordBool; safecall; procedure Set_DocPrinted(DocPrinted: WordBool); safecall; function Get_DocRouted: WordBool; safecall; procedure Set_DocRouted(DocRouted: WordBool); safecall; function Get_DocSaved: WordBool; safecall; procedure Set_DocSaved(DocSaved: WordBool); safecall; function Get_Duration: Integer; safecall; procedure Set_Duration(Duration: Integer); safecall; function Get_End_: TDateTime; safecall; procedure Set_End_(End_: TDateTime); safecall; function Get_type_: WideString; safecall; procedure Set_type_(const Type_: WideString); safecall; function Get_Recipients: Recipients; safecall; function Get_Start: TDateTime; safecall; procedure Set_Start(Start: TDateTime); safecall; function Forward: MailItem; safecall; function Reply: MailItem; safecall; function ReplyAll: MailItem; safecall; procedure StartTimer; safecall; procedure StopTimer; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DocPosted: WordBool read Get_DocPosted write Set_DocPosted; property DocPrinted: WordBool read Get_DocPrinted write Set_DocPrinted; property DocRouted: WordBool read Get_DocRouted write Set_DocRouted; property DocSaved: WordBool read Get_DocSaved write Set_DocSaved; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property type_: WideString read Get_type_ write Set_type_; property Recipients: Recipients read Get_Recipients; property Start: TDateTime read Get_Start write Set_Start; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _JournalItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063022-0000-0000-C000-000000000046} // *********************************************************************// _JournalItemDisp = dispinterface ['{00063022-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property ContactNames: WideString dispid 3588; property DocPosted: WordBool dispid 34577; property DocPrinted: WordBool dispid 34574; property DocRouted: WordBool dispid 34576; property DocSaved: WordBool dispid 34575; property Duration: Integer dispid 34567; property End_: TDateTime dispid 34568; property type_: WideString dispid 34560; property Recipients: Recipients readonly dispid 63508; property Start: TDateTime dispid 34566; function Forward: MailItem; dispid 63507; function Reply: MailItem; dispid 63504; function ReplyAll: MailItem; dispid 63505; procedure StartTimer; dispid 63269; procedure StopTimer; dispid 63270; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // DispIntf: NameSpaceEvents // Flags: (4096) Dispatchable // GUID: {0006308C-0000-0000-C000-000000000046} // *********************************************************************// NameSpaceEvents = dispinterface ['{0006308C-0000-0000-C000-000000000046}'] procedure OptionsPagesAdd(const Pages: PropertyPages; const Folder: MAPIFolder); dispid 61445; end; // *********************************************************************// // Interface: _NoteItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063025-0000-0000-C000-000000000046} // *********************************************************************// _NoteItem = interface(IDispatch) ['{00063025-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_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Color: OlNoteColor; safecall; procedure Set_Color(Color: OlNoteColor); safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Height: Integer; safecall; procedure Set_Height(Height: Integer); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_Left: Integer; safecall; procedure Set_Left(Left: Integer); safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Saved: WordBool; safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; function Get_Top: Integer; safecall; procedure Set_Top(Top: Integer); safecall; function Get_Width: Integer; safecall; procedure Set_Width(Width: Integer); safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Color: OlNoteColor read Get_Color write Set_Color; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property GetInspector: _Inspector read Get_GetInspector; property Height: Integer read Get_Height write Set_Height; property LastModificationTime: TDateTime read Get_LastModificationTime; property Left: Integer read Get_Left write Set_Left; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _NoteItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063025-0000-0000-C000-000000000046} // *********************************************************************// _NoteItemDisp = dispinterface ['{00063025-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 Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Color: OlNoteColor dispid 35584; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property GetInspector: _Inspector readonly dispid 61502; property Height: Integer dispid 35587; property LastModificationTime: TDateTime readonly dispid 12296; property Left: Integer dispid 35588; property MessageClass: WideString dispid 26; property Saved: WordBool readonly dispid 61603; property Size: Integer readonly dispid 3592; property Subject: WideString readonly dispid 63392; property Top: Integer dispid 35589; property Width: Integer dispid 35586; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: OutlookBarGroup // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063073-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarGroup = interface(IDispatch) ['{00063073-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_Name: WideString; safecall; procedure Set_Name(const Name: WideString); safecall; function Get_Shortcuts: _OutlookBarShortcuts; safecall; function Get_ViewType: OlOutlookBarViewType; safecall; procedure Set_ViewType(ViewType: OlOutlookBarViewType); 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 Name: WideString read Get_Name write Set_Name; property Shortcuts: _OutlookBarShortcuts read Get_Shortcuts; property ViewType: OlOutlookBarViewType read Get_ViewType write Set_ViewType; end; // *********************************************************************// // DispIntf: OutlookBarGroupDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063073-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarGroupDisp = dispinterface ['{00063073-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 Name: WideString dispid 0; property Shortcuts: _OutlookBarShortcuts readonly dispid 8450; property ViewType: OlOutlookBarViewType dispid 8451; end; // *********************************************************************// // Interface: _OutlookBarShortcuts // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063074-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarShortcuts = interface(IDispatch) ['{00063074-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): OutlookBarShortcut; safecall; function Add(Target: OleVariant; const Name: WideString; Index: OleVariant): OutlookBarShortcut; safecall; procedure Remove(Index: 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; end; // *********************************************************************// // DispIntf: _OutlookBarShortcutsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063074-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarShortcutsDisp = dispinterface ['{00063074-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): OutlookBarShortcut; dispid 81; function Add(Target: OleVariant; const Name: WideString; Index: OleVariant): OutlookBarShortcut; dispid 95; procedure Remove(Index: OleVariant); dispid 84; end; // *********************************************************************// // Interface: OutlookBarShortcut // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063075-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarShortcut = interface(IDispatch) ['{00063075-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_Name: WideString; safecall; procedure Set_Name(const Name: WideString); safecall; function Get_Target: OleVariant; safecall; procedure SetIcon(Icon: 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 Name: WideString read Get_Name write Set_Name; property Target: OleVariant read Get_Target; end; // *********************************************************************// // DispIntf: OutlookBarShortcutDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063075-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarShortcutDisp = dispinterface ['{00063075-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 Name: WideString dispid 0; property Target: OleVariant readonly dispid 8448; procedure SetIcon(Icon: OleVariant); dispid 64162; end; // *********************************************************************// // Interface: _OutlookBarGroups // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063072-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarGroups = interface(IDispatch) ['{00063072-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): OutlookBarGroup; safecall; function Add(const Name: WideString; Index: OleVariant): OutlookBarGroup; safecall; procedure Remove(Index: 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; end; // *********************************************************************// // DispIntf: _OutlookBarGroupsDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063072-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarGroupsDisp = dispinterface ['{00063072-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): OutlookBarGroup; dispid 81; function Add(const Name: WideString; Index: OleVariant): OutlookBarGroup; dispid 95; procedure Remove(Index: OleVariant); dispid 84; end; // *********************************************************************// // DispIntf: OutlookBarGroupsEvents // Flags: (4096) Dispatchable // GUID: {0006307B-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarGroupsEvents = dispinterface ['{0006307B-0000-0000-C000-000000000046}'] procedure GroupAdd(const NewGroup: OutlookBarGroup); dispid 61441; procedure BeforeGroupAdd(var Cancel: WordBool); dispid 61442; procedure BeforeGroupRemove(const Group: OutlookBarGroup; var Cancel: WordBool); dispid 61443; end; // *********************************************************************// // Interface: _OutlookBarPane // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063070-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarPane = interface(IDispatch) ['{00063070-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_Contents: OutlookBarStorage; safecall; function Get_CurrentGroup: OutlookBarGroup; safecall; procedure _Set_CurrentGroup(const CurrentGroup: OutlookBarGroup); safecall; function Get_Name: WideString; safecall; function Get_Visible: WordBool; safecall; procedure Set_Visible(Visible: 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 Contents: OutlookBarStorage read Get_Contents; property CurrentGroup: OutlookBarGroup read Get_CurrentGroup write _Set_CurrentGroup; property Name: WideString read Get_Name; property Visible: WordBool read Get_Visible write Set_Visible; end; // *********************************************************************// // DispIntf: _OutlookBarPaneDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063070-0000-0000-C000-000000000046} // *********************************************************************// _OutlookBarPaneDisp = dispinterface ['{00063070-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 Contents: OutlookBarStorage readonly dispid 8448; property CurrentGroup: OutlookBarGroup dispid 8449; property Name: WideString readonly dispid 0; property Visible: WordBool dispid 8451; end; // *********************************************************************// // Interface: OutlookBarStorage // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063071-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarStorage = interface(IDispatch) ['{00063071-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_Groups: _OutlookBarGroups; 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 Groups: _OutlookBarGroups read Get_Groups; end; // *********************************************************************// // DispIntf: OutlookBarStorageDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063071-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarStorageDisp = dispinterface ['{00063071-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 Groups: _OutlookBarGroups readonly dispid 0; end; // *********************************************************************// // DispIntf: OutlookBarPaneEvents // Flags: (4096) Dispatchable // GUID: {0006307A-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarPaneEvents = dispinterface ['{0006307A-0000-0000-C000-000000000046}'] procedure BeforeNavigate(const Shortcut: OutlookBarShortcut; var Cancel: WordBool); dispid 61441; procedure BeforeGroupSwitch(const ToGroup: OutlookBarGroup; var Cancel: WordBool); dispid 61442; end; // *********************************************************************// // DispIntf: OutlookBarShortcutsEvents // Flags: (4096) Dispatchable // GUID: {0006307C-0000-0000-C000-000000000046} // *********************************************************************// OutlookBarShortcutsEvents = dispinterface ['{0006307C-0000-0000-C000-000000000046}'] procedure ShortcutAdd(const NewShortcut: OutlookBarShortcut); dispid 61441; procedure BeforeShortcutAdd(var Cancel: WordBool); dispid 61442; procedure BeforeShortcutRemove(const Shortcut: OutlookBarShortcut; var Cancel: WordBool); dispid 61443; end; // *********************************************************************// // Interface: PropertyPage // Flags: (4096) Dispatchable // GUID: {0006307E-0000-0000-C000-000000000046} // *********************************************************************// PropertyPage = interface(IDispatch) ['{0006307E-0000-0000-C000-000000000046}'] function GetPageInfo(var HelpFile: WideString; var HelpContext: Integer): HResult; stdcall; function Get_Dirty(out Dirty: WordBool): HResult; stdcall; function Apply: HResult; stdcall; end; // *********************************************************************// // Interface: PropertyPageSite // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006307F-0000-0000-C000-000000000046} // *********************************************************************// PropertyPageSite = interface(IDispatch) ['{0006307F-0000-0000-C000-000000000046}'] function Get_Application: _Application; safecall; function Get_Class_: OlObjectClass; safecall; function Get_Session: _NameSpace; safecall; function Get_Parent: IDispatch; safecall; procedure OnStatusChange; 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; end; // *********************************************************************// // DispIntf: PropertyPageSiteDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006307F-0000-0000-C000-000000000046} // *********************************************************************// PropertyPageSiteDisp = dispinterface ['{0006307F-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; procedure OnStatusChange; dispid 8448; end; // *********************************************************************// // Interface: Pages // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303F-0000-0000-C000-000000000046} // *********************************************************************// Pages = interface(IDispatch) ['{0006303F-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): IDispatch; safecall; function Add(Name: OleVariant): IDispatch; 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; end; // *********************************************************************// // DispIntf: PagesDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {0006303F-0000-0000-C000-000000000046} // *********************************************************************// PagesDisp = dispinterface ['{0006303F-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): IDispatch; dispid 81; function Add(Name: OleVariant): IDispatch; dispid 300; procedure Remove(Index: Integer); dispid 301; end; // *********************************************************************// // Interface: _PostItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063024-0000-0000-C000-000000000046} // *********************************************************************// _PostItem = interface(IDispatch) ['{00063024-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_ExpiryTime: TDateTime; safecall; procedure Set_ExpiryTime(ExpiryTime: TDateTime); safecall; function Get_HTMLBody: WideString; safecall; procedure Set_HTMLBody(const HTMLBody: WideString); safecall; function Get_ReceivedTime: TDateTime; safecall; function Get_SenderName: WideString; safecall; function Get_SentOn: TDateTime; safecall; procedure ClearConversationIndex; safecall; function Forward: MailItem; safecall; procedure Post; safecall; function Reply: MailItem; safecall; function Get_Links: Links; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_BodyFormat: OlBodyFormat; safecall; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_InternetCodepage: Integer; safecall; procedure Set_InternetCodepage(InternetCodepage: Integer); safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function SetACLs: WordBool; safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property ReceivedTime: TDateTime read Get_ReceivedTime; property SenderName: WideString read Get_SenderName; property SentOn: TDateTime read Get_SentOn; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property DownloadState: OlDownloadState read Get_DownloadState; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _PostItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063024-0000-0000-C000-000000000046} // *********************************************************************// _PostItemDisp = dispinterface ['{00063024-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property ExpiryTime: TDateTime dispid 21; property HTMLBody: WideString dispid 62468; property ReceivedTime: TDateTime readonly dispid 3590; property SenderName: WideString readonly dispid 3098; property SentOn: TDateTime readonly dispid 57; procedure ClearConversationIndex; dispid 63522; function Forward: MailItem; dispid 63507; procedure Post; dispid 61557; function Reply: MailItem; dispid 63504; property Links: Links readonly dispid 62469; property ItemProperties: ItemProperties readonly dispid 64009; property BodyFormat: OlBodyFormat dispid 64073; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property InternetCodepage: Integer dispid 16350; property MarkForDownload: OlRemoteStatus dispid 34161; function SetACLs: WordBool; dispid 64163; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _RemoteItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063023-0000-0000-C000-000000000046} // *********************************************************************// _RemoteItem = interface(IDispatch) ['{00063023-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_HasAttachment: WordBool; safecall; function Get_RemoteMessageClass: WideString; safecall; function Get_TransferSize: Integer; safecall; function Get_TransferTime: Integer; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property HasAttachment: WordBool read Get_HasAttachment; property RemoteMessageClass: WideString read Get_RemoteMessageClass; property TransferSize: Integer read Get_TransferSize; property TransferTime: Integer read Get_TransferTime; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _RemoteItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063023-0000-0000-C000-000000000046} // *********************************************************************// _RemoteItemDisp = dispinterface ['{00063023-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property HasAttachment: WordBool readonly dispid 36615; property RemoteMessageClass: WideString readonly dispid 36610; property TransferSize: Integer readonly dispid 36613; property TransferTime: Integer readonly dispid 36612; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _ReportItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063026-0000-0000-C000-000000000046} // *********************************************************************// _ReportItem = interface(IDispatch) ['{00063026-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _ReportItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063026-0000-0000-C000-000000000046} // *********************************************************************// _ReportItemDisp = dispinterface ['{00063026-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _TaskItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063035-0000-0000-C000-000000000046} // *********************************************************************// _TaskItem = interface(IDispatch) ['{00063035-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function Get_ActualWork: Integer; safecall; procedure Set_ActualWork(ActualWork: Integer); safecall; function Get_CardData: WideString; safecall; procedure Set_CardData(const CardData: WideString); safecall; function Get_Complete: WordBool; safecall; procedure Set_Complete(Complete: WordBool); safecall; function Get_Contacts: WideString; safecall; procedure Set_Contacts(const Contacts: WideString); safecall; function Get_ContactNames: WideString; safecall; procedure Set_ContactNames(const ContactNames: WideString); safecall; function Get_DateCompleted: TDateTime; safecall; procedure Set_DateCompleted(DateCompleted: TDateTime); safecall; function Get_DelegationState: OlTaskDelegationState; safecall; function Get_Delegator: WideString; safecall; function Get_DueDate: TDateTime; safecall; procedure Set_DueDate(DueDate: TDateTime); safecall; function Get_IsRecurring: WordBool; safecall; function Get_Ordinal: Integer; safecall; procedure Set_Ordinal(Ordinal: Integer); safecall; function Get_Owner: WideString; safecall; procedure Set_Owner(const Owner: WideString); safecall; function Get_Ownership: OlTaskOwnership; safecall; function Get_PercentComplete: Integer; safecall; procedure Set_PercentComplete(PercentComplete: Integer); safecall; function Get_Recipients: Recipients; safecall; function Get_ReminderTime: TDateTime; safecall; procedure Set_ReminderTime(ReminderTime: TDateTime); safecall; function Get_ReminderOverrideDefault: WordBool; safecall; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); safecall; function Get_ReminderPlaySound: WordBool; safecall; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); safecall; function Get_ReminderSet: WordBool; safecall; procedure Set_ReminderSet(ReminderSet: WordBool); safecall; function Get_ReminderSoundFile: WideString; safecall; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); safecall; function Get_ResponseState: OlTaskResponse; safecall; function Get_Role: WideString; safecall; procedure Set_Role(const Role: WideString); safecall; function Get_SchedulePlusPriority: WideString; safecall; procedure Set_SchedulePlusPriority(const SchedulePlusPriority: WideString); safecall; function Get_StartDate: TDateTime; safecall; procedure Set_StartDate(StartDate: TDateTime); safecall; function Get_Status: OlTaskStatus; safecall; procedure Set_Status(Status: OlTaskStatus); safecall; function Get_StatusOnCompletionRecipients: WideString; safecall; procedure Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString); safecall; function Get_StatusUpdateRecipients: WideString; safecall; procedure Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString); safecall; function Get_TeamTask: WordBool; safecall; procedure Set_TeamTask(TeamTask: WordBool); safecall; function Get_TotalWork: Integer; safecall; procedure Set_TotalWork(TotalWork: Integer); safecall; function Assign_: TaskItem; safecall; procedure CancelResponseState; safecall; procedure ClearRecurrencePattern; safecall; function GetRecurrencePattern: RecurrencePattern; safecall; procedure MarkComplete; safecall; function Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem; safecall; procedure Send; safecall; function SkipRecurrence: WordBool; safecall; function StatusReport: IDispatch; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_InternetCodepage: Integer; safecall; procedure Set_InternetCodepage(InternetCodepage: Integer); safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property ActualWork: Integer read Get_ActualWork write Set_ActualWork; property CardData: WideString read Get_CardData write Set_CardData; property Complete: WordBool read Get_Complete write Set_Complete; property Contacts: WideString read Get_Contacts write Set_Contacts; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DateCompleted: TDateTime read Get_DateCompleted write Set_DateCompleted; property DelegationState: OlTaskDelegationState read Get_DelegationState; property Delegator: WideString read Get_Delegator; property DueDate: TDateTime read Get_DueDate write Set_DueDate; property IsRecurring: WordBool read Get_IsRecurring; property Ordinal: Integer read Get_Ordinal write Set_Ordinal; property Owner: WideString read Get_Owner write Set_Owner; property Ownership: OlTaskOwnership read Get_Ownership; property PercentComplete: Integer read Get_PercentComplete write Set_PercentComplete; property Recipients: Recipients read Get_Recipients; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ResponseState: OlTaskResponse read Get_ResponseState; property Role: WideString read Get_Role write Set_Role; property SchedulePlusPriority: WideString read Get_SchedulePlusPriority write Set_SchedulePlusPriority; property StartDate: TDateTime read Get_StartDate write Set_StartDate; property Status: OlTaskStatus read Get_Status write Set_Status; property StatusOnCompletionRecipients: WideString read Get_StatusOnCompletionRecipients write Set_StatusOnCompletionRecipients; property StatusUpdateRecipients: WideString read Get_StatusUpdateRecipients write Set_StatusUpdateRecipients; property TeamTask: WordBool read Get_TeamTask write Set_TeamTask; property TotalWork: Integer read Get_TotalWork write Set_TotalWork; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _TaskItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063035-0000-0000-C000-000000000046} // *********************************************************************// _TaskItemDisp = dispinterface ['{00063035-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; property ActualWork: Integer dispid 33040; property CardData: WideString dispid 33067; property Complete: WordBool dispid 33052; property Contacts: WideString dispid 34106; property ContactNames: WideString dispid 34108; property DateCompleted: TDateTime dispid 33039; property DelegationState: OlTaskDelegationState readonly dispid 33066; property Delegator: WideString readonly dispid 33057; property DueDate: TDateTime dispid 33029; property IsRecurring: WordBool readonly dispid 62999; property Ordinal: Integer dispid 33059; property Owner: WideString dispid 33055; property Ownership: OlTaskOwnership readonly dispid 33065; property PercentComplete: Integer dispid 63007; property Recipients: Recipients readonly dispid 63508; property ReminderTime: TDateTime dispid 34050; property ReminderOverrideDefault: WordBool dispid 34076; property ReminderPlaySound: WordBool dispid 34078; property ReminderSet: WordBool dispid 34051; property ReminderSoundFile: WideString dispid 34079; property ResponseState: OlTaskResponse readonly dispid 63011; property Role: WideString dispid 33063; property SchedulePlusPriority: WideString dispid 33071; property StartDate: TDateTime dispid 33028; property Status: OlTaskStatus dispid 33025; property StatusOnCompletionRecipients: WideString dispid 3586; property StatusUpdateRecipients: WideString dispid 3587; property TeamTask: WordBool dispid 33027; property TotalWork: Integer dispid 33041; function Assign_: TaskItem; dispid 63008; procedure CancelResponseState; dispid 63010; procedure ClearRecurrencePattern; dispid 61605; function GetRecurrencePattern: RecurrencePattern; dispid 61604; procedure MarkComplete; dispid 62989; function Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem; dispid 63009; procedure Send; dispid 61557; function SkipRecurrence: WordBool; dispid 63012; function StatusReport: IDispatch; dispid 62994; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property InternetCodepage: Integer dispid 16350; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _TaskRequestAcceptItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063038-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestAcceptItem = interface(IDispatch) ['{00063038-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _TaskRequestAcceptItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063038-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestAcceptItemDisp = dispinterface ['{00063038-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _TaskRequestDeclineItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063039-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestDeclineItem = interface(IDispatch) ['{00063039-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _TaskRequestDeclineItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063039-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestDeclineItemDisp = dispinterface ['{00063039-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _TaskRequestItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063036-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestItem = interface(IDispatch) ['{00063036-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _TaskRequestItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063036-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestItemDisp = dispinterface ['{00063036-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // Interface: _TaskRequestUpdateItem // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063037-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestUpdateItem = interface(IDispatch) ['{00063037-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_Actions: Actions; safecall; function Get_Attachments: Attachments; safecall; function Get_BillingInformation: WideString; safecall; procedure Set_BillingInformation(const BillingInformation: WideString); safecall; function Get_Body: WideString; safecall; procedure Set_Body(const Body: WideString); safecall; function Get_Categories: WideString; safecall; procedure Set_Categories(const Categories: WideString); safecall; function Get_Companies: WideString; safecall; procedure Set_Companies(const Companies: WideString); safecall; function Get_ConversationIndex: WideString; safecall; function Get_ConversationTopic: WideString; safecall; function Get_CreationTime: TDateTime; safecall; function Get_EntryID: WideString; safecall; function Get_FormDescription: FormDescription; safecall; function Get_GetInspector: _Inspector; safecall; function Get_Importance: OlImportance; safecall; procedure Set_Importance(Importance: OlImportance); safecall; function Get_LastModificationTime: TDateTime; safecall; function Get_MAPIOBJECT: IUnknown; safecall; function Get_MessageClass: WideString; safecall; procedure Set_MessageClass(const MessageClass: WideString); safecall; function Get_Mileage: WideString; safecall; procedure Set_Mileage(const Mileage: WideString); safecall; function Get_NoAging: WordBool; safecall; procedure Set_NoAging(NoAging: WordBool); safecall; function Get_OutlookInternalVersion: Integer; safecall; function Get_OutlookVersion: WideString; safecall; function Get_Saved: WordBool; safecall; function Get_Sensitivity: OlSensitivity; safecall; procedure Set_Sensitivity(Sensitivity: OlSensitivity); safecall; function Get_Size: Integer; safecall; function Get_Subject: WideString; safecall; procedure Set_Subject(const Subject: WideString); safecall; function Get_UnRead: WordBool; safecall; procedure Set_UnRead(UnRead: WordBool); safecall; function Get_UserProperties: UserProperties; safecall; procedure Close(SaveMode: OlInspectorClose); safecall; function Copy: IDispatch; safecall; procedure Delete; safecall; procedure Display(Modal: OleVariant); safecall; function Move(const DestFldr: MAPIFolder): IDispatch; safecall; procedure PrintOut; safecall; procedure Save; safecall; procedure SaveAs(const Path: WideString; Type_: OleVariant); safecall; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; safecall; function Get_Links: Links; safecall; function Get_DownloadState: OlDownloadState; safecall; procedure ShowCategoriesDialog; safecall; function Get_ItemProperties: ItemProperties; safecall; function Get_MarkForDownload: OlRemoteStatus; safecall; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); safecall; function Get_IsConflict: 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property Importance: OlImportance read Get_Importance write Set_Importance; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; property IsConflict: WordBool read Get_IsConflict; end; // *********************************************************************// // DispIntf: _TaskRequestUpdateItemDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {00063037-0000-0000-C000-000000000046} // *********************************************************************// _TaskRequestUpdateItemDisp = dispinterface ['{00063037-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 Actions: Actions readonly dispid 63511; property Attachments: Attachments readonly dispid 63509; property BillingInformation: WideString dispid 34101; property Body: WideString dispid 37120; property Categories: WideString dispid 36865; property Companies: WideString dispid 34107; property ConversationIndex: WideString readonly dispid 113; property ConversationTopic: WideString readonly dispid 112; property CreationTime: TDateTime readonly dispid 12295; property EntryID: WideString readonly dispid 61470; property FormDescription: FormDescription readonly dispid 61589; property GetInspector: _Inspector readonly dispid 61502; property Importance: OlImportance dispid 23; property LastModificationTime: TDateTime readonly dispid 12296; property MAPIOBJECT: IUnknown readonly dispid 61696; property MessageClass: WideString dispid 26; property Mileage: WideString dispid 34100; property NoAging: WordBool dispid 34062; property OutlookInternalVersion: Integer readonly dispid 34130; property OutlookVersion: WideString readonly dispid 34132; property Saved: WordBool readonly dispid 61603; property Sensitivity: OlSensitivity dispid 54; property Size: Integer readonly dispid 3592; property Subject: WideString dispid 55; property UnRead: WordBool dispid 61468; property UserProperties: UserProperties readonly dispid 63510; procedure Close(SaveMode: OlInspectorClose); dispid 61475; function Copy: IDispatch; dispid 61490; procedure Delete; dispid 61514; procedure Display(Modal: OleVariant); dispid 61606; function Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492; procedure PrintOut; dispid 61491; procedure Save; dispid 61512; procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460; property Links: Links readonly dispid 62469; property DownloadState: OlDownloadState readonly dispid 64077; procedure ShowCategoriesDialog; dispid 64011; property ItemProperties: ItemProperties readonly dispid 64009; property MarkForDownload: OlRemoteStatus dispid 34161; property IsConflict: WordBool readonly dispid 64164; end; // *********************************************************************// // DispIntf: ApplicationEvents_10 // Flags: (4096) Dispatchable // GUID: {0006300E-0000-0000-C000-000000000046} // *********************************************************************// ApplicationEvents_10 = dispinterface ['{0006300E-0000-0000-C000-000000000046}'] procedure ItemSend(const Item: IDispatch; var Cancel: WordBool); dispid 61442; procedure NewMail; dispid 61443; procedure Reminder(const Item: IDispatch); dispid 61444; procedure OptionsPagesAdd(const Pages: PropertyPages); dispid 61445; procedure Startup; dispid 61446; procedure Quit; dispid 61447; procedure AdvancedSearchComplete(const SearchObject: Search); dispid 64106; procedure AdvancedSearchStopped(const SearchObject: Search); dispid 64107; procedure MAPILogonComplete; dispid 64144; end; // *********************************************************************// // DispIntf: ResultsEvents // Flags: (4096) Dispatchable // GUID: {0006300D-0000-0000-C000-000000000046} // *********************************************************************// ResultsEvents = dispinterface ['{0006300D-0000-0000-C000-000000000046}'] procedure ItemAdd(const Item: IDispatch); dispid 61441; procedure ItemChange(const Item: IDispatch); dispid 61442; procedure ItemRemove; dispid 61443; end; // *********************************************************************// // DispIntf: _ViewsEvents // Flags: (4096) Dispatchable // GUID: {000630A5-0000-0000-C000-000000000046} // *********************************************************************// _ViewsEvents = dispinterface ['{000630A5-0000-0000-C000-000000000046}'] procedure ViewAdd(const View: View); dispid 400; procedure ViewRemove(const View: View); dispid 64071; end; // *********************************************************************// // DispIntf: ReminderCollectionEvents // Flags: (4096) Dispatchable // GUID: {000630B2-0000-0000-C000-000000000046} // *********************************************************************// ReminderCollectionEvents = dispinterface ['{000630B2-0000-0000-C000-000000000046}'] procedure BeforeReminderShow(var Cancel: WordBool); dispid 64147; procedure ReminderAdd(const ReminderObject: _Reminder); dispid 64148; procedure ReminderChange(const ReminderObject: _Reminder); dispid 64149; procedure ReminderFire(const ReminderObject: _Reminder); dispid 64150; procedure ReminderRemove; dispid 64151; procedure Snooze(const ReminderObject: _Reminder); dispid 64152; end; // *********************************************************************// // Interface: _IRecipientControl // Flags: (4112) Hidden Dispatchable // GUID: {D87E7E16-6897-11CE-A6C0-00AA00608FAA} // *********************************************************************// _IRecipientControl = interface(IDispatch) ['{D87E7E16-6897-11CE-A6C0-00AA00608FAA}'] function Get_Enabled(out Enabled: WordBool): HResult; stdcall; function Set_Enabled(Enabled: WordBool): HResult; stdcall; function Get_BackColor(out BackColor: Integer): HResult; stdcall; function Set_BackColor(BackColor: Integer): HResult; stdcall; function Get_ForeColor(out ForeColor: Integer): HResult; stdcall; function Set_ForeColor(ForeColor: Integer): HResult; stdcall; function Get_ReadOnly(out ReadOnly: WordBool): HResult; stdcall; function Set_ReadOnly(ReadOnly: WordBool): HResult; stdcall; function Get_Font(out Font: IDispatch): HResult; stdcall; function Set_Font(const Font: IDispatch): HResult; stdcall; function Get_SpecialEffect(out Effect: Integer): HResult; stdcall; function Set_SpecialEffect(Effect: Integer): HResult; stdcall; end; // *********************************************************************// // DispIntf: _DRecipientControl // Flags: (4112) Hidden Dispatchable // GUID: {0006F025-0000-0000-C000-000000000046} // *********************************************************************// _DRecipientControl = dispinterface ['{0006F025-0000-0000-C000-000000000046}'] property Enabled: WordBool dispid -514; property BackColor: Integer dispid -501; property ForeColor: Integer dispid -513; property ReadOnly: WordBool dispid -2147356664; property Font: IDispatch dispid -512; property SpecialEffect: Integer dispid 12; end; // *********************************************************************// // DispIntf: _DRecipientControlEvents // Flags: (4112) Hidden Dispatchable // GUID: {D87E7E17-6897-11CE-A6C0-00AA00608FAA} // *********************************************************************// _DRecipientControlEvents = dispinterface ['{D87E7E17-6897-11CE-A6C0-00AA00608FAA}'] end; // *********************************************************************// // Interface: _IDocSiteControl // Flags: (4112) Hidden Dispatchable // GUID: {43507DD0-811D-11CE-B565-00AA00608FAA} // *********************************************************************// _IDocSiteControl = interface(IDispatch) ['{43507DD0-811D-11CE-B565-00AA00608FAA}'] function Get_ReadOnly(out ReadOnly: WordBool): HResult; stdcall; function Set_ReadOnly(ReadOnly: WordBool): HResult; stdcall; end; // *********************************************************************// // DispIntf: _DDocSiteControl // Flags: (4112) Hidden Dispatchable // GUID: {0006F026-0000-0000-C000-000000000046} // *********************************************************************// _DDocSiteControl = dispinterface ['{0006F026-0000-0000-C000-000000000046}'] property ReadOnly: WordBool dispid -2147356664; end; // *********************************************************************// // DispIntf: _DDocSiteControlEvents // Flags: (4112) Hidden Dispatchable // GUID: {50BB9B50-811D-11CE-B565-00AA00608FAA} // *********************************************************************// _DDocSiteControlEvents = dispinterface ['{50BB9B50-811D-11CE-B565-00AA00608FAA}'] end; // *********************************************************************// // Interface: _IDpxCtrl // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {0006F097-0000-0000-C000-000000000046} // *********************************************************************// _IDpxCtrl = interface(IDispatch) ['{0006F097-0000-0000-C000-000000000046}'] function Get_StartDate: Integer; safecall; procedure Set_StartDate(plStartDate: Integer); safecall; function Get_EndDate: Integer; safecall; procedure Set_EndDate(plEndDate: Integer); safecall; property StartDate: Integer read Get_StartDate write Set_StartDate; property EndDate: Integer read Get_EndDate write Set_EndDate; end; // *********************************************************************// // DispIntf: _IDpxCtrlDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {0006F097-0000-0000-C000-000000000046} // *********************************************************************// _IDpxCtrlDisp = dispinterface ['{0006F097-0000-0000-C000-000000000046}'] property StartDate: Integer dispid 64091; property EndDate: Integer dispid 64092; end; // *********************************************************************// // Interface: _IPageWrapCtrl // Flags: (4112) Hidden Dispatchable // GUID: {494F0970-DD96-11D2-AF70-006008AFF117} // *********************************************************************// _IPageWrapCtrl = interface(IDispatch) ['{494F0970-DD96-11D2-AF70-006008AFF117}'] function Get_BackColor(out pcolorRef: LongWord): HResult; stdcall; function Set_BackColor(pcolorRef: LongWord): HResult; stdcall; end; // *********************************************************************// // DispIntf: _DPageWrapCtrl // Flags: (4112) Hidden Dispatchable // GUID: {0006F096-0000-0000-C000-000000000046} // *********************************************************************// _DPageWrapCtrl = dispinterface ['{0006F096-0000-0000-C000-000000000046}'] property BackColor: LongWord dispid 64090; end; // *********************************************************************// // DispIntf: _DPageWrapCtrlEvents // Flags: (4112) Hidden Dispatchable // GUID: {494F0971-DD96-11D2-AF70-006008AFF117} // *********************************************************************// _DPageWrapCtrlEvents = dispinterface ['{494F0971-DD96-11D2-AF70-006008AFF117}'] end; // *********************************************************************// // Interface: _IInspectorCtrl // Flags: (4112) Hidden Dispatchable // GUID: {E182A127-EADD-46E1-B878-482C48CD8754} // *********************************************************************// _IInspectorCtrl = interface(IDispatch) ['{E182A127-EADD-46E1-B878-482C48CD8754}'] function Get_URL(out ppwzURL: WideString): HResult; stdcall; function Set_URL(const ppwzURL: WideString): HResult; stdcall; function Get_Item(out ppdisp: IDispatch): HResult; stdcall; function OnItemChange(const pdispItem: IDispatch): HResult; stdcall; end; // *********************************************************************// // DispIntf: _DInspectorCtrl // Flags: (4112) Hidden Dispatchable // GUID: {0006F09D-0000-0000-C000-000000000046} // *********************************************************************// _DInspectorCtrl = dispinterface ['{0006F09D-0000-0000-C000-000000000046}'] property URL: WideString dispid 64132; property Item: IDispatch readonly dispid 64134; procedure OnItemChange(const pdispItem: IDispatch); dispid 64137; end; // *********************************************************************// // DispIntf: _DInspectorEvents // Flags: (4112) Hidden Dispatchable // GUID: {2D9C6D57-BD3C-4275-BED2-73F0EDC18CCE} // *********************************************************************// _DInspectorEvents = dispinterface ['{2D9C6D57-BD3C-4275-BED2-73F0EDC18CCE}'] end; // *********************************************************************// // DispIntf: DDataSourceObject // Flags: (4112) Hidden Dispatchable // GUID: {11858B51-DE06-494E-915A-6CCEF17F7CB6} // *********************************************************************// DDataSourceObject = dispinterface ['{11858B51-DE06-494E-915A-6CCEF17F7CB6}'] property OutlookItem: IDispatch dispid 64096; end; // *********************************************************************// // The Class CoSyncObject provides a Create and CreateRemote method to // create instances of the default interface _SyncObject exposed by // the CoClass SyncObject. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoSyncObject = class class function Create: _SyncObject; class function CreateRemote(const MachineName: string): _SyncObject; end; TSyncObjectProgress = procedure(ASender: TObject; State: OlSyncState; const Description: WideString; Value: Integer; Max: Integer) of object; TSyncObjectOnError = procedure(ASender: TObject; Code: Integer; const Description: WideString) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TSyncObject // Help String : // Default Interface: _SyncObject // Def. Intf. DISP? : No // Event Interface: SyncObjectEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TSyncObjectProperties= class; {$ENDIF} TSyncObject = class(TOleServer) private FOnSyncStart: TNotifyEvent; FOnProgress: TSyncObjectProgress; FOnError: TSyncObjectOnError; FOnSyncEnd: TNotifyEvent; FIntf: _SyncObject; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TSyncObjectProperties; function GetServerProperties: TSyncObjectProperties; {$ENDIF} function GetDefaultInterface: _SyncObject; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Name: WideString; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _SyncObject); procedure Disconnect; override; procedure Start; procedure Stop; property DefaultInterface: _SyncObject read GetDefaultInterface; 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 Name: WideString read Get_Name; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TSyncObjectProperties read GetServerProperties; {$ENDIF} property OnSyncStart: TNotifyEvent read FOnSyncStart write FOnSyncStart; property OnProgress: TSyncObjectProgress read FOnProgress write FOnProgress; property OnError: TSyncObjectOnError read FOnError write FOnError; property OnSyncEnd: TNotifyEvent read FOnSyncEnd write FOnSyncEnd; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TSyncObject // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TSyncObjectProperties = class(TPersistent) private FServer: TSyncObject; function GetDefaultInterface: _SyncObject; constructor Create(AServer: TSyncObject); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Name: WideString; public property DefaultInterface: _SyncObject read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoExplorer provides a Create and CreateRemote method to // create instances of the default interface _Explorer exposed by // the CoClass Explorer. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExplorer = class class function Create: _Explorer; class function CreateRemote(const MachineName: string): _Explorer; end; TExplorerBeforeFolderSwitch = procedure(ASender: TObject; const NewFolder: IDispatch; var Cancel: WordBool) of object; TExplorerBeforeViewSwitch = procedure(ASender: TObject; NewView: OleVariant; var Cancel: WordBool) of object; TExplorerBeforeMaximize = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeMinimize = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeMove = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeSize = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeItemCopy = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeItemCut = procedure(ASender: TObject; var Cancel: WordBool) of object; TExplorerBeforeItemPaste = procedure(ASender: TObject; var ClipboardContent: OleVariant; const Target: MAPIFolder; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExplorer // Help String : // Default Interface: _Explorer // Def. Intf. DISP? : No // Event Interface: ExplorerEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TExplorerProperties= class; {$ENDIF} TExplorer = class(TOleServer) private FOnActivate: TNotifyEvent; FOnFolderSwitch: TNotifyEvent; FOnBeforeFolderSwitch: TExplorerBeforeFolderSwitch; FOnViewSwitch: TNotifyEvent; FOnBeforeViewSwitch: TExplorerBeforeViewSwitch; FOnDeactivate: TNotifyEvent; FOnSelectionChange: TNotifyEvent; FOnClose: TNotifyEvent; FOnBeforeMaximize: TExplorerBeforeMaximize; FOnBeforeMinimize: TExplorerBeforeMinimize; FOnBeforeMove: TExplorerBeforeMove; FOnBeforeSize: TExplorerBeforeSize; FOnBeforeItemCopy: TExplorerBeforeItemCopy; FOnBeforeItemCut: TExplorerBeforeItemCut; FOnBeforeItemPaste: TExplorerBeforeItemPaste; FIntf: _Explorer; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TExplorerProperties; function GetServerProperties: TExplorerProperties; {$ENDIF} function GetDefaultInterface: _Explorer; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CommandBars: CommandBars; function Get_CurrentFolder: MAPIFolder; procedure _Set_CurrentFolder(const CurrentFolder: MAPIFolder); function Get_Caption: WideString; function Get_CurrentView: OleVariant; procedure Set_CurrentView(CurrentView: OleVariant); function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_Panes: Panes; function Get_Selection: Selection; function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_WindowState: OlWindowState; procedure Set_WindowState(WindowState: OlWindowState); function Get_Views: IDispatch; function Get_HTMLDocument: IDispatch; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Explorer); procedure Disconnect; override; procedure Close; procedure Display; procedure Activate; function IsPaneVisible(Pane: OlPane): WordBool; procedure ShowPane(Pane: OlPane; Visible: WordBool); property DefaultInterface: _Explorer read GetDefaultInterface; 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 CommandBars: CommandBars read Get_CommandBars; property CurrentFolder: MAPIFolder read Get_CurrentFolder write _Set_CurrentFolder; property Caption: WideString read Get_Caption; property CurrentView: OleVariant read Get_CurrentView write Set_CurrentView; property Panes: Panes read Get_Panes; property Selection: Selection read Get_Selection; property Views: IDispatch read Get_Views; property HTMLDocument: IDispatch read Get_HTMLDocument; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TExplorerProperties read GetServerProperties; {$ENDIF} property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnFolderSwitch: TNotifyEvent read FOnFolderSwitch write FOnFolderSwitch; property OnBeforeFolderSwitch: TExplorerBeforeFolderSwitch read FOnBeforeFolderSwitch write FOnBeforeFolderSwitch; property OnViewSwitch: TNotifyEvent read FOnViewSwitch write FOnViewSwitch; property OnBeforeViewSwitch: TExplorerBeforeViewSwitch read FOnBeforeViewSwitch write FOnBeforeViewSwitch; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnSelectionChange: TNotifyEvent read FOnSelectionChange write FOnSelectionChange; property OnClose: TNotifyEvent read FOnClose write FOnClose; property OnBeforeMaximize: TExplorerBeforeMaximize read FOnBeforeMaximize write FOnBeforeMaximize; property OnBeforeMinimize: TExplorerBeforeMinimize read FOnBeforeMinimize write FOnBeforeMinimize; property OnBeforeMove: TExplorerBeforeMove read FOnBeforeMove write FOnBeforeMove; property OnBeforeSize: TExplorerBeforeSize read FOnBeforeSize write FOnBeforeSize; property OnBeforeItemCopy: TExplorerBeforeItemCopy read FOnBeforeItemCopy write FOnBeforeItemCopy; property OnBeforeItemCut: TExplorerBeforeItemCut read FOnBeforeItemCut write FOnBeforeItemCut; property OnBeforeItemPaste: TExplorerBeforeItemPaste read FOnBeforeItemPaste write FOnBeforeItemPaste; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TExplorer // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TExplorerProperties = class(TPersistent) private FServer: TExplorer; function GetDefaultInterface: _Explorer; constructor Create(AServer: TExplorer); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CommandBars: CommandBars; function Get_CurrentFolder: MAPIFolder; procedure _Set_CurrentFolder(const CurrentFolder: MAPIFolder); function Get_Caption: WideString; function Get_CurrentView: OleVariant; procedure Set_CurrentView(CurrentView: OleVariant); function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_Panes: Panes; function Get_Selection: Selection; function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_WindowState: OlWindowState; procedure Set_WindowState(WindowState: OlWindowState); function Get_Views: IDispatch; function Get_HTMLDocument: IDispatch; public property DefaultInterface: _Explorer read GetDefaultInterface; published property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; end; {$ENDIF} // *********************************************************************// // The Class CoInspector provides a Create and CreateRemote method to // create instances of the default interface _Inspector exposed by // the CoClass Inspector. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInspector = class class function Create: _Inspector; class function CreateRemote(const MachineName: string): _Inspector; end; TInspectorBeforeMaximize = procedure(ASender: TObject; var Cancel: WordBool) of object; TInspectorBeforeMinimize = procedure(ASender: TObject; var Cancel: WordBool) of object; TInspectorBeforeMove = procedure(ASender: TObject; var Cancel: WordBool) of object; TInspectorBeforeSize = procedure(ASender: TObject; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInspector // Help String : // Default Interface: _Inspector // Def. Intf. DISP? : No // Event Interface: InspectorEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInspectorProperties= class; {$ENDIF} TInspector = class(TOleServer) private FOnActivate: TNotifyEvent; FOnDeactivate: TNotifyEvent; FOnClose: TNotifyEvent; FOnBeforeMaximize: TInspectorBeforeMaximize; FOnBeforeMinimize: TInspectorBeforeMinimize; FOnBeforeMove: TInspectorBeforeMove; FOnBeforeSize: TInspectorBeforeSize; FIntf: _Inspector; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInspectorProperties; function GetServerProperties: TInspectorProperties; {$ENDIF} function GetDefaultInterface: _Inspector; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CommandBars: CommandBars; function Get_CurrentItem: IDispatch; function Get_EditorType: OlEditorType; function Get_ModifiedFormPages: IDispatch; function Get_HTMLEditor: IDispatch; function Get_WordEditor: IDispatch; function Get_Caption: WideString; function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_WindowState: OlWindowState; procedure Set_WindowState(WindowState: OlWindowState); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Inspector); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); procedure Display; overload; procedure Display(Modal: OleVariant); overload; procedure HideFormPage(const PageName: WideString); function IsWordMail: WordBool; procedure SetCurrentFormPage(const PageName: WideString); procedure ShowFormPage(const PageName: WideString); procedure Activate; property DefaultInterface: _Inspector read GetDefaultInterface; 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 CommandBars: CommandBars read Get_CommandBars; property CurrentItem: IDispatch read Get_CurrentItem; property EditorType: OlEditorType read Get_EditorType; property ModifiedFormPages: IDispatch read Get_ModifiedFormPages; property HTMLEditor: IDispatch read Get_HTMLEditor; property WordEditor: IDispatch read Get_WordEditor; property Caption: WideString read Get_Caption; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInspectorProperties read GetServerProperties; {$ENDIF} property OnActivate: TNotifyEvent read FOnActivate write FOnActivate; property OnDeactivate: TNotifyEvent read FOnDeactivate write FOnDeactivate; property OnClose: TNotifyEvent read FOnClose write FOnClose; property OnBeforeMaximize: TInspectorBeforeMaximize read FOnBeforeMaximize write FOnBeforeMaximize; property OnBeforeMinimize: TInspectorBeforeMinimize read FOnBeforeMinimize write FOnBeforeMinimize; property OnBeforeMove: TInspectorBeforeMove read FOnBeforeMove write FOnBeforeMove; property OnBeforeSize: TInspectorBeforeSize read FOnBeforeSize write FOnBeforeSize; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInspector // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInspectorProperties = class(TPersistent) private FServer: TInspector; function GetDefaultInterface: _Inspector; constructor Create(AServer: TInspector); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CommandBars: CommandBars; function Get_CurrentItem: IDispatch; function Get_EditorType: OlEditorType; function Get_ModifiedFormPages: IDispatch; function Get_HTMLEditor: IDispatch; function Get_WordEditor: IDispatch; function Get_Caption: WideString; function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_WindowState: OlWindowState; procedure Set_WindowState(WindowState: OlWindowState); public property DefaultInterface: _Inspector read GetDefaultInterface; published property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property WindowState: OlWindowState read Get_WindowState write Set_WindowState; end; {$ENDIF} // *********************************************************************// // The Class CoMailItem provides a Create and CreateRemote method to // create instances of the default interface _MailItem exposed by // the CoClass MailItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMailItem = class class function Create: _MailItem; class function CreateRemote(const MachineName: string): _MailItem; end; TMailItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TMailItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TMailItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TMailItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TMailItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TMailItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TMailItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TMailItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TMailItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TMailItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TMailItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TMailItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TMailItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TMailItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TMailItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMailItem // Help String : // Default Interface: _MailItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMailItemProperties= class; {$ENDIF} TMailItem = class(TOleServer) private FOnOpen: TMailItemOpen; FOnCustomAction: TMailItemCustomAction; FOnCustomPropertyChange: TMailItemCustomPropertyChange; FOnForward: TMailItemForward; FOnClose: TMailItemClose; FOnPropertyChange: TMailItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TMailItemReply; FOnReplyAll: TMailItemReplyAll; FOnSend: TMailItemSend; FOnWrite: TMailItemWrite; FOnBeforeCheckNames: TMailItemBeforeCheckNames; FOnAttachmentAdd: TMailItemAttachmentAdd; FOnAttachmentRead: TMailItemAttachmentRead; FOnBeforeAttachmentSave: TMailItemBeforeAttachmentSave; FOnBeforeDelete: TMailItemBeforeDelete; FIntf: _MailItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMailItemProperties; function GetServerProperties: TMailItemProperties; {$ENDIF} function GetDefaultInterface: _MailItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AlternateRecipientAllowed: WordBool; procedure Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool); function Get_AutoForwarded: WordBool; procedure Set_AutoForwarded(AutoForwarded: WordBool); function Get_BCC: WideString; procedure Set_BCC(const BCC: WideString); function Get_CC: WideString; procedure Set_CC(const CC: WideString); function Get_DeferredDeliveryTime: TDateTime; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); function Get_DeleteAfterSubmit: WordBool; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_FlagDueBy: TDateTime; procedure Set_FlagDueBy(FlagDueBy: TDateTime); function Get_FlagRequest: WideString; procedure Set_FlagRequest(const FlagRequest: WideString); function Get_FlagStatus: OlFlagStatus; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); function Get_HTMLBody: WideString; procedure Set_HTMLBody(const HTMLBody: WideString); function Get_OriginatorDeliveryReportRequested: WordBool; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); function Get_ReadReceiptRequested: WordBool; procedure Set_ReadReceiptRequested(ReadReceiptRequested: WordBool); function Get_ReceivedByEntryID: WideString; function Get_ReceivedByName: WideString; function Get_ReceivedOnBehalfOfEntryID: WideString; function Get_ReceivedOnBehalfOfName: WideString; function Get_ReceivedTime: TDateTime; function Get_RecipientReassignmentProhibited: WordBool; procedure Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool); function Get_Recipients: Recipients; function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_RemoteStatus: OlRemoteStatus; procedure Set_RemoteStatus(RemoteStatus: OlRemoteStatus); function Get_ReplyRecipientNames: WideString; function Get_ReplyRecipients: Recipients; function Get_SaveSentMessageFolder: MAPIFolder; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); function Get_SenderName: WideString; function Get_Sent: WordBool; function Get_SentOn: TDateTime; function Get_SentOnBehalfOfName: WideString; procedure Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString); function Get_Submitted: WordBool; function Get_To_: WideString; procedure Set_To_(const To_: WideString); function Get_VotingOptions: WideString; procedure Set_VotingOptions(const VotingOptions: WideString); function Get_VotingResponse: WideString; procedure Set_VotingResponse(const VotingResponse: WideString); function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_BodyFormat: OlBodyFormat; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _MailItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ClearConversationIndex; function Forward: MailItem; function Reply: MailItem; function ReplyAll: MailItem; procedure Send; procedure ShowCategoriesDialog; property DefaultInterface: _MailItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property ReceivedByEntryID: WideString read Get_ReceivedByEntryID; property ReceivedByName: WideString read Get_ReceivedByName; property ReceivedOnBehalfOfEntryID: WideString read Get_ReceivedOnBehalfOfEntryID; property ReceivedOnBehalfOfName: WideString read Get_ReceivedOnBehalfOfName; property ReceivedTime: TDateTime read Get_ReceivedTime; property Recipients: Recipients read Get_Recipients; property ReplyRecipientNames: WideString read Get_ReplyRecipientNames; property ReplyRecipients: Recipients read Get_ReplyRecipients; property SaveSentMessageFolder: MAPIFolder read Get_SaveSentMessageFolder write _Set_SaveSentMessageFolder; property SenderName: WideString read Get_SenderName; property Sent: WordBool read Get_Sent; property SentOn: TDateTime read Get_SentOn; property Submitted: WordBool read Get_Submitted; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property DownloadState: OlDownloadState read Get_DownloadState; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AlternateRecipientAllowed: WordBool read Get_AlternateRecipientAllowed write Set_AlternateRecipientAllowed; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property BCC: WideString read Get_BCC write Set_BCC; property CC: WideString read Get_CC write Set_CC; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReadReceiptRequested: WordBool read Get_ReadReceiptRequested write Set_ReadReceiptRequested; property RecipientReassignmentProhibited: WordBool read Get_RecipientReassignmentProhibited write Set_RecipientReassignmentProhibited; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property RemoteStatus: OlRemoteStatus read Get_RemoteStatus write Set_RemoteStatus; property SentOnBehalfOfName: WideString read Get_SentOnBehalfOfName write Set_SentOnBehalfOfName; property To_: WideString read Get_To_ write Set_To_; property VotingOptions: WideString read Get_VotingOptions write Set_VotingOptions; property VotingResponse: WideString read Get_VotingResponse write Set_VotingResponse; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMailItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TMailItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TMailItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TMailItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TMailItemForward read FOnForward write FOnForward; property OnClose: TMailItemClose read FOnClose write FOnClose; property OnPropertyChange: TMailItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TMailItemReply read FOnReply write FOnReply; property OnReplyAll: TMailItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TMailItemSend read FOnSend write FOnSend; property OnWrite: TMailItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TMailItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TMailItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TMailItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TMailItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TMailItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMailItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMailItemProperties = class(TPersistent) private FServer: TMailItem; function GetDefaultInterface: _MailItem; constructor Create(AServer: TMailItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AlternateRecipientAllowed: WordBool; procedure Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool); function Get_AutoForwarded: WordBool; procedure Set_AutoForwarded(AutoForwarded: WordBool); function Get_BCC: WideString; procedure Set_BCC(const BCC: WideString); function Get_CC: WideString; procedure Set_CC(const CC: WideString); function Get_DeferredDeliveryTime: TDateTime; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); function Get_DeleteAfterSubmit: WordBool; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_FlagDueBy: TDateTime; procedure Set_FlagDueBy(FlagDueBy: TDateTime); function Get_FlagRequest: WideString; procedure Set_FlagRequest(const FlagRequest: WideString); function Get_FlagStatus: OlFlagStatus; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); function Get_HTMLBody: WideString; procedure Set_HTMLBody(const HTMLBody: WideString); function Get_OriginatorDeliveryReportRequested: WordBool; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); function Get_ReadReceiptRequested: WordBool; procedure Set_ReadReceiptRequested(ReadReceiptRequested: WordBool); function Get_ReceivedByEntryID: WideString; function Get_ReceivedByName: WideString; function Get_ReceivedOnBehalfOfEntryID: WideString; function Get_ReceivedOnBehalfOfName: WideString; function Get_ReceivedTime: TDateTime; function Get_RecipientReassignmentProhibited: WordBool; procedure Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool); function Get_Recipients: Recipients; function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_RemoteStatus: OlRemoteStatus; procedure Set_RemoteStatus(RemoteStatus: OlRemoteStatus); function Get_ReplyRecipientNames: WideString; function Get_ReplyRecipients: Recipients; function Get_SaveSentMessageFolder: MAPIFolder; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); function Get_SenderName: WideString; function Get_Sent: WordBool; function Get_SentOn: TDateTime; function Get_SentOnBehalfOfName: WideString; procedure Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString); function Get_Submitted: WordBool; function Get_To_: WideString; procedure Set_To_(const To_: WideString); function Get_VotingOptions: WideString; procedure Set_VotingOptions(const VotingOptions: WideString); function Get_VotingResponse: WideString; procedure Set_VotingResponse(const VotingResponse: WideString); function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_BodyFormat: OlBodyFormat; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _MailItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AlternateRecipientAllowed: WordBool read Get_AlternateRecipientAllowed write Set_AlternateRecipientAllowed; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property BCC: WideString read Get_BCC write Set_BCC; property CC: WideString read Get_CC write Set_CC; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReadReceiptRequested: WordBool read Get_ReadReceiptRequested write Set_ReadReceiptRequested; property RecipientReassignmentProhibited: WordBool read Get_RecipientReassignmentProhibited write Set_RecipientReassignmentProhibited; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property RemoteStatus: OlRemoteStatus read Get_RemoteStatus write Set_RemoteStatus; property SentOnBehalfOfName: WideString read Get_SentOnBehalfOfName write Set_SentOnBehalfOfName; property To_: WideString read Get_To_ write Set_To_; property VotingOptions: WideString read Get_VotingOptions write Set_VotingOptions; property VotingResponse: WideString read Get_VotingResponse write Set_VotingResponse; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoAppointmentItem provides a Create and CreateRemote method to // create instances of the default interface _AppointmentItem exposed by // the CoClass AppointmentItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAppointmentItem = class class function Create: _AppointmentItem; class function CreateRemote(const MachineName: string): _AppointmentItem; end; TAppointmentItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TAppointmentItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TAppointmentItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TAppointmentItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TAppointmentItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TAppointmentItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TAppointmentItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TAppointmentItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TAppointmentItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TAppointmentItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TAppointmentItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TAppointmentItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TAppointmentItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TAppointmentItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TAppointmentItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TAppointmentItem // Help String : // Default Interface: _AppointmentItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TAppointmentItemProperties= class; {$ENDIF} TAppointmentItem = class(TOleServer) private FOnOpen: TAppointmentItemOpen; FOnCustomAction: TAppointmentItemCustomAction; FOnCustomPropertyChange: TAppointmentItemCustomPropertyChange; FOnForward: TAppointmentItemForward; FOnClose: TAppointmentItemClose; FOnPropertyChange: TAppointmentItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TAppointmentItemReply; FOnReplyAll: TAppointmentItemReplyAll; FOnSend: TAppointmentItemSend; FOnWrite: TAppointmentItemWrite; FOnBeforeCheckNames: TAppointmentItemBeforeCheckNames; FOnAttachmentAdd: TAppointmentItemAttachmentAdd; FOnAttachmentRead: TAppointmentItemAttachmentRead; FOnBeforeAttachmentSave: TAppointmentItemBeforeAttachmentSave; FOnBeforeDelete: TAppointmentItemBeforeDelete; FIntf: _AppointmentItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TAppointmentItemProperties; function GetServerProperties: TAppointmentItemProperties; {$ENDIF} function GetDefaultInterface: _AppointmentItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AllDayEvent: WordBool; procedure Set_AllDayEvent(AllDayEvent: WordBool); function Get_BusyStatus: OlBusyStatus; procedure Set_BusyStatus(BusyStatus: OlBusyStatus); function Get_Duration: Integer; procedure Set_Duration(Duration: Integer); function Get_End_: TDateTime; procedure Set_End_(End_: TDateTime); function Get_IsOnlineMeeting: WordBool; procedure Set_IsOnlineMeeting(IsOnlineMeeting: WordBool); function Get_IsRecurring: WordBool; function Get_Location: WideString; procedure Set_Location(const Location: WideString); function Get_MeetingStatus: OlMeetingStatus; procedure Set_MeetingStatus(MeetingStatus: OlMeetingStatus); function Get_NetMeetingAutoStart: WordBool; procedure Set_NetMeetingAutoStart(NetMeetingAutoStart: WordBool); function Get_NetMeetingOrganizerAlias: WideString; procedure Set_NetMeetingOrganizerAlias(const NetMeetingOrganizerAlias: WideString); function Get_NetMeetingServer: WideString; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); function Get_NetMeetingType: OlNetMeetingType; procedure Set_NetMeetingType(NetMeetingType: OlNetMeetingType); function Get_OptionalAttendees: WideString; procedure Set_OptionalAttendees(const OptionalAttendees: WideString); function Get_Organizer: WideString; function Get_Recipients: Recipients; function Get_RecurrenceState: OlRecurrenceState; function Get_ReminderMinutesBeforeStart: Integer; procedure Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer); function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ReplyTime: TDateTime; procedure Set_ReplyTime(ReplyTime: TDateTime); function Get_RequiredAttendees: WideString; procedure Set_RequiredAttendees(const RequiredAttendees: WideString); function Get_Resources: WideString; procedure Set_Resources(const Resources: WideString); function Get_ResponseRequested: WordBool; procedure Set_ResponseRequested(ResponseRequested: WordBool); function Get_ResponseStatus: OlResponseStatus; function Get_Start: TDateTime; procedure Set_Start(Start: TDateTime); function Get_NetMeetingDocPathName: WideString; procedure Set_NetMeetingDocPathName(const NetMeetingDocPathName: WideString); function Get_NetShowURL: WideString; procedure Set_NetShowURL(const NetShowURL: WideString); function Get_Links: Links; function Get_ConferenceServerAllowExternal: WordBool; procedure Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal: WordBool); function Get_ConferenceServerPassword: WideString; procedure Set_ConferenceServerPassword(const ConferenceServerPassword: WideString); function Get_ItemProperties: ItemProperties; function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _AppointmentItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ClearRecurrencePattern; function ForwardAsVcal: MailItem; function GetRecurrencePattern: RecurrencePattern; function Respond(Response: OlMeetingResponse): MeetingItem; overload; function Respond(Response: OlMeetingResponse; fNoUI: OleVariant): MeetingItem; overload; function Respond(Response: OlMeetingResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): MeetingItem; overload; procedure Send; procedure ShowCategoriesDialog; property DefaultInterface: _AppointmentItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property IsRecurring: WordBool read Get_IsRecurring; property Organizer: WideString read Get_Organizer; property Recipients: Recipients read Get_Recipients; property RecurrenceState: OlRecurrenceState read Get_RecurrenceState; property ResponseStatus: OlResponseStatus read Get_ResponseStatus; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property DownloadState: OlDownloadState read Get_DownloadState; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AllDayEvent: WordBool read Get_AllDayEvent write Set_AllDayEvent; property BusyStatus: OlBusyStatus read Get_BusyStatus write Set_BusyStatus; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property IsOnlineMeeting: WordBool read Get_IsOnlineMeeting write Set_IsOnlineMeeting; property Location: WideString read Get_Location write Set_Location; property MeetingStatus: OlMeetingStatus read Get_MeetingStatus write Set_MeetingStatus; property NetMeetingAutoStart: WordBool read Get_NetMeetingAutoStart write Set_NetMeetingAutoStart; property NetMeetingOrganizerAlias: WideString read Get_NetMeetingOrganizerAlias write Set_NetMeetingOrganizerAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NetMeetingType: OlNetMeetingType read Get_NetMeetingType write Set_NetMeetingType; property OptionalAttendees: WideString read Get_OptionalAttendees write Set_OptionalAttendees; property ReminderMinutesBeforeStart: Integer read Get_ReminderMinutesBeforeStart write Set_ReminderMinutesBeforeStart; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReplyTime: TDateTime read Get_ReplyTime write Set_ReplyTime; property RequiredAttendees: WideString read Get_RequiredAttendees write Set_RequiredAttendees; property Resources: WideString read Get_Resources write Set_Resources; property ResponseRequested: WordBool read Get_ResponseRequested write Set_ResponseRequested; property Start: TDateTime read Get_Start write Set_Start; property NetMeetingDocPathName: WideString read Get_NetMeetingDocPathName write Set_NetMeetingDocPathName; property NetShowURL: WideString read Get_NetShowURL write Set_NetShowURL; property ConferenceServerAllowExternal: WordBool read Get_ConferenceServerAllowExternal write Set_ConferenceServerAllowExternal; property ConferenceServerPassword: WideString read Get_ConferenceServerPassword write Set_ConferenceServerPassword; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TAppointmentItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TAppointmentItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TAppointmentItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TAppointmentItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TAppointmentItemForward read FOnForward write FOnForward; property OnClose: TAppointmentItemClose read FOnClose write FOnClose; property OnPropertyChange: TAppointmentItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TAppointmentItemReply read FOnReply write FOnReply; property OnReplyAll: TAppointmentItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TAppointmentItemSend read FOnSend write FOnSend; property OnWrite: TAppointmentItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TAppointmentItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TAppointmentItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TAppointmentItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TAppointmentItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TAppointmentItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TAppointmentItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TAppointmentItemProperties = class(TPersistent) private FServer: TAppointmentItem; function GetDefaultInterface: _AppointmentItem; constructor Create(AServer: TAppointmentItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AllDayEvent: WordBool; procedure Set_AllDayEvent(AllDayEvent: WordBool); function Get_BusyStatus: OlBusyStatus; procedure Set_BusyStatus(BusyStatus: OlBusyStatus); function Get_Duration: Integer; procedure Set_Duration(Duration: Integer); function Get_End_: TDateTime; procedure Set_End_(End_: TDateTime); function Get_IsOnlineMeeting: WordBool; procedure Set_IsOnlineMeeting(IsOnlineMeeting: WordBool); function Get_IsRecurring: WordBool; function Get_Location: WideString; procedure Set_Location(const Location: WideString); function Get_MeetingStatus: OlMeetingStatus; procedure Set_MeetingStatus(MeetingStatus: OlMeetingStatus); function Get_NetMeetingAutoStart: WordBool; procedure Set_NetMeetingAutoStart(NetMeetingAutoStart: WordBool); function Get_NetMeetingOrganizerAlias: WideString; procedure Set_NetMeetingOrganizerAlias(const NetMeetingOrganizerAlias: WideString); function Get_NetMeetingServer: WideString; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); function Get_NetMeetingType: OlNetMeetingType; procedure Set_NetMeetingType(NetMeetingType: OlNetMeetingType); function Get_OptionalAttendees: WideString; procedure Set_OptionalAttendees(const OptionalAttendees: WideString); function Get_Organizer: WideString; function Get_Recipients: Recipients; function Get_RecurrenceState: OlRecurrenceState; function Get_ReminderMinutesBeforeStart: Integer; procedure Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer); function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ReplyTime: TDateTime; procedure Set_ReplyTime(ReplyTime: TDateTime); function Get_RequiredAttendees: WideString; procedure Set_RequiredAttendees(const RequiredAttendees: WideString); function Get_Resources: WideString; procedure Set_Resources(const Resources: WideString); function Get_ResponseRequested: WordBool; procedure Set_ResponseRequested(ResponseRequested: WordBool); function Get_ResponseStatus: OlResponseStatus; function Get_Start: TDateTime; procedure Set_Start(Start: TDateTime); function Get_NetMeetingDocPathName: WideString; procedure Set_NetMeetingDocPathName(const NetMeetingDocPathName: WideString); function Get_NetShowURL: WideString; procedure Set_NetShowURL(const NetShowURL: WideString); function Get_Links: Links; function Get_ConferenceServerAllowExternal: WordBool; procedure Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal: WordBool); function Get_ConferenceServerPassword: WideString; procedure Set_ConferenceServerPassword(const ConferenceServerPassword: WideString); function Get_ItemProperties: ItemProperties; function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _AppointmentItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AllDayEvent: WordBool read Get_AllDayEvent write Set_AllDayEvent; property BusyStatus: OlBusyStatus read Get_BusyStatus write Set_BusyStatus; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property IsOnlineMeeting: WordBool read Get_IsOnlineMeeting write Set_IsOnlineMeeting; property Location: WideString read Get_Location write Set_Location; property MeetingStatus: OlMeetingStatus read Get_MeetingStatus write Set_MeetingStatus; property NetMeetingAutoStart: WordBool read Get_NetMeetingAutoStart write Set_NetMeetingAutoStart; property NetMeetingOrganizerAlias: WideString read Get_NetMeetingOrganizerAlias write Set_NetMeetingOrganizerAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NetMeetingType: OlNetMeetingType read Get_NetMeetingType write Set_NetMeetingType; property OptionalAttendees: WideString read Get_OptionalAttendees write Set_OptionalAttendees; property ReminderMinutesBeforeStart: Integer read Get_ReminderMinutesBeforeStart write Set_ReminderMinutesBeforeStart; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property ReplyTime: TDateTime read Get_ReplyTime write Set_ReplyTime; property RequiredAttendees: WideString read Get_RequiredAttendees write Set_RequiredAttendees; property Resources: WideString read Get_Resources write Set_Resources; property ResponseRequested: WordBool read Get_ResponseRequested write Set_ResponseRequested; property Start: TDateTime read Get_Start write Set_Start; property NetMeetingDocPathName: WideString read Get_NetMeetingDocPathName write Set_NetMeetingDocPathName; property NetShowURL: WideString read Get_NetShowURL write Set_NetShowURL; property ConferenceServerAllowExternal: WordBool read Get_ConferenceServerAllowExternal write Set_ConferenceServerAllowExternal; property ConferenceServerPassword: WideString read Get_ConferenceServerPassword write Set_ConferenceServerPassword; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoMeetingItem provides a Create and CreateRemote method to // create instances of the default interface _MeetingItem exposed by // the CoClass MeetingItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoMeetingItem = class class function Create: _MeetingItem; class function CreateRemote(const MachineName: string): _MeetingItem; end; TMeetingItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TMeetingItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TMeetingItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TMeetingItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TMeetingItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TMeetingItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TMeetingItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TMeetingItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TMeetingItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TMeetingItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TMeetingItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TMeetingItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TMeetingItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TMeetingItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TMeetingItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TMeetingItem // Help String : // Default Interface: _MeetingItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TMeetingItemProperties= class; {$ENDIF} TMeetingItem = class(TOleServer) private FOnOpen: TMeetingItemOpen; FOnCustomAction: TMeetingItemCustomAction; FOnCustomPropertyChange: TMeetingItemCustomPropertyChange; FOnForward: TMeetingItemForward; FOnClose: TMeetingItemClose; FOnPropertyChange: TMeetingItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TMeetingItemReply; FOnReplyAll: TMeetingItemReplyAll; FOnSend: TMeetingItemSend; FOnWrite: TMeetingItemWrite; FOnBeforeCheckNames: TMeetingItemBeforeCheckNames; FOnAttachmentAdd: TMeetingItemAttachmentAdd; FOnAttachmentRead: TMeetingItemAttachmentRead; FOnBeforeAttachmentSave: TMeetingItemBeforeAttachmentSave; FOnBeforeDelete: TMeetingItemBeforeDelete; FIntf: _MeetingItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TMeetingItemProperties; function GetServerProperties: TMeetingItemProperties; {$ENDIF} function GetDefaultInterface: _MeetingItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AutoForwarded: WordBool; procedure Set_AutoForwarded(AutoForwarded: WordBool); function Get_DeferredDeliveryTime: TDateTime; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); function Get_DeleteAfterSubmit: WordBool; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_FlagDueBy: TDateTime; procedure Set_FlagDueBy(FlagDueBy: TDateTime); function Get_FlagRequest: WideString; procedure Set_FlagRequest(const FlagRequest: WideString); function Get_FlagStatus: OlFlagStatus; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); function Get_OriginatorDeliveryReportRequested: WordBool; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); function Get_ReceivedTime: TDateTime; procedure Set_ReceivedTime(ReceivedTime: TDateTime); function Get_Recipients: Recipients; function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_ReplyRecipients: Recipients; function Get_SaveSentMessageFolder: MAPIFolder; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); function Get_SenderName: WideString; function Get_Sent: WordBool; function Get_SentOn: TDateTime; function Get_Submitted: WordBool; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _MeetingItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function Forward: MeetingItem; function GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; function Reply: MailItem; function ReplyAll: MailItem; procedure Send; procedure ShowCategoriesDialog; property DefaultInterface: _MeetingItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Recipients: Recipients read Get_Recipients; property ReplyRecipients: Recipients read Get_ReplyRecipients; property SaveSentMessageFolder: MAPIFolder read Get_SaveSentMessageFolder write _Set_SaveSentMessageFolder; property SenderName: WideString read Get_SenderName; property Sent: WordBool read Get_Sent; property SentOn: TDateTime read Get_SentOn; property Submitted: WordBool read Get_Submitted; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReceivedTime: TDateTime read Get_ReceivedTime write Set_ReceivedTime; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TMeetingItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TMeetingItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TMeetingItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TMeetingItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TMeetingItemForward read FOnForward write FOnForward; property OnClose: TMeetingItemClose read FOnClose write FOnClose; property OnPropertyChange: TMeetingItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TMeetingItemReply read FOnReply write FOnReply; property OnReplyAll: TMeetingItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TMeetingItemSend read FOnSend write FOnSend; property OnWrite: TMeetingItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TMeetingItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TMeetingItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TMeetingItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TMeetingItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TMeetingItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TMeetingItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TMeetingItemProperties = class(TPersistent) private FServer: TMeetingItem; function GetDefaultInterface: _MeetingItem; constructor Create(AServer: TMeetingItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_AutoForwarded: WordBool; procedure Set_AutoForwarded(AutoForwarded: WordBool); function Get_DeferredDeliveryTime: TDateTime; procedure Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); function Get_DeleteAfterSubmit: WordBool; procedure Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_FlagDueBy: TDateTime; procedure Set_FlagDueBy(FlagDueBy: TDateTime); function Get_FlagRequest: WideString; procedure Set_FlagRequest(const FlagRequest: WideString); function Get_FlagStatus: OlFlagStatus; procedure Set_FlagStatus(FlagStatus: OlFlagStatus); function Get_OriginatorDeliveryReportRequested: WordBool; procedure Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); function Get_ReceivedTime: TDateTime; procedure Set_ReceivedTime(ReceivedTime: TDateTime); function Get_Recipients: Recipients; function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_ReplyRecipients: Recipients; function Get_SaveSentMessageFolder: MAPIFolder; procedure _Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); function Get_SenderName: WideString; function Get_Sent: WordBool; function Get_SentOn: TDateTime; function Get_Submitted: WordBool; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _MeetingItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded; property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime; property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy; property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest; property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus; property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested; property ReceivedTime: TDateTime read Get_ReceivedTime write Set_ReceivedTime; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoTaskItem provides a Create and CreateRemote method to // create instances of the default interface _TaskItem exposed by // the CoClass TaskItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTaskItem = class class function Create: _TaskItem; class function CreateRemote(const MachineName: string): _TaskItem; end; TTaskItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TTaskItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TTaskItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TTaskItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTaskItem // Help String : // Default Interface: _TaskItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTaskItemProperties= class; {$ENDIF} TTaskItem = class(TOleServer) private FOnOpen: TTaskItemOpen; FOnCustomAction: TTaskItemCustomAction; FOnCustomPropertyChange: TTaskItemCustomPropertyChange; FOnForward: TTaskItemForward; FOnClose: TTaskItemClose; FOnPropertyChange: TTaskItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TTaskItemReply; FOnReplyAll: TTaskItemReplyAll; FOnSend: TTaskItemSend; FOnWrite: TTaskItemWrite; FOnBeforeCheckNames: TTaskItemBeforeCheckNames; FOnAttachmentAdd: TTaskItemAttachmentAdd; FOnAttachmentRead: TTaskItemAttachmentRead; FOnBeforeAttachmentSave: TTaskItemBeforeAttachmentSave; FOnBeforeDelete: TTaskItemBeforeDelete; FIntf: _TaskItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTaskItemProperties; function GetServerProperties: TTaskItemProperties; {$ENDIF} function GetDefaultInterface: _TaskItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ActualWork: Integer; procedure Set_ActualWork(ActualWork: Integer); function Get_CardData: WideString; procedure Set_CardData(const CardData: WideString); function Get_Complete: WordBool; procedure Set_Complete(Complete: WordBool); function Get_Contacts: WideString; procedure Set_Contacts(const Contacts: WideString); function Get_ContactNames: WideString; procedure Set_ContactNames(const ContactNames: WideString); function Get_DateCompleted: TDateTime; procedure Set_DateCompleted(DateCompleted: TDateTime); function Get_DelegationState: OlTaskDelegationState; function Get_Delegator: WideString; function Get_DueDate: TDateTime; procedure Set_DueDate(DueDate: TDateTime); function Get_IsRecurring: WordBool; function Get_Ordinal: Integer; procedure Set_Ordinal(Ordinal: Integer); function Get_Owner: WideString; procedure Set_Owner(const Owner: WideString); function Get_Ownership: OlTaskOwnership; function Get_PercentComplete: Integer; procedure Set_PercentComplete(PercentComplete: Integer); function Get_Recipients: Recipients; function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ResponseState: OlTaskResponse; function Get_Role: WideString; procedure Set_Role(const Role: WideString); function Get_SchedulePlusPriority: WideString; procedure Set_SchedulePlusPriority(const SchedulePlusPriority: WideString); function Get_StartDate: TDateTime; procedure Set_StartDate(StartDate: TDateTime); function Get_Status: OlTaskStatus; procedure Set_Status(Status: OlTaskStatus); function Get_StatusOnCompletionRecipients: WideString; procedure Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString); function Get_StatusUpdateRecipients: WideString; procedure Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString); function Get_TeamTask: WordBool; procedure Set_TeamTask(TeamTask: WordBool); function Get_TotalWork: Integer; procedure Set_TotalWork(TotalWork: Integer); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _TaskItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function Assign_: TaskItem; procedure CancelResponseState; procedure ClearRecurrencePattern; function GetRecurrencePattern: RecurrencePattern; procedure MarkComplete; function Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem; procedure Send; function SkipRecurrence: WordBool; function StatusReport: IDispatch; procedure ShowCategoriesDialog; property DefaultInterface: _TaskItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Contacts: WideString read Get_Contacts write Set_Contacts; property DelegationState: OlTaskDelegationState read Get_DelegationState; property Delegator: WideString read Get_Delegator; property IsRecurring: WordBool read Get_IsRecurring; property Ownership: OlTaskOwnership read Get_Ownership; property Recipients: Recipients read Get_Recipients; property ResponseState: OlTaskResponse read Get_ResponseState; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ActualWork: Integer read Get_ActualWork write Set_ActualWork; property CardData: WideString read Get_CardData write Set_CardData; property Complete: WordBool read Get_Complete write Set_Complete; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DateCompleted: TDateTime read Get_DateCompleted write Set_DateCompleted; property DueDate: TDateTime read Get_DueDate write Set_DueDate; property Ordinal: Integer read Get_Ordinal write Set_Ordinal; property Owner: WideString read Get_Owner write Set_Owner; property PercentComplete: Integer read Get_PercentComplete write Set_PercentComplete; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property Role: WideString read Get_Role write Set_Role; property SchedulePlusPriority: WideString read Get_SchedulePlusPriority write Set_SchedulePlusPriority; property StartDate: TDateTime read Get_StartDate write Set_StartDate; property Status: OlTaskStatus read Get_Status write Set_Status; property StatusOnCompletionRecipients: WideString read Get_StatusOnCompletionRecipients write Set_StatusOnCompletionRecipients; property StatusUpdateRecipients: WideString read Get_StatusUpdateRecipients write Set_StatusUpdateRecipients; property TeamTask: WordBool read Get_TeamTask write Set_TeamTask; property TotalWork: Integer read Get_TotalWork write Set_TotalWork; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTaskItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TTaskItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TTaskItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TTaskItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TTaskItemForward read FOnForward write FOnForward; property OnClose: TTaskItemClose read FOnClose write FOnClose; property OnPropertyChange: TTaskItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TTaskItemReply read FOnReply write FOnReply; property OnReplyAll: TTaskItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TTaskItemSend read FOnSend write FOnSend; property OnWrite: TTaskItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TTaskItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TTaskItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TTaskItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TTaskItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TTaskItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTaskItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTaskItemProperties = class(TPersistent) private FServer: TTaskItem; function GetDefaultInterface: _TaskItem; constructor Create(AServer: TTaskItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ActualWork: Integer; procedure Set_ActualWork(ActualWork: Integer); function Get_CardData: WideString; procedure Set_CardData(const CardData: WideString); function Get_Complete: WordBool; procedure Set_Complete(Complete: WordBool); function Get_Contacts: WideString; procedure Set_Contacts(const Contacts: WideString); function Get_ContactNames: WideString; procedure Set_ContactNames(const ContactNames: WideString); function Get_DateCompleted: TDateTime; procedure Set_DateCompleted(DateCompleted: TDateTime); function Get_DelegationState: OlTaskDelegationState; function Get_Delegator: WideString; function Get_DueDate: TDateTime; procedure Set_DueDate(DueDate: TDateTime); function Get_IsRecurring: WordBool; function Get_Ordinal: Integer; procedure Set_Ordinal(Ordinal: Integer); function Get_Owner: WideString; procedure Set_Owner(const Owner: WideString); function Get_Ownership: OlTaskOwnership; function Get_PercentComplete: Integer; procedure Set_PercentComplete(PercentComplete: Integer); function Get_Recipients: Recipients; function Get_ReminderTime: TDateTime; procedure Set_ReminderTime(ReminderTime: TDateTime); function Get_ReminderOverrideDefault: WordBool; procedure Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); function Get_ReminderPlaySound: WordBool; procedure Set_ReminderPlaySound(ReminderPlaySound: WordBool); function Get_ReminderSet: WordBool; procedure Set_ReminderSet(ReminderSet: WordBool); function Get_ReminderSoundFile: WideString; procedure Set_ReminderSoundFile(const ReminderSoundFile: WideString); function Get_ResponseState: OlTaskResponse; function Get_Role: WideString; procedure Set_Role(const Role: WideString); function Get_SchedulePlusPriority: WideString; procedure Set_SchedulePlusPriority(const SchedulePlusPriority: WideString); function Get_StartDate: TDateTime; procedure Set_StartDate(StartDate: TDateTime); function Get_Status: OlTaskStatus; procedure Set_Status(Status: OlTaskStatus); function Get_StatusOnCompletionRecipients: WideString; procedure Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString); function Get_StatusUpdateRecipients: WideString; procedure Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString); function Get_TeamTask: WordBool; procedure Set_TeamTask(TeamTask: WordBool); function Get_TotalWork: Integer; procedure Set_TotalWork(TotalWork: Integer); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _TaskItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ActualWork: Integer read Get_ActualWork write Set_ActualWork; property CardData: WideString read Get_CardData write Set_CardData; property Complete: WordBool read Get_Complete write Set_Complete; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DateCompleted: TDateTime read Get_DateCompleted write Set_DateCompleted; property DueDate: TDateTime read Get_DueDate write Set_DueDate; property Ordinal: Integer read Get_Ordinal write Set_Ordinal; property Owner: WideString read Get_Owner write Set_Owner; property PercentComplete: Integer read Get_PercentComplete write Set_PercentComplete; property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime; property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault; property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound; property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet; property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile; property Role: WideString read Get_Role write Set_Role; property SchedulePlusPriority: WideString read Get_SchedulePlusPriority write Set_SchedulePlusPriority; property StartDate: TDateTime read Get_StartDate write Set_StartDate; property Status: OlTaskStatus read Get_Status write Set_Status; property StatusOnCompletionRecipients: WideString read Get_StatusOnCompletionRecipients write Set_StatusOnCompletionRecipients; property StatusUpdateRecipients: WideString read Get_StatusUpdateRecipients write Set_StatusUpdateRecipients; property TeamTask: WordBool read Get_TeamTask write Set_TeamTask; property TotalWork: Integer read Get_TotalWork write Set_TotalWork; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoOutlookApplication provides a Create and CreateRemote method to // create instances of the default interface _Application exposed by // the CoClass OutlookApplication. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOutlookApplication = class class function Create: _Application; class function CreateRemote(const MachineName: string): _Application; end; TOutlookApplicationItemSend = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; TOutlookApplicationReminder = procedure(ASender: TObject; const Item: IDispatch) of object; TOutlookApplicationOptionsPagesAdd = procedure(ASender: TObject; const Pages: PropertyPages) of object; TOutlookApplicationAdvancedSearchComplete = procedure(ASender: TObject; const SearchObject: Search) of object; TOutlookApplicationAdvancedSearchStopped = procedure(ASender: TObject; const SearchObject: Search) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOutlookApplication // Help String : // Default Interface: _Application // Def. Intf. DISP? : No // Event Interface: ApplicationEvents_10 // TypeFlags : (11) AppObject CanCreate Predeclid // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOutlookApplicationProperties= class; {$ENDIF} TOutlookApplication = class(TOleServer) private FOnItemSend: TOutlookApplicationItemSend; FOnNewMail: TNotifyEvent; FOnReminder: TOutlookApplicationReminder; FOnOptionsPagesAdd: TOutlookApplicationOptionsPagesAdd; FOnStartup: TNotifyEvent; FOnQuit: TNotifyEvent; FOnAdvancedSearchComplete: TOutlookApplicationAdvancedSearchComplete; FOnAdvancedSearchStopped: TOutlookApplicationAdvancedSearchStopped; FOnMAPILogonComplete: TNotifyEvent; FAutoQuit: Boolean; FIntf: _Application; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOutlookApplicationProperties; function GetServerProperties: TOutlookApplicationProperties; {$ENDIF} function GetDefaultInterface: _Application; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Assistant: Assistant; function Get_Name: WideString; function Get_Version: WideString; function Get_COMAddIns: COMAddIns; function Get_Explorers: _Explorers; function Get_Inspectors: _Inspectors; function Get_LanguageSettings: LanguageSettings; function Get_ProductCode: WideString; function Get_AnswerWizard: AnswerWizard; function Get_FeatureInstall: MsoFeatureInstall; procedure Set_FeatureInstall(FeatureInstall: MsoFeatureInstall); function Get_Reminders: _Reminders; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Application); procedure Disconnect; override; function ActiveExplorer: _Explorer; function ActiveInspector: _Inspector; function CreateItem(ItemType: OlItemType): IDispatch; function CreateItemFromTemplate(const TemplatePath: WideString): IDispatch; overload; function CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; overload; function CreateObject(const ObjectName: WideString): IDispatch; function GetNamespace(const Type_: WideString): _NameSpace; procedure Quit; function ActiveWindow: IDispatch; function CopyFile(const FilePath: WideString; const DestFolderPath: WideString): IDispatch; function AdvancedSearch(const Scope: WideString): Search; overload; function AdvancedSearch(const Scope: WideString; Filter: OleVariant): Search; overload; function AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant): Search; overload; function AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant; Tag: OleVariant): Search; overload; function IsSearchSynchronous(const LookInFolders: WideString): WordBool; procedure GetNewNickNames(var pvar: OleVariant); property DefaultInterface: _Application read GetDefaultInterface; 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 Assistant: Assistant read Get_Assistant; property Name: WideString read Get_Name; property Version: WideString read Get_Version; property COMAddIns: COMAddIns read Get_COMAddIns; property Explorers: _Explorers read Get_Explorers; property Inspectors: _Inspectors read Get_Inspectors; property LanguageSettings: LanguageSettings read Get_LanguageSettings; property ProductCode: WideString read Get_ProductCode; property AnswerWizard: AnswerWizard read Get_AnswerWizard; property FeatureInstall: MsoFeatureInstall read Get_FeatureInstall write Set_FeatureInstall; property Reminders: _Reminders read Get_Reminders; published property AutoQuit: Boolean read FAutoQuit write FAutoQuit; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOutlookApplicationProperties read GetServerProperties; {$ENDIF} property OnItemSend: TOutlookApplicationItemSend read FOnItemSend write FOnItemSend; property OnNewMail: TNotifyEvent read FOnNewMail write FOnNewMail; property OnReminder: TOutlookApplicationReminder read FOnReminder write FOnReminder; property OnOptionsPagesAdd: TOutlookApplicationOptionsPagesAdd read FOnOptionsPagesAdd write FOnOptionsPagesAdd; property OnStartup: TNotifyEvent read FOnStartup write FOnStartup; property OnQuit: TNotifyEvent read FOnQuit write FOnQuit; property OnAdvancedSearchComplete: TOutlookApplicationAdvancedSearchComplete read FOnAdvancedSearchComplete write FOnAdvancedSearchComplete; property OnAdvancedSearchStopped: TOutlookApplicationAdvancedSearchStopped read FOnAdvancedSearchStopped write FOnAdvancedSearchStopped; property OnMAPILogonComplete: TNotifyEvent read FOnMAPILogonComplete write FOnMAPILogonComplete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOutlookApplication // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOutlookApplicationProperties = class(TPersistent) private FServer: TOutlookApplication; function GetDefaultInterface: _Application; constructor Create(AServer: TOutlookApplication); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Assistant: Assistant; function Get_Name: WideString; function Get_Version: WideString; function Get_COMAddIns: COMAddIns; function Get_Explorers: _Explorers; function Get_Inspectors: _Inspectors; function Get_LanguageSettings: LanguageSettings; function Get_ProductCode: WideString; function Get_AnswerWizard: AnswerWizard; function Get_FeatureInstall: MsoFeatureInstall; procedure Set_FeatureInstall(FeatureInstall: MsoFeatureInstall); function Get_Reminders: _Reminders; public property DefaultInterface: _Application read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoContactItem provides a Create and CreateRemote method to // create instances of the default interface _ContactItem exposed by // the CoClass ContactItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoContactItem = class class function Create: _ContactItem; class function CreateRemote(const MachineName: string): _ContactItem; end; TContactItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TContactItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TContactItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TContactItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TContactItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TContactItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TContactItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TContactItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TContactItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TContactItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TContactItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TContactItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TContactItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TContactItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TContactItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TContactItem // Help String : // Default Interface: _ContactItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TContactItemProperties= class; {$ENDIF} TContactItem = class(TOleServer) private FOnOpen: TContactItemOpen; FOnCustomAction: TContactItemCustomAction; FOnCustomPropertyChange: TContactItemCustomPropertyChange; FOnForward: TContactItemForward; FOnClose: TContactItemClose; FOnPropertyChange: TContactItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TContactItemReply; FOnReplyAll: TContactItemReplyAll; FOnSend: TContactItemSend; FOnWrite: TContactItemWrite; FOnBeforeCheckNames: TContactItemBeforeCheckNames; FOnAttachmentAdd: TContactItemAttachmentAdd; FOnAttachmentRead: TContactItemAttachmentRead; FOnBeforeAttachmentSave: TContactItemBeforeAttachmentSave; FOnBeforeDelete: TContactItemBeforeDelete; FIntf: _ContactItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TContactItemProperties; function GetServerProperties: TContactItemProperties; {$ENDIF} function GetDefaultInterface: _ContactItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Account: WideString; procedure Set_Account(const Account: WideString); function Get_Anniversary: TDateTime; procedure Set_Anniversary(Anniversary: TDateTime); function Get_AssistantName: WideString; procedure Set_AssistantName(const AssistantName: WideString); function Get_AssistantTelephoneNumber: WideString; procedure Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString); function Get_Birthday: TDateTime; procedure Set_Birthday(Birthday: TDateTime); function Get_Business2TelephoneNumber: WideString; procedure Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString); function Get_BusinessAddress: WideString; procedure Set_BusinessAddress(const BusinessAddress: WideString); function Get_BusinessAddressCity: WideString; procedure Set_BusinessAddressCity(const BusinessAddressCity: WideString); function Get_BusinessAddressCountry: WideString; procedure Set_BusinessAddressCountry(const BusinessAddressCountry: WideString); function Get_BusinessAddressPostalCode: WideString; procedure Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString); function Get_BusinessAddressPostOfficeBox: WideString; procedure Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString); function Get_BusinessAddressState: WideString; procedure Set_BusinessAddressState(const BusinessAddressState: WideString); function Get_BusinessAddressStreet: WideString; procedure Set_BusinessAddressStreet(const BusinessAddressStreet: WideString); function Get_BusinessFaxNumber: WideString; procedure Set_BusinessFaxNumber(const BusinessFaxNumber: WideString); function Get_BusinessHomePage: WideString; procedure Set_BusinessHomePage(const BusinessHomePage: WideString); function Get_BusinessTelephoneNumber: WideString; procedure Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString); function Get_CallbackTelephoneNumber: WideString; procedure Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString); function Get_CarTelephoneNumber: WideString; procedure Set_CarTelephoneNumber(const CarTelephoneNumber: WideString); function Get_Children: WideString; procedure Set_Children(const Children: WideString); function Get_CompanyAndFullName: WideString; function Get_CompanyLastFirstNoSpace: WideString; function Get_CompanyLastFirstSpaceOnly: WideString; function Get_CompanyMainTelephoneNumber: WideString; procedure Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString); function Get_CompanyName: WideString; procedure Set_CompanyName(const CompanyName: WideString); function Get_ComputerNetworkName: WideString; procedure Set_ComputerNetworkName(const ComputerNetworkName: WideString); function Get_CustomerID: WideString; procedure Set_CustomerID(const CustomerID: WideString); function Get_Department: WideString; procedure Set_Department(const Department: WideString); function Get_Email1Address: WideString; procedure Set_Email1Address(const Email1Address: WideString); function Get_Email1AddressType: WideString; procedure Set_Email1AddressType(const Email1AddressType: WideString); function Get_Email1DisplayName: WideString; function Get_Email1EntryID: WideString; function Get_Email2Address: WideString; procedure Set_Email2Address(const Email2Address: WideString); function Get_Email2AddressType: WideString; procedure Set_Email2AddressType(const Email2AddressType: WideString); function Get_Email2DisplayName: WideString; function Get_Email2EntryID: WideString; function Get_Email3Address: WideString; procedure Set_Email3Address(const Email3Address: WideString); function Get_Email3AddressType: WideString; procedure Set_Email3AddressType(const Email3AddressType: WideString); function Get_Email3DisplayName: WideString; function Get_Email3EntryID: WideString; function Get_FileAs: WideString; procedure Set_FileAs(const FileAs: WideString); function Get_FirstName: WideString; procedure Set_FirstName(const FirstName: WideString); function Get_FTPSite: WideString; procedure Set_FTPSite(const FTPSite: WideString); function Get_FullName: WideString; procedure Set_FullName(const FullName: WideString); function Get_FullNameAndCompany: WideString; function Get_Gender: OlGender; procedure Set_Gender(Gender: OlGender); function Get_GovernmentIDNumber: WideString; procedure Set_GovernmentIDNumber(const GovernmentIDNumber: WideString); function Get_Hobby: WideString; procedure Set_Hobby(const Hobby: WideString); function Get_Home2TelephoneNumber: WideString; procedure Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString); function Get_HomeAddress: WideString; procedure Set_HomeAddress(const HomeAddress: WideString); function Get_HomeAddressCity: WideString; procedure Set_HomeAddressCity(const HomeAddressCity: WideString); function Get_HomeAddressCountry: WideString; procedure Set_HomeAddressCountry(const HomeAddressCountry: WideString); function Get_HomeAddressPostalCode: WideString; procedure Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString); function Get_HomeAddressPostOfficeBox: WideString; procedure Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString); function Get_HomeAddressState: WideString; procedure Set_HomeAddressState(const HomeAddressState: WideString); function Get_HomeAddressStreet: WideString; procedure Set_HomeAddressStreet(const HomeAddressStreet: WideString); function Get_HomeFaxNumber: WideString; procedure Set_HomeFaxNumber(const HomeFaxNumber: WideString); function Get_HomeTelephoneNumber: WideString; procedure Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString); function Get_Initials: WideString; procedure Set_Initials(const Initials: WideString); function Get_InternetFreeBusyAddress: WideString; procedure Set_InternetFreeBusyAddress(const InternetFreeBusyAddress: WideString); function Get_ISDNNumber: WideString; procedure Set_ISDNNumber(const ISDNNumber: WideString); function Get_JobTitle: WideString; procedure Set_JobTitle(const JobTitle: WideString); function Get_Journal: WordBool; procedure Set_Journal(Journal: WordBool); function Get_Language: WideString; procedure Set_Language(const Language: WideString); function Get_LastFirstAndSuffix: WideString; function Get_LastFirstNoSpace: WideString; function Get_LastFirstNoSpaceCompany: WideString; function Get_LastFirstSpaceOnly: WideString; function Get_LastFirstSpaceOnlyCompany: WideString; function Get_LastName: WideString; procedure Set_LastName(const LastName: WideString); function Get_LastNameAndFirstName: WideString; function Get_MailingAddress: WideString; procedure Set_MailingAddress(const MailingAddress: WideString); function Get_MailingAddressCity: WideString; procedure Set_MailingAddressCity(const MailingAddressCity: WideString); function Get_MailingAddressCountry: WideString; procedure Set_MailingAddressCountry(const MailingAddressCountry: WideString); function Get_MailingAddressPostalCode: WideString; procedure Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString); function Get_MailingAddressPostOfficeBox: WideString; procedure Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString); function Get_MailingAddressState: WideString; procedure Set_MailingAddressState(const MailingAddressState: WideString); function Get_MailingAddressStreet: WideString; procedure Set_MailingAddressStreet(const MailingAddressStreet: WideString); function Get_ManagerName: WideString; procedure Set_ManagerName(const ManagerName: WideString); function Get_MiddleName: WideString; procedure Set_MiddleName(const MiddleName: WideString); function Get_MobileTelephoneNumber: WideString; procedure Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString); function Get_NetMeetingAlias: WideString; procedure Set_NetMeetingAlias(const NetMeetingAlias: WideString); function Get_NetMeetingServer: WideString; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); function Get_NickName: WideString; procedure Set_NickName(const NickName: WideString); function Get_OfficeLocation: WideString; procedure Set_OfficeLocation(const OfficeLocation: WideString); function Get_OrganizationalIDNumber: WideString; procedure Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString); function Get_OtherAddress: WideString; procedure Set_OtherAddress(const OtherAddress: WideString); function Get_OtherAddressCity: WideString; procedure Set_OtherAddressCity(const OtherAddressCity: WideString); function Get_OtherAddressCountry: WideString; procedure Set_OtherAddressCountry(const OtherAddressCountry: WideString); function Get_OtherAddressPostalCode: WideString; procedure Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString); function Get_OtherAddressPostOfficeBox: WideString; procedure Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString); function Get_OtherAddressState: WideString; procedure Set_OtherAddressState(const OtherAddressState: WideString); function Get_OtherAddressStreet: WideString; procedure Set_OtherAddressStreet(const OtherAddressStreet: WideString); function Get_OtherFaxNumber: WideString; procedure Set_OtherFaxNumber(const OtherFaxNumber: WideString); function Get_OtherTelephoneNumber: WideString; procedure Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString); function Get_PagerNumber: WideString; procedure Set_PagerNumber(const PagerNumber: WideString); function Get_PersonalHomePage: WideString; procedure Set_PersonalHomePage(const PersonalHomePage: WideString); function Get_PrimaryTelephoneNumber: WideString; procedure Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString); function Get_Profession: WideString; procedure Set_Profession(const Profession: WideString); function Get_RadioTelephoneNumber: WideString; procedure Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString); function Get_ReferredBy: WideString; procedure Set_ReferredBy(const ReferredBy: WideString); function Get_SelectedMailingAddress: OlMailingAddress; procedure Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress); function Get_Spouse: WideString; procedure Set_Spouse(const Spouse: WideString); function Get_Suffix: WideString; procedure Set_Suffix(const Suffix: WideString); function Get_TelexNumber: WideString; procedure Set_TelexNumber(const TelexNumber: WideString); function Get_Title: WideString; procedure Set_Title(const Title: WideString); function Get_TTYTDDTelephoneNumber: WideString; procedure Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString); function Get_User1: WideString; procedure Set_User1(const User1: WideString); function Get_User2: WideString; procedure Set_User2(const User2: WideString); function Get_User3: WideString; procedure Set_User3(const User3: WideString); function Get_User4: WideString; procedure Set_User4(const User4: WideString); function Get_UserCertificate: WideString; procedure Set_UserCertificate(const UserCertificate: WideString); function Get_WebPage: WideString; procedure Set_WebPage(const WebPage: WideString); function Get_YomiCompanyName: WideString; procedure Set_YomiCompanyName(const YomiCompanyName: WideString); function Get_YomiFirstName: WideString; procedure Set_YomiFirstName(const YomiFirstName: WideString); function Get_YomiLastName: WideString; procedure Set_YomiLastName(const YomiLastName: WideString); function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_LastFirstNoSpaceAndSuffix: WideString; function Get_DownloadState: OlDownloadState; function Get_IMAddress: WideString; procedure Set_IMAddress(const IMAddress: WideString); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); procedure Set_Email1DisplayName(const Email1DisplayName: WideString); procedure Set_Email2DisplayName(const Email2DisplayName: WideString); procedure Set_Email3DisplayName(const Email3DisplayName: WideString); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _ContactItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function ForwardAsVcard: MailItem; procedure ShowCategoriesDialog; property DefaultInterface: _ContactItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property CompanyAndFullName: WideString read Get_CompanyAndFullName; property CompanyLastFirstNoSpace: WideString read Get_CompanyLastFirstNoSpace; property CompanyLastFirstSpaceOnly: WideString read Get_CompanyLastFirstSpaceOnly; property Email1EntryID: WideString read Get_Email1EntryID; property Email2EntryID: WideString read Get_Email2EntryID; property Email3EntryID: WideString read Get_Email3EntryID; property FullNameAndCompany: WideString read Get_FullNameAndCompany; property LastFirstAndSuffix: WideString read Get_LastFirstAndSuffix; property LastFirstNoSpace: WideString read Get_LastFirstNoSpace; property LastFirstNoSpaceCompany: WideString read Get_LastFirstNoSpaceCompany; property LastFirstSpaceOnly: WideString read Get_LastFirstSpaceOnly; property LastFirstSpaceOnlyCompany: WideString read Get_LastFirstSpaceOnlyCompany; property LastNameAndFirstName: WideString read Get_LastNameAndFirstName; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property LastFirstNoSpaceAndSuffix: WideString read Get_LastFirstNoSpaceAndSuffix; property DownloadState: OlDownloadState read Get_DownloadState; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property Account: WideString read Get_Account write Set_Account; property Anniversary: TDateTime read Get_Anniversary write Set_Anniversary; property AssistantName: WideString read Get_AssistantName write Set_AssistantName; property AssistantTelephoneNumber: WideString read Get_AssistantTelephoneNumber write Set_AssistantTelephoneNumber; property Birthday: TDateTime read Get_Birthday write Set_Birthday; property Business2TelephoneNumber: WideString read Get_Business2TelephoneNumber write Set_Business2TelephoneNumber; property BusinessAddress: WideString read Get_BusinessAddress write Set_BusinessAddress; property BusinessAddressCity: WideString read Get_BusinessAddressCity write Set_BusinessAddressCity; property BusinessAddressCountry: WideString read Get_BusinessAddressCountry write Set_BusinessAddressCountry; property BusinessAddressPostalCode: WideString read Get_BusinessAddressPostalCode write Set_BusinessAddressPostalCode; property BusinessAddressPostOfficeBox: WideString read Get_BusinessAddressPostOfficeBox write Set_BusinessAddressPostOfficeBox; property BusinessAddressState: WideString read Get_BusinessAddressState write Set_BusinessAddressState; property BusinessAddressStreet: WideString read Get_BusinessAddressStreet write Set_BusinessAddressStreet; property BusinessFaxNumber: WideString read Get_BusinessFaxNumber write Set_BusinessFaxNumber; property BusinessHomePage: WideString read Get_BusinessHomePage write Set_BusinessHomePage; property BusinessTelephoneNumber: WideString read Get_BusinessTelephoneNumber write Set_BusinessTelephoneNumber; property CallbackTelephoneNumber: WideString read Get_CallbackTelephoneNumber write Set_CallbackTelephoneNumber; property CarTelephoneNumber: WideString read Get_CarTelephoneNumber write Set_CarTelephoneNumber; property Children: WideString read Get_Children write Set_Children; property CompanyMainTelephoneNumber: WideString read Get_CompanyMainTelephoneNumber write Set_CompanyMainTelephoneNumber; property CompanyName: WideString read Get_CompanyName write Set_CompanyName; property ComputerNetworkName: WideString read Get_ComputerNetworkName write Set_ComputerNetworkName; property CustomerID: WideString read Get_CustomerID write Set_CustomerID; property Department: WideString read Get_Department write Set_Department; property Email1Address: WideString read Get_Email1Address write Set_Email1Address; property Email1AddressType: WideString read Get_Email1AddressType write Set_Email1AddressType; property Email1DisplayName: WideString read Get_Email1DisplayName write Set_Email1DisplayName; property Email2Address: WideString read Get_Email2Address write Set_Email2Address; property Email2AddressType: WideString read Get_Email2AddressType write Set_Email2AddressType; property Email2DisplayName: WideString read Get_Email2DisplayName write Set_Email2DisplayName; property Email3Address: WideString read Get_Email3Address write Set_Email3Address; property Email3AddressType: WideString read Get_Email3AddressType write Set_Email3AddressType; property Email3DisplayName: WideString read Get_Email3DisplayName write Set_Email3DisplayName; property FileAs: WideString read Get_FileAs write Set_FileAs; property FirstName: WideString read Get_FirstName write Set_FirstName; property FTPSite: WideString read Get_FTPSite write Set_FTPSite; property FullName: WideString read Get_FullName write Set_FullName; property Gender: OlGender read Get_Gender write Set_Gender; property GovernmentIDNumber: WideString read Get_GovernmentIDNumber write Set_GovernmentIDNumber; property Hobby: WideString read Get_Hobby write Set_Hobby; property Home2TelephoneNumber: WideString read Get_Home2TelephoneNumber write Set_Home2TelephoneNumber; property HomeAddress: WideString read Get_HomeAddress write Set_HomeAddress; property HomeAddressCity: WideString read Get_HomeAddressCity write Set_HomeAddressCity; property HomeAddressCountry: WideString read Get_HomeAddressCountry write Set_HomeAddressCountry; property HomeAddressPostalCode: WideString read Get_HomeAddressPostalCode write Set_HomeAddressPostalCode; property HomeAddressPostOfficeBox: WideString read Get_HomeAddressPostOfficeBox write Set_HomeAddressPostOfficeBox; property HomeAddressState: WideString read Get_HomeAddressState write Set_HomeAddressState; property HomeAddressStreet: WideString read Get_HomeAddressStreet write Set_HomeAddressStreet; property HomeFaxNumber: WideString read Get_HomeFaxNumber write Set_HomeFaxNumber; property HomeTelephoneNumber: WideString read Get_HomeTelephoneNumber write Set_HomeTelephoneNumber; property Initials: WideString read Get_Initials write Set_Initials; property InternetFreeBusyAddress: WideString read Get_InternetFreeBusyAddress write Set_InternetFreeBusyAddress; property ISDNNumber: WideString read Get_ISDNNumber write Set_ISDNNumber; property JobTitle: WideString read Get_JobTitle write Set_JobTitle; property Journal: WordBool read Get_Journal write Set_Journal; property Language: WideString read Get_Language write Set_Language; property LastName: WideString read Get_LastName write Set_LastName; property MailingAddress: WideString read Get_MailingAddress write Set_MailingAddress; property MailingAddressCity: WideString read Get_MailingAddressCity write Set_MailingAddressCity; property MailingAddressCountry: WideString read Get_MailingAddressCountry write Set_MailingAddressCountry; property MailingAddressPostalCode: WideString read Get_MailingAddressPostalCode write Set_MailingAddressPostalCode; property MailingAddressPostOfficeBox: WideString read Get_MailingAddressPostOfficeBox write Set_MailingAddressPostOfficeBox; property MailingAddressState: WideString read Get_MailingAddressState write Set_MailingAddressState; property MailingAddressStreet: WideString read Get_MailingAddressStreet write Set_MailingAddressStreet; property ManagerName: WideString read Get_ManagerName write Set_ManagerName; property MiddleName: WideString read Get_MiddleName write Set_MiddleName; property MobileTelephoneNumber: WideString read Get_MobileTelephoneNumber write Set_MobileTelephoneNumber; property NetMeetingAlias: WideString read Get_NetMeetingAlias write Set_NetMeetingAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NickName: WideString read Get_NickName write Set_NickName; property OfficeLocation: WideString read Get_OfficeLocation write Set_OfficeLocation; property OrganizationalIDNumber: WideString read Get_OrganizationalIDNumber write Set_OrganizationalIDNumber; property OtherAddress: WideString read Get_OtherAddress write Set_OtherAddress; property OtherAddressCity: WideString read Get_OtherAddressCity write Set_OtherAddressCity; property OtherAddressCountry: WideString read Get_OtherAddressCountry write Set_OtherAddressCountry; property OtherAddressPostalCode: WideString read Get_OtherAddressPostalCode write Set_OtherAddressPostalCode; property OtherAddressPostOfficeBox: WideString read Get_OtherAddressPostOfficeBox write Set_OtherAddressPostOfficeBox; property OtherAddressState: WideString read Get_OtherAddressState write Set_OtherAddressState; property OtherAddressStreet: WideString read Get_OtherAddressStreet write Set_OtherAddressStreet; property OtherFaxNumber: WideString read Get_OtherFaxNumber write Set_OtherFaxNumber; property OtherTelephoneNumber: WideString read Get_OtherTelephoneNumber write Set_OtherTelephoneNumber; property PagerNumber: WideString read Get_PagerNumber write Set_PagerNumber; property PersonalHomePage: WideString read Get_PersonalHomePage write Set_PersonalHomePage; property PrimaryTelephoneNumber: WideString read Get_PrimaryTelephoneNumber write Set_PrimaryTelephoneNumber; property Profession: WideString read Get_Profession write Set_Profession; property RadioTelephoneNumber: WideString read Get_RadioTelephoneNumber write Set_RadioTelephoneNumber; property ReferredBy: WideString read Get_ReferredBy write Set_ReferredBy; property SelectedMailingAddress: OlMailingAddress read Get_SelectedMailingAddress write Set_SelectedMailingAddress; property Spouse: WideString read Get_Spouse write Set_Spouse; property Suffix: WideString read Get_Suffix write Set_Suffix; property TelexNumber: WideString read Get_TelexNumber write Set_TelexNumber; property Title: WideString read Get_Title write Set_Title; property TTYTDDTelephoneNumber: WideString read Get_TTYTDDTelephoneNumber write Set_TTYTDDTelephoneNumber; property User1: WideString read Get_User1 write Set_User1; property User2: WideString read Get_User2 write Set_User2; property User3: WideString read Get_User3 write Set_User3; property User4: WideString read Get_User4 write Set_User4; property UserCertificate: WideString read Get_UserCertificate write Set_UserCertificate; property WebPage: WideString read Get_WebPage write Set_WebPage; property YomiCompanyName: WideString read Get_YomiCompanyName write Set_YomiCompanyName; property YomiFirstName: WideString read Get_YomiFirstName write Set_YomiFirstName; property YomiLastName: WideString read Get_YomiLastName write Set_YomiLastName; property IMAddress: WideString read Get_IMAddress write Set_IMAddress; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TContactItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TContactItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TContactItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TContactItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TContactItemForward read FOnForward write FOnForward; property OnClose: TContactItemClose read FOnClose write FOnClose; property OnPropertyChange: TContactItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TContactItemReply read FOnReply write FOnReply; property OnReplyAll: TContactItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TContactItemSend read FOnSend write FOnSend; property OnWrite: TContactItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TContactItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TContactItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TContactItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TContactItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TContactItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TContactItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TContactItemProperties = class(TPersistent) private FServer: TContactItem; function GetDefaultInterface: _ContactItem; constructor Create(AServer: TContactItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Account: WideString; procedure Set_Account(const Account: WideString); function Get_Anniversary: TDateTime; procedure Set_Anniversary(Anniversary: TDateTime); function Get_AssistantName: WideString; procedure Set_AssistantName(const AssistantName: WideString); function Get_AssistantTelephoneNumber: WideString; procedure Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString); function Get_Birthday: TDateTime; procedure Set_Birthday(Birthday: TDateTime); function Get_Business2TelephoneNumber: WideString; procedure Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString); function Get_BusinessAddress: WideString; procedure Set_BusinessAddress(const BusinessAddress: WideString); function Get_BusinessAddressCity: WideString; procedure Set_BusinessAddressCity(const BusinessAddressCity: WideString); function Get_BusinessAddressCountry: WideString; procedure Set_BusinessAddressCountry(const BusinessAddressCountry: WideString); function Get_BusinessAddressPostalCode: WideString; procedure Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString); function Get_BusinessAddressPostOfficeBox: WideString; procedure Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString); function Get_BusinessAddressState: WideString; procedure Set_BusinessAddressState(const BusinessAddressState: WideString); function Get_BusinessAddressStreet: WideString; procedure Set_BusinessAddressStreet(const BusinessAddressStreet: WideString); function Get_BusinessFaxNumber: WideString; procedure Set_BusinessFaxNumber(const BusinessFaxNumber: WideString); function Get_BusinessHomePage: WideString; procedure Set_BusinessHomePage(const BusinessHomePage: WideString); function Get_BusinessTelephoneNumber: WideString; procedure Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString); function Get_CallbackTelephoneNumber: WideString; procedure Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString); function Get_CarTelephoneNumber: WideString; procedure Set_CarTelephoneNumber(const CarTelephoneNumber: WideString); function Get_Children: WideString; procedure Set_Children(const Children: WideString); function Get_CompanyAndFullName: WideString; function Get_CompanyLastFirstNoSpace: WideString; function Get_CompanyLastFirstSpaceOnly: WideString; function Get_CompanyMainTelephoneNumber: WideString; procedure Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString); function Get_CompanyName: WideString; procedure Set_CompanyName(const CompanyName: WideString); function Get_ComputerNetworkName: WideString; procedure Set_ComputerNetworkName(const ComputerNetworkName: WideString); function Get_CustomerID: WideString; procedure Set_CustomerID(const CustomerID: WideString); function Get_Department: WideString; procedure Set_Department(const Department: WideString); function Get_Email1Address: WideString; procedure Set_Email1Address(const Email1Address: WideString); function Get_Email1AddressType: WideString; procedure Set_Email1AddressType(const Email1AddressType: WideString); function Get_Email1DisplayName: WideString; function Get_Email1EntryID: WideString; function Get_Email2Address: WideString; procedure Set_Email2Address(const Email2Address: WideString); function Get_Email2AddressType: WideString; procedure Set_Email2AddressType(const Email2AddressType: WideString); function Get_Email2DisplayName: WideString; function Get_Email2EntryID: WideString; function Get_Email3Address: WideString; procedure Set_Email3Address(const Email3Address: WideString); function Get_Email3AddressType: WideString; procedure Set_Email3AddressType(const Email3AddressType: WideString); function Get_Email3DisplayName: WideString; function Get_Email3EntryID: WideString; function Get_FileAs: WideString; procedure Set_FileAs(const FileAs: WideString); function Get_FirstName: WideString; procedure Set_FirstName(const FirstName: WideString); function Get_FTPSite: WideString; procedure Set_FTPSite(const FTPSite: WideString); function Get_FullName: WideString; procedure Set_FullName(const FullName: WideString); function Get_FullNameAndCompany: WideString; function Get_Gender: OlGender; procedure Set_Gender(Gender: OlGender); function Get_GovernmentIDNumber: WideString; procedure Set_GovernmentIDNumber(const GovernmentIDNumber: WideString); function Get_Hobby: WideString; procedure Set_Hobby(const Hobby: WideString); function Get_Home2TelephoneNumber: WideString; procedure Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString); function Get_HomeAddress: WideString; procedure Set_HomeAddress(const HomeAddress: WideString); function Get_HomeAddressCity: WideString; procedure Set_HomeAddressCity(const HomeAddressCity: WideString); function Get_HomeAddressCountry: WideString; procedure Set_HomeAddressCountry(const HomeAddressCountry: WideString); function Get_HomeAddressPostalCode: WideString; procedure Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString); function Get_HomeAddressPostOfficeBox: WideString; procedure Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString); function Get_HomeAddressState: WideString; procedure Set_HomeAddressState(const HomeAddressState: WideString); function Get_HomeAddressStreet: WideString; procedure Set_HomeAddressStreet(const HomeAddressStreet: WideString); function Get_HomeFaxNumber: WideString; procedure Set_HomeFaxNumber(const HomeFaxNumber: WideString); function Get_HomeTelephoneNumber: WideString; procedure Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString); function Get_Initials: WideString; procedure Set_Initials(const Initials: WideString); function Get_InternetFreeBusyAddress: WideString; procedure Set_InternetFreeBusyAddress(const InternetFreeBusyAddress: WideString); function Get_ISDNNumber: WideString; procedure Set_ISDNNumber(const ISDNNumber: WideString); function Get_JobTitle: WideString; procedure Set_JobTitle(const JobTitle: WideString); function Get_Journal: WordBool; procedure Set_Journal(Journal: WordBool); function Get_Language: WideString; procedure Set_Language(const Language: WideString); function Get_LastFirstAndSuffix: WideString; function Get_LastFirstNoSpace: WideString; function Get_LastFirstNoSpaceCompany: WideString; function Get_LastFirstSpaceOnly: WideString; function Get_LastFirstSpaceOnlyCompany: WideString; function Get_LastName: WideString; procedure Set_LastName(const LastName: WideString); function Get_LastNameAndFirstName: WideString; function Get_MailingAddress: WideString; procedure Set_MailingAddress(const MailingAddress: WideString); function Get_MailingAddressCity: WideString; procedure Set_MailingAddressCity(const MailingAddressCity: WideString); function Get_MailingAddressCountry: WideString; procedure Set_MailingAddressCountry(const MailingAddressCountry: WideString); function Get_MailingAddressPostalCode: WideString; procedure Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString); function Get_MailingAddressPostOfficeBox: WideString; procedure Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString); function Get_MailingAddressState: WideString; procedure Set_MailingAddressState(const MailingAddressState: WideString); function Get_MailingAddressStreet: WideString; procedure Set_MailingAddressStreet(const MailingAddressStreet: WideString); function Get_ManagerName: WideString; procedure Set_ManagerName(const ManagerName: WideString); function Get_MiddleName: WideString; procedure Set_MiddleName(const MiddleName: WideString); function Get_MobileTelephoneNumber: WideString; procedure Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString); function Get_NetMeetingAlias: WideString; procedure Set_NetMeetingAlias(const NetMeetingAlias: WideString); function Get_NetMeetingServer: WideString; procedure Set_NetMeetingServer(const NetMeetingServer: WideString); function Get_NickName: WideString; procedure Set_NickName(const NickName: WideString); function Get_OfficeLocation: WideString; procedure Set_OfficeLocation(const OfficeLocation: WideString); function Get_OrganizationalIDNumber: WideString; procedure Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString); function Get_OtherAddress: WideString; procedure Set_OtherAddress(const OtherAddress: WideString); function Get_OtherAddressCity: WideString; procedure Set_OtherAddressCity(const OtherAddressCity: WideString); function Get_OtherAddressCountry: WideString; procedure Set_OtherAddressCountry(const OtherAddressCountry: WideString); function Get_OtherAddressPostalCode: WideString; procedure Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString); function Get_OtherAddressPostOfficeBox: WideString; procedure Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString); function Get_OtherAddressState: WideString; procedure Set_OtherAddressState(const OtherAddressState: WideString); function Get_OtherAddressStreet: WideString; procedure Set_OtherAddressStreet(const OtherAddressStreet: WideString); function Get_OtherFaxNumber: WideString; procedure Set_OtherFaxNumber(const OtherFaxNumber: WideString); function Get_OtherTelephoneNumber: WideString; procedure Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString); function Get_PagerNumber: WideString; procedure Set_PagerNumber(const PagerNumber: WideString); function Get_PersonalHomePage: WideString; procedure Set_PersonalHomePage(const PersonalHomePage: WideString); function Get_PrimaryTelephoneNumber: WideString; procedure Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString); function Get_Profession: WideString; procedure Set_Profession(const Profession: WideString); function Get_RadioTelephoneNumber: WideString; procedure Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString); function Get_ReferredBy: WideString; procedure Set_ReferredBy(const ReferredBy: WideString); function Get_SelectedMailingAddress: OlMailingAddress; procedure Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress); function Get_Spouse: WideString; procedure Set_Spouse(const Spouse: WideString); function Get_Suffix: WideString; procedure Set_Suffix(const Suffix: WideString); function Get_TelexNumber: WideString; procedure Set_TelexNumber(const TelexNumber: WideString); function Get_Title: WideString; procedure Set_Title(const Title: WideString); function Get_TTYTDDTelephoneNumber: WideString; procedure Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString); function Get_User1: WideString; procedure Set_User1(const User1: WideString); function Get_User2: WideString; procedure Set_User2(const User2: WideString); function Get_User3: WideString; procedure Set_User3(const User3: WideString); function Get_User4: WideString; procedure Set_User4(const User4: WideString); function Get_UserCertificate: WideString; procedure Set_UserCertificate(const UserCertificate: WideString); function Get_WebPage: WideString; procedure Set_WebPage(const WebPage: WideString); function Get_YomiCompanyName: WideString; procedure Set_YomiCompanyName(const YomiCompanyName: WideString); function Get_YomiFirstName: WideString; procedure Set_YomiFirstName(const YomiFirstName: WideString); function Get_YomiLastName: WideString; procedure Set_YomiLastName(const YomiLastName: WideString); function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_LastFirstNoSpaceAndSuffix: WideString; function Get_DownloadState: OlDownloadState; function Get_IMAddress: WideString; procedure Set_IMAddress(const IMAddress: WideString); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); procedure Set_Email1DisplayName(const Email1DisplayName: WideString); procedure Set_Email2DisplayName(const Email2DisplayName: WideString); procedure Set_Email3DisplayName(const Email3DisplayName: WideString); function Get_IsConflict: WordBool; public property DefaultInterface: _ContactItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property Account: WideString read Get_Account write Set_Account; property Anniversary: TDateTime read Get_Anniversary write Set_Anniversary; property AssistantName: WideString read Get_AssistantName write Set_AssistantName; property AssistantTelephoneNumber: WideString read Get_AssistantTelephoneNumber write Set_AssistantTelephoneNumber; property Birthday: TDateTime read Get_Birthday write Set_Birthday; property Business2TelephoneNumber: WideString read Get_Business2TelephoneNumber write Set_Business2TelephoneNumber; property BusinessAddress: WideString read Get_BusinessAddress write Set_BusinessAddress; property BusinessAddressCity: WideString read Get_BusinessAddressCity write Set_BusinessAddressCity; property BusinessAddressCountry: WideString read Get_BusinessAddressCountry write Set_BusinessAddressCountry; property BusinessAddressPostalCode: WideString read Get_BusinessAddressPostalCode write Set_BusinessAddressPostalCode; property BusinessAddressPostOfficeBox: WideString read Get_BusinessAddressPostOfficeBox write Set_BusinessAddressPostOfficeBox; property BusinessAddressState: WideString read Get_BusinessAddressState write Set_BusinessAddressState; property BusinessAddressStreet: WideString read Get_BusinessAddressStreet write Set_BusinessAddressStreet; property BusinessFaxNumber: WideString read Get_BusinessFaxNumber write Set_BusinessFaxNumber; property BusinessHomePage: WideString read Get_BusinessHomePage write Set_BusinessHomePage; property BusinessTelephoneNumber: WideString read Get_BusinessTelephoneNumber write Set_BusinessTelephoneNumber; property CallbackTelephoneNumber: WideString read Get_CallbackTelephoneNumber write Set_CallbackTelephoneNumber; property CarTelephoneNumber: WideString read Get_CarTelephoneNumber write Set_CarTelephoneNumber; property Children: WideString read Get_Children write Set_Children; property CompanyMainTelephoneNumber: WideString read Get_CompanyMainTelephoneNumber write Set_CompanyMainTelephoneNumber; property CompanyName: WideString read Get_CompanyName write Set_CompanyName; property ComputerNetworkName: WideString read Get_ComputerNetworkName write Set_ComputerNetworkName; property CustomerID: WideString read Get_CustomerID write Set_CustomerID; property Department: WideString read Get_Department write Set_Department; property Email1Address: WideString read Get_Email1Address write Set_Email1Address; property Email1AddressType: WideString read Get_Email1AddressType write Set_Email1AddressType; property Email1DisplayName: WideString read Get_Email1DisplayName write Set_Email1DisplayName; property Email2Address: WideString read Get_Email2Address write Set_Email2Address; property Email2AddressType: WideString read Get_Email2AddressType write Set_Email2AddressType; property Email2DisplayName: WideString read Get_Email2DisplayName write Set_Email2DisplayName; property Email3Address: WideString read Get_Email3Address write Set_Email3Address; property Email3AddressType: WideString read Get_Email3AddressType write Set_Email3AddressType; property Email3DisplayName: WideString read Get_Email3DisplayName write Set_Email3DisplayName; property FileAs: WideString read Get_FileAs write Set_FileAs; property FirstName: WideString read Get_FirstName write Set_FirstName; property FTPSite: WideString read Get_FTPSite write Set_FTPSite; property FullName: WideString read Get_FullName write Set_FullName; property Gender: OlGender read Get_Gender write Set_Gender; property GovernmentIDNumber: WideString read Get_GovernmentIDNumber write Set_GovernmentIDNumber; property Hobby: WideString read Get_Hobby write Set_Hobby; property Home2TelephoneNumber: WideString read Get_Home2TelephoneNumber write Set_Home2TelephoneNumber; property HomeAddress: WideString read Get_HomeAddress write Set_HomeAddress; property HomeAddressCity: WideString read Get_HomeAddressCity write Set_HomeAddressCity; property HomeAddressCountry: WideString read Get_HomeAddressCountry write Set_HomeAddressCountry; property HomeAddressPostalCode: WideString read Get_HomeAddressPostalCode write Set_HomeAddressPostalCode; property HomeAddressPostOfficeBox: WideString read Get_HomeAddressPostOfficeBox write Set_HomeAddressPostOfficeBox; property HomeAddressState: WideString read Get_HomeAddressState write Set_HomeAddressState; property HomeAddressStreet: WideString read Get_HomeAddressStreet write Set_HomeAddressStreet; property HomeFaxNumber: WideString read Get_HomeFaxNumber write Set_HomeFaxNumber; property HomeTelephoneNumber: WideString read Get_HomeTelephoneNumber write Set_HomeTelephoneNumber; property Initials: WideString read Get_Initials write Set_Initials; property InternetFreeBusyAddress: WideString read Get_InternetFreeBusyAddress write Set_InternetFreeBusyAddress; property ISDNNumber: WideString read Get_ISDNNumber write Set_ISDNNumber; property JobTitle: WideString read Get_JobTitle write Set_JobTitle; property Journal: WordBool read Get_Journal write Set_Journal; property Language: WideString read Get_Language write Set_Language; property LastName: WideString read Get_LastName write Set_LastName; property MailingAddress: WideString read Get_MailingAddress write Set_MailingAddress; property MailingAddressCity: WideString read Get_MailingAddressCity write Set_MailingAddressCity; property MailingAddressCountry: WideString read Get_MailingAddressCountry write Set_MailingAddressCountry; property MailingAddressPostalCode: WideString read Get_MailingAddressPostalCode write Set_MailingAddressPostalCode; property MailingAddressPostOfficeBox: WideString read Get_MailingAddressPostOfficeBox write Set_MailingAddressPostOfficeBox; property MailingAddressState: WideString read Get_MailingAddressState write Set_MailingAddressState; property MailingAddressStreet: WideString read Get_MailingAddressStreet write Set_MailingAddressStreet; property ManagerName: WideString read Get_ManagerName write Set_ManagerName; property MiddleName: WideString read Get_MiddleName write Set_MiddleName; property MobileTelephoneNumber: WideString read Get_MobileTelephoneNumber write Set_MobileTelephoneNumber; property NetMeetingAlias: WideString read Get_NetMeetingAlias write Set_NetMeetingAlias; property NetMeetingServer: WideString read Get_NetMeetingServer write Set_NetMeetingServer; property NickName: WideString read Get_NickName write Set_NickName; property OfficeLocation: WideString read Get_OfficeLocation write Set_OfficeLocation; property OrganizationalIDNumber: WideString read Get_OrganizationalIDNumber write Set_OrganizationalIDNumber; property OtherAddress: WideString read Get_OtherAddress write Set_OtherAddress; property OtherAddressCity: WideString read Get_OtherAddressCity write Set_OtherAddressCity; property OtherAddressCountry: WideString read Get_OtherAddressCountry write Set_OtherAddressCountry; property OtherAddressPostalCode: WideString read Get_OtherAddressPostalCode write Set_OtherAddressPostalCode; property OtherAddressPostOfficeBox: WideString read Get_OtherAddressPostOfficeBox write Set_OtherAddressPostOfficeBox; property OtherAddressState: WideString read Get_OtherAddressState write Set_OtherAddressState; property OtherAddressStreet: WideString read Get_OtherAddressStreet write Set_OtherAddressStreet; property OtherFaxNumber: WideString read Get_OtherFaxNumber write Set_OtherFaxNumber; property OtherTelephoneNumber: WideString read Get_OtherTelephoneNumber write Set_OtherTelephoneNumber; property PagerNumber: WideString read Get_PagerNumber write Set_PagerNumber; property PersonalHomePage: WideString read Get_PersonalHomePage write Set_PersonalHomePage; property PrimaryTelephoneNumber: WideString read Get_PrimaryTelephoneNumber write Set_PrimaryTelephoneNumber; property Profession: WideString read Get_Profession write Set_Profession; property RadioTelephoneNumber: WideString read Get_RadioTelephoneNumber write Set_RadioTelephoneNumber; property ReferredBy: WideString read Get_ReferredBy write Set_ReferredBy; property SelectedMailingAddress: OlMailingAddress read Get_SelectedMailingAddress write Set_SelectedMailingAddress; property Spouse: WideString read Get_Spouse write Set_Spouse; property Suffix: WideString read Get_Suffix write Set_Suffix; property TelexNumber: WideString read Get_TelexNumber write Set_TelexNumber; property Title: WideString read Get_Title write Set_Title; property TTYTDDTelephoneNumber: WideString read Get_TTYTDDTelephoneNumber write Set_TTYTDDTelephoneNumber; property User1: WideString read Get_User1 write Set_User1; property User2: WideString read Get_User2 write Set_User2; property User3: WideString read Get_User3 write Set_User3; property User4: WideString read Get_User4 write Set_User4; property UserCertificate: WideString read Get_UserCertificate write Set_UserCertificate; property WebPage: WideString read Get_WebPage write Set_WebPage; property YomiCompanyName: WideString read Get_YomiCompanyName write Set_YomiCompanyName; property YomiFirstName: WideString read Get_YomiFirstName write Set_YomiFirstName; property YomiLastName: WideString read Get_YomiLastName write Set_YomiLastName; property IMAddress: WideString read Get_IMAddress write Set_IMAddress; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoDistListItem provides a Create and CreateRemote method to // create instances of the default interface _DistListItem exposed by // the CoClass DistListItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDistListItem = class class function Create: _DistListItem; class function CreateRemote(const MachineName: string): _DistListItem; end; TDistListItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TDistListItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TDistListItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TDistListItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TDistListItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TDistListItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TDistListItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TDistListItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TDistListItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TDistListItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TDistListItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TDistListItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TDistListItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TDistListItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TDistListItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDistListItem // Help String : // Default Interface: _DistListItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDistListItemProperties= class; {$ENDIF} TDistListItem = class(TOleServer) private FOnOpen: TDistListItemOpen; FOnCustomAction: TDistListItemCustomAction; FOnCustomPropertyChange: TDistListItemCustomPropertyChange; FOnForward: TDistListItemForward; FOnClose: TDistListItemClose; FOnPropertyChange: TDistListItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TDistListItemReply; FOnReplyAll: TDistListItemReplyAll; FOnSend: TDistListItemSend; FOnWrite: TDistListItemWrite; FOnBeforeCheckNames: TDistListItemBeforeCheckNames; FOnAttachmentAdd: TDistListItemAttachmentAdd; FOnAttachmentRead: TDistListItemAttachmentRead; FOnBeforeAttachmentSave: TDistListItemBeforeAttachmentSave; FOnBeforeDelete: TDistListItemBeforeDelete; FIntf: _DistListItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDistListItemProperties; function GetServerProperties: TDistListItemProperties; {$ENDIF} function GetDefaultInterface: _DistListItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_DLName: WideString; procedure Set_DLName(const DLName: WideString); function Get_MemberCount: Integer; function Get_CheckSum: Integer; function Get_Members: OleVariant; procedure Set_Members(Members: OleVariant); function Get_OneOffMembers: OleVariant; procedure Set_OneOffMembers(OneOffMembers: OleVariant); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _DistListItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure AddMembers(const Recipients: Recipients); procedure RemoveMembers(const Recipients: Recipients); function GetMember(Index: Integer): Recipient; procedure ShowCategoriesDialog; procedure AddMember(const Recipient: Recipient); procedure RemoveMember(const Recipient: Recipient); property DefaultInterface: _DistListItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property MemberCount: Integer read Get_MemberCount; property CheckSum: Integer read Get_CheckSum; property Members: OleVariant read Get_Members write Set_Members; property OneOffMembers: OleVariant read Get_OneOffMembers write Set_OneOffMembers; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property DLName: WideString read Get_DLName write Set_DLName; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDistListItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TDistListItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TDistListItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TDistListItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TDistListItemForward read FOnForward write FOnForward; property OnClose: TDistListItemClose read FOnClose write FOnClose; property OnPropertyChange: TDistListItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TDistListItemReply read FOnReply write FOnReply; property OnReplyAll: TDistListItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TDistListItemSend read FOnSend write FOnSend; property OnWrite: TDistListItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TDistListItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TDistListItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TDistListItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TDistListItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TDistListItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDistListItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDistListItemProperties = class(TPersistent) private FServer: TDistListItem; function GetDefaultInterface: _DistListItem; constructor Create(AServer: TDistListItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_DLName: WideString; procedure Set_DLName(const DLName: WideString); function Get_MemberCount: Integer; function Get_CheckSum: Integer; function Get_Members: OleVariant; procedure Set_Members(Members: OleVariant); function Get_OneOffMembers: OleVariant; procedure Set_OneOffMembers(OneOffMembers: OleVariant); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _DistListItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property DLName: WideString read Get_DLName write Set_DLName; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoDocumentItem provides a Create and CreateRemote method to // create instances of the default interface _DocumentItem exposed by // the CoClass DocumentItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDocumentItem = class class function Create: _DocumentItem; class function CreateRemote(const MachineName: string): _DocumentItem; end; TDocumentItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TDocumentItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TDocumentItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TDocumentItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TDocumentItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TDocumentItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TDocumentItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TDocumentItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TDocumentItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TDocumentItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TDocumentItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TDocumentItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TDocumentItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TDocumentItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TDocumentItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDocumentItem // Help String : // Default Interface: _DocumentItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDocumentItemProperties= class; {$ENDIF} TDocumentItem = class(TOleServer) private FOnOpen: TDocumentItemOpen; FOnCustomAction: TDocumentItemCustomAction; FOnCustomPropertyChange: TDocumentItemCustomPropertyChange; FOnForward: TDocumentItemForward; FOnClose: TDocumentItemClose; FOnPropertyChange: TDocumentItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TDocumentItemReply; FOnReplyAll: TDocumentItemReplyAll; FOnSend: TDocumentItemSend; FOnWrite: TDocumentItemWrite; FOnBeforeCheckNames: TDocumentItemBeforeCheckNames; FOnAttachmentAdd: TDocumentItemAttachmentAdd; FOnAttachmentRead: TDocumentItemAttachmentRead; FOnBeforeAttachmentSave: TDocumentItemBeforeAttachmentSave; FOnBeforeDelete: TDocumentItemBeforeDelete; FIntf: _DocumentItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDocumentItemProperties; function GetServerProperties: TDocumentItemProperties; {$ENDIF} function GetDefaultInterface: _DocumentItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _DocumentItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ShowCategoriesDialog; property DefaultInterface: _DocumentItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDocumentItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TDocumentItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TDocumentItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TDocumentItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TDocumentItemForward read FOnForward write FOnForward; property OnClose: TDocumentItemClose read FOnClose write FOnClose; property OnPropertyChange: TDocumentItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TDocumentItemReply read FOnReply write FOnReply; property OnReplyAll: TDocumentItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TDocumentItemSend read FOnSend write FOnSend; property OnWrite: TDocumentItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TDocumentItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TDocumentItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TDocumentItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TDocumentItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TDocumentItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDocumentItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDocumentItemProperties = class(TPersistent) private FServer: TDocumentItem; function GetDefaultInterface: _DocumentItem; constructor Create(AServer: TDocumentItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _DocumentItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoExplorers provides a Create and CreateRemote method to // create instances of the default interface _Explorers exposed by // the CoClass Explorers. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoExplorers = class class function Create: _Explorers; class function CreateRemote(const MachineName: string): _Explorers; end; TExplorersNewExplorer = procedure(ASender: TObject; const Explorer: _Explorer) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TExplorers // Help String : // Default Interface: _Explorers // Def. Intf. DISP? : No // Event Interface: ExplorersEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TExplorersProperties= class; {$ENDIF} TExplorers = class(TOleServer) private FOnNewExplorer: TExplorersNewExplorer; FIntf: _Explorers; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TExplorersProperties; function GetServerProperties: TExplorersProperties; {$ENDIF} function GetDefaultInterface: _Explorers; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Explorers); procedure Disconnect; override; function Item(Index: OleVariant): Explorer; function Add(Folder: OleVariant; DisplayMode: OlFolderDisplayMode): _Explorer; property DefaultInterface: _Explorers read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TExplorersProperties read GetServerProperties; {$ENDIF} property OnNewExplorer: TExplorersNewExplorer read FOnNewExplorer write FOnNewExplorer; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TExplorers // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TExplorersProperties = class(TPersistent) private FServer: TExplorers; function GetDefaultInterface: _Explorers; constructor Create(AServer: TExplorers); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _Explorers read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoInspectors provides a Create and CreateRemote method to // create instances of the default interface _Inspectors exposed by // the CoClass Inspectors. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoInspectors = class class function Create: _Inspectors; class function CreateRemote(const MachineName: string): _Inspectors; end; TInspectorsNewInspector = procedure(ASender: TObject; const Inspector: _Inspector) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TInspectors // Help String : // Default Interface: _Inspectors // Def. Intf. DISP? : No // Event Interface: InspectorsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TInspectorsProperties= class; {$ENDIF} TInspectors = class(TOleServer) private FOnNewInspector: TInspectorsNewInspector; FIntf: _Inspectors; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TInspectorsProperties; function GetServerProperties: TInspectorsProperties; {$ENDIF} function GetDefaultInterface: _Inspectors; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Inspectors); procedure Disconnect; override; function Item(Index: OleVariant): Inspector; function Add(const Item: IDispatch): _Inspector; property DefaultInterface: _Inspectors read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TInspectorsProperties read GetServerProperties; {$ENDIF} property OnNewInspector: TInspectorsNewInspector read FOnNewInspector write FOnNewInspector; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TInspectors // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TInspectorsProperties = class(TPersistent) private FServer: TInspectors; function GetDefaultInterface: _Inspectors; constructor Create(AServer: TInspectors); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _Inspectors read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoFolders provides a Create and CreateRemote method to // create instances of the default interface _Folders exposed by // the CoClass Folders. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoFolders = class class function Create: _Folders; class function CreateRemote(const MachineName: string): _Folders; end; TFoldersFolderAdd = procedure(ASender: TObject; const Folder: MAPIFolder) of object; TFoldersFolderChange = procedure(ASender: TObject; const Folder: MAPIFolder) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TFolders // Help String : // Default Interface: _Folders // Def. Intf. DISP? : No // Event Interface: FoldersEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TFoldersProperties= class; {$ENDIF} TFolders = class(TOleServer) private FOnFolderAdd: TFoldersFolderAdd; FOnFolderChange: TFoldersFolderChange; FOnFolderRemove: TNotifyEvent; FIntf: _Folders; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TFoldersProperties; function GetServerProperties: TFoldersProperties; {$ENDIF} function GetDefaultInterface: _Folders; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Folders); procedure Disconnect; override; function Item(Index: OleVariant): MAPIFolder; function Add(const Name: WideString): MAPIFolder; overload; function Add(const Name: WideString; Type_: OleVariant): MAPIFolder; overload; function GetFirst: MAPIFolder; function GetLast: MAPIFolder; function GetNext: MAPIFolder; function GetPrevious: MAPIFolder; procedure Remove(Index: Integer); property DefaultInterface: _Folders read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TFoldersProperties read GetServerProperties; {$ENDIF} property OnFolderAdd: TFoldersFolderAdd read FOnFolderAdd write FOnFolderAdd; property OnFolderChange: TFoldersFolderChange read FOnFolderChange write FOnFolderChange; property OnFolderRemove: TNotifyEvent read FOnFolderRemove write FOnFolderRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TFolders // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TFoldersProperties = class(TPersistent) private FServer: TFolders; function GetDefaultInterface: _Folders; constructor Create(AServer: TFolders); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; public property DefaultInterface: _Folders read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoItems provides a Create and CreateRemote method to // create instances of the default interface _Items exposed by // the CoClass Items. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoItems = class class function Create: _Items; class function CreateRemote(const MachineName: string): _Items; end; TItemsItemAdd = procedure(ASender: TObject; const Item: IDispatch) of object; TItemsItemChange = procedure(ASender: TObject; const Item: IDispatch) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TItems // Help String : // Default Interface: _Items // Def. Intf. DISP? : No // Event Interface: ItemsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TItemsProperties= class; {$ENDIF} TItems = class(TOleServer) private FOnItemAdd: TItemsItemAdd; FOnItemChange: TItemsItemChange; FOnItemRemove: TNotifyEvent; FIntf: _Items; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TItemsProperties; function GetServerProperties: TItemsProperties; {$ENDIF} function GetDefaultInterface: _Items; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; function Get_IncludeRecurrences: WordBool; procedure Set_IncludeRecurrences(IncludeRecurrences: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Items); procedure Disconnect; override; function Item(Index: OleVariant): IDispatch; function Add: IDispatch; overload; function Add(Type_: OleVariant): IDispatch; overload; function Find(const Filter: WideString): IDispatch; function FindNext: IDispatch; function GetFirst: IDispatch; function GetLast: IDispatch; function GetNext: IDispatch; function GetPrevious: IDispatch; procedure Remove(Index: Integer); procedure ResetColumns; function Restrict(const Filter: WideString): _Items; procedure SetColumns(const Columns: WideString); procedure Sort(const Property_: WideString); overload; procedure Sort(const Property_: WideString; Descending: OleVariant); overload; property DefaultInterface: _Items read GetDefaultInterface; 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; property IncludeRecurrences: WordBool read Get_IncludeRecurrences write Set_IncludeRecurrences; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TItemsProperties read GetServerProperties; {$ENDIF} property OnItemAdd: TItemsItemAdd read FOnItemAdd write FOnItemAdd; property OnItemChange: TItemsItemChange read FOnItemChange write FOnItemChange; property OnItemRemove: TNotifyEvent read FOnItemRemove write FOnItemRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TItems // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TItemsProperties = class(TPersistent) private FServer: TItems; function GetDefaultInterface: _Items; constructor Create(AServer: TItems); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; function Get_IncludeRecurrences: WordBool; procedure Set_IncludeRecurrences(IncludeRecurrences: WordBool); public property DefaultInterface: _Items read GetDefaultInterface; published property IncludeRecurrences: WordBool read Get_IncludeRecurrences write Set_IncludeRecurrences; end; {$ENDIF} // *********************************************************************// // The Class CoJournalItem provides a Create and CreateRemote method to // create instances of the default interface _JournalItem exposed by // the CoClass JournalItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoJournalItem = class class function Create: _JournalItem; class function CreateRemote(const MachineName: string): _JournalItem; end; TJournalItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TJournalItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TJournalItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TJournalItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TJournalItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TJournalItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TJournalItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TJournalItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TJournalItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TJournalItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TJournalItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TJournalItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TJournalItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TJournalItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TJournalItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TJournalItem // Help String : // Default Interface: _JournalItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TJournalItemProperties= class; {$ENDIF} TJournalItem = class(TOleServer) private FOnOpen: TJournalItemOpen; FOnCustomAction: TJournalItemCustomAction; FOnCustomPropertyChange: TJournalItemCustomPropertyChange; FOnForward: TJournalItemForward; FOnClose: TJournalItemClose; FOnPropertyChange: TJournalItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TJournalItemReply; FOnReplyAll: TJournalItemReplyAll; FOnSend: TJournalItemSend; FOnWrite: TJournalItemWrite; FOnBeforeCheckNames: TJournalItemBeforeCheckNames; FOnAttachmentAdd: TJournalItemAttachmentAdd; FOnAttachmentRead: TJournalItemAttachmentRead; FOnBeforeAttachmentSave: TJournalItemBeforeAttachmentSave; FOnBeforeDelete: TJournalItemBeforeDelete; FIntf: _JournalItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TJournalItemProperties; function GetServerProperties: TJournalItemProperties; {$ENDIF} function GetDefaultInterface: _JournalItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ContactNames: WideString; procedure Set_ContactNames(const ContactNames: WideString); function Get_DocPosted: WordBool; procedure Set_DocPosted(DocPosted: WordBool); function Get_DocPrinted: WordBool; procedure Set_DocPrinted(DocPrinted: WordBool); function Get_DocRouted: WordBool; procedure Set_DocRouted(DocRouted: WordBool); function Get_DocSaved: WordBool; procedure Set_DocSaved(DocSaved: WordBool); function Get_Duration: Integer; procedure Set_Duration(Duration: Integer); function Get_End_: TDateTime; procedure Set_End_(End_: TDateTime); function Get_type_: WideString; procedure Set_type_(const Type_: WideString); function Get_Recipients: Recipients; function Get_Start: TDateTime; procedure Set_Start(Start: TDateTime); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _JournalItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function Forward: MailItem; function Reply: MailItem; function ReplyAll: MailItem; procedure StartTimer; procedure StopTimer; procedure ShowCategoriesDialog; property DefaultInterface: _JournalItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Recipients: Recipients read Get_Recipients; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DocPosted: WordBool read Get_DocPosted write Set_DocPosted; property DocPrinted: WordBool read Get_DocPrinted write Set_DocPrinted; property DocRouted: WordBool read Get_DocRouted write Set_DocRouted; property DocSaved: WordBool read Get_DocSaved write Set_DocSaved; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property type_: WideString read Get_type_ write Set_type_; property Start: TDateTime read Get_Start write Set_Start; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TJournalItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TJournalItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TJournalItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TJournalItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TJournalItemForward read FOnForward write FOnForward; property OnClose: TJournalItemClose read FOnClose write FOnClose; property OnPropertyChange: TJournalItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TJournalItemReply read FOnReply write FOnReply; property OnReplyAll: TJournalItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TJournalItemSend read FOnSend write FOnSend; property OnWrite: TJournalItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TJournalItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TJournalItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TJournalItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TJournalItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TJournalItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TJournalItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TJournalItemProperties = class(TPersistent) private FServer: TJournalItem; function GetDefaultInterface: _JournalItem; constructor Create(AServer: TJournalItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ContactNames: WideString; procedure Set_ContactNames(const ContactNames: WideString); function Get_DocPosted: WordBool; procedure Set_DocPosted(DocPosted: WordBool); function Get_DocPrinted: WordBool; procedure Set_DocPrinted(DocPrinted: WordBool); function Get_DocRouted: WordBool; procedure Set_DocRouted(DocRouted: WordBool); function Get_DocSaved: WordBool; procedure Set_DocSaved(DocSaved: WordBool); function Get_Duration: Integer; procedure Set_Duration(Duration: Integer); function Get_End_: TDateTime; procedure Set_End_(End_: TDateTime); function Get_type_: WideString; procedure Set_type_(const Type_: WideString); function Get_Recipients: Recipients; function Get_Start: TDateTime; procedure Set_Start(Start: TDateTime); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _JournalItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ContactNames: WideString read Get_ContactNames write Set_ContactNames; property DocPosted: WordBool read Get_DocPosted write Set_DocPosted; property DocPrinted: WordBool read Get_DocPrinted write Set_DocPrinted; property DocRouted: WordBool read Get_DocRouted write Set_DocRouted; property DocSaved: WordBool read Get_DocSaved write Set_DocSaved; property Duration: Integer read Get_Duration write Set_Duration; property End_: TDateTime read Get_End_ write Set_End_; property type_: WideString read Get_type_ write Set_type_; property Start: TDateTime read Get_Start write Set_Start; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoNameSpace provides a Create and CreateRemote method to // create instances of the default interface _NameSpace exposed by // the CoClass NameSpace. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNameSpace = class class function Create: _NameSpace; class function CreateRemote(const MachineName: string): _NameSpace; end; TNameSpaceOptionsPagesAdd = procedure(ASender: TObject; const Pages: PropertyPages; const Folder: MAPIFolder) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNameSpace // Help String : // Default Interface: _NameSpace // Def. Intf. DISP? : No // Event Interface: NameSpaceEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNameSpaceProperties= class; {$ENDIF} TNameSpace = class(TOleServer) private FOnOptionsPagesAdd: TNameSpaceOptionsPagesAdd; FIntf: _NameSpace; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNameSpaceProperties; function GetServerProperties: TNameSpaceProperties; {$ENDIF} function GetDefaultInterface: _NameSpace; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CurrentUser: Recipient; function Get_Folders: _Folders; function Get_type_: WideString; function Get_AddressLists: AddressLists; function Get_SyncObjects: SyncObjects; function Get_Offline: WordBool; function Get_MAPIOBJECT: IUnknown; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _NameSpace); procedure Disconnect; override; function CreateRecipient(const RecipientName: WideString): Recipient; function GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; function GetFolderFromID(const EntryIDFolder: WideString): MAPIFolder; overload; function GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; overload; function GetItemFromID(const EntryIDItem: WideString): IDispatch; overload; function GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; overload; function GetRecipientFromID(const EntryID: WideString): Recipient; function GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; procedure Logoff; procedure Logon; overload; procedure Logon(Profile: OleVariant); overload; procedure Logon(Profile: OleVariant; Password: OleVariant); overload; procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant); overload; procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; NewSession: OleVariant); overload; function PickFolder: MAPIFolder; procedure RefreshRemoteHeaders; procedure AddStore(Store: OleVariant); procedure RemoveStore(const Folder: MAPIFolder); procedure Dial; overload; procedure Dial(ContactItem: OleVariant); overload; property DefaultInterface: _NameSpace read GetDefaultInterface; 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 CurrentUser: Recipient read Get_CurrentUser; property Folders: _Folders read Get_Folders; property type_: WideString read Get_type_; property AddressLists: AddressLists read Get_AddressLists; property SyncObjects: SyncObjects read Get_SyncObjects; property Offline: WordBool read Get_Offline; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNameSpaceProperties read GetServerProperties; {$ENDIF} property OnOptionsPagesAdd: TNameSpaceOptionsPagesAdd read FOnOptionsPagesAdd write FOnOptionsPagesAdd; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNameSpace // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNameSpaceProperties = class(TPersistent) private FServer: TNameSpace; function GetDefaultInterface: _NameSpace; constructor Create(AServer: TNameSpace); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_CurrentUser: Recipient; function Get_Folders: _Folders; function Get_type_: WideString; function Get_AddressLists: AddressLists; function Get_SyncObjects: SyncObjects; function Get_Offline: WordBool; function Get_MAPIOBJECT: IUnknown; public property DefaultInterface: _NameSpace read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoNoteItem provides a Create and CreateRemote method to // create instances of the default interface _NoteItem exposed by // the CoClass NoteItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoNoteItem = class class function Create: _NoteItem; class function CreateRemote(const MachineName: string): _NoteItem; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TNoteItem // Help String : // Default Interface: _NoteItem // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TNoteItemProperties= class; {$ENDIF} TNoteItem = class(TOleServer) private FIntf: _NoteItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TNoteItemProperties; function GetServerProperties: TNoteItemProperties; {$ENDIF} function GetDefaultInterface: _NoteItem; protected procedure InitServerData; override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Color: OlNoteColor; procedure Set_Color(Color: OlNoteColor); function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_GetInspector: _Inspector; function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_LastModificationTime: TDateTime; function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Saved: WordBool; function Get_Size: Integer; function Get_Subject: WideString; function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _NoteItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; property DefaultInterface: _NoteItem read GetDefaultInterface; 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 CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property Subject: WideString read Get_Subject; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Color: OlNoteColor read Get_Color write Set_Color; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TNoteItemProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TNoteItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TNoteItemProperties = class(TPersistent) private FServer: TNoteItem; function GetDefaultInterface: _NoteItem; constructor Create(AServer: TNoteItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Color: OlNoteColor; procedure Set_Color(Color: OlNoteColor); function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_GetInspector: _Inspector; function Get_Height: Integer; procedure Set_Height(Height: Integer); function Get_LastModificationTime: TDateTime; function Get_Left: Integer; procedure Set_Left(Left: Integer); function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Saved: WordBool; function Get_Size: Integer; function Get_Subject: WideString; function Get_Top: Integer; procedure Set_Top(Top: Integer); function Get_Width: Integer; procedure Set_Width(Width: Integer); function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _NoteItem read GetDefaultInterface; published property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Color: OlNoteColor read Get_Color write Set_Color; property Height: Integer read Get_Height write Set_Height; property Left: Integer read Get_Left write Set_Left; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Top: Integer read Get_Top write Set_Top; property Width: Integer read Get_Width write Set_Width; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoOutlookBarGroups provides a Create and CreateRemote method to // create instances of the default interface _OutlookBarGroups exposed by // the CoClass OutlookBarGroups. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOutlookBarGroups = class class function Create: _OutlookBarGroups; class function CreateRemote(const MachineName: string): _OutlookBarGroups; end; TOutlookBarGroupsGroupAdd = procedure(ASender: TObject; const NewGroup: OutlookBarGroup) of object; TOutlookBarGroupsBeforeGroupAdd = procedure(ASender: TObject; var Cancel: WordBool) of object; TOutlookBarGroupsBeforeGroupRemove = procedure(ASender: TObject; const Group: OutlookBarGroup; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOutlookBarGroups // Help String : // Default Interface: _OutlookBarGroups // Def. Intf. DISP? : No // Event Interface: OutlookBarGroupsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOutlookBarGroupsProperties= class; {$ENDIF} TOutlookBarGroups = class(TOleServer) private FOnGroupAdd: TOutlookBarGroupsGroupAdd; FOnBeforeGroupAdd: TOutlookBarGroupsBeforeGroupAdd; FOnBeforeGroupRemove: TOutlookBarGroupsBeforeGroupRemove; FIntf: _OutlookBarGroups; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOutlookBarGroupsProperties; function GetServerProperties: TOutlookBarGroupsProperties; {$ENDIF} function GetDefaultInterface: _OutlookBarGroups; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _OutlookBarGroups); procedure Disconnect; override; function Item(Index: OleVariant): OutlookBarGroup; function Add(const Name: WideString): OutlookBarGroup; overload; function Add(const Name: WideString; Index: OleVariant): OutlookBarGroup; overload; procedure Remove(Index: OleVariant); property DefaultInterface: _OutlookBarGroups read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOutlookBarGroupsProperties read GetServerProperties; {$ENDIF} property OnGroupAdd: TOutlookBarGroupsGroupAdd read FOnGroupAdd write FOnGroupAdd; property OnBeforeGroupAdd: TOutlookBarGroupsBeforeGroupAdd read FOnBeforeGroupAdd write FOnBeforeGroupAdd; property OnBeforeGroupRemove: TOutlookBarGroupsBeforeGroupRemove read FOnBeforeGroupRemove write FOnBeforeGroupRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOutlookBarGroups // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOutlookBarGroupsProperties = class(TPersistent) private FServer: TOutlookBarGroups; function GetDefaultInterface: _OutlookBarGroups; constructor Create(AServer: TOutlookBarGroups); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _OutlookBarGroups read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoOutlookBarPane provides a Create and CreateRemote method to // create instances of the default interface _OutlookBarPane exposed by // the CoClass OutlookBarPane. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOutlookBarPane = class class function Create: _OutlookBarPane; class function CreateRemote(const MachineName: string): _OutlookBarPane; end; TOutlookBarPaneBeforeNavigate = procedure(ASender: TObject; const Shortcut: OutlookBarShortcut; var Cancel: WordBool) of object; TOutlookBarPaneBeforeGroupSwitch = procedure(ASender: TObject; const ToGroup: OutlookBarGroup; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOutlookBarPane // Help String : // Default Interface: _OutlookBarPane // Def. Intf. DISP? : No // Event Interface: OutlookBarPaneEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOutlookBarPaneProperties= class; {$ENDIF} TOutlookBarPane = class(TOleServer) private FOnBeforeNavigate: TOutlookBarPaneBeforeNavigate; FOnBeforeGroupSwitch: TOutlookBarPaneBeforeGroupSwitch; FIntf: _OutlookBarPane; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOutlookBarPaneProperties; function GetServerProperties: TOutlookBarPaneProperties; {$ENDIF} function GetDefaultInterface: _OutlookBarPane; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Contents: OutlookBarStorage; function Get_CurrentGroup: OutlookBarGroup; procedure _Set_CurrentGroup(const CurrentGroup: OutlookBarGroup); function Get_Name: WideString; function Get_Visible: WordBool; procedure Set_Visible(Visible: WordBool); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _OutlookBarPane); procedure Disconnect; override; property DefaultInterface: _OutlookBarPane read GetDefaultInterface; 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 Contents: OutlookBarStorage read Get_Contents; property CurrentGroup: OutlookBarGroup read Get_CurrentGroup write _Set_CurrentGroup; property Name: WideString read Get_Name; property Visible: WordBool read Get_Visible write Set_Visible; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOutlookBarPaneProperties read GetServerProperties; {$ENDIF} property OnBeforeNavigate: TOutlookBarPaneBeforeNavigate read FOnBeforeNavigate write FOnBeforeNavigate; property OnBeforeGroupSwitch: TOutlookBarPaneBeforeGroupSwitch read FOnBeforeGroupSwitch write FOnBeforeGroupSwitch; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOutlookBarPane // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOutlookBarPaneProperties = class(TPersistent) private FServer: TOutlookBarPane; function GetDefaultInterface: _OutlookBarPane; constructor Create(AServer: TOutlookBarPane); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Contents: OutlookBarStorage; function Get_CurrentGroup: OutlookBarGroup; procedure _Set_CurrentGroup(const CurrentGroup: OutlookBarGroup); function Get_Name: WideString; function Get_Visible: WordBool; procedure Set_Visible(Visible: WordBool); public property DefaultInterface: _OutlookBarPane read GetDefaultInterface; published property Visible: WordBool read Get_Visible write Set_Visible; end; {$ENDIF} // *********************************************************************// // The Class CoOutlookBarShortcuts provides a Create and CreateRemote method to // create instances of the default interface _OutlookBarShortcuts exposed by // the CoClass OutlookBarShortcuts. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoOutlookBarShortcuts = class class function Create: _OutlookBarShortcuts; class function CreateRemote(const MachineName: string): _OutlookBarShortcuts; end; TOutlookBarShortcutsShortcutAdd = procedure(ASender: TObject; const NewShortcut: OutlookBarShortcut) of object; TOutlookBarShortcutsBeforeShortcutAdd = procedure(ASender: TObject; var Cancel: WordBool) of object; TOutlookBarShortcutsBeforeShortcutRemove = procedure(ASender: TObject; const Shortcut: OutlookBarShortcut; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TOutlookBarShortcuts // Help String : // Default Interface: _OutlookBarShortcuts // Def. Intf. DISP? : No // Event Interface: OutlookBarShortcutsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TOutlookBarShortcutsProperties= class; {$ENDIF} TOutlookBarShortcuts = class(TOleServer) private FOnShortcutAdd: TOutlookBarShortcutsShortcutAdd; FOnBeforeShortcutAdd: TOutlookBarShortcutsBeforeShortcutAdd; FOnBeforeShortcutRemove: TOutlookBarShortcutsBeforeShortcutRemove; FIntf: _OutlookBarShortcuts; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TOutlookBarShortcutsProperties; function GetServerProperties: TOutlookBarShortcutsProperties; {$ENDIF} function GetDefaultInterface: _OutlookBarShortcuts; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _OutlookBarShortcuts); procedure Disconnect; override; function Item(Index: OleVariant): OutlookBarShortcut; function Add(Target: OleVariant; const Name: WideString): OutlookBarShortcut; overload; function Add(Target: OleVariant; const Name: WideString; Index: OleVariant): OutlookBarShortcut; overload; procedure Remove(Index: OleVariant); property DefaultInterface: _OutlookBarShortcuts read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TOutlookBarShortcutsProperties read GetServerProperties; {$ENDIF} property OnShortcutAdd: TOutlookBarShortcutsShortcutAdd read FOnShortcutAdd write FOnShortcutAdd; property OnBeforeShortcutAdd: TOutlookBarShortcutsBeforeShortcutAdd read FOnBeforeShortcutAdd write FOnBeforeShortcutAdd; property OnBeforeShortcutRemove: TOutlookBarShortcutsBeforeShortcutRemove read FOnBeforeShortcutRemove write FOnBeforeShortcutRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TOutlookBarShortcuts // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TOutlookBarShortcutsProperties = class(TPersistent) private FServer: TOutlookBarShortcuts; function GetDefaultInterface: _OutlookBarShortcuts; constructor Create(AServer: TOutlookBarShortcuts); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _OutlookBarShortcuts read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoPostItem provides a Create and CreateRemote method to // create instances of the default interface _PostItem exposed by // the CoClass PostItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoPostItem = class class function Create: _PostItem; class function CreateRemote(const MachineName: string): _PostItem; end; TPostItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TPostItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TPostItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TPostItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TPostItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TPostItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TPostItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TPostItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TPostItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TPostItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TPostItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TPostItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TPostItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TPostItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TPostItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TPostItem // Help String : // Default Interface: _PostItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TPostItemProperties= class; {$ENDIF} TPostItem = class(TOleServer) private FOnOpen: TPostItemOpen; FOnCustomAction: TPostItemCustomAction; FOnCustomPropertyChange: TPostItemCustomPropertyChange; FOnForward: TPostItemForward; FOnClose: TPostItemClose; FOnPropertyChange: TPostItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TPostItemReply; FOnReplyAll: TPostItemReplyAll; FOnSend: TPostItemSend; FOnWrite: TPostItemWrite; FOnBeforeCheckNames: TPostItemBeforeCheckNames; FOnAttachmentAdd: TPostItemAttachmentAdd; FOnAttachmentRead: TPostItemAttachmentRead; FOnBeforeAttachmentSave: TPostItemBeforeAttachmentSave; FOnBeforeDelete: TPostItemBeforeDelete; FIntf: _PostItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TPostItemProperties; function GetServerProperties: TPostItemProperties; {$ENDIF} function GetDefaultInterface: _PostItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_HTMLBody: WideString; procedure Set_HTMLBody(const HTMLBody: WideString); function Get_ReceivedTime: TDateTime; function Get_SenderName: WideString; function Get_SentOn: TDateTime; function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_BodyFormat: OlBodyFormat; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _PostItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ClearConversationIndex; function Forward: MailItem; procedure Post; function Reply: MailItem; procedure ShowCategoriesDialog; function SetACLs: WordBool; property DefaultInterface: _PostItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property ReceivedTime: TDateTime read Get_ReceivedTime; property SenderName: WideString read Get_SenderName; property SentOn: TDateTime read Get_SentOn; property Links: Links read Get_Links; property ItemProperties: ItemProperties read Get_ItemProperties; property DownloadState: OlDownloadState read Get_DownloadState; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TPostItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TPostItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TPostItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TPostItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TPostItemForward read FOnForward write FOnForward; property OnClose: TPostItemClose read FOnClose write FOnClose; property OnPropertyChange: TPostItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TPostItemReply read FOnReply write FOnReply; property OnReplyAll: TPostItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TPostItemSend read FOnSend write FOnSend; property OnWrite: TPostItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TPostItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TPostItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TPostItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TPostItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TPostItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TPostItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TPostItemProperties = class(TPersistent) private FServer: TPostItem; function GetDefaultInterface: _PostItem; constructor Create(AServer: TPostItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_ExpiryTime: TDateTime; procedure Set_ExpiryTime(ExpiryTime: TDateTime); function Get_HTMLBody: WideString; procedure Set_HTMLBody(const HTMLBody: WideString); function Get_ReceivedTime: TDateTime; function Get_SenderName: WideString; function Get_SentOn: TDateTime; function Get_Links: Links; function Get_ItemProperties: ItemProperties; function Get_BodyFormat: OlBodyFormat; procedure Set_BodyFormat(BodyFormat: OlBodyFormat); function Get_DownloadState: OlDownloadState; function Get_InternetCodepage: Integer; procedure Set_InternetCodepage(InternetCodepage: Integer); function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _PostItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime; property HTMLBody: WideString read Get_HTMLBody write Set_HTMLBody; property BodyFormat: OlBodyFormat read Get_BodyFormat write Set_BodyFormat; property InternetCodepage: Integer read Get_InternetCodepage write Set_InternetCodepage; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoRemoteItem provides a Create and CreateRemote method to // create instances of the default interface _RemoteItem exposed by // the CoClass RemoteItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoRemoteItem = class class function Create: _RemoteItem; class function CreateRemote(const MachineName: string): _RemoteItem; end; TRemoteItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemoteItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TRemoteItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TRemoteItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TRemoteItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemoteItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TRemoteItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TRemoteItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TRemoteItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemoteItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemoteItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemoteItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TRemoteItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TRemoteItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TRemoteItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TRemoteItem // Help String : // Default Interface: _RemoteItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRemoteItemProperties= class; {$ENDIF} TRemoteItem = class(TOleServer) private FOnOpen: TRemoteItemOpen; FOnCustomAction: TRemoteItemCustomAction; FOnCustomPropertyChange: TRemoteItemCustomPropertyChange; FOnForward: TRemoteItemForward; FOnClose: TRemoteItemClose; FOnPropertyChange: TRemoteItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TRemoteItemReply; FOnReplyAll: TRemoteItemReplyAll; FOnSend: TRemoteItemSend; FOnWrite: TRemoteItemWrite; FOnBeforeCheckNames: TRemoteItemBeforeCheckNames; FOnAttachmentAdd: TRemoteItemAttachmentAdd; FOnAttachmentRead: TRemoteItemAttachmentRead; FOnBeforeAttachmentSave: TRemoteItemBeforeAttachmentSave; FOnBeforeDelete: TRemoteItemBeforeDelete; FIntf: _RemoteItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRemoteItemProperties; function GetServerProperties: TRemoteItemProperties; {$ENDIF} function GetDefaultInterface: _RemoteItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_HasAttachment: WordBool; function Get_RemoteMessageClass: WideString; function Get_TransferSize: Integer; function Get_TransferTime: Integer; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _RemoteItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ShowCategoriesDialog; property DefaultInterface: _RemoteItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property HasAttachment: WordBool read Get_HasAttachment; property RemoteMessageClass: WideString read Get_RemoteMessageClass; property TransferSize: Integer read Get_TransferSize; property TransferTime: Integer read Get_TransferTime; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRemoteItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TRemoteItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TRemoteItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TRemoteItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TRemoteItemForward read FOnForward write FOnForward; property OnClose: TRemoteItemClose read FOnClose write FOnClose; property OnPropertyChange: TRemoteItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TRemoteItemReply read FOnReply write FOnReply; property OnReplyAll: TRemoteItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TRemoteItemSend read FOnSend write FOnSend; property OnWrite: TRemoteItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TRemoteItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TRemoteItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TRemoteItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TRemoteItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TRemoteItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TRemoteItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRemoteItemProperties = class(TPersistent) private FServer: TRemoteItem; function GetDefaultInterface: _RemoteItem; constructor Create(AServer: TRemoteItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_HasAttachment: WordBool; function Get_RemoteMessageClass: WideString; function Get_TransferSize: Integer; function Get_TransferTime: Integer; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _RemoteItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoReportItem provides a Create and CreateRemote method to // create instances of the default interface _ReportItem exposed by // the CoClass ReportItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoReportItem = class class function Create: _ReportItem; class function CreateRemote(const MachineName: string): _ReportItem; end; TReportItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TReportItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TReportItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TReportItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TReportItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TReportItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TReportItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TReportItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TReportItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TReportItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TReportItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TReportItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TReportItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TReportItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TReportItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TReportItem // Help String : // Default Interface: _ReportItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TReportItemProperties= class; {$ENDIF} TReportItem = class(TOleServer) private FOnOpen: TReportItemOpen; FOnCustomAction: TReportItemCustomAction; FOnCustomPropertyChange: TReportItemCustomPropertyChange; FOnForward: TReportItemForward; FOnClose: TReportItemClose; FOnPropertyChange: TReportItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TReportItemReply; FOnReplyAll: TReportItemReplyAll; FOnSend: TReportItemSend; FOnWrite: TReportItemWrite; FOnBeforeCheckNames: TReportItemBeforeCheckNames; FOnAttachmentAdd: TReportItemAttachmentAdd; FOnAttachmentRead: TReportItemAttachmentRead; FOnBeforeAttachmentSave: TReportItemBeforeAttachmentSave; FOnBeforeDelete: TReportItemBeforeDelete; FIntf: _ReportItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TReportItemProperties; function GetServerProperties: TReportItemProperties; {$ENDIF} function GetDefaultInterface: _ReportItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _ReportItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; procedure ShowCategoriesDialog; property DefaultInterface: _ReportItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TReportItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TReportItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TReportItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TReportItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TReportItemForward read FOnForward write FOnForward; property OnClose: TReportItemClose read FOnClose write FOnClose; property OnPropertyChange: TReportItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TReportItemReply read FOnReply write FOnReply; property OnReplyAll: TReportItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TReportItemSend read FOnSend write FOnSend; property OnWrite: TReportItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TReportItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TReportItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TReportItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TReportItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TReportItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TReportItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TReportItemProperties = class(TPersistent) private FServer: TReportItem; function GetDefaultInterface: _ReportItem; constructor Create(AServer: TReportItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _ReportItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoTaskRequestAcceptItem provides a Create and CreateRemote method to // create instances of the default interface _TaskRequestAcceptItem exposed by // the CoClass TaskRequestAcceptItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTaskRequestAcceptItem = class class function Create: _TaskRequestAcceptItem; class function CreateRemote(const MachineName: string): _TaskRequestAcceptItem; end; TTaskRequestAcceptItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestAcceptItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestAcceptItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestAcceptItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TTaskRequestAcceptItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestAcceptItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestAcceptItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestAcceptItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestAcceptItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestAcceptItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestAcceptItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestAcceptItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestAcceptItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestAcceptItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TTaskRequestAcceptItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTaskRequestAcceptItem // Help String : // Default Interface: _TaskRequestAcceptItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTaskRequestAcceptItemProperties= class; {$ENDIF} TTaskRequestAcceptItem = class(TOleServer) private FOnOpen: TTaskRequestAcceptItemOpen; FOnCustomAction: TTaskRequestAcceptItemCustomAction; FOnCustomPropertyChange: TTaskRequestAcceptItemCustomPropertyChange; FOnForward: TTaskRequestAcceptItemForward; FOnClose: TTaskRequestAcceptItemClose; FOnPropertyChange: TTaskRequestAcceptItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TTaskRequestAcceptItemReply; FOnReplyAll: TTaskRequestAcceptItemReplyAll; FOnSend: TTaskRequestAcceptItemSend; FOnWrite: TTaskRequestAcceptItemWrite; FOnBeforeCheckNames: TTaskRequestAcceptItemBeforeCheckNames; FOnAttachmentAdd: TTaskRequestAcceptItemAttachmentAdd; FOnAttachmentRead: TTaskRequestAcceptItemAttachmentRead; FOnBeforeAttachmentSave: TTaskRequestAcceptItemBeforeAttachmentSave; FOnBeforeDelete: TTaskRequestAcceptItemBeforeDelete; FIntf: _TaskRequestAcceptItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTaskRequestAcceptItemProperties; function GetServerProperties: TTaskRequestAcceptItemProperties; {$ENDIF} function GetDefaultInterface: _TaskRequestAcceptItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _TaskRequestAcceptItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; procedure ShowCategoriesDialog; property DefaultInterface: _TaskRequestAcceptItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTaskRequestAcceptItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TTaskRequestAcceptItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TTaskRequestAcceptItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TTaskRequestAcceptItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TTaskRequestAcceptItemForward read FOnForward write FOnForward; property OnClose: TTaskRequestAcceptItemClose read FOnClose write FOnClose; property OnPropertyChange: TTaskRequestAcceptItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TTaskRequestAcceptItemReply read FOnReply write FOnReply; property OnReplyAll: TTaskRequestAcceptItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TTaskRequestAcceptItemSend read FOnSend write FOnSend; property OnWrite: TTaskRequestAcceptItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TTaskRequestAcceptItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TTaskRequestAcceptItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TTaskRequestAcceptItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TTaskRequestAcceptItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TTaskRequestAcceptItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTaskRequestAcceptItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTaskRequestAcceptItemProperties = class(TPersistent) private FServer: TTaskRequestAcceptItem; function GetDefaultInterface: _TaskRequestAcceptItem; constructor Create(AServer: TTaskRequestAcceptItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _TaskRequestAcceptItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoTaskRequestDeclineItem provides a Create and CreateRemote method to // create instances of the default interface _TaskRequestDeclineItem exposed by // the CoClass TaskRequestDeclineItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTaskRequestDeclineItem = class class function Create: _TaskRequestDeclineItem; class function CreateRemote(const MachineName: string): _TaskRequestDeclineItem; end; TTaskRequestDeclineItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestDeclineItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestDeclineItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestDeclineItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TTaskRequestDeclineItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestDeclineItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestDeclineItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestDeclineItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestDeclineItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestDeclineItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestDeclineItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestDeclineItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestDeclineItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestDeclineItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TTaskRequestDeclineItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTaskRequestDeclineItem // Help String : // Default Interface: _TaskRequestDeclineItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTaskRequestDeclineItemProperties= class; {$ENDIF} TTaskRequestDeclineItem = class(TOleServer) private FOnOpen: TTaskRequestDeclineItemOpen; FOnCustomAction: TTaskRequestDeclineItemCustomAction; FOnCustomPropertyChange: TTaskRequestDeclineItemCustomPropertyChange; FOnForward: TTaskRequestDeclineItemForward; FOnClose: TTaskRequestDeclineItemClose; FOnPropertyChange: TTaskRequestDeclineItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TTaskRequestDeclineItemReply; FOnReplyAll: TTaskRequestDeclineItemReplyAll; FOnSend: TTaskRequestDeclineItemSend; FOnWrite: TTaskRequestDeclineItemWrite; FOnBeforeCheckNames: TTaskRequestDeclineItemBeforeCheckNames; FOnAttachmentAdd: TTaskRequestDeclineItemAttachmentAdd; FOnAttachmentRead: TTaskRequestDeclineItemAttachmentRead; FOnBeforeAttachmentSave: TTaskRequestDeclineItemBeforeAttachmentSave; FOnBeforeDelete: TTaskRequestDeclineItemBeforeDelete; FIntf: _TaskRequestDeclineItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTaskRequestDeclineItemProperties; function GetServerProperties: TTaskRequestDeclineItemProperties; {$ENDIF} function GetDefaultInterface: _TaskRequestDeclineItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _TaskRequestDeclineItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; procedure ShowCategoriesDialog; property DefaultInterface: _TaskRequestDeclineItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTaskRequestDeclineItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TTaskRequestDeclineItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TTaskRequestDeclineItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TTaskRequestDeclineItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TTaskRequestDeclineItemForward read FOnForward write FOnForward; property OnClose: TTaskRequestDeclineItemClose read FOnClose write FOnClose; property OnPropertyChange: TTaskRequestDeclineItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TTaskRequestDeclineItemReply read FOnReply write FOnReply; property OnReplyAll: TTaskRequestDeclineItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TTaskRequestDeclineItemSend read FOnSend write FOnSend; property OnWrite: TTaskRequestDeclineItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TTaskRequestDeclineItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TTaskRequestDeclineItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TTaskRequestDeclineItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TTaskRequestDeclineItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TTaskRequestDeclineItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTaskRequestDeclineItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTaskRequestDeclineItemProperties = class(TPersistent) private FServer: TTaskRequestDeclineItem; function GetDefaultInterface: _TaskRequestDeclineItem; constructor Create(AServer: TTaskRequestDeclineItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _TaskRequestDeclineItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoTaskRequestItem provides a Create and CreateRemote method to // create instances of the default interface _TaskRequestItem exposed by // the CoClass TaskRequestItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTaskRequestItem = class class function Create: _TaskRequestItem; class function CreateRemote(const MachineName: string): _TaskRequestItem; end; TTaskRequestItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TTaskRequestItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TTaskRequestItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTaskRequestItem // Help String : // Default Interface: _TaskRequestItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTaskRequestItemProperties= class; {$ENDIF} TTaskRequestItem = class(TOleServer) private FOnOpen: TTaskRequestItemOpen; FOnCustomAction: TTaskRequestItemCustomAction; FOnCustomPropertyChange: TTaskRequestItemCustomPropertyChange; FOnForward: TTaskRequestItemForward; FOnClose: TTaskRequestItemClose; FOnPropertyChange: TTaskRequestItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TTaskRequestItemReply; FOnReplyAll: TTaskRequestItemReplyAll; FOnSend: TTaskRequestItemSend; FOnWrite: TTaskRequestItemWrite; FOnBeforeCheckNames: TTaskRequestItemBeforeCheckNames; FOnAttachmentAdd: TTaskRequestItemAttachmentAdd; FOnAttachmentRead: TTaskRequestItemAttachmentRead; FOnBeforeAttachmentSave: TTaskRequestItemBeforeAttachmentSave; FOnBeforeDelete: TTaskRequestItemBeforeDelete; FIntf: _TaskRequestItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTaskRequestItemProperties; function GetServerProperties: TTaskRequestItemProperties; {$ENDIF} function GetDefaultInterface: _TaskRequestItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _TaskRequestItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; procedure ShowCategoriesDialog; property DefaultInterface: _TaskRequestItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTaskRequestItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TTaskRequestItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TTaskRequestItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TTaskRequestItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TTaskRequestItemForward read FOnForward write FOnForward; property OnClose: TTaskRequestItemClose read FOnClose write FOnClose; property OnPropertyChange: TTaskRequestItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TTaskRequestItemReply read FOnReply write FOnReply; property OnReplyAll: TTaskRequestItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TTaskRequestItemSend read FOnSend write FOnSend; property OnWrite: TTaskRequestItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TTaskRequestItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TTaskRequestItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TTaskRequestItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TTaskRequestItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TTaskRequestItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTaskRequestItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTaskRequestItemProperties = class(TPersistent) private FServer: TTaskRequestItem; function GetDefaultInterface: _TaskRequestItem; constructor Create(AServer: TTaskRequestItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _TaskRequestItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // The Class CoTaskRequestUpdateItem provides a Create and CreateRemote method to // create instances of the default interface _TaskRequestUpdateItem exposed by // the CoClass TaskRequestUpdateItem. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoTaskRequestUpdateItem = class class function Create: _TaskRequestUpdateItem; class function CreateRemote(const MachineName: string): _TaskRequestUpdateItem; end; TTaskRequestUpdateItemOpen = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestUpdateItemCustomAction = procedure(ASender: TObject; const Action: IDispatch; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestUpdateItemCustomPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestUpdateItemForward = procedure(ASender: TObject; const Forward: IDispatch; var Cancel: WordBool) of object; TTaskRequestUpdateItemClose = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestUpdateItemPropertyChange = procedure(ASender: TObject; const Name: WideString) of object; TTaskRequestUpdateItemReply = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestUpdateItemReplyAll = procedure(ASender: TObject; const Response: IDispatch; var Cancel: WordBool) of object; TTaskRequestUpdateItemSend = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestUpdateItemWrite = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestUpdateItemBeforeCheckNames = procedure(ASender: TObject; var Cancel: WordBool) of object; TTaskRequestUpdateItemAttachmentAdd = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestUpdateItemAttachmentRead = procedure(ASender: TObject; const Attachment: Attachment) of object; TTaskRequestUpdateItemBeforeAttachmentSave = procedure(ASender: TObject; const Attachment: Attachment; var Cancel: WordBool) of object; TTaskRequestUpdateItemBeforeDelete = procedure(ASender: TObject; const Item: IDispatch; var Cancel: WordBool) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TTaskRequestUpdateItem // Help String : // Default Interface: _TaskRequestUpdateItem // Def. Intf. DISP? : No // Event Interface: ItemEvents_10 // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TTaskRequestUpdateItemProperties= class; {$ENDIF} TTaskRequestUpdateItem = class(TOleServer) private FOnOpen: TTaskRequestUpdateItemOpen; FOnCustomAction: TTaskRequestUpdateItemCustomAction; FOnCustomPropertyChange: TTaskRequestUpdateItemCustomPropertyChange; FOnForward: TTaskRequestUpdateItemForward; FOnClose: TTaskRequestUpdateItemClose; FOnPropertyChange: TTaskRequestUpdateItemPropertyChange; FOnRead: TNotifyEvent; FOnReply: TTaskRequestUpdateItemReply; FOnReplyAll: TTaskRequestUpdateItemReplyAll; FOnSend: TTaskRequestUpdateItemSend; FOnWrite: TTaskRequestUpdateItemWrite; FOnBeforeCheckNames: TTaskRequestUpdateItemBeforeCheckNames; FOnAttachmentAdd: TTaskRequestUpdateItemAttachmentAdd; FOnAttachmentRead: TTaskRequestUpdateItemAttachmentRead; FOnBeforeAttachmentSave: TTaskRequestUpdateItemBeforeAttachmentSave; FOnBeforeDelete: TTaskRequestUpdateItemBeforeDelete; FIntf: _TaskRequestUpdateItem; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TTaskRequestUpdateItemProperties; function GetServerProperties: TTaskRequestUpdateItemProperties; {$ENDIF} function GetDefaultInterface: _TaskRequestUpdateItem; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _TaskRequestUpdateItem); procedure Disconnect; override; procedure Close(SaveMode: OlInspectorClose); function Copy: IDispatch; procedure Delete; procedure Display; overload; procedure Display(Modal: OleVariant); overload; function Move(const DestFldr: MAPIFolder): IDispatch; procedure PrintOut; procedure Save; procedure SaveAs(const Path: WideString); overload; procedure SaveAs(const Path: WideString; Type_: OleVariant); overload; function GetAssociatedTask(AddToTaskList: WordBool): TaskItem; procedure ShowCategoriesDialog; property DefaultInterface: _TaskRequestUpdateItem read GetDefaultInterface; 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 Actions: Actions read Get_Actions; property Attachments: Attachments read Get_Attachments; property ConversationIndex: WideString read Get_ConversationIndex; property ConversationTopic: WideString read Get_ConversationTopic; property CreationTime: TDateTime read Get_CreationTime; property EntryID: WideString read Get_EntryID; property FormDescription: FormDescription read Get_FormDescription; property GetInspector: _Inspector read Get_GetInspector; property LastModificationTime: TDateTime read Get_LastModificationTime; property MAPIOBJECT: IUnknown read Get_MAPIOBJECT; property OutlookInternalVersion: Integer read Get_OutlookInternalVersion; property OutlookVersion: WideString read Get_OutlookVersion; property Saved: WordBool read Get_Saved; property Size: Integer read Get_Size; property UserProperties: UserProperties read Get_UserProperties; property Links: Links read Get_Links; property DownloadState: OlDownloadState read Get_DownloadState; property ItemProperties: ItemProperties read Get_ItemProperties; property IsConflict: WordBool read Get_IsConflict; property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TTaskRequestUpdateItemProperties read GetServerProperties; {$ENDIF} property OnOpen: TTaskRequestUpdateItemOpen read FOnOpen write FOnOpen; property OnCustomAction: TTaskRequestUpdateItemCustomAction read FOnCustomAction write FOnCustomAction; property OnCustomPropertyChange: TTaskRequestUpdateItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange; property OnForward: TTaskRequestUpdateItemForward read FOnForward write FOnForward; property OnClose: TTaskRequestUpdateItemClose read FOnClose write FOnClose; property OnPropertyChange: TTaskRequestUpdateItemPropertyChange read FOnPropertyChange write FOnPropertyChange; property OnRead: TNotifyEvent read FOnRead write FOnRead; property OnReply: TTaskRequestUpdateItemReply read FOnReply write FOnReply; property OnReplyAll: TTaskRequestUpdateItemReplyAll read FOnReplyAll write FOnReplyAll; property OnSend: TTaskRequestUpdateItemSend read FOnSend write FOnSend; property OnWrite: TTaskRequestUpdateItemWrite read FOnWrite write FOnWrite; property OnBeforeCheckNames: TTaskRequestUpdateItemBeforeCheckNames read FOnBeforeCheckNames write FOnBeforeCheckNames; property OnAttachmentAdd: TTaskRequestUpdateItemAttachmentAdd read FOnAttachmentAdd write FOnAttachmentAdd; property OnAttachmentRead: TTaskRequestUpdateItemAttachmentRead read FOnAttachmentRead write FOnAttachmentRead; property OnBeforeAttachmentSave: TTaskRequestUpdateItemBeforeAttachmentSave read FOnBeforeAttachmentSave write FOnBeforeAttachmentSave; property OnBeforeDelete: TTaskRequestUpdateItemBeforeDelete read FOnBeforeDelete write FOnBeforeDelete; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TTaskRequestUpdateItem // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TTaskRequestUpdateItemProperties = class(TPersistent) private FServer: TTaskRequestUpdateItem; function GetDefaultInterface: _TaskRequestUpdateItem; constructor Create(AServer: TTaskRequestUpdateItem); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Actions: Actions; function Get_Attachments: Attachments; function Get_BillingInformation: WideString; procedure Set_BillingInformation(const BillingInformation: WideString); function Get_Body: WideString; procedure Set_Body(const Body: WideString); function Get_Categories: WideString; procedure Set_Categories(const Categories: WideString); function Get_Companies: WideString; procedure Set_Companies(const Companies: WideString); function Get_ConversationIndex: WideString; function Get_ConversationTopic: WideString; function Get_CreationTime: TDateTime; function Get_EntryID: WideString; function Get_FormDescription: FormDescription; function Get_GetInspector: _Inspector; function Get_Importance: OlImportance; procedure Set_Importance(Importance: OlImportance); function Get_LastModificationTime: TDateTime; function Get_MAPIOBJECT: IUnknown; function Get_MessageClass: WideString; procedure Set_MessageClass(const MessageClass: WideString); function Get_Mileage: WideString; procedure Set_Mileage(const Mileage: WideString); function Get_NoAging: WordBool; procedure Set_NoAging(NoAging: WordBool); function Get_OutlookInternalVersion: Integer; function Get_OutlookVersion: WideString; function Get_Saved: WordBool; function Get_Sensitivity: OlSensitivity; procedure Set_Sensitivity(Sensitivity: OlSensitivity); function Get_Size: Integer; function Get_Subject: WideString; procedure Set_Subject(const Subject: WideString); function Get_UnRead: WordBool; procedure Set_UnRead(UnRead: WordBool); function Get_UserProperties: UserProperties; function Get_Links: Links; function Get_DownloadState: OlDownloadState; function Get_ItemProperties: ItemProperties; function Get_MarkForDownload: OlRemoteStatus; procedure Set_MarkForDownload(MarkForDownload: OlRemoteStatus); function Get_IsConflict: WordBool; public property DefaultInterface: _TaskRequestUpdateItem read GetDefaultInterface; published property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation; property Body: WideString read Get_Body write Set_Body; property Categories: WideString read Get_Categories write Set_Categories; property Companies: WideString read Get_Companies write Set_Companies; property Importance: OlImportance read Get_Importance write Set_Importance; property MessageClass: WideString read Get_MessageClass write Set_MessageClass; property Mileage: WideString read Get_Mileage write Set_Mileage; property NoAging: WordBool read Get_NoAging write Set_NoAging; property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity; property Subject: WideString read Get_Subject write Set_Subject; property UnRead: WordBool read Get_UnRead write Set_UnRead; property MarkForDownload: OlRemoteStatus read Get_MarkForDownload write Set_MarkForDownload; end; {$ENDIF} // *********************************************************************// // OLE Control Proxy class declaration // Control Name : TDataSourceObject // Help String : // Default Interface: DDataSourceObject // Def. Intf. DISP? : Yes // Event Interface: // TypeFlags : (50) CanCreate Hidden Control // *********************************************************************// TDataSourceObject = class(TOleControl) private FIntf: DDataSourceObject; function GetControlInterface: DDataSourceObject; protected procedure CreateControl; procedure InitControlData; override; function Get_OutlookItem: IDispatch; procedure Set_OutlookItem(const Value: IDispatch); public property ControlInterface: DDataSourceObject read GetControlInterface; property DefaultInterface: DDataSourceObject read GetControlInterface; property OutlookItem: IDispatch index 64096 read GetIDispatchProp write SetIDispatchProp; published end; // *********************************************************************// // The Class CoResults provides a Create and CreateRemote method to // create instances of the default interface _Results exposed by // the CoClass Results. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoResults = class class function Create: _Results; class function CreateRemote(const MachineName: string): _Results; end; TResultsItemAdd = procedure(ASender: TObject; const Item: IDispatch) of object; TResultsItemChange = procedure(ASender: TObject; const Item: IDispatch) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TResults // Help String : // Default Interface: _Results // Def. Intf. DISP? : No // Event Interface: ResultsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TResultsProperties= class; {$ENDIF} TResults = class(TOleServer) private FOnItemAdd: TResultsItemAdd; FOnItemChange: TResultsItemChange; FOnItemRemove: TNotifyEvent; FIntf: _Results; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TResultsProperties; function GetServerProperties: TResultsProperties; {$ENDIF} function GetDefaultInterface: _Results; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; function Get_DefaultItemType: OlItemType; procedure Set_DefaultItemType(DefaultItemType: OlItemType); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Results); procedure Disconnect; override; function Item(Index: OleVariant): IDispatch; function GetFirst: IDispatch; function GetLast: IDispatch; function GetNext: IDispatch; function GetPrevious: IDispatch; procedure ResetColumns; procedure SetColumns(const Columns: WideString); procedure Sort(const Property_: WideString); overload; procedure Sort(const Property_: WideString; Descending: OleVariant); overload; property DefaultInterface: _Results read GetDefaultInterface; 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; property DefaultItemType: OlItemType read Get_DefaultItemType write Set_DefaultItemType; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TResultsProperties read GetServerProperties; {$ENDIF} property OnItemAdd: TResultsItemAdd read FOnItemAdd write FOnItemAdd; property OnItemChange: TResultsItemChange read FOnItemChange write FOnItemChange; property OnItemRemove: TNotifyEvent read FOnItemRemove write FOnItemRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TResults // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TResultsProperties = class(TPersistent) private FServer: TResults; function GetDefaultInterface: _Results; constructor Create(AServer: TResults); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; function Get_RawTable: IUnknown; function Get_DefaultItemType: OlItemType; procedure Set_DefaultItemType(DefaultItemType: OlItemType); public property DefaultInterface: _Results read GetDefaultInterface; published property DefaultItemType: OlItemType read Get_DefaultItemType write Set_DefaultItemType; end; {$ENDIF} // *********************************************************************// // The Class CoViews provides a Create and CreateRemote method to // create instances of the default interface _Views exposed by // the CoClass Views. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoViews = class class function Create: _Views; class function CreateRemote(const MachineName: string): _Views; end; TViewsViewAdd = procedure(ASender: TObject; const View: View) of object; TViewsViewRemove = procedure(ASender: TObject; const View: View) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TViews // Help String : // Default Interface: _Views // Def. Intf. DISP? : No // Event Interface: _ViewsEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TViewsProperties= class; {$ENDIF} TViews = class(TOleServer) private FOnViewAdd: TViewsViewAdd; FOnViewRemove: TViewsViewRemove; FIntf: _Views; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TViewsProperties; function GetServerProperties: TViewsProperties; {$ENDIF} function GetDefaultInterface: _Views; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Views); procedure Disconnect; override; function Item(Index: OleVariant): View; function Add(const Name: WideString; ViewType: OlViewType; SaveOption: OlViewSaveOption): View; procedure Remove(Index: OleVariant); function _NewEnum: IUnknown; property DefaultInterface: _Views read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TViewsProperties read GetServerProperties; {$ENDIF} property OnViewAdd: TViewsViewAdd read FOnViewAdd write FOnViewAdd; property OnViewRemove: TViewsViewRemove read FOnViewRemove write FOnViewRemove; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TViews // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TViewsProperties = class(TPersistent) private FServer: TViews; function GetDefaultInterface: _Views; constructor Create(AServer: TViews); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _Views read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoReminder provides a Create and CreateRemote method to // create instances of the default interface _Reminder exposed by // the CoClass Reminder. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoReminder = class class function Create: _Reminder; class function CreateRemote(const MachineName: string): _Reminder; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TReminder // Help String : // Default Interface: _Reminder // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TReminderProperties= class; {$ENDIF} TReminder = class(TOleServer) private FIntf: _Reminder; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TReminderProperties; function GetServerProperties: TReminderProperties; {$ENDIF} function GetDefaultInterface: _Reminder; protected procedure InitServerData; override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Caption: WideString; function Get_IsVisible: WordBool; function Get_Item: IDispatch; function Get_NextReminderDate: TDateTime; function Get_OriginalReminderDate: TDateTime; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Reminder); procedure Disconnect; override; procedure Dismiss; procedure Snooze; overload; procedure Snooze(SnoozeTime: OleVariant); overload; property DefaultInterface: _Reminder read GetDefaultInterface; 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 Caption: WideString read Get_Caption; property IsVisible: WordBool read Get_IsVisible; property Item: IDispatch read Get_Item; property NextReminderDate: TDateTime read Get_NextReminderDate; property OriginalReminderDate: TDateTime read Get_OriginalReminderDate; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TReminderProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TReminder // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TReminderProperties = class(TPersistent) private FServer: TReminder; function GetDefaultInterface: _Reminder; constructor Create(AServer: TReminder); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Caption: WideString; function Get_IsVisible: WordBool; function Get_Item: IDispatch; function Get_NextReminderDate: TDateTime; function Get_OriginalReminderDate: TDateTime; public property DefaultInterface: _Reminder read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoReminders provides a Create and CreateRemote method to // create instances of the default interface _Reminders exposed by // the CoClass Reminders. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoReminders = class class function Create: _Reminders; class function CreateRemote(const MachineName: string): _Reminders; end; TRemindersBeforeReminderShow = procedure(ASender: TObject; var Cancel: WordBool) of object; TRemindersReminderAdd = procedure(ASender: TObject; const ReminderObject: _Reminder) of object; TRemindersReminderChange = procedure(ASender: TObject; const ReminderObject: _Reminder) of object; TRemindersReminderFire = procedure(ASender: TObject; const ReminderObject: _Reminder) of object; TRemindersSnooze = procedure(ASender: TObject; const ReminderObject: _Reminder) of object; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TReminders // Help String : // Default Interface: _Reminders // Def. Intf. DISP? : No // Event Interface: ReminderCollectionEvents // TypeFlags : (0) // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TRemindersProperties= class; {$ENDIF} TReminders = class(TOleServer) private FOnBeforeReminderShow: TRemindersBeforeReminderShow; FOnReminderAdd: TRemindersReminderAdd; FOnReminderChange: TRemindersReminderChange; FOnReminderFire: TRemindersReminderFire; FOnReminderRemove: TNotifyEvent; FOnSnooze: TRemindersSnooze; FIntf: _Reminders; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TRemindersProperties; function GetServerProperties: TRemindersProperties; {$ENDIF} function GetDefaultInterface: _Reminders; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: _Reminders); procedure Disconnect; override; function Item(Index: OleVariant): _Reminder; procedure Remove(Index: OleVariant); function _NewEnum: IUnknown; property DefaultInterface: _Reminders read GetDefaultInterface; 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; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TRemindersProperties read GetServerProperties; {$ENDIF} property OnBeforeReminderShow: TRemindersBeforeReminderShow read FOnBeforeReminderShow write FOnBeforeReminderShow; property OnReminderAdd: TRemindersReminderAdd read FOnReminderAdd write FOnReminderAdd; property OnReminderChange: TRemindersReminderChange read FOnReminderChange write FOnReminderChange; property OnReminderFire: TRemindersReminderFire read FOnReminderFire write FOnReminderFire; property OnReminderRemove: TNotifyEvent read FOnReminderRemove write FOnReminderRemove; property OnSnooze: TRemindersSnooze read FOnSnooze write FOnSnooze; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TReminders // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TRemindersProperties = class(TPersistent) private FServer: TReminders; function GetDefaultInterface: _Reminders; constructor Create(AServer: TReminders); protected function Get_Application: _Application; function Get_Class_: OlObjectClass; function Get_Session: _NameSpace; function Get_Parent: IDispatch; function Get_Count: Integer; public property DefaultInterface: _Reminders read GetDefaultInterface; published end; {$ENDIF} implementation uses ComObj; class function CoSyncObject.Create: _SyncObject; begin Result := CreateComObject(CLASS_SyncObject) as _SyncObject; end; class function CoSyncObject.CreateRemote(const MachineName: string): _SyncObject; begin Result := CreateRemoteComObject(MachineName, CLASS_SyncObject) as _SyncObject; end; procedure TSyncObject.InitServerData; const CServerData: TServerData = ( ClassID: '{00063084-0000-0000-C000-000000000046}'; IntfIID: '{00063083-0000-0000-C000-000000000046}'; EventIID: '{00063085-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TSyncObject.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _SyncObject; end; end; procedure TSyncObject.ConnectTo(svrIntf: _SyncObject); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TSyncObject.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TSyncObject.GetDefaultInterface: _SyncObject; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TSyncObject.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TSyncObjectProperties.Create(Self); {$ENDIF} end; destructor TSyncObject.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TSyncObject.GetServerProperties: TSyncObjectProperties; begin Result := FProps; end; {$ENDIF} procedure TSyncObject.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnSyncStart) then FOnSyncStart(Self); 61442: if Assigned(FOnProgress) then FOnProgress(Self, Params[0] {OlSyncState}, Params[1] {const WideString}, Params[2] {Integer}, Params[3] {Integer}); 61443: if Assigned(FOnError) then FOnError(Self, Params[0] {Integer}, Params[1] {const WideString}); 61444: if Assigned(FOnSyncEnd) then FOnSyncEnd(Self); end; {case DispID} end; function TSyncObject.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TSyncObject.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TSyncObject.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TSyncObject.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TSyncObject.Get_Name: WideString; begin Result := DefaultInterface.Name; end; procedure TSyncObject.Start; begin DefaultInterface.Start; end; procedure TSyncObject.Stop; begin DefaultInterface.Stop; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TSyncObjectProperties.Create(AServer: TSyncObject); begin inherited Create; FServer := AServer; end; function TSyncObjectProperties.GetDefaultInterface: _SyncObject; begin Result := FServer.DefaultInterface; end; function TSyncObjectProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TSyncObjectProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TSyncObjectProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TSyncObjectProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TSyncObjectProperties.Get_Name: WideString; begin Result := DefaultInterface.Name; end; {$ENDIF} class function CoExplorer.Create: _Explorer; begin Result := CreateComObject(CLASS_Explorer) as _Explorer; end; class function CoExplorer.CreateRemote(const MachineName: string): _Explorer; begin Result := CreateRemoteComObject(MachineName, CLASS_Explorer) as _Explorer; end; procedure TExplorer.InitServerData; const CServerData: TServerData = ( ClassID: '{00063050-0000-0000-C000-000000000046}'; IntfIID: '{00063003-0000-0000-C000-000000000046}'; EventIID: '{0006300F-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExplorer.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Explorer; end; end; procedure TExplorer.ConnectTo(svrIntf: _Explorer); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TExplorer.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TExplorer.GetDefaultInterface: _Explorer; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TExplorer.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TExplorerProperties.Create(Self); {$ENDIF} end; destructor TExplorer.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TExplorer.GetServerProperties: TExplorerProperties; begin Result := FProps; end; {$ENDIF} procedure TExplorer.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnActivate) then FOnActivate(Self); 61442: if Assigned(FOnFolderSwitch) then FOnFolderSwitch(Self); 61443: if Assigned(FOnBeforeFolderSwitch) then FOnBeforeFolderSwitch(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnViewSwitch) then FOnViewSwitch(Self); 61445: if Assigned(FOnBeforeViewSwitch) then FOnBeforeViewSwitch(Self, Params[0] {OleVariant}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnDeactivate) then FOnDeactivate(Self); 61447: if Assigned(FOnSelectionChange) then FOnSelectionChange(Self); 61448: if Assigned(FOnClose) then FOnClose(Self); 64017: if Assigned(FOnBeforeMaximize) then FOnBeforeMaximize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64018: if Assigned(FOnBeforeMinimize) then FOnBeforeMinimize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64019: if Assigned(FOnBeforeMove) then FOnBeforeMove(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64020: if Assigned(FOnBeforeSize) then FOnBeforeSize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64014: if Assigned(FOnBeforeItemCopy) then FOnBeforeItemCopy(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64015: if Assigned(FOnBeforeItemCut) then FOnBeforeItemCut(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64016: if Assigned(FOnBeforeItemPaste) then FOnBeforeItemPaste(Self, OleVariant((TVarData(Params[0]).VPointer)^) {var OleVariant}, IUnknown(TVarData(Params[1]).VPointer) as MAPIFolder {const MAPIFolder}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); end; {case DispID} end; function TExplorer.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TExplorer.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TExplorer.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TExplorer.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TExplorer.Get_CommandBars: CommandBars; begin Result := DefaultInterface.CommandBars; end; function TExplorer.Get_CurrentFolder: MAPIFolder; begin Result := DefaultInterface.CurrentFolder; end; procedure TExplorer._Set_CurrentFolder(const CurrentFolder: MAPIFolder); { Warning: The property CurrentFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CurrentFolder := CurrentFolder; end; function TExplorer.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TExplorer.Get_CurrentView: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.CurrentView; end; procedure TExplorer.Set_CurrentView(CurrentView: OleVariant); begin DefaultInterface.Set_CurrentView(CurrentView); end; function TExplorer.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TExplorer.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TExplorer.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TExplorer.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TExplorer.Get_Panes: Panes; begin Result := DefaultInterface.Panes; end; function TExplorer.Get_Selection: Selection; begin Result := DefaultInterface.Selection; end; function TExplorer.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TExplorer.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TExplorer.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TExplorer.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TExplorer.Get_WindowState: OlWindowState; begin Result := DefaultInterface.WindowState; end; procedure TExplorer.Set_WindowState(WindowState: OlWindowState); begin DefaultInterface.Set_WindowState(WindowState); end; function TExplorer.Get_Views: IDispatch; begin Result := DefaultInterface.Views; end; function TExplorer.Get_HTMLDocument: IDispatch; begin Result := DefaultInterface.HTMLDocument; end; procedure TExplorer.Close; begin DefaultInterface.Close; end; procedure TExplorer.Display; begin DefaultInterface.Display; end; procedure TExplorer.Activate; begin DefaultInterface.Activate; end; function TExplorer.IsPaneVisible(Pane: OlPane): WordBool; begin Result := DefaultInterface.IsPaneVisible(Pane); end; procedure TExplorer.ShowPane(Pane: OlPane; Visible: WordBool); begin DefaultInterface.ShowPane(Pane, Visible); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TExplorerProperties.Create(AServer: TExplorer); begin inherited Create; FServer := AServer; end; function TExplorerProperties.GetDefaultInterface: _Explorer; begin Result := FServer.DefaultInterface; end; function TExplorerProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TExplorerProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TExplorerProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TExplorerProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TExplorerProperties.Get_CommandBars: CommandBars; begin Result := DefaultInterface.CommandBars; end; function TExplorerProperties.Get_CurrentFolder: MAPIFolder; begin Result := DefaultInterface.CurrentFolder; end; procedure TExplorerProperties._Set_CurrentFolder(const CurrentFolder: MAPIFolder); { Warning: The property CurrentFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CurrentFolder := CurrentFolder; end; function TExplorerProperties.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TExplorerProperties.Get_CurrentView: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.CurrentView; end; procedure TExplorerProperties.Set_CurrentView(CurrentView: OleVariant); begin DefaultInterface.Set_CurrentView(CurrentView); end; function TExplorerProperties.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TExplorerProperties.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TExplorerProperties.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TExplorerProperties.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TExplorerProperties.Get_Panes: Panes; begin Result := DefaultInterface.Panes; end; function TExplorerProperties.Get_Selection: Selection; begin Result := DefaultInterface.Selection; end; function TExplorerProperties.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TExplorerProperties.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TExplorerProperties.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TExplorerProperties.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TExplorerProperties.Get_WindowState: OlWindowState; begin Result := DefaultInterface.WindowState; end; procedure TExplorerProperties.Set_WindowState(WindowState: OlWindowState); begin DefaultInterface.Set_WindowState(WindowState); end; function TExplorerProperties.Get_Views: IDispatch; begin Result := DefaultInterface.Views; end; function TExplorerProperties.Get_HTMLDocument: IDispatch; begin Result := DefaultInterface.HTMLDocument; end; {$ENDIF} class function CoInspector.Create: _Inspector; begin Result := CreateComObject(CLASS_Inspector) as _Inspector; end; class function CoInspector.CreateRemote(const MachineName: string): _Inspector; begin Result := CreateRemoteComObject(MachineName, CLASS_Inspector) as _Inspector; end; procedure TInspector.InitServerData; const CServerData: TServerData = ( ClassID: '{00063058-0000-0000-C000-000000000046}'; IntfIID: '{00063005-0000-0000-C000-000000000046}'; EventIID: '{0006302A-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInspector.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Inspector; end; end; procedure TInspector.ConnectTo(svrIntf: _Inspector); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TInspector.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TInspector.GetDefaultInterface: _Inspector; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInspector.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInspectorProperties.Create(Self); {$ENDIF} end; destructor TInspector.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInspector.GetServerProperties: TInspectorProperties; begin Result := FProps; end; {$ENDIF} procedure TInspector.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnActivate) then FOnActivate(Self); 61446: if Assigned(FOnDeactivate) then FOnDeactivate(Self); 61448: if Assigned(FOnClose) then FOnClose(Self); 64017: if Assigned(FOnBeforeMaximize) then FOnBeforeMaximize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64018: if Assigned(FOnBeforeMinimize) then FOnBeforeMinimize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64019: if Assigned(FOnBeforeMove) then FOnBeforeMove(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64020: if Assigned(FOnBeforeSize) then FOnBeforeSize(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); end; {case DispID} end; function TInspector.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TInspector.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TInspector.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TInspector.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TInspector.Get_CommandBars: CommandBars; begin Result := DefaultInterface.CommandBars; end; function TInspector.Get_CurrentItem: IDispatch; begin Result := DefaultInterface.CurrentItem; end; function TInspector.Get_EditorType: OlEditorType; begin Result := DefaultInterface.EditorType; end; function TInspector.Get_ModifiedFormPages: IDispatch; begin Result := DefaultInterface.ModifiedFormPages; end; function TInspector.Get_HTMLEditor: IDispatch; begin Result := DefaultInterface.HTMLEditor; end; function TInspector.Get_WordEditor: IDispatch; begin Result := DefaultInterface.WordEditor; end; function TInspector.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TInspector.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TInspector.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TInspector.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TInspector.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TInspector.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TInspector.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TInspector.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TInspector.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TInspector.Get_WindowState: OlWindowState; begin Result := DefaultInterface.WindowState; end; procedure TInspector.Set_WindowState(WindowState: OlWindowState); begin DefaultInterface.Set_WindowState(WindowState); end; procedure TInspector.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; procedure TInspector.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TInspector.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; procedure TInspector.HideFormPage(const PageName: WideString); begin DefaultInterface.HideFormPage(PageName); end; function TInspector.IsWordMail: WordBool; begin Result := DefaultInterface.IsWordMail; end; procedure TInspector.SetCurrentFormPage(const PageName: WideString); begin DefaultInterface.SetCurrentFormPage(PageName); end; procedure TInspector.ShowFormPage(const PageName: WideString); begin DefaultInterface.ShowFormPage(PageName); end; procedure TInspector.Activate; begin DefaultInterface.Activate; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInspectorProperties.Create(AServer: TInspector); begin inherited Create; FServer := AServer; end; function TInspectorProperties.GetDefaultInterface: _Inspector; begin Result := FServer.DefaultInterface; end; function TInspectorProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TInspectorProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TInspectorProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TInspectorProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TInspectorProperties.Get_CommandBars: CommandBars; begin Result := DefaultInterface.CommandBars; end; function TInspectorProperties.Get_CurrentItem: IDispatch; begin Result := DefaultInterface.CurrentItem; end; function TInspectorProperties.Get_EditorType: OlEditorType; begin Result := DefaultInterface.EditorType; end; function TInspectorProperties.Get_ModifiedFormPages: IDispatch; begin Result := DefaultInterface.ModifiedFormPages; end; function TInspectorProperties.Get_HTMLEditor: IDispatch; begin Result := DefaultInterface.HTMLEditor; end; function TInspectorProperties.Get_WordEditor: IDispatch; begin Result := DefaultInterface.WordEditor; end; function TInspectorProperties.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TInspectorProperties.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TInspectorProperties.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TInspectorProperties.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TInspectorProperties.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TInspectorProperties.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TInspectorProperties.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TInspectorProperties.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TInspectorProperties.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TInspectorProperties.Get_WindowState: OlWindowState; begin Result := DefaultInterface.WindowState; end; procedure TInspectorProperties.Set_WindowState(WindowState: OlWindowState); begin DefaultInterface.Set_WindowState(WindowState); end; {$ENDIF} class function CoMailItem.Create: _MailItem; begin Result := CreateComObject(CLASS_MailItem) as _MailItem; end; class function CoMailItem.CreateRemote(const MachineName: string): _MailItem; begin Result := CreateRemoteComObject(MachineName, CLASS_MailItem) as _MailItem; end; procedure TMailItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061033-0000-0000-C000-000000000046}'; IntfIID: '{00063034-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMailItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _MailItem; end; end; procedure TMailItem.ConnectTo(svrIntf: _MailItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TMailItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TMailItem.GetDefaultInterface: _MailItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMailItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMailItemProperties.Create(Self); {$ENDIF} end; destructor TMailItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMailItem.GetServerProperties: TMailItemProperties; begin Result := FProps; end; {$ENDIF} procedure TMailItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TMailItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TMailItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TMailItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TMailItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TMailItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TMailItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TMailItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TMailItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TMailItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TMailItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TMailItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TMailItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TMailItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TMailItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TMailItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TMailItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TMailItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TMailItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TMailItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TMailItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TMailItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TMailItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TMailItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TMailItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TMailItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TMailItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TMailItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TMailItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TMailItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TMailItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TMailItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TMailItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TMailItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TMailItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TMailItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TMailItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TMailItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TMailItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TMailItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TMailItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TMailItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TMailItem.Get_AlternateRecipientAllowed: WordBool; begin Result := DefaultInterface.AlternateRecipientAllowed; end; procedure TMailItem.Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool); begin DefaultInterface.Set_AlternateRecipientAllowed(AlternateRecipientAllowed); end; function TMailItem.Get_AutoForwarded: WordBool; begin Result := DefaultInterface.AutoForwarded; end; procedure TMailItem.Set_AutoForwarded(AutoForwarded: WordBool); begin DefaultInterface.Set_AutoForwarded(AutoForwarded); end; function TMailItem.Get_BCC: WideString; begin Result := DefaultInterface.BCC; end; procedure TMailItem.Set_BCC(const BCC: WideString); { Warning: The property BCC has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BCC := BCC; end; function TMailItem.Get_CC: WideString; begin Result := DefaultInterface.CC; end; procedure TMailItem.Set_CC(const CC: WideString); { Warning: The property CC has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CC := CC; end; function TMailItem.Get_DeferredDeliveryTime: TDateTime; begin Result := DefaultInterface.DeferredDeliveryTime; end; procedure TMailItem.Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); begin DefaultInterface.Set_DeferredDeliveryTime(DeferredDeliveryTime); end; function TMailItem.Get_DeleteAfterSubmit: WordBool; begin Result := DefaultInterface.DeleteAfterSubmit; end; procedure TMailItem.Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); begin DefaultInterface.Set_DeleteAfterSubmit(DeleteAfterSubmit); end; function TMailItem.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TMailItem.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TMailItem.Get_FlagDueBy: TDateTime; begin Result := DefaultInterface.FlagDueBy; end; procedure TMailItem.Set_FlagDueBy(FlagDueBy: TDateTime); begin DefaultInterface.Set_FlagDueBy(FlagDueBy); end; function TMailItem.Get_FlagRequest: WideString; begin Result := DefaultInterface.FlagRequest; end; procedure TMailItem.Set_FlagRequest(const FlagRequest: WideString); { Warning: The property FlagRequest has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FlagRequest := FlagRequest; end; function TMailItem.Get_FlagStatus: OlFlagStatus; begin Result := DefaultInterface.FlagStatus; end; procedure TMailItem.Set_FlagStatus(FlagStatus: OlFlagStatus); begin DefaultInterface.Set_FlagStatus(FlagStatus); end; function TMailItem.Get_HTMLBody: WideString; begin Result := DefaultInterface.HTMLBody; end; procedure TMailItem.Set_HTMLBody(const HTMLBody: WideString); { Warning: The property HTMLBody has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HTMLBody := HTMLBody; end; function TMailItem.Get_OriginatorDeliveryReportRequested: WordBool; begin Result := DefaultInterface.OriginatorDeliveryReportRequested; end; procedure TMailItem.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); begin DefaultInterface.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested); end; function TMailItem.Get_ReadReceiptRequested: WordBool; begin Result := DefaultInterface.ReadReceiptRequested; end; procedure TMailItem.Set_ReadReceiptRequested(ReadReceiptRequested: WordBool); begin DefaultInterface.Set_ReadReceiptRequested(ReadReceiptRequested); end; function TMailItem.Get_ReceivedByEntryID: WideString; begin Result := DefaultInterface.ReceivedByEntryID; end; function TMailItem.Get_ReceivedByName: WideString; begin Result := DefaultInterface.ReceivedByName; end; function TMailItem.Get_ReceivedOnBehalfOfEntryID: WideString; begin Result := DefaultInterface.ReceivedOnBehalfOfEntryID; end; function TMailItem.Get_ReceivedOnBehalfOfName: WideString; begin Result := DefaultInterface.ReceivedOnBehalfOfName; end; function TMailItem.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; function TMailItem.Get_RecipientReassignmentProhibited: WordBool; begin Result := DefaultInterface.RecipientReassignmentProhibited; end; procedure TMailItem.Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool); begin DefaultInterface.Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited); end; function TMailItem.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TMailItem.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TMailItem.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TMailItem.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TMailItem.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TMailItem.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TMailItem.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TMailItem.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TMailItem.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TMailItem.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TMailItem.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TMailItem.Get_RemoteStatus: OlRemoteStatus; begin Result := DefaultInterface.RemoteStatus; end; procedure TMailItem.Set_RemoteStatus(RemoteStatus: OlRemoteStatus); begin DefaultInterface.Set_RemoteStatus(RemoteStatus); end; function TMailItem.Get_ReplyRecipientNames: WideString; begin Result := DefaultInterface.ReplyRecipientNames; end; function TMailItem.Get_ReplyRecipients: Recipients; begin Result := DefaultInterface.ReplyRecipients; end; function TMailItem.Get_SaveSentMessageFolder: MAPIFolder; begin Result := DefaultInterface.SaveSentMessageFolder; end; procedure TMailItem._Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); { Warning: The property SaveSentMessageFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SaveSentMessageFolder := SaveSentMessageFolder; end; function TMailItem.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TMailItem.Get_Sent: WordBool; begin Result := DefaultInterface.Sent; end; function TMailItem.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TMailItem.Get_SentOnBehalfOfName: WideString; begin Result := DefaultInterface.SentOnBehalfOfName; end; procedure TMailItem.Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString); { Warning: The property SentOnBehalfOfName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SentOnBehalfOfName := SentOnBehalfOfName; end; function TMailItem.Get_Submitted: WordBool; begin Result := DefaultInterface.Submitted; end; function TMailItem.Get_To_: WideString; begin Result := DefaultInterface.To_; end; procedure TMailItem.Set_To_(const To_: WideString); { Warning: The property To_ has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.To_ := To_; end; function TMailItem.Get_VotingOptions: WideString; begin Result := DefaultInterface.VotingOptions; end; procedure TMailItem.Set_VotingOptions(const VotingOptions: WideString); { Warning: The property VotingOptions has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.VotingOptions := VotingOptions; end; function TMailItem.Get_VotingResponse: WideString; begin Result := DefaultInterface.VotingResponse; end; procedure TMailItem.Set_VotingResponse(const VotingResponse: WideString); { Warning: The property VotingResponse has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.VotingResponse := VotingResponse; end; function TMailItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TMailItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TMailItem.Get_BodyFormat: OlBodyFormat; begin Result := DefaultInterface.BodyFormat; end; procedure TMailItem.Set_BodyFormat(BodyFormat: OlBodyFormat); begin DefaultInterface.Set_BodyFormat(BodyFormat); end; function TMailItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TMailItem.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TMailItem.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TMailItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TMailItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TMailItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TMailItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TMailItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TMailItem.Delete; begin DefaultInterface.Delete; end; procedure TMailItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TMailItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TMailItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TMailItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TMailItem.Save; begin DefaultInterface.Save; end; procedure TMailItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TMailItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TMailItem.ClearConversationIndex; begin DefaultInterface.ClearConversationIndex; end; function TMailItem.Forward: MailItem; begin Result := DefaultInterface.Forward; end; function TMailItem.Reply: MailItem; begin Result := DefaultInterface.Reply; end; function TMailItem.ReplyAll: MailItem; begin Result := DefaultInterface.ReplyAll; end; procedure TMailItem.Send; begin DefaultInterface.Send; end; procedure TMailItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMailItemProperties.Create(AServer: TMailItem); begin inherited Create; FServer := AServer; end; function TMailItemProperties.GetDefaultInterface: _MailItem; begin Result := FServer.DefaultInterface; end; function TMailItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TMailItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TMailItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TMailItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TMailItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TMailItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TMailItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TMailItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TMailItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TMailItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TMailItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TMailItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TMailItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TMailItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TMailItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TMailItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TMailItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TMailItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TMailItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TMailItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TMailItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TMailItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TMailItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TMailItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TMailItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TMailItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TMailItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TMailItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TMailItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TMailItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TMailItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TMailItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TMailItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TMailItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TMailItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TMailItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TMailItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TMailItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TMailItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TMailItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TMailItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TMailItemProperties.Get_AlternateRecipientAllowed: WordBool; begin Result := DefaultInterface.AlternateRecipientAllowed; end; procedure TMailItemProperties.Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool); begin DefaultInterface.Set_AlternateRecipientAllowed(AlternateRecipientAllowed); end; function TMailItemProperties.Get_AutoForwarded: WordBool; begin Result := DefaultInterface.AutoForwarded; end; procedure TMailItemProperties.Set_AutoForwarded(AutoForwarded: WordBool); begin DefaultInterface.Set_AutoForwarded(AutoForwarded); end; function TMailItemProperties.Get_BCC: WideString; begin Result := DefaultInterface.BCC; end; procedure TMailItemProperties.Set_BCC(const BCC: WideString); { Warning: The property BCC has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BCC := BCC; end; function TMailItemProperties.Get_CC: WideString; begin Result := DefaultInterface.CC; end; procedure TMailItemProperties.Set_CC(const CC: WideString); { Warning: The property CC has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CC := CC; end; function TMailItemProperties.Get_DeferredDeliveryTime: TDateTime; begin Result := DefaultInterface.DeferredDeliveryTime; end; procedure TMailItemProperties.Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); begin DefaultInterface.Set_DeferredDeliveryTime(DeferredDeliveryTime); end; function TMailItemProperties.Get_DeleteAfterSubmit: WordBool; begin Result := DefaultInterface.DeleteAfterSubmit; end; procedure TMailItemProperties.Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); begin DefaultInterface.Set_DeleteAfterSubmit(DeleteAfterSubmit); end; function TMailItemProperties.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TMailItemProperties.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TMailItemProperties.Get_FlagDueBy: TDateTime; begin Result := DefaultInterface.FlagDueBy; end; procedure TMailItemProperties.Set_FlagDueBy(FlagDueBy: TDateTime); begin DefaultInterface.Set_FlagDueBy(FlagDueBy); end; function TMailItemProperties.Get_FlagRequest: WideString; begin Result := DefaultInterface.FlagRequest; end; procedure TMailItemProperties.Set_FlagRequest(const FlagRequest: WideString); { Warning: The property FlagRequest has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FlagRequest := FlagRequest; end; function TMailItemProperties.Get_FlagStatus: OlFlagStatus; begin Result := DefaultInterface.FlagStatus; end; procedure TMailItemProperties.Set_FlagStatus(FlagStatus: OlFlagStatus); begin DefaultInterface.Set_FlagStatus(FlagStatus); end; function TMailItemProperties.Get_HTMLBody: WideString; begin Result := DefaultInterface.HTMLBody; end; procedure TMailItemProperties.Set_HTMLBody(const HTMLBody: WideString); { Warning: The property HTMLBody has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HTMLBody := HTMLBody; end; function TMailItemProperties.Get_OriginatorDeliveryReportRequested: WordBool; begin Result := DefaultInterface.OriginatorDeliveryReportRequested; end; procedure TMailItemProperties.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); begin DefaultInterface.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested); end; function TMailItemProperties.Get_ReadReceiptRequested: WordBool; begin Result := DefaultInterface.ReadReceiptRequested; end; procedure TMailItemProperties.Set_ReadReceiptRequested(ReadReceiptRequested: WordBool); begin DefaultInterface.Set_ReadReceiptRequested(ReadReceiptRequested); end; function TMailItemProperties.Get_ReceivedByEntryID: WideString; begin Result := DefaultInterface.ReceivedByEntryID; end; function TMailItemProperties.Get_ReceivedByName: WideString; begin Result := DefaultInterface.ReceivedByName; end; function TMailItemProperties.Get_ReceivedOnBehalfOfEntryID: WideString; begin Result := DefaultInterface.ReceivedOnBehalfOfEntryID; end; function TMailItemProperties.Get_ReceivedOnBehalfOfName: WideString; begin Result := DefaultInterface.ReceivedOnBehalfOfName; end; function TMailItemProperties.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; function TMailItemProperties.Get_RecipientReassignmentProhibited: WordBool; begin Result := DefaultInterface.RecipientReassignmentProhibited; end; procedure TMailItemProperties.Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool); begin DefaultInterface.Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited); end; function TMailItemProperties.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TMailItemProperties.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TMailItemProperties.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TMailItemProperties.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TMailItemProperties.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TMailItemProperties.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TMailItemProperties.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TMailItemProperties.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TMailItemProperties.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TMailItemProperties.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TMailItemProperties.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TMailItemProperties.Get_RemoteStatus: OlRemoteStatus; begin Result := DefaultInterface.RemoteStatus; end; procedure TMailItemProperties.Set_RemoteStatus(RemoteStatus: OlRemoteStatus); begin DefaultInterface.Set_RemoteStatus(RemoteStatus); end; function TMailItemProperties.Get_ReplyRecipientNames: WideString; begin Result := DefaultInterface.ReplyRecipientNames; end; function TMailItemProperties.Get_ReplyRecipients: Recipients; begin Result := DefaultInterface.ReplyRecipients; end; function TMailItemProperties.Get_SaveSentMessageFolder: MAPIFolder; begin Result := DefaultInterface.SaveSentMessageFolder; end; procedure TMailItemProperties._Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); { Warning: The property SaveSentMessageFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SaveSentMessageFolder := SaveSentMessageFolder; end; function TMailItemProperties.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TMailItemProperties.Get_Sent: WordBool; begin Result := DefaultInterface.Sent; end; function TMailItemProperties.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TMailItemProperties.Get_SentOnBehalfOfName: WideString; begin Result := DefaultInterface.SentOnBehalfOfName; end; procedure TMailItemProperties.Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString); { Warning: The property SentOnBehalfOfName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SentOnBehalfOfName := SentOnBehalfOfName; end; function TMailItemProperties.Get_Submitted: WordBool; begin Result := DefaultInterface.Submitted; end; function TMailItemProperties.Get_To_: WideString; begin Result := DefaultInterface.To_; end; procedure TMailItemProperties.Set_To_(const To_: WideString); { Warning: The property To_ has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.To_ := To_; end; function TMailItemProperties.Get_VotingOptions: WideString; begin Result := DefaultInterface.VotingOptions; end; procedure TMailItemProperties.Set_VotingOptions(const VotingOptions: WideString); { Warning: The property VotingOptions has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.VotingOptions := VotingOptions; end; function TMailItemProperties.Get_VotingResponse: WideString; begin Result := DefaultInterface.VotingResponse; end; procedure TMailItemProperties.Set_VotingResponse(const VotingResponse: WideString); { Warning: The property VotingResponse has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.VotingResponse := VotingResponse; end; function TMailItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TMailItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TMailItemProperties.Get_BodyFormat: OlBodyFormat; begin Result := DefaultInterface.BodyFormat; end; procedure TMailItemProperties.Set_BodyFormat(BodyFormat: OlBodyFormat); begin DefaultInterface.Set_BodyFormat(BodyFormat); end; function TMailItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TMailItemProperties.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TMailItemProperties.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TMailItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TMailItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TMailItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoAppointmentItem.Create: _AppointmentItem; begin Result := CreateComObject(CLASS_AppointmentItem) as _AppointmentItem; end; class function CoAppointmentItem.CreateRemote(const MachineName: string): _AppointmentItem; begin Result := CreateRemoteComObject(MachineName, CLASS_AppointmentItem) as _AppointmentItem; end; procedure TAppointmentItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061030-0000-0000-C000-000000000046}'; IntfIID: '{00063033-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TAppointmentItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _AppointmentItem; end; end; procedure TAppointmentItem.ConnectTo(svrIntf: _AppointmentItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TAppointmentItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TAppointmentItem.GetDefaultInterface: _AppointmentItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TAppointmentItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TAppointmentItemProperties.Create(Self); {$ENDIF} end; destructor TAppointmentItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TAppointmentItem.GetServerProperties: TAppointmentItemProperties; begin Result := FProps; end; {$ENDIF} procedure TAppointmentItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TAppointmentItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TAppointmentItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TAppointmentItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TAppointmentItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TAppointmentItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TAppointmentItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TAppointmentItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TAppointmentItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TAppointmentItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TAppointmentItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TAppointmentItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TAppointmentItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TAppointmentItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TAppointmentItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TAppointmentItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TAppointmentItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TAppointmentItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TAppointmentItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TAppointmentItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TAppointmentItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TAppointmentItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TAppointmentItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TAppointmentItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TAppointmentItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TAppointmentItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TAppointmentItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TAppointmentItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TAppointmentItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TAppointmentItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TAppointmentItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TAppointmentItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TAppointmentItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TAppointmentItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TAppointmentItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TAppointmentItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TAppointmentItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TAppointmentItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TAppointmentItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TAppointmentItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TAppointmentItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TAppointmentItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TAppointmentItem.Get_AllDayEvent: WordBool; begin Result := DefaultInterface.AllDayEvent; end; procedure TAppointmentItem.Set_AllDayEvent(AllDayEvent: WordBool); begin DefaultInterface.Set_AllDayEvent(AllDayEvent); end; function TAppointmentItem.Get_BusyStatus: OlBusyStatus; begin Result := DefaultInterface.BusyStatus; end; procedure TAppointmentItem.Set_BusyStatus(BusyStatus: OlBusyStatus); begin DefaultInterface.Set_BusyStatus(BusyStatus); end; function TAppointmentItem.Get_Duration: Integer; begin Result := DefaultInterface.Duration; end; procedure TAppointmentItem.Set_Duration(Duration: Integer); begin DefaultInterface.Set_Duration(Duration); end; function TAppointmentItem.Get_End_: TDateTime; begin Result := DefaultInterface.End_; end; procedure TAppointmentItem.Set_End_(End_: TDateTime); begin DefaultInterface.Set_End_(End_); end; function TAppointmentItem.Get_IsOnlineMeeting: WordBool; begin Result := DefaultInterface.IsOnlineMeeting; end; procedure TAppointmentItem.Set_IsOnlineMeeting(IsOnlineMeeting: WordBool); begin DefaultInterface.Set_IsOnlineMeeting(IsOnlineMeeting); end; function TAppointmentItem.Get_IsRecurring: WordBool; begin Result := DefaultInterface.IsRecurring; end; function TAppointmentItem.Get_Location: WideString; begin Result := DefaultInterface.Location; end; procedure TAppointmentItem.Set_Location(const Location: WideString); { Warning: The property Location has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Location := Location; end; function TAppointmentItem.Get_MeetingStatus: OlMeetingStatus; begin Result := DefaultInterface.MeetingStatus; end; procedure TAppointmentItem.Set_MeetingStatus(MeetingStatus: OlMeetingStatus); begin DefaultInterface.Set_MeetingStatus(MeetingStatus); end; function TAppointmentItem.Get_NetMeetingAutoStart: WordBool; begin Result := DefaultInterface.NetMeetingAutoStart; end; procedure TAppointmentItem.Set_NetMeetingAutoStart(NetMeetingAutoStart: WordBool); begin DefaultInterface.Set_NetMeetingAutoStart(NetMeetingAutoStart); end; function TAppointmentItem.Get_NetMeetingOrganizerAlias: WideString; begin Result := DefaultInterface.NetMeetingOrganizerAlias; end; procedure TAppointmentItem.Set_NetMeetingOrganizerAlias(const NetMeetingOrganizerAlias: WideString); { Warning: The property NetMeetingOrganizerAlias has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingOrganizerAlias := NetMeetingOrganizerAlias; end; function TAppointmentItem.Get_NetMeetingServer: WideString; begin Result := DefaultInterface.NetMeetingServer; end; procedure TAppointmentItem.Set_NetMeetingServer(const NetMeetingServer: WideString); { Warning: The property NetMeetingServer has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingServer := NetMeetingServer; end; function TAppointmentItem.Get_NetMeetingType: OlNetMeetingType; begin Result := DefaultInterface.NetMeetingType; end; procedure TAppointmentItem.Set_NetMeetingType(NetMeetingType: OlNetMeetingType); begin DefaultInterface.Set_NetMeetingType(NetMeetingType); end; function TAppointmentItem.Get_OptionalAttendees: WideString; begin Result := DefaultInterface.OptionalAttendees; end; procedure TAppointmentItem.Set_OptionalAttendees(const OptionalAttendees: WideString); { Warning: The property OptionalAttendees has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OptionalAttendees := OptionalAttendees; end; function TAppointmentItem.Get_Organizer: WideString; begin Result := DefaultInterface.Organizer; end; function TAppointmentItem.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TAppointmentItem.Get_RecurrenceState: OlRecurrenceState; begin Result := DefaultInterface.RecurrenceState; end; function TAppointmentItem.Get_ReminderMinutesBeforeStart: Integer; begin Result := DefaultInterface.ReminderMinutesBeforeStart; end; procedure TAppointmentItem.Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer); begin DefaultInterface.Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart); end; function TAppointmentItem.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TAppointmentItem.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TAppointmentItem.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TAppointmentItem.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TAppointmentItem.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TAppointmentItem.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TAppointmentItem.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TAppointmentItem.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TAppointmentItem.Get_ReplyTime: TDateTime; begin Result := DefaultInterface.ReplyTime; end; procedure TAppointmentItem.Set_ReplyTime(ReplyTime: TDateTime); begin DefaultInterface.Set_ReplyTime(ReplyTime); end; function TAppointmentItem.Get_RequiredAttendees: WideString; begin Result := DefaultInterface.RequiredAttendees; end; procedure TAppointmentItem.Set_RequiredAttendees(const RequiredAttendees: WideString); { Warning: The property RequiredAttendees has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.RequiredAttendees := RequiredAttendees; end; function TAppointmentItem.Get_Resources: WideString; begin Result := DefaultInterface.Resources; end; procedure TAppointmentItem.Set_Resources(const Resources: WideString); { Warning: The property Resources has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Resources := Resources; end; function TAppointmentItem.Get_ResponseRequested: WordBool; begin Result := DefaultInterface.ResponseRequested; end; procedure TAppointmentItem.Set_ResponseRequested(ResponseRequested: WordBool); begin DefaultInterface.Set_ResponseRequested(ResponseRequested); end; function TAppointmentItem.Get_ResponseStatus: OlResponseStatus; begin Result := DefaultInterface.ResponseStatus; end; function TAppointmentItem.Get_Start: TDateTime; begin Result := DefaultInterface.Start; end; procedure TAppointmentItem.Set_Start(Start: TDateTime); begin DefaultInterface.Set_Start(Start); end; function TAppointmentItem.Get_NetMeetingDocPathName: WideString; begin Result := DefaultInterface.NetMeetingDocPathName; end; procedure TAppointmentItem.Set_NetMeetingDocPathName(const NetMeetingDocPathName: WideString); { Warning: The property NetMeetingDocPathName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingDocPathName := NetMeetingDocPathName; end; function TAppointmentItem.Get_NetShowURL: WideString; begin Result := DefaultInterface.NetShowURL; end; procedure TAppointmentItem.Set_NetShowURL(const NetShowURL: WideString); { Warning: The property NetShowURL has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetShowURL := NetShowURL; end; function TAppointmentItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TAppointmentItem.Get_ConferenceServerAllowExternal: WordBool; begin Result := DefaultInterface.ConferenceServerAllowExternal; end; procedure TAppointmentItem.Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal: WordBool); begin DefaultInterface.Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal); end; function TAppointmentItem.Get_ConferenceServerPassword: WideString; begin Result := DefaultInterface.ConferenceServerPassword; end; procedure TAppointmentItem.Set_ConferenceServerPassword(const ConferenceServerPassword: WideString); { Warning: The property ConferenceServerPassword has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ConferenceServerPassword := ConferenceServerPassword; end; function TAppointmentItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TAppointmentItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TAppointmentItem.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TAppointmentItem.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TAppointmentItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TAppointmentItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TAppointmentItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TAppointmentItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TAppointmentItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TAppointmentItem.Delete; begin DefaultInterface.Delete; end; procedure TAppointmentItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TAppointmentItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TAppointmentItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TAppointmentItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TAppointmentItem.Save; begin DefaultInterface.Save; end; procedure TAppointmentItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TAppointmentItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TAppointmentItem.ClearRecurrencePattern; begin DefaultInterface.ClearRecurrencePattern; end; function TAppointmentItem.ForwardAsVcal: MailItem; begin Result := DefaultInterface.ForwardAsVcal; end; function TAppointmentItem.GetRecurrencePattern: RecurrencePattern; begin Result := DefaultInterface.GetRecurrencePattern; end; function TAppointmentItem.Respond(Response: OlMeetingResponse): MeetingItem; begin Result := DefaultInterface.Respond(Response, EmptyParam, EmptyParam); end; function TAppointmentItem.Respond(Response: OlMeetingResponse; fNoUI: OleVariant): MeetingItem; begin Result := DefaultInterface.Respond(Response, fNoUI, EmptyParam); end; function TAppointmentItem.Respond(Response: OlMeetingResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): MeetingItem; begin Result := DefaultInterface.Respond(Response, fNoUI, fAdditionalTextDialog); end; procedure TAppointmentItem.Send; begin DefaultInterface.Send; end; procedure TAppointmentItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TAppointmentItemProperties.Create(AServer: TAppointmentItem); begin inherited Create; FServer := AServer; end; function TAppointmentItemProperties.GetDefaultInterface: _AppointmentItem; begin Result := FServer.DefaultInterface; end; function TAppointmentItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TAppointmentItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TAppointmentItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TAppointmentItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TAppointmentItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TAppointmentItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TAppointmentItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TAppointmentItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TAppointmentItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TAppointmentItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TAppointmentItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TAppointmentItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TAppointmentItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TAppointmentItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TAppointmentItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TAppointmentItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TAppointmentItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TAppointmentItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TAppointmentItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TAppointmentItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TAppointmentItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TAppointmentItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TAppointmentItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TAppointmentItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TAppointmentItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TAppointmentItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TAppointmentItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TAppointmentItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TAppointmentItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TAppointmentItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TAppointmentItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TAppointmentItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TAppointmentItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TAppointmentItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TAppointmentItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TAppointmentItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TAppointmentItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TAppointmentItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TAppointmentItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TAppointmentItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TAppointmentItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TAppointmentItemProperties.Get_AllDayEvent: WordBool; begin Result := DefaultInterface.AllDayEvent; end; procedure TAppointmentItemProperties.Set_AllDayEvent(AllDayEvent: WordBool); begin DefaultInterface.Set_AllDayEvent(AllDayEvent); end; function TAppointmentItemProperties.Get_BusyStatus: OlBusyStatus; begin Result := DefaultInterface.BusyStatus; end; procedure TAppointmentItemProperties.Set_BusyStatus(BusyStatus: OlBusyStatus); begin DefaultInterface.Set_BusyStatus(BusyStatus); end; function TAppointmentItemProperties.Get_Duration: Integer; begin Result := DefaultInterface.Duration; end; procedure TAppointmentItemProperties.Set_Duration(Duration: Integer); begin DefaultInterface.Set_Duration(Duration); end; function TAppointmentItemProperties.Get_End_: TDateTime; begin Result := DefaultInterface.End_; end; procedure TAppointmentItemProperties.Set_End_(End_: TDateTime); begin DefaultInterface.Set_End_(End_); end; function TAppointmentItemProperties.Get_IsOnlineMeeting: WordBool; begin Result := DefaultInterface.IsOnlineMeeting; end; procedure TAppointmentItemProperties.Set_IsOnlineMeeting(IsOnlineMeeting: WordBool); begin DefaultInterface.Set_IsOnlineMeeting(IsOnlineMeeting); end; function TAppointmentItemProperties.Get_IsRecurring: WordBool; begin Result := DefaultInterface.IsRecurring; end; function TAppointmentItemProperties.Get_Location: WideString; begin Result := DefaultInterface.Location; end; procedure TAppointmentItemProperties.Set_Location(const Location: WideString); { Warning: The property Location has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Location := Location; end; function TAppointmentItemProperties.Get_MeetingStatus: OlMeetingStatus; begin Result := DefaultInterface.MeetingStatus; end; procedure TAppointmentItemProperties.Set_MeetingStatus(MeetingStatus: OlMeetingStatus); begin DefaultInterface.Set_MeetingStatus(MeetingStatus); end; function TAppointmentItemProperties.Get_NetMeetingAutoStart: WordBool; begin Result := DefaultInterface.NetMeetingAutoStart; end; procedure TAppointmentItemProperties.Set_NetMeetingAutoStart(NetMeetingAutoStart: WordBool); begin DefaultInterface.Set_NetMeetingAutoStart(NetMeetingAutoStart); end; function TAppointmentItemProperties.Get_NetMeetingOrganizerAlias: WideString; begin Result := DefaultInterface.NetMeetingOrganizerAlias; end; procedure TAppointmentItemProperties.Set_NetMeetingOrganizerAlias(const NetMeetingOrganizerAlias: WideString); { Warning: The property NetMeetingOrganizerAlias has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingOrganizerAlias := NetMeetingOrganizerAlias; end; function TAppointmentItemProperties.Get_NetMeetingServer: WideString; begin Result := DefaultInterface.NetMeetingServer; end; procedure TAppointmentItemProperties.Set_NetMeetingServer(const NetMeetingServer: WideString); { Warning: The property NetMeetingServer has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingServer := NetMeetingServer; end; function TAppointmentItemProperties.Get_NetMeetingType: OlNetMeetingType; begin Result := DefaultInterface.NetMeetingType; end; procedure TAppointmentItemProperties.Set_NetMeetingType(NetMeetingType: OlNetMeetingType); begin DefaultInterface.Set_NetMeetingType(NetMeetingType); end; function TAppointmentItemProperties.Get_OptionalAttendees: WideString; begin Result := DefaultInterface.OptionalAttendees; end; procedure TAppointmentItemProperties.Set_OptionalAttendees(const OptionalAttendees: WideString); { Warning: The property OptionalAttendees has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OptionalAttendees := OptionalAttendees; end; function TAppointmentItemProperties.Get_Organizer: WideString; begin Result := DefaultInterface.Organizer; end; function TAppointmentItemProperties.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TAppointmentItemProperties.Get_RecurrenceState: OlRecurrenceState; begin Result := DefaultInterface.RecurrenceState; end; function TAppointmentItemProperties.Get_ReminderMinutesBeforeStart: Integer; begin Result := DefaultInterface.ReminderMinutesBeforeStart; end; procedure TAppointmentItemProperties.Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer); begin DefaultInterface.Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart); end; function TAppointmentItemProperties.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TAppointmentItemProperties.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TAppointmentItemProperties.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TAppointmentItemProperties.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TAppointmentItemProperties.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TAppointmentItemProperties.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TAppointmentItemProperties.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TAppointmentItemProperties.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TAppointmentItemProperties.Get_ReplyTime: TDateTime; begin Result := DefaultInterface.ReplyTime; end; procedure TAppointmentItemProperties.Set_ReplyTime(ReplyTime: TDateTime); begin DefaultInterface.Set_ReplyTime(ReplyTime); end; function TAppointmentItemProperties.Get_RequiredAttendees: WideString; begin Result := DefaultInterface.RequiredAttendees; end; procedure TAppointmentItemProperties.Set_RequiredAttendees(const RequiredAttendees: WideString); { Warning: The property RequiredAttendees has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.RequiredAttendees := RequiredAttendees; end; function TAppointmentItemProperties.Get_Resources: WideString; begin Result := DefaultInterface.Resources; end; procedure TAppointmentItemProperties.Set_Resources(const Resources: WideString); { Warning: The property Resources has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Resources := Resources; end; function TAppointmentItemProperties.Get_ResponseRequested: WordBool; begin Result := DefaultInterface.ResponseRequested; end; procedure TAppointmentItemProperties.Set_ResponseRequested(ResponseRequested: WordBool); begin DefaultInterface.Set_ResponseRequested(ResponseRequested); end; function TAppointmentItemProperties.Get_ResponseStatus: OlResponseStatus; begin Result := DefaultInterface.ResponseStatus; end; function TAppointmentItemProperties.Get_Start: TDateTime; begin Result := DefaultInterface.Start; end; procedure TAppointmentItemProperties.Set_Start(Start: TDateTime); begin DefaultInterface.Set_Start(Start); end; function TAppointmentItemProperties.Get_NetMeetingDocPathName: WideString; begin Result := DefaultInterface.NetMeetingDocPathName; end; procedure TAppointmentItemProperties.Set_NetMeetingDocPathName(const NetMeetingDocPathName: WideString); { Warning: The property NetMeetingDocPathName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingDocPathName := NetMeetingDocPathName; end; function TAppointmentItemProperties.Get_NetShowURL: WideString; begin Result := DefaultInterface.NetShowURL; end; procedure TAppointmentItemProperties.Set_NetShowURL(const NetShowURL: WideString); { Warning: The property NetShowURL has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetShowURL := NetShowURL; end; function TAppointmentItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TAppointmentItemProperties.Get_ConferenceServerAllowExternal: WordBool; begin Result := DefaultInterface.ConferenceServerAllowExternal; end; procedure TAppointmentItemProperties.Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal: WordBool); begin DefaultInterface.Set_ConferenceServerAllowExternal(ConferenceServerAllowExternal); end; function TAppointmentItemProperties.Get_ConferenceServerPassword: WideString; begin Result := DefaultInterface.ConferenceServerPassword; end; procedure TAppointmentItemProperties.Set_ConferenceServerPassword(const ConferenceServerPassword: WideString); { Warning: The property ConferenceServerPassword has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ConferenceServerPassword := ConferenceServerPassword; end; function TAppointmentItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TAppointmentItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TAppointmentItemProperties.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TAppointmentItemProperties.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TAppointmentItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TAppointmentItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TAppointmentItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoMeetingItem.Create: _MeetingItem; begin Result := CreateComObject(CLASS_MeetingItem) as _MeetingItem; end; class function CoMeetingItem.CreateRemote(const MachineName: string): _MeetingItem; begin Result := CreateRemoteComObject(MachineName, CLASS_MeetingItem) as _MeetingItem; end; procedure TMeetingItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061036-0000-0000-C000-000000000046}'; IntfIID: '{00063062-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TMeetingItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _MeetingItem; end; end; procedure TMeetingItem.ConnectTo(svrIntf: _MeetingItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TMeetingItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TMeetingItem.GetDefaultInterface: _MeetingItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TMeetingItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TMeetingItemProperties.Create(Self); {$ENDIF} end; destructor TMeetingItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TMeetingItem.GetServerProperties: TMeetingItemProperties; begin Result := FProps; end; {$ENDIF} procedure TMeetingItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TMeetingItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TMeetingItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TMeetingItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TMeetingItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TMeetingItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TMeetingItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TMeetingItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TMeetingItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TMeetingItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TMeetingItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TMeetingItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TMeetingItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TMeetingItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TMeetingItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TMeetingItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TMeetingItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TMeetingItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TMeetingItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TMeetingItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TMeetingItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TMeetingItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TMeetingItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TMeetingItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TMeetingItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TMeetingItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TMeetingItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TMeetingItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TMeetingItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TMeetingItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TMeetingItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TMeetingItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TMeetingItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TMeetingItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TMeetingItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TMeetingItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TMeetingItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TMeetingItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TMeetingItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TMeetingItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TMeetingItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TMeetingItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TMeetingItem.Get_AutoForwarded: WordBool; begin Result := DefaultInterface.AutoForwarded; end; procedure TMeetingItem.Set_AutoForwarded(AutoForwarded: WordBool); begin DefaultInterface.Set_AutoForwarded(AutoForwarded); end; function TMeetingItem.Get_DeferredDeliveryTime: TDateTime; begin Result := DefaultInterface.DeferredDeliveryTime; end; procedure TMeetingItem.Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); begin DefaultInterface.Set_DeferredDeliveryTime(DeferredDeliveryTime); end; function TMeetingItem.Get_DeleteAfterSubmit: WordBool; begin Result := DefaultInterface.DeleteAfterSubmit; end; procedure TMeetingItem.Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); begin DefaultInterface.Set_DeleteAfterSubmit(DeleteAfterSubmit); end; function TMeetingItem.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TMeetingItem.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TMeetingItem.Get_FlagDueBy: TDateTime; begin Result := DefaultInterface.FlagDueBy; end; procedure TMeetingItem.Set_FlagDueBy(FlagDueBy: TDateTime); begin DefaultInterface.Set_FlagDueBy(FlagDueBy); end; function TMeetingItem.Get_FlagRequest: WideString; begin Result := DefaultInterface.FlagRequest; end; procedure TMeetingItem.Set_FlagRequest(const FlagRequest: WideString); { Warning: The property FlagRequest has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FlagRequest := FlagRequest; end; function TMeetingItem.Get_FlagStatus: OlFlagStatus; begin Result := DefaultInterface.FlagStatus; end; procedure TMeetingItem.Set_FlagStatus(FlagStatus: OlFlagStatus); begin DefaultInterface.Set_FlagStatus(FlagStatus); end; function TMeetingItem.Get_OriginatorDeliveryReportRequested: WordBool; begin Result := DefaultInterface.OriginatorDeliveryReportRequested; end; procedure TMeetingItem.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); begin DefaultInterface.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested); end; function TMeetingItem.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; procedure TMeetingItem.Set_ReceivedTime(ReceivedTime: TDateTime); begin DefaultInterface.Set_ReceivedTime(ReceivedTime); end; function TMeetingItem.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TMeetingItem.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TMeetingItem.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TMeetingItem.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TMeetingItem.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TMeetingItem.Get_ReplyRecipients: Recipients; begin Result := DefaultInterface.ReplyRecipients; end; function TMeetingItem.Get_SaveSentMessageFolder: MAPIFolder; begin Result := DefaultInterface.SaveSentMessageFolder; end; procedure TMeetingItem._Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); { Warning: The property SaveSentMessageFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SaveSentMessageFolder := SaveSentMessageFolder; end; function TMeetingItem.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TMeetingItem.Get_Sent: WordBool; begin Result := DefaultInterface.Sent; end; function TMeetingItem.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TMeetingItem.Get_Submitted: WordBool; begin Result := DefaultInterface.Submitted; end; function TMeetingItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TMeetingItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TMeetingItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TMeetingItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TMeetingItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TMeetingItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TMeetingItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TMeetingItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TMeetingItem.Delete; begin DefaultInterface.Delete; end; procedure TMeetingItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TMeetingItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TMeetingItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TMeetingItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TMeetingItem.Save; begin DefaultInterface.Save; end; procedure TMeetingItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TMeetingItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TMeetingItem.Forward: MeetingItem; begin Result := DefaultInterface.Forward; end; function TMeetingItem.GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; begin Result := DefaultInterface.GetAssociatedAppointment(AddToCalendar); end; function TMeetingItem.Reply: MailItem; begin Result := DefaultInterface.Reply; end; function TMeetingItem.ReplyAll: MailItem; begin Result := DefaultInterface.ReplyAll; end; procedure TMeetingItem.Send; begin DefaultInterface.Send; end; procedure TMeetingItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TMeetingItemProperties.Create(AServer: TMeetingItem); begin inherited Create; FServer := AServer; end; function TMeetingItemProperties.GetDefaultInterface: _MeetingItem; begin Result := FServer.DefaultInterface; end; function TMeetingItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TMeetingItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TMeetingItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TMeetingItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TMeetingItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TMeetingItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TMeetingItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TMeetingItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TMeetingItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TMeetingItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TMeetingItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TMeetingItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TMeetingItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TMeetingItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TMeetingItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TMeetingItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TMeetingItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TMeetingItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TMeetingItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TMeetingItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TMeetingItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TMeetingItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TMeetingItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TMeetingItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TMeetingItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TMeetingItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TMeetingItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TMeetingItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TMeetingItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TMeetingItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TMeetingItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TMeetingItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TMeetingItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TMeetingItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TMeetingItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TMeetingItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TMeetingItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TMeetingItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TMeetingItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TMeetingItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TMeetingItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TMeetingItemProperties.Get_AutoForwarded: WordBool; begin Result := DefaultInterface.AutoForwarded; end; procedure TMeetingItemProperties.Set_AutoForwarded(AutoForwarded: WordBool); begin DefaultInterface.Set_AutoForwarded(AutoForwarded); end; function TMeetingItemProperties.Get_DeferredDeliveryTime: TDateTime; begin Result := DefaultInterface.DeferredDeliveryTime; end; procedure TMeetingItemProperties.Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime); begin DefaultInterface.Set_DeferredDeliveryTime(DeferredDeliveryTime); end; function TMeetingItemProperties.Get_DeleteAfterSubmit: WordBool; begin Result := DefaultInterface.DeleteAfterSubmit; end; procedure TMeetingItemProperties.Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool); begin DefaultInterface.Set_DeleteAfterSubmit(DeleteAfterSubmit); end; function TMeetingItemProperties.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TMeetingItemProperties.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TMeetingItemProperties.Get_FlagDueBy: TDateTime; begin Result := DefaultInterface.FlagDueBy; end; procedure TMeetingItemProperties.Set_FlagDueBy(FlagDueBy: TDateTime); begin DefaultInterface.Set_FlagDueBy(FlagDueBy); end; function TMeetingItemProperties.Get_FlagRequest: WideString; begin Result := DefaultInterface.FlagRequest; end; procedure TMeetingItemProperties.Set_FlagRequest(const FlagRequest: WideString); { Warning: The property FlagRequest has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FlagRequest := FlagRequest; end; function TMeetingItemProperties.Get_FlagStatus: OlFlagStatus; begin Result := DefaultInterface.FlagStatus; end; procedure TMeetingItemProperties.Set_FlagStatus(FlagStatus: OlFlagStatus); begin DefaultInterface.Set_FlagStatus(FlagStatus); end; function TMeetingItemProperties.Get_OriginatorDeliveryReportRequested: WordBool; begin Result := DefaultInterface.OriginatorDeliveryReportRequested; end; procedure TMeetingItemProperties.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool); begin DefaultInterface.Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested); end; function TMeetingItemProperties.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; procedure TMeetingItemProperties.Set_ReceivedTime(ReceivedTime: TDateTime); begin DefaultInterface.Set_ReceivedTime(ReceivedTime); end; function TMeetingItemProperties.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TMeetingItemProperties.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TMeetingItemProperties.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TMeetingItemProperties.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TMeetingItemProperties.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TMeetingItemProperties.Get_ReplyRecipients: Recipients; begin Result := DefaultInterface.ReplyRecipients; end; function TMeetingItemProperties.Get_SaveSentMessageFolder: MAPIFolder; begin Result := DefaultInterface.SaveSentMessageFolder; end; procedure TMeetingItemProperties._Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder); { Warning: The property SaveSentMessageFolder has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SaveSentMessageFolder := SaveSentMessageFolder; end; function TMeetingItemProperties.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TMeetingItemProperties.Get_Sent: WordBool; begin Result := DefaultInterface.Sent; end; function TMeetingItemProperties.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TMeetingItemProperties.Get_Submitted: WordBool; begin Result := DefaultInterface.Submitted; end; function TMeetingItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TMeetingItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TMeetingItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TMeetingItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TMeetingItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TMeetingItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoTaskItem.Create: _TaskItem; begin Result := CreateComObject(CLASS_TaskItem) as _TaskItem; end; class function CoTaskItem.CreateRemote(const MachineName: string): _TaskItem; begin Result := CreateRemoteComObject(MachineName, CLASS_TaskItem) as _TaskItem; end; procedure TTaskItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061032-0000-0000-C000-000000000046}'; IntfIID: '{00063035-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTaskItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _TaskItem; end; end; procedure TTaskItem.ConnectTo(svrIntf: _TaskItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TTaskItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TTaskItem.GetDefaultInterface: _TaskItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTaskItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTaskItemProperties.Create(Self); {$ENDIF} end; destructor TTaskItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTaskItem.GetServerProperties: TTaskItemProperties; begin Result := FProps; end; {$ENDIF} procedure TTaskItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TTaskItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskItem.Get_ActualWork: Integer; begin Result := DefaultInterface.ActualWork; end; procedure TTaskItem.Set_ActualWork(ActualWork: Integer); begin DefaultInterface.Set_ActualWork(ActualWork); end; function TTaskItem.Get_CardData: WideString; begin Result := DefaultInterface.CardData; end; procedure TTaskItem.Set_CardData(const CardData: WideString); { Warning: The property CardData has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CardData := CardData; end; function TTaskItem.Get_Complete: WordBool; begin Result := DefaultInterface.Complete; end; procedure TTaskItem.Set_Complete(Complete: WordBool); begin DefaultInterface.Set_Complete(Complete); end; function TTaskItem.Get_Contacts: WideString; begin Result := DefaultInterface.Contacts; end; procedure TTaskItem.Set_Contacts(const Contacts: WideString); { Warning: The property Contacts has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Contacts := Contacts; end; function TTaskItem.Get_ContactNames: WideString; begin Result := DefaultInterface.ContactNames; end; procedure TTaskItem.Set_ContactNames(const ContactNames: WideString); { Warning: The property ContactNames has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ContactNames := ContactNames; end; function TTaskItem.Get_DateCompleted: TDateTime; begin Result := DefaultInterface.DateCompleted; end; procedure TTaskItem.Set_DateCompleted(DateCompleted: TDateTime); begin DefaultInterface.Set_DateCompleted(DateCompleted); end; function TTaskItem.Get_DelegationState: OlTaskDelegationState; begin Result := DefaultInterface.DelegationState; end; function TTaskItem.Get_Delegator: WideString; begin Result := DefaultInterface.Delegator; end; function TTaskItem.Get_DueDate: TDateTime; begin Result := DefaultInterface.DueDate; end; procedure TTaskItem.Set_DueDate(DueDate: TDateTime); begin DefaultInterface.Set_DueDate(DueDate); end; function TTaskItem.Get_IsRecurring: WordBool; begin Result := DefaultInterface.IsRecurring; end; function TTaskItem.Get_Ordinal: Integer; begin Result := DefaultInterface.Ordinal; end; procedure TTaskItem.Set_Ordinal(Ordinal: Integer); begin DefaultInterface.Set_Ordinal(Ordinal); end; function TTaskItem.Get_Owner: WideString; begin Result := DefaultInterface.Owner; end; procedure TTaskItem.Set_Owner(const Owner: WideString); { Warning: The property Owner has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Owner := Owner; end; function TTaskItem.Get_Ownership: OlTaskOwnership; begin Result := DefaultInterface.Ownership; end; function TTaskItem.Get_PercentComplete: Integer; begin Result := DefaultInterface.PercentComplete; end; procedure TTaskItem.Set_PercentComplete(PercentComplete: Integer); begin DefaultInterface.Set_PercentComplete(PercentComplete); end; function TTaskItem.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TTaskItem.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TTaskItem.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TTaskItem.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TTaskItem.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TTaskItem.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TTaskItem.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TTaskItem.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TTaskItem.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TTaskItem.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TTaskItem.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TTaskItem.Get_ResponseState: OlTaskResponse; begin Result := DefaultInterface.ResponseState; end; function TTaskItem.Get_Role: WideString; begin Result := DefaultInterface.Role; end; procedure TTaskItem.Set_Role(const Role: WideString); { Warning: The property Role has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Role := Role; end; function TTaskItem.Get_SchedulePlusPriority: WideString; begin Result := DefaultInterface.SchedulePlusPriority; end; procedure TTaskItem.Set_SchedulePlusPriority(const SchedulePlusPriority: WideString); { Warning: The property SchedulePlusPriority has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SchedulePlusPriority := SchedulePlusPriority; end; function TTaskItem.Get_StartDate: TDateTime; begin Result := DefaultInterface.StartDate; end; procedure TTaskItem.Set_StartDate(StartDate: TDateTime); begin DefaultInterface.Set_StartDate(StartDate); end; function TTaskItem.Get_Status: OlTaskStatus; begin Result := DefaultInterface.Status; end; procedure TTaskItem.Set_Status(Status: OlTaskStatus); begin DefaultInterface.Set_Status(Status); end; function TTaskItem.Get_StatusOnCompletionRecipients: WideString; begin Result := DefaultInterface.StatusOnCompletionRecipients; end; procedure TTaskItem.Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString); { Warning: The property StatusOnCompletionRecipients has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.StatusOnCompletionRecipients := StatusOnCompletionRecipients; end; function TTaskItem.Get_StatusUpdateRecipients: WideString; begin Result := DefaultInterface.StatusUpdateRecipients; end; procedure TTaskItem.Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString); { Warning: The property StatusUpdateRecipients has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.StatusUpdateRecipients := StatusUpdateRecipients; end; function TTaskItem.Get_TeamTask: WordBool; begin Result := DefaultInterface.TeamTask; end; procedure TTaskItem.Set_TeamTask(TeamTask: WordBool); begin DefaultInterface.Set_TeamTask(TeamTask); end; function TTaskItem.Get_TotalWork: Integer; begin Result := DefaultInterface.TotalWork; end; procedure TTaskItem.Set_TotalWork(TotalWork: Integer); begin DefaultInterface.Set_TotalWork(TotalWork); end; function TTaskItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskItem.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TTaskItem.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TTaskItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TTaskItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TTaskItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TTaskItem.Delete; begin DefaultInterface.Delete; end; procedure TTaskItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TTaskItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TTaskItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TTaskItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TTaskItem.Save; begin DefaultInterface.Save; end; procedure TTaskItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TTaskItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TTaskItem.Assign_: TaskItem; begin Result := DefaultInterface.Assign_; end; procedure TTaskItem.CancelResponseState; begin DefaultInterface.CancelResponseState; end; procedure TTaskItem.ClearRecurrencePattern; begin DefaultInterface.ClearRecurrencePattern; end; function TTaskItem.GetRecurrencePattern: RecurrencePattern; begin Result := DefaultInterface.GetRecurrencePattern; end; procedure TTaskItem.MarkComplete; begin DefaultInterface.MarkComplete; end; function TTaskItem.Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem; begin Result := DefaultInterface.Respond(Response, fNoUI, fAdditionalTextDialog); end; procedure TTaskItem.Send; begin DefaultInterface.Send; end; function TTaskItem.SkipRecurrence: WordBool; begin Result := DefaultInterface.SkipRecurrence; end; function TTaskItem.StatusReport: IDispatch; begin Result := DefaultInterface.StatusReport; end; procedure TTaskItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTaskItemProperties.Create(AServer: TTaskItem); begin inherited Create; FServer := AServer; end; function TTaskItemProperties.GetDefaultInterface: _TaskItem; begin Result := FServer.DefaultInterface; end; function TTaskItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskItemProperties.Get_ActualWork: Integer; begin Result := DefaultInterface.ActualWork; end; procedure TTaskItemProperties.Set_ActualWork(ActualWork: Integer); begin DefaultInterface.Set_ActualWork(ActualWork); end; function TTaskItemProperties.Get_CardData: WideString; begin Result := DefaultInterface.CardData; end; procedure TTaskItemProperties.Set_CardData(const CardData: WideString); { Warning: The property CardData has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CardData := CardData; end; function TTaskItemProperties.Get_Complete: WordBool; begin Result := DefaultInterface.Complete; end; procedure TTaskItemProperties.Set_Complete(Complete: WordBool); begin DefaultInterface.Set_Complete(Complete); end; function TTaskItemProperties.Get_Contacts: WideString; begin Result := DefaultInterface.Contacts; end; procedure TTaskItemProperties.Set_Contacts(const Contacts: WideString); { Warning: The property Contacts has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Contacts := Contacts; end; function TTaskItemProperties.Get_ContactNames: WideString; begin Result := DefaultInterface.ContactNames; end; procedure TTaskItemProperties.Set_ContactNames(const ContactNames: WideString); { Warning: The property ContactNames has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ContactNames := ContactNames; end; function TTaskItemProperties.Get_DateCompleted: TDateTime; begin Result := DefaultInterface.DateCompleted; end; procedure TTaskItemProperties.Set_DateCompleted(DateCompleted: TDateTime); begin DefaultInterface.Set_DateCompleted(DateCompleted); end; function TTaskItemProperties.Get_DelegationState: OlTaskDelegationState; begin Result := DefaultInterface.DelegationState; end; function TTaskItemProperties.Get_Delegator: WideString; begin Result := DefaultInterface.Delegator; end; function TTaskItemProperties.Get_DueDate: TDateTime; begin Result := DefaultInterface.DueDate; end; procedure TTaskItemProperties.Set_DueDate(DueDate: TDateTime); begin DefaultInterface.Set_DueDate(DueDate); end; function TTaskItemProperties.Get_IsRecurring: WordBool; begin Result := DefaultInterface.IsRecurring; end; function TTaskItemProperties.Get_Ordinal: Integer; begin Result := DefaultInterface.Ordinal; end; procedure TTaskItemProperties.Set_Ordinal(Ordinal: Integer); begin DefaultInterface.Set_Ordinal(Ordinal); end; function TTaskItemProperties.Get_Owner: WideString; begin Result := DefaultInterface.Owner; end; procedure TTaskItemProperties.Set_Owner(const Owner: WideString); { Warning: The property Owner has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Owner := Owner; end; function TTaskItemProperties.Get_Ownership: OlTaskOwnership; begin Result := DefaultInterface.Ownership; end; function TTaskItemProperties.Get_PercentComplete: Integer; begin Result := DefaultInterface.PercentComplete; end; procedure TTaskItemProperties.Set_PercentComplete(PercentComplete: Integer); begin DefaultInterface.Set_PercentComplete(PercentComplete); end; function TTaskItemProperties.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TTaskItemProperties.Get_ReminderTime: TDateTime; begin Result := DefaultInterface.ReminderTime; end; procedure TTaskItemProperties.Set_ReminderTime(ReminderTime: TDateTime); begin DefaultInterface.Set_ReminderTime(ReminderTime); end; function TTaskItemProperties.Get_ReminderOverrideDefault: WordBool; begin Result := DefaultInterface.ReminderOverrideDefault; end; procedure TTaskItemProperties.Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool); begin DefaultInterface.Set_ReminderOverrideDefault(ReminderOverrideDefault); end; function TTaskItemProperties.Get_ReminderPlaySound: WordBool; begin Result := DefaultInterface.ReminderPlaySound; end; procedure TTaskItemProperties.Set_ReminderPlaySound(ReminderPlaySound: WordBool); begin DefaultInterface.Set_ReminderPlaySound(ReminderPlaySound); end; function TTaskItemProperties.Get_ReminderSet: WordBool; begin Result := DefaultInterface.ReminderSet; end; procedure TTaskItemProperties.Set_ReminderSet(ReminderSet: WordBool); begin DefaultInterface.Set_ReminderSet(ReminderSet); end; function TTaskItemProperties.Get_ReminderSoundFile: WideString; begin Result := DefaultInterface.ReminderSoundFile; end; procedure TTaskItemProperties.Set_ReminderSoundFile(const ReminderSoundFile: WideString); { Warning: The property ReminderSoundFile has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReminderSoundFile := ReminderSoundFile; end; function TTaskItemProperties.Get_ResponseState: OlTaskResponse; begin Result := DefaultInterface.ResponseState; end; function TTaskItemProperties.Get_Role: WideString; begin Result := DefaultInterface.Role; end; procedure TTaskItemProperties.Set_Role(const Role: WideString); { Warning: The property Role has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Role := Role; end; function TTaskItemProperties.Get_SchedulePlusPriority: WideString; begin Result := DefaultInterface.SchedulePlusPriority; end; procedure TTaskItemProperties.Set_SchedulePlusPriority(const SchedulePlusPriority: WideString); { Warning: The property SchedulePlusPriority has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.SchedulePlusPriority := SchedulePlusPriority; end; function TTaskItemProperties.Get_StartDate: TDateTime; begin Result := DefaultInterface.StartDate; end; procedure TTaskItemProperties.Set_StartDate(StartDate: TDateTime); begin DefaultInterface.Set_StartDate(StartDate); end; function TTaskItemProperties.Get_Status: OlTaskStatus; begin Result := DefaultInterface.Status; end; procedure TTaskItemProperties.Set_Status(Status: OlTaskStatus); begin DefaultInterface.Set_Status(Status); end; function TTaskItemProperties.Get_StatusOnCompletionRecipients: WideString; begin Result := DefaultInterface.StatusOnCompletionRecipients; end; procedure TTaskItemProperties.Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString); { Warning: The property StatusOnCompletionRecipients has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.StatusOnCompletionRecipients := StatusOnCompletionRecipients; end; function TTaskItemProperties.Get_StatusUpdateRecipients: WideString; begin Result := DefaultInterface.StatusUpdateRecipients; end; procedure TTaskItemProperties.Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString); { Warning: The property StatusUpdateRecipients has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.StatusUpdateRecipients := StatusUpdateRecipients; end; function TTaskItemProperties.Get_TeamTask: WordBool; begin Result := DefaultInterface.TeamTask; end; procedure TTaskItemProperties.Set_TeamTask(TeamTask: WordBool); begin DefaultInterface.Set_TeamTask(TeamTask); end; function TTaskItemProperties.Get_TotalWork: Integer; begin Result := DefaultInterface.TotalWork; end; procedure TTaskItemProperties.Set_TotalWork(TotalWork: Integer); begin DefaultInterface.Set_TotalWork(TotalWork); end; function TTaskItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskItemProperties.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TTaskItemProperties.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TTaskItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoOutlookApplication.Create: _Application; begin Result := CreateComObject(CLASS_OutlookApplication) as _Application; end; class function CoOutlookApplication.CreateRemote(const MachineName: string): _Application; begin Result := CreateRemoteComObject(MachineName, CLASS_OutlookApplication) as _Application; end; procedure TOutlookApplication.InitServerData; const CServerData: TServerData = ( ClassID: '{0006F03A-0000-0000-C000-000000000046}'; IntfIID: '{00063001-0000-0000-C000-000000000046}'; EventIID: '{0006300E-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOutlookApplication.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Application; end; end; procedure TOutlookApplication.ConnectTo(svrIntf: _Application); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TOutlookApplication.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); if FAutoQuit then Quit(); FIntf := nil; end; end; function TOutlookApplication.GetDefaultInterface: _Application; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOutlookApplication.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOutlookApplicationProperties.Create(Self); {$ENDIF} end; destructor TOutlookApplication.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOutlookApplication.GetServerProperties: TOutlookApplicationProperties; begin Result := FProps; end; {$ENDIF} procedure TOutlookApplication.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61442: if Assigned(FOnItemSend) then FOnItemSend(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61443: if Assigned(FOnNewMail) then FOnNewMail(Self); 61444: if Assigned(FOnReminder) then FOnReminder(Self, Params[0] {const IDispatch}); 61445: if Assigned(FOnOptionsPagesAdd) then FOnOptionsPagesAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as PropertyPages {const PropertyPages}); 61446: if Assigned(FOnStartup) then FOnStartup(Self); 61447: if Assigned(FOnQuit) then FOnQuit(Self); 64106: if Assigned(FOnAdvancedSearchComplete) then FOnAdvancedSearchComplete(Self, IUnknown(TVarData(Params[0]).VPointer) as Search {const Search}); 64107: if Assigned(FOnAdvancedSearchStopped) then FOnAdvancedSearchStopped(Self, IUnknown(TVarData(Params[0]).VPointer) as Search {const Search}); 64144: if Assigned(FOnMAPILogonComplete) then FOnMAPILogonComplete(Self); end; {case DispID} end; function TOutlookApplication.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookApplication.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookApplication.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookApplication.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookApplication.Get_Assistant: Assistant; begin Result := DefaultInterface.Assistant; end; function TOutlookApplication.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TOutlookApplication.Get_Version: WideString; begin Result := DefaultInterface.Version; end; function TOutlookApplication.Get_COMAddIns: COMAddIns; begin Result := DefaultInterface.COMAddIns; end; function TOutlookApplication.Get_Explorers: _Explorers; begin Result := DefaultInterface.Explorers; end; function TOutlookApplication.Get_Inspectors: _Inspectors; begin Result := DefaultInterface.Inspectors; end; function TOutlookApplication.Get_LanguageSettings: LanguageSettings; begin Result := DefaultInterface.LanguageSettings; end; function TOutlookApplication.Get_ProductCode: WideString; begin Result := DefaultInterface.ProductCode; end; function TOutlookApplication.Get_AnswerWizard: AnswerWizard; begin Result := DefaultInterface.AnswerWizard; end; function TOutlookApplication.Get_FeatureInstall: MsoFeatureInstall; begin Result := DefaultInterface.FeatureInstall; end; procedure TOutlookApplication.Set_FeatureInstall(FeatureInstall: MsoFeatureInstall); begin DefaultInterface.Set_FeatureInstall(FeatureInstall); end; function TOutlookApplication.Get_Reminders: _Reminders; begin Result := DefaultInterface.Reminders; end; function TOutlookApplication.ActiveExplorer: _Explorer; begin Result := DefaultInterface.ActiveExplorer; end; function TOutlookApplication.ActiveInspector: _Inspector; begin Result := DefaultInterface.ActiveInspector; end; function TOutlookApplication.CreateItem(ItemType: OlItemType): IDispatch; begin Result := DefaultInterface.CreateItem(ItemType); end; function TOutlookApplication.CreateItemFromTemplate(const TemplatePath: WideString): IDispatch; begin Result := DefaultInterface.CreateItemFromTemplate(TemplatePath, EmptyParam); end; function TOutlookApplication.CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; begin Result := DefaultInterface.CreateItemFromTemplate(TemplatePath, InFolder); end; function TOutlookApplication.CreateObject(const ObjectName: WideString): IDispatch; begin Result := DefaultInterface.CreateObject(ObjectName); end; function TOutlookApplication.GetNamespace(const Type_: WideString): _NameSpace; begin Result := DefaultInterface.GetNamespace(Type_); end; procedure TOutlookApplication.Quit; begin DefaultInterface.Quit; end; function TOutlookApplication.ActiveWindow: IDispatch; begin Result := DefaultInterface.ActiveWindow; end; function TOutlookApplication.CopyFile(const FilePath: WideString; const DestFolderPath: WideString): IDispatch; begin Result := DefaultInterface.CopyFile(FilePath, DestFolderPath); end; function TOutlookApplication.AdvancedSearch(const Scope: WideString): Search; begin Result := DefaultInterface.AdvancedSearch(Scope, EmptyParam, EmptyParam, EmptyParam); end; function TOutlookApplication.AdvancedSearch(const Scope: WideString; Filter: OleVariant): Search; begin Result := DefaultInterface.AdvancedSearch(Scope, Filter, EmptyParam, EmptyParam); end; function TOutlookApplication.AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant): Search; begin Result := DefaultInterface.AdvancedSearch(Scope, Filter, SearchSubFolders, EmptyParam); end; function TOutlookApplication.AdvancedSearch(const Scope: WideString; Filter: OleVariant; SearchSubFolders: OleVariant; Tag: OleVariant): Search; begin Result := DefaultInterface.AdvancedSearch(Scope, Filter, SearchSubFolders, Tag); end; function TOutlookApplication.IsSearchSynchronous(const LookInFolders: WideString): WordBool; begin Result := DefaultInterface.IsSearchSynchronous(LookInFolders); end; procedure TOutlookApplication.GetNewNickNames(var pvar: OleVariant); begin DefaultInterface.GetNewNickNames(pvar); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOutlookApplicationProperties.Create(AServer: TOutlookApplication); begin inherited Create; FServer := AServer; end; function TOutlookApplicationProperties.GetDefaultInterface: _Application; begin Result := FServer.DefaultInterface; end; function TOutlookApplicationProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookApplicationProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookApplicationProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookApplicationProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookApplicationProperties.Get_Assistant: Assistant; begin Result := DefaultInterface.Assistant; end; function TOutlookApplicationProperties.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TOutlookApplicationProperties.Get_Version: WideString; begin Result := DefaultInterface.Version; end; function TOutlookApplicationProperties.Get_COMAddIns: COMAddIns; begin Result := DefaultInterface.COMAddIns; end; function TOutlookApplicationProperties.Get_Explorers: _Explorers; begin Result := DefaultInterface.Explorers; end; function TOutlookApplicationProperties.Get_Inspectors: _Inspectors; begin Result := DefaultInterface.Inspectors; end; function TOutlookApplicationProperties.Get_LanguageSettings: LanguageSettings; begin Result := DefaultInterface.LanguageSettings; end; function TOutlookApplicationProperties.Get_ProductCode: WideString; begin Result := DefaultInterface.ProductCode; end; function TOutlookApplicationProperties.Get_AnswerWizard: AnswerWizard; begin Result := DefaultInterface.AnswerWizard; end; function TOutlookApplicationProperties.Get_FeatureInstall: MsoFeatureInstall; begin Result := DefaultInterface.FeatureInstall; end; procedure TOutlookApplicationProperties.Set_FeatureInstall(FeatureInstall: MsoFeatureInstall); begin DefaultInterface.Set_FeatureInstall(FeatureInstall); end; function TOutlookApplicationProperties.Get_Reminders: _Reminders; begin Result := DefaultInterface.Reminders; end; {$ENDIF} class function CoContactItem.Create: _ContactItem; begin Result := CreateComObject(CLASS_ContactItem) as _ContactItem; end; class function CoContactItem.CreateRemote(const MachineName: string): _ContactItem; begin Result := CreateRemoteComObject(MachineName, CLASS_ContactItem) as _ContactItem; end; procedure TContactItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061031-0000-0000-C000-000000000046}'; IntfIID: '{00063021-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TContactItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _ContactItem; end; end; procedure TContactItem.ConnectTo(svrIntf: _ContactItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TContactItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TContactItem.GetDefaultInterface: _ContactItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TContactItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TContactItemProperties.Create(Self); {$ENDIF} end; destructor TContactItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TContactItem.GetServerProperties: TContactItemProperties; begin Result := FProps; end; {$ENDIF} procedure TContactItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TContactItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TContactItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TContactItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TContactItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TContactItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TContactItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TContactItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TContactItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TContactItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TContactItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TContactItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TContactItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TContactItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TContactItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TContactItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TContactItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TContactItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TContactItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TContactItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TContactItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TContactItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TContactItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TContactItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TContactItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TContactItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TContactItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TContactItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TContactItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TContactItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TContactItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TContactItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TContactItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TContactItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TContactItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TContactItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TContactItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TContactItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TContactItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TContactItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TContactItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TContactItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TContactItem.Get_Account: WideString; begin Result := DefaultInterface.Account; end; procedure TContactItem.Set_Account(const Account: WideString); { Warning: The property Account has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Account := Account; end; function TContactItem.Get_Anniversary: TDateTime; begin Result := DefaultInterface.Anniversary; end; procedure TContactItem.Set_Anniversary(Anniversary: TDateTime); begin DefaultInterface.Set_Anniversary(Anniversary); end; function TContactItem.Get_AssistantName: WideString; begin Result := DefaultInterface.AssistantName; end; procedure TContactItem.Set_AssistantName(const AssistantName: WideString); { Warning: The property AssistantName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.AssistantName := AssistantName; end; function TContactItem.Get_AssistantTelephoneNumber: WideString; begin Result := DefaultInterface.AssistantTelephoneNumber; end; procedure TContactItem.Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString); { Warning: The property AssistantTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.AssistantTelephoneNumber := AssistantTelephoneNumber; end; function TContactItem.Get_Birthday: TDateTime; begin Result := DefaultInterface.Birthday; end; procedure TContactItem.Set_Birthday(Birthday: TDateTime); begin DefaultInterface.Set_Birthday(Birthday); end; function TContactItem.Get_Business2TelephoneNumber: WideString; begin Result := DefaultInterface.Business2TelephoneNumber; end; procedure TContactItem.Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString); { Warning: The property Business2TelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Business2TelephoneNumber := Business2TelephoneNumber; end; function TContactItem.Get_BusinessAddress: WideString; begin Result := DefaultInterface.BusinessAddress; end; procedure TContactItem.Set_BusinessAddress(const BusinessAddress: WideString); { Warning: The property BusinessAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddress := BusinessAddress; end; function TContactItem.Get_BusinessAddressCity: WideString; begin Result := DefaultInterface.BusinessAddressCity; end; procedure TContactItem.Set_BusinessAddressCity(const BusinessAddressCity: WideString); { Warning: The property BusinessAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressCity := BusinessAddressCity; end; function TContactItem.Get_BusinessAddressCountry: WideString; begin Result := DefaultInterface.BusinessAddressCountry; end; procedure TContactItem.Set_BusinessAddressCountry(const BusinessAddressCountry: WideString); { Warning: The property BusinessAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressCountry := BusinessAddressCountry; end; function TContactItem.Get_BusinessAddressPostalCode: WideString; begin Result := DefaultInterface.BusinessAddressPostalCode; end; procedure TContactItem.Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString); { Warning: The property BusinessAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressPostalCode := BusinessAddressPostalCode; end; function TContactItem.Get_BusinessAddressPostOfficeBox: WideString; begin Result := DefaultInterface.BusinessAddressPostOfficeBox; end; procedure TContactItem.Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString); { Warning: The property BusinessAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressPostOfficeBox := BusinessAddressPostOfficeBox; end; function TContactItem.Get_BusinessAddressState: WideString; begin Result := DefaultInterface.BusinessAddressState; end; procedure TContactItem.Set_BusinessAddressState(const BusinessAddressState: WideString); { Warning: The property BusinessAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressState := BusinessAddressState; end; function TContactItem.Get_BusinessAddressStreet: WideString; begin Result := DefaultInterface.BusinessAddressStreet; end; procedure TContactItem.Set_BusinessAddressStreet(const BusinessAddressStreet: WideString); { Warning: The property BusinessAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressStreet := BusinessAddressStreet; end; function TContactItem.Get_BusinessFaxNumber: WideString; begin Result := DefaultInterface.BusinessFaxNumber; end; procedure TContactItem.Set_BusinessFaxNumber(const BusinessFaxNumber: WideString); { Warning: The property BusinessFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessFaxNumber := BusinessFaxNumber; end; function TContactItem.Get_BusinessHomePage: WideString; begin Result := DefaultInterface.BusinessHomePage; end; procedure TContactItem.Set_BusinessHomePage(const BusinessHomePage: WideString); { Warning: The property BusinessHomePage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessHomePage := BusinessHomePage; end; function TContactItem.Get_BusinessTelephoneNumber: WideString; begin Result := DefaultInterface.BusinessTelephoneNumber; end; procedure TContactItem.Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString); { Warning: The property BusinessTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessTelephoneNumber := BusinessTelephoneNumber; end; function TContactItem.Get_CallbackTelephoneNumber: WideString; begin Result := DefaultInterface.CallbackTelephoneNumber; end; procedure TContactItem.Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString); { Warning: The property CallbackTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CallbackTelephoneNumber := CallbackTelephoneNumber; end; function TContactItem.Get_CarTelephoneNumber: WideString; begin Result := DefaultInterface.CarTelephoneNumber; end; procedure TContactItem.Set_CarTelephoneNumber(const CarTelephoneNumber: WideString); { Warning: The property CarTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CarTelephoneNumber := CarTelephoneNumber; end; function TContactItem.Get_Children: WideString; begin Result := DefaultInterface.Children; end; procedure TContactItem.Set_Children(const Children: WideString); { Warning: The property Children has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Children := Children; end; function TContactItem.Get_CompanyAndFullName: WideString; begin Result := DefaultInterface.CompanyAndFullName; end; function TContactItem.Get_CompanyLastFirstNoSpace: WideString; begin Result := DefaultInterface.CompanyLastFirstNoSpace; end; function TContactItem.Get_CompanyLastFirstSpaceOnly: WideString; begin Result := DefaultInterface.CompanyLastFirstSpaceOnly; end; function TContactItem.Get_CompanyMainTelephoneNumber: WideString; begin Result := DefaultInterface.CompanyMainTelephoneNumber; end; procedure TContactItem.Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString); { Warning: The property CompanyMainTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CompanyMainTelephoneNumber := CompanyMainTelephoneNumber; end; function TContactItem.Get_CompanyName: WideString; begin Result := DefaultInterface.CompanyName; end; procedure TContactItem.Set_CompanyName(const CompanyName: WideString); { Warning: The property CompanyName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CompanyName := CompanyName; end; function TContactItem.Get_ComputerNetworkName: WideString; begin Result := DefaultInterface.ComputerNetworkName; end; procedure TContactItem.Set_ComputerNetworkName(const ComputerNetworkName: WideString); { Warning: The property ComputerNetworkName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ComputerNetworkName := ComputerNetworkName; end; function TContactItem.Get_CustomerID: WideString; begin Result := DefaultInterface.CustomerID; end; procedure TContactItem.Set_CustomerID(const CustomerID: WideString); { Warning: The property CustomerID has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CustomerID := CustomerID; end; function TContactItem.Get_Department: WideString; begin Result := DefaultInterface.Department; end; procedure TContactItem.Set_Department(const Department: WideString); { Warning: The property Department has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Department := Department; end; function TContactItem.Get_Email1Address: WideString; begin Result := DefaultInterface.Email1Address; end; procedure TContactItem.Set_Email1Address(const Email1Address: WideString); { Warning: The property Email1Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1Address := Email1Address; end; function TContactItem.Get_Email1AddressType: WideString; begin Result := DefaultInterface.Email1AddressType; end; procedure TContactItem.Set_Email1AddressType(const Email1AddressType: WideString); { Warning: The property Email1AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1AddressType := Email1AddressType; end; function TContactItem.Get_Email1DisplayName: WideString; begin Result := DefaultInterface.Email1DisplayName; end; function TContactItem.Get_Email1EntryID: WideString; begin Result := DefaultInterface.Email1EntryID; end; function TContactItem.Get_Email2Address: WideString; begin Result := DefaultInterface.Email2Address; end; procedure TContactItem.Set_Email2Address(const Email2Address: WideString); { Warning: The property Email2Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2Address := Email2Address; end; function TContactItem.Get_Email2AddressType: WideString; begin Result := DefaultInterface.Email2AddressType; end; procedure TContactItem.Set_Email2AddressType(const Email2AddressType: WideString); { Warning: The property Email2AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2AddressType := Email2AddressType; end; function TContactItem.Get_Email2DisplayName: WideString; begin Result := DefaultInterface.Email2DisplayName; end; function TContactItem.Get_Email2EntryID: WideString; begin Result := DefaultInterface.Email2EntryID; end; function TContactItem.Get_Email3Address: WideString; begin Result := DefaultInterface.Email3Address; end; procedure TContactItem.Set_Email3Address(const Email3Address: WideString); { Warning: The property Email3Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3Address := Email3Address; end; function TContactItem.Get_Email3AddressType: WideString; begin Result := DefaultInterface.Email3AddressType; end; procedure TContactItem.Set_Email3AddressType(const Email3AddressType: WideString); { Warning: The property Email3AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3AddressType := Email3AddressType; end; function TContactItem.Get_Email3DisplayName: WideString; begin Result := DefaultInterface.Email3DisplayName; end; function TContactItem.Get_Email3EntryID: WideString; begin Result := DefaultInterface.Email3EntryID; end; function TContactItem.Get_FileAs: WideString; begin Result := DefaultInterface.FileAs; end; procedure TContactItem.Set_FileAs(const FileAs: WideString); { Warning: The property FileAs has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FileAs := FileAs; end; function TContactItem.Get_FirstName: WideString; begin Result := DefaultInterface.FirstName; end; procedure TContactItem.Set_FirstName(const FirstName: WideString); { Warning: The property FirstName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FirstName := FirstName; end; function TContactItem.Get_FTPSite: WideString; begin Result := DefaultInterface.FTPSite; end; procedure TContactItem.Set_FTPSite(const FTPSite: WideString); { Warning: The property FTPSite has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FTPSite := FTPSite; end; function TContactItem.Get_FullName: WideString; begin Result := DefaultInterface.FullName; end; procedure TContactItem.Set_FullName(const FullName: WideString); { Warning: The property FullName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FullName := FullName; end; function TContactItem.Get_FullNameAndCompany: WideString; begin Result := DefaultInterface.FullNameAndCompany; end; function TContactItem.Get_Gender: OlGender; begin Result := DefaultInterface.Gender; end; procedure TContactItem.Set_Gender(Gender: OlGender); begin DefaultInterface.Set_Gender(Gender); end; function TContactItem.Get_GovernmentIDNumber: WideString; begin Result := DefaultInterface.GovernmentIDNumber; end; procedure TContactItem.Set_GovernmentIDNumber(const GovernmentIDNumber: WideString); { Warning: The property GovernmentIDNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.GovernmentIDNumber := GovernmentIDNumber; end; function TContactItem.Get_Hobby: WideString; begin Result := DefaultInterface.Hobby; end; procedure TContactItem.Set_Hobby(const Hobby: WideString); { Warning: The property Hobby has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Hobby := Hobby; end; function TContactItem.Get_Home2TelephoneNumber: WideString; begin Result := DefaultInterface.Home2TelephoneNumber; end; procedure TContactItem.Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString); { Warning: The property Home2TelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Home2TelephoneNumber := Home2TelephoneNumber; end; function TContactItem.Get_HomeAddress: WideString; begin Result := DefaultInterface.HomeAddress; end; procedure TContactItem.Set_HomeAddress(const HomeAddress: WideString); { Warning: The property HomeAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddress := HomeAddress; end; function TContactItem.Get_HomeAddressCity: WideString; begin Result := DefaultInterface.HomeAddressCity; end; procedure TContactItem.Set_HomeAddressCity(const HomeAddressCity: WideString); { Warning: The property HomeAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressCity := HomeAddressCity; end; function TContactItem.Get_HomeAddressCountry: WideString; begin Result := DefaultInterface.HomeAddressCountry; end; procedure TContactItem.Set_HomeAddressCountry(const HomeAddressCountry: WideString); { Warning: The property HomeAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressCountry := HomeAddressCountry; end; function TContactItem.Get_HomeAddressPostalCode: WideString; begin Result := DefaultInterface.HomeAddressPostalCode; end; procedure TContactItem.Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString); { Warning: The property HomeAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressPostalCode := HomeAddressPostalCode; end; function TContactItem.Get_HomeAddressPostOfficeBox: WideString; begin Result := DefaultInterface.HomeAddressPostOfficeBox; end; procedure TContactItem.Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString); { Warning: The property HomeAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressPostOfficeBox := HomeAddressPostOfficeBox; end; function TContactItem.Get_HomeAddressState: WideString; begin Result := DefaultInterface.HomeAddressState; end; procedure TContactItem.Set_HomeAddressState(const HomeAddressState: WideString); { Warning: The property HomeAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressState := HomeAddressState; end; function TContactItem.Get_HomeAddressStreet: WideString; begin Result := DefaultInterface.HomeAddressStreet; end; procedure TContactItem.Set_HomeAddressStreet(const HomeAddressStreet: WideString); { Warning: The property HomeAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressStreet := HomeAddressStreet; end; function TContactItem.Get_HomeFaxNumber: WideString; begin Result := DefaultInterface.HomeFaxNumber; end; procedure TContactItem.Set_HomeFaxNumber(const HomeFaxNumber: WideString); { Warning: The property HomeFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeFaxNumber := HomeFaxNumber; end; function TContactItem.Get_HomeTelephoneNumber: WideString; begin Result := DefaultInterface.HomeTelephoneNumber; end; procedure TContactItem.Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString); { Warning: The property HomeTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeTelephoneNumber := HomeTelephoneNumber; end; function TContactItem.Get_Initials: WideString; begin Result := DefaultInterface.Initials; end; procedure TContactItem.Set_Initials(const Initials: WideString); { Warning: The property Initials has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Initials := Initials; end; function TContactItem.Get_InternetFreeBusyAddress: WideString; begin Result := DefaultInterface.InternetFreeBusyAddress; end; procedure TContactItem.Set_InternetFreeBusyAddress(const InternetFreeBusyAddress: WideString); { Warning: The property InternetFreeBusyAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.InternetFreeBusyAddress := InternetFreeBusyAddress; end; function TContactItem.Get_ISDNNumber: WideString; begin Result := DefaultInterface.ISDNNumber; end; procedure TContactItem.Set_ISDNNumber(const ISDNNumber: WideString); { Warning: The property ISDNNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ISDNNumber := ISDNNumber; end; function TContactItem.Get_JobTitle: WideString; begin Result := DefaultInterface.JobTitle; end; procedure TContactItem.Set_JobTitle(const JobTitle: WideString); { Warning: The property JobTitle has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.JobTitle := JobTitle; end; function TContactItem.Get_Journal: WordBool; begin Result := DefaultInterface.Journal; end; procedure TContactItem.Set_Journal(Journal: WordBool); begin DefaultInterface.Set_Journal(Journal); end; function TContactItem.Get_Language: WideString; begin Result := DefaultInterface.Language; end; procedure TContactItem.Set_Language(const Language: WideString); { Warning: The property Language has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Language := Language; end; function TContactItem.Get_LastFirstAndSuffix: WideString; begin Result := DefaultInterface.LastFirstAndSuffix; end; function TContactItem.Get_LastFirstNoSpace: WideString; begin Result := DefaultInterface.LastFirstNoSpace; end; function TContactItem.Get_LastFirstNoSpaceCompany: WideString; begin Result := DefaultInterface.LastFirstNoSpaceCompany; end; function TContactItem.Get_LastFirstSpaceOnly: WideString; begin Result := DefaultInterface.LastFirstSpaceOnly; end; function TContactItem.Get_LastFirstSpaceOnlyCompany: WideString; begin Result := DefaultInterface.LastFirstSpaceOnlyCompany; end; function TContactItem.Get_LastName: WideString; begin Result := DefaultInterface.LastName; end; procedure TContactItem.Set_LastName(const LastName: WideString); { Warning: The property LastName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.LastName := LastName; end; function TContactItem.Get_LastNameAndFirstName: WideString; begin Result := DefaultInterface.LastNameAndFirstName; end; function TContactItem.Get_MailingAddress: WideString; begin Result := DefaultInterface.MailingAddress; end; procedure TContactItem.Set_MailingAddress(const MailingAddress: WideString); { Warning: The property MailingAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddress := MailingAddress; end; function TContactItem.Get_MailingAddressCity: WideString; begin Result := DefaultInterface.MailingAddressCity; end; procedure TContactItem.Set_MailingAddressCity(const MailingAddressCity: WideString); { Warning: The property MailingAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressCity := MailingAddressCity; end; function TContactItem.Get_MailingAddressCountry: WideString; begin Result := DefaultInterface.MailingAddressCountry; end; procedure TContactItem.Set_MailingAddressCountry(const MailingAddressCountry: WideString); { Warning: The property MailingAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressCountry := MailingAddressCountry; end; function TContactItem.Get_MailingAddressPostalCode: WideString; begin Result := DefaultInterface.MailingAddressPostalCode; end; procedure TContactItem.Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString); { Warning: The property MailingAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressPostalCode := MailingAddressPostalCode; end; function TContactItem.Get_MailingAddressPostOfficeBox: WideString; begin Result := DefaultInterface.MailingAddressPostOfficeBox; end; procedure TContactItem.Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString); { Warning: The property MailingAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressPostOfficeBox := MailingAddressPostOfficeBox; end; function TContactItem.Get_MailingAddressState: WideString; begin Result := DefaultInterface.MailingAddressState; end; procedure TContactItem.Set_MailingAddressState(const MailingAddressState: WideString); { Warning: The property MailingAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressState := MailingAddressState; end; function TContactItem.Get_MailingAddressStreet: WideString; begin Result := DefaultInterface.MailingAddressStreet; end; procedure TContactItem.Set_MailingAddressStreet(const MailingAddressStreet: WideString); { Warning: The property MailingAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressStreet := MailingAddressStreet; end; function TContactItem.Get_ManagerName: WideString; begin Result := DefaultInterface.ManagerName; end; procedure TContactItem.Set_ManagerName(const ManagerName: WideString); { Warning: The property ManagerName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ManagerName := ManagerName; end; function TContactItem.Get_MiddleName: WideString; begin Result := DefaultInterface.MiddleName; end; procedure TContactItem.Set_MiddleName(const MiddleName: WideString); { Warning: The property MiddleName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MiddleName := MiddleName; end; function TContactItem.Get_MobileTelephoneNumber: WideString; begin Result := DefaultInterface.MobileTelephoneNumber; end; procedure TContactItem.Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString); { Warning: The property MobileTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MobileTelephoneNumber := MobileTelephoneNumber; end; function TContactItem.Get_NetMeetingAlias: WideString; begin Result := DefaultInterface.NetMeetingAlias; end; procedure TContactItem.Set_NetMeetingAlias(const NetMeetingAlias: WideString); { Warning: The property NetMeetingAlias has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingAlias := NetMeetingAlias; end; function TContactItem.Get_NetMeetingServer: WideString; begin Result := DefaultInterface.NetMeetingServer; end; procedure TContactItem.Set_NetMeetingServer(const NetMeetingServer: WideString); { Warning: The property NetMeetingServer has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingServer := NetMeetingServer; end; function TContactItem.Get_NickName: WideString; begin Result := DefaultInterface.NickName; end; procedure TContactItem.Set_NickName(const NickName: WideString); { Warning: The property NickName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NickName := NickName; end; function TContactItem.Get_OfficeLocation: WideString; begin Result := DefaultInterface.OfficeLocation; end; procedure TContactItem.Set_OfficeLocation(const OfficeLocation: WideString); { Warning: The property OfficeLocation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OfficeLocation := OfficeLocation; end; function TContactItem.Get_OrganizationalIDNumber: WideString; begin Result := DefaultInterface.OrganizationalIDNumber; end; procedure TContactItem.Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString); { Warning: The property OrganizationalIDNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OrganizationalIDNumber := OrganizationalIDNumber; end; function TContactItem.Get_OtherAddress: WideString; begin Result := DefaultInterface.OtherAddress; end; procedure TContactItem.Set_OtherAddress(const OtherAddress: WideString); { Warning: The property OtherAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddress := OtherAddress; end; function TContactItem.Get_OtherAddressCity: WideString; begin Result := DefaultInterface.OtherAddressCity; end; procedure TContactItem.Set_OtherAddressCity(const OtherAddressCity: WideString); { Warning: The property OtherAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressCity := OtherAddressCity; end; function TContactItem.Get_OtherAddressCountry: WideString; begin Result := DefaultInterface.OtherAddressCountry; end; procedure TContactItem.Set_OtherAddressCountry(const OtherAddressCountry: WideString); { Warning: The property OtherAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressCountry := OtherAddressCountry; end; function TContactItem.Get_OtherAddressPostalCode: WideString; begin Result := DefaultInterface.OtherAddressPostalCode; end; procedure TContactItem.Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString); { Warning: The property OtherAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressPostalCode := OtherAddressPostalCode; end; function TContactItem.Get_OtherAddressPostOfficeBox: WideString; begin Result := DefaultInterface.OtherAddressPostOfficeBox; end; procedure TContactItem.Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString); { Warning: The property OtherAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressPostOfficeBox := OtherAddressPostOfficeBox; end; function TContactItem.Get_OtherAddressState: WideString; begin Result := DefaultInterface.OtherAddressState; end; procedure TContactItem.Set_OtherAddressState(const OtherAddressState: WideString); { Warning: The property OtherAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressState := OtherAddressState; end; function TContactItem.Get_OtherAddressStreet: WideString; begin Result := DefaultInterface.OtherAddressStreet; end; procedure TContactItem.Set_OtherAddressStreet(const OtherAddressStreet: WideString); { Warning: The property OtherAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressStreet := OtherAddressStreet; end; function TContactItem.Get_OtherFaxNumber: WideString; begin Result := DefaultInterface.OtherFaxNumber; end; procedure TContactItem.Set_OtherFaxNumber(const OtherFaxNumber: WideString); { Warning: The property OtherFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherFaxNumber := OtherFaxNumber; end; function TContactItem.Get_OtherTelephoneNumber: WideString; begin Result := DefaultInterface.OtherTelephoneNumber; end; procedure TContactItem.Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString); { Warning: The property OtherTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherTelephoneNumber := OtherTelephoneNumber; end; function TContactItem.Get_PagerNumber: WideString; begin Result := DefaultInterface.PagerNumber; end; procedure TContactItem.Set_PagerNumber(const PagerNumber: WideString); { Warning: The property PagerNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PagerNumber := PagerNumber; end; function TContactItem.Get_PersonalHomePage: WideString; begin Result := DefaultInterface.PersonalHomePage; end; procedure TContactItem.Set_PersonalHomePage(const PersonalHomePage: WideString); { Warning: The property PersonalHomePage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PersonalHomePage := PersonalHomePage; end; function TContactItem.Get_PrimaryTelephoneNumber: WideString; begin Result := DefaultInterface.PrimaryTelephoneNumber; end; procedure TContactItem.Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString); { Warning: The property PrimaryTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PrimaryTelephoneNumber := PrimaryTelephoneNumber; end; function TContactItem.Get_Profession: WideString; begin Result := DefaultInterface.Profession; end; procedure TContactItem.Set_Profession(const Profession: WideString); { Warning: The property Profession has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Profession := Profession; end; function TContactItem.Get_RadioTelephoneNumber: WideString; begin Result := DefaultInterface.RadioTelephoneNumber; end; procedure TContactItem.Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString); { Warning: The property RadioTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.RadioTelephoneNumber := RadioTelephoneNumber; end; function TContactItem.Get_ReferredBy: WideString; begin Result := DefaultInterface.ReferredBy; end; procedure TContactItem.Set_ReferredBy(const ReferredBy: WideString); { Warning: The property ReferredBy has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReferredBy := ReferredBy; end; function TContactItem.Get_SelectedMailingAddress: OlMailingAddress; begin Result := DefaultInterface.SelectedMailingAddress; end; procedure TContactItem.Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress); begin DefaultInterface.Set_SelectedMailingAddress(SelectedMailingAddress); end; function TContactItem.Get_Spouse: WideString; begin Result := DefaultInterface.Spouse; end; procedure TContactItem.Set_Spouse(const Spouse: WideString); { Warning: The property Spouse has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Spouse := Spouse; end; function TContactItem.Get_Suffix: WideString; begin Result := DefaultInterface.Suffix; end; procedure TContactItem.Set_Suffix(const Suffix: WideString); { Warning: The property Suffix has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Suffix := Suffix; end; function TContactItem.Get_TelexNumber: WideString; begin Result := DefaultInterface.TelexNumber; end; procedure TContactItem.Set_TelexNumber(const TelexNumber: WideString); { Warning: The property TelexNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.TelexNumber := TelexNumber; end; function TContactItem.Get_Title: WideString; begin Result := DefaultInterface.Title; end; procedure TContactItem.Set_Title(const Title: WideString); { Warning: The property Title has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Title := Title; end; function TContactItem.Get_TTYTDDTelephoneNumber: WideString; begin Result := DefaultInterface.TTYTDDTelephoneNumber; end; procedure TContactItem.Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString); { Warning: The property TTYTDDTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.TTYTDDTelephoneNumber := TTYTDDTelephoneNumber; end; function TContactItem.Get_User1: WideString; begin Result := DefaultInterface.User1; end; procedure TContactItem.Set_User1(const User1: WideString); { Warning: The property User1 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User1 := User1; end; function TContactItem.Get_User2: WideString; begin Result := DefaultInterface.User2; end; procedure TContactItem.Set_User2(const User2: WideString); { Warning: The property User2 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User2 := User2; end; function TContactItem.Get_User3: WideString; begin Result := DefaultInterface.User3; end; procedure TContactItem.Set_User3(const User3: WideString); { Warning: The property User3 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User3 := User3; end; function TContactItem.Get_User4: WideString; begin Result := DefaultInterface.User4; end; procedure TContactItem.Set_User4(const User4: WideString); { Warning: The property User4 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User4 := User4; end; function TContactItem.Get_UserCertificate: WideString; begin Result := DefaultInterface.UserCertificate; end; procedure TContactItem.Set_UserCertificate(const UserCertificate: WideString); { Warning: The property UserCertificate has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.UserCertificate := UserCertificate; end; function TContactItem.Get_WebPage: WideString; begin Result := DefaultInterface.WebPage; end; procedure TContactItem.Set_WebPage(const WebPage: WideString); { Warning: The property WebPage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.WebPage := WebPage; end; function TContactItem.Get_YomiCompanyName: WideString; begin Result := DefaultInterface.YomiCompanyName; end; procedure TContactItem.Set_YomiCompanyName(const YomiCompanyName: WideString); { Warning: The property YomiCompanyName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiCompanyName := YomiCompanyName; end; function TContactItem.Get_YomiFirstName: WideString; begin Result := DefaultInterface.YomiFirstName; end; procedure TContactItem.Set_YomiFirstName(const YomiFirstName: WideString); { Warning: The property YomiFirstName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiFirstName := YomiFirstName; end; function TContactItem.Get_YomiLastName: WideString; begin Result := DefaultInterface.YomiLastName; end; procedure TContactItem.Set_YomiLastName(const YomiLastName: WideString); { Warning: The property YomiLastName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiLastName := YomiLastName; end; function TContactItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TContactItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TContactItem.Get_LastFirstNoSpaceAndSuffix: WideString; begin Result := DefaultInterface.LastFirstNoSpaceAndSuffix; end; function TContactItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TContactItem.Get_IMAddress: WideString; begin Result := DefaultInterface.IMAddress; end; procedure TContactItem.Set_IMAddress(const IMAddress: WideString); { Warning: The property IMAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.IMAddress := IMAddress; end; function TContactItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TContactItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; procedure TContactItem.Set_Email1DisplayName(const Email1DisplayName: WideString); { Warning: The property Email1DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1DisplayName := Email1DisplayName; end; procedure TContactItem.Set_Email2DisplayName(const Email2DisplayName: WideString); { Warning: The property Email2DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2DisplayName := Email2DisplayName; end; procedure TContactItem.Set_Email3DisplayName(const Email3DisplayName: WideString); { Warning: The property Email3DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3DisplayName := Email3DisplayName; end; function TContactItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TContactItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TContactItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TContactItem.Delete; begin DefaultInterface.Delete; end; procedure TContactItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TContactItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TContactItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TContactItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TContactItem.Save; begin DefaultInterface.Save; end; procedure TContactItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TContactItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TContactItem.ForwardAsVcard: MailItem; begin Result := DefaultInterface.ForwardAsVcard; end; procedure TContactItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TContactItemProperties.Create(AServer: TContactItem); begin inherited Create; FServer := AServer; end; function TContactItemProperties.GetDefaultInterface: _ContactItem; begin Result := FServer.DefaultInterface; end; function TContactItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TContactItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TContactItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TContactItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TContactItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TContactItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TContactItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TContactItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TContactItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TContactItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TContactItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TContactItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TContactItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TContactItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TContactItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TContactItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TContactItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TContactItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TContactItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TContactItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TContactItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TContactItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TContactItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TContactItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TContactItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TContactItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TContactItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TContactItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TContactItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TContactItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TContactItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TContactItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TContactItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TContactItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TContactItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TContactItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TContactItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TContactItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TContactItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TContactItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TContactItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TContactItemProperties.Get_Account: WideString; begin Result := DefaultInterface.Account; end; procedure TContactItemProperties.Set_Account(const Account: WideString); { Warning: The property Account has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Account := Account; end; function TContactItemProperties.Get_Anniversary: TDateTime; begin Result := DefaultInterface.Anniversary; end; procedure TContactItemProperties.Set_Anniversary(Anniversary: TDateTime); begin DefaultInterface.Set_Anniversary(Anniversary); end; function TContactItemProperties.Get_AssistantName: WideString; begin Result := DefaultInterface.AssistantName; end; procedure TContactItemProperties.Set_AssistantName(const AssistantName: WideString); { Warning: The property AssistantName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.AssistantName := AssistantName; end; function TContactItemProperties.Get_AssistantTelephoneNumber: WideString; begin Result := DefaultInterface.AssistantTelephoneNumber; end; procedure TContactItemProperties.Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString); { Warning: The property AssistantTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.AssistantTelephoneNumber := AssistantTelephoneNumber; end; function TContactItemProperties.Get_Birthday: TDateTime; begin Result := DefaultInterface.Birthday; end; procedure TContactItemProperties.Set_Birthday(Birthday: TDateTime); begin DefaultInterface.Set_Birthday(Birthday); end; function TContactItemProperties.Get_Business2TelephoneNumber: WideString; begin Result := DefaultInterface.Business2TelephoneNumber; end; procedure TContactItemProperties.Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString); { Warning: The property Business2TelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Business2TelephoneNumber := Business2TelephoneNumber; end; function TContactItemProperties.Get_BusinessAddress: WideString; begin Result := DefaultInterface.BusinessAddress; end; procedure TContactItemProperties.Set_BusinessAddress(const BusinessAddress: WideString); { Warning: The property BusinessAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddress := BusinessAddress; end; function TContactItemProperties.Get_BusinessAddressCity: WideString; begin Result := DefaultInterface.BusinessAddressCity; end; procedure TContactItemProperties.Set_BusinessAddressCity(const BusinessAddressCity: WideString); { Warning: The property BusinessAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressCity := BusinessAddressCity; end; function TContactItemProperties.Get_BusinessAddressCountry: WideString; begin Result := DefaultInterface.BusinessAddressCountry; end; procedure TContactItemProperties.Set_BusinessAddressCountry(const BusinessAddressCountry: WideString); { Warning: The property BusinessAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressCountry := BusinessAddressCountry; end; function TContactItemProperties.Get_BusinessAddressPostalCode: WideString; begin Result := DefaultInterface.BusinessAddressPostalCode; end; procedure TContactItemProperties.Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString); { Warning: The property BusinessAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressPostalCode := BusinessAddressPostalCode; end; function TContactItemProperties.Get_BusinessAddressPostOfficeBox: WideString; begin Result := DefaultInterface.BusinessAddressPostOfficeBox; end; procedure TContactItemProperties.Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString); { Warning: The property BusinessAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressPostOfficeBox := BusinessAddressPostOfficeBox; end; function TContactItemProperties.Get_BusinessAddressState: WideString; begin Result := DefaultInterface.BusinessAddressState; end; procedure TContactItemProperties.Set_BusinessAddressState(const BusinessAddressState: WideString); { Warning: The property BusinessAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressState := BusinessAddressState; end; function TContactItemProperties.Get_BusinessAddressStreet: WideString; begin Result := DefaultInterface.BusinessAddressStreet; end; procedure TContactItemProperties.Set_BusinessAddressStreet(const BusinessAddressStreet: WideString); { Warning: The property BusinessAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessAddressStreet := BusinessAddressStreet; end; function TContactItemProperties.Get_BusinessFaxNumber: WideString; begin Result := DefaultInterface.BusinessFaxNumber; end; procedure TContactItemProperties.Set_BusinessFaxNumber(const BusinessFaxNumber: WideString); { Warning: The property BusinessFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessFaxNumber := BusinessFaxNumber; end; function TContactItemProperties.Get_BusinessHomePage: WideString; begin Result := DefaultInterface.BusinessHomePage; end; procedure TContactItemProperties.Set_BusinessHomePage(const BusinessHomePage: WideString); { Warning: The property BusinessHomePage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessHomePage := BusinessHomePage; end; function TContactItemProperties.Get_BusinessTelephoneNumber: WideString; begin Result := DefaultInterface.BusinessTelephoneNumber; end; procedure TContactItemProperties.Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString); { Warning: The property BusinessTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BusinessTelephoneNumber := BusinessTelephoneNumber; end; function TContactItemProperties.Get_CallbackTelephoneNumber: WideString; begin Result := DefaultInterface.CallbackTelephoneNumber; end; procedure TContactItemProperties.Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString); { Warning: The property CallbackTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CallbackTelephoneNumber := CallbackTelephoneNumber; end; function TContactItemProperties.Get_CarTelephoneNumber: WideString; begin Result := DefaultInterface.CarTelephoneNumber; end; procedure TContactItemProperties.Set_CarTelephoneNumber(const CarTelephoneNumber: WideString); { Warning: The property CarTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CarTelephoneNumber := CarTelephoneNumber; end; function TContactItemProperties.Get_Children: WideString; begin Result := DefaultInterface.Children; end; procedure TContactItemProperties.Set_Children(const Children: WideString); { Warning: The property Children has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Children := Children; end; function TContactItemProperties.Get_CompanyAndFullName: WideString; begin Result := DefaultInterface.CompanyAndFullName; end; function TContactItemProperties.Get_CompanyLastFirstNoSpace: WideString; begin Result := DefaultInterface.CompanyLastFirstNoSpace; end; function TContactItemProperties.Get_CompanyLastFirstSpaceOnly: WideString; begin Result := DefaultInterface.CompanyLastFirstSpaceOnly; end; function TContactItemProperties.Get_CompanyMainTelephoneNumber: WideString; begin Result := DefaultInterface.CompanyMainTelephoneNumber; end; procedure TContactItemProperties.Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString); { Warning: The property CompanyMainTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CompanyMainTelephoneNumber := CompanyMainTelephoneNumber; end; function TContactItemProperties.Get_CompanyName: WideString; begin Result := DefaultInterface.CompanyName; end; procedure TContactItemProperties.Set_CompanyName(const CompanyName: WideString); { Warning: The property CompanyName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CompanyName := CompanyName; end; function TContactItemProperties.Get_ComputerNetworkName: WideString; begin Result := DefaultInterface.ComputerNetworkName; end; procedure TContactItemProperties.Set_ComputerNetworkName(const ComputerNetworkName: WideString); { Warning: The property ComputerNetworkName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ComputerNetworkName := ComputerNetworkName; end; function TContactItemProperties.Get_CustomerID: WideString; begin Result := DefaultInterface.CustomerID; end; procedure TContactItemProperties.Set_CustomerID(const CustomerID: WideString); { Warning: The property CustomerID has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CustomerID := CustomerID; end; function TContactItemProperties.Get_Department: WideString; begin Result := DefaultInterface.Department; end; procedure TContactItemProperties.Set_Department(const Department: WideString); { Warning: The property Department has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Department := Department; end; function TContactItemProperties.Get_Email1Address: WideString; begin Result := DefaultInterface.Email1Address; end; procedure TContactItemProperties.Set_Email1Address(const Email1Address: WideString); { Warning: The property Email1Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1Address := Email1Address; end; function TContactItemProperties.Get_Email1AddressType: WideString; begin Result := DefaultInterface.Email1AddressType; end; procedure TContactItemProperties.Set_Email1AddressType(const Email1AddressType: WideString); { Warning: The property Email1AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1AddressType := Email1AddressType; end; function TContactItemProperties.Get_Email1DisplayName: WideString; begin Result := DefaultInterface.Email1DisplayName; end; function TContactItemProperties.Get_Email1EntryID: WideString; begin Result := DefaultInterface.Email1EntryID; end; function TContactItemProperties.Get_Email2Address: WideString; begin Result := DefaultInterface.Email2Address; end; procedure TContactItemProperties.Set_Email2Address(const Email2Address: WideString); { Warning: The property Email2Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2Address := Email2Address; end; function TContactItemProperties.Get_Email2AddressType: WideString; begin Result := DefaultInterface.Email2AddressType; end; procedure TContactItemProperties.Set_Email2AddressType(const Email2AddressType: WideString); { Warning: The property Email2AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2AddressType := Email2AddressType; end; function TContactItemProperties.Get_Email2DisplayName: WideString; begin Result := DefaultInterface.Email2DisplayName; end; function TContactItemProperties.Get_Email2EntryID: WideString; begin Result := DefaultInterface.Email2EntryID; end; function TContactItemProperties.Get_Email3Address: WideString; begin Result := DefaultInterface.Email3Address; end; procedure TContactItemProperties.Set_Email3Address(const Email3Address: WideString); { Warning: The property Email3Address has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3Address := Email3Address; end; function TContactItemProperties.Get_Email3AddressType: WideString; begin Result := DefaultInterface.Email3AddressType; end; procedure TContactItemProperties.Set_Email3AddressType(const Email3AddressType: WideString); { Warning: The property Email3AddressType has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3AddressType := Email3AddressType; end; function TContactItemProperties.Get_Email3DisplayName: WideString; begin Result := DefaultInterface.Email3DisplayName; end; function TContactItemProperties.Get_Email3EntryID: WideString; begin Result := DefaultInterface.Email3EntryID; end; function TContactItemProperties.Get_FileAs: WideString; begin Result := DefaultInterface.FileAs; end; procedure TContactItemProperties.Set_FileAs(const FileAs: WideString); { Warning: The property FileAs has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FileAs := FileAs; end; function TContactItemProperties.Get_FirstName: WideString; begin Result := DefaultInterface.FirstName; end; procedure TContactItemProperties.Set_FirstName(const FirstName: WideString); { Warning: The property FirstName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FirstName := FirstName; end; function TContactItemProperties.Get_FTPSite: WideString; begin Result := DefaultInterface.FTPSite; end; procedure TContactItemProperties.Set_FTPSite(const FTPSite: WideString); { Warning: The property FTPSite has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FTPSite := FTPSite; end; function TContactItemProperties.Get_FullName: WideString; begin Result := DefaultInterface.FullName; end; procedure TContactItemProperties.Set_FullName(const FullName: WideString); { Warning: The property FullName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.FullName := FullName; end; function TContactItemProperties.Get_FullNameAndCompany: WideString; begin Result := DefaultInterface.FullNameAndCompany; end; function TContactItemProperties.Get_Gender: OlGender; begin Result := DefaultInterface.Gender; end; procedure TContactItemProperties.Set_Gender(Gender: OlGender); begin DefaultInterface.Set_Gender(Gender); end; function TContactItemProperties.Get_GovernmentIDNumber: WideString; begin Result := DefaultInterface.GovernmentIDNumber; end; procedure TContactItemProperties.Set_GovernmentIDNumber(const GovernmentIDNumber: WideString); { Warning: The property GovernmentIDNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.GovernmentIDNumber := GovernmentIDNumber; end; function TContactItemProperties.Get_Hobby: WideString; begin Result := DefaultInterface.Hobby; end; procedure TContactItemProperties.Set_Hobby(const Hobby: WideString); { Warning: The property Hobby has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Hobby := Hobby; end; function TContactItemProperties.Get_Home2TelephoneNumber: WideString; begin Result := DefaultInterface.Home2TelephoneNumber; end; procedure TContactItemProperties.Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString); { Warning: The property Home2TelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Home2TelephoneNumber := Home2TelephoneNumber; end; function TContactItemProperties.Get_HomeAddress: WideString; begin Result := DefaultInterface.HomeAddress; end; procedure TContactItemProperties.Set_HomeAddress(const HomeAddress: WideString); { Warning: The property HomeAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddress := HomeAddress; end; function TContactItemProperties.Get_HomeAddressCity: WideString; begin Result := DefaultInterface.HomeAddressCity; end; procedure TContactItemProperties.Set_HomeAddressCity(const HomeAddressCity: WideString); { Warning: The property HomeAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressCity := HomeAddressCity; end; function TContactItemProperties.Get_HomeAddressCountry: WideString; begin Result := DefaultInterface.HomeAddressCountry; end; procedure TContactItemProperties.Set_HomeAddressCountry(const HomeAddressCountry: WideString); { Warning: The property HomeAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressCountry := HomeAddressCountry; end; function TContactItemProperties.Get_HomeAddressPostalCode: WideString; begin Result := DefaultInterface.HomeAddressPostalCode; end; procedure TContactItemProperties.Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString); { Warning: The property HomeAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressPostalCode := HomeAddressPostalCode; end; function TContactItemProperties.Get_HomeAddressPostOfficeBox: WideString; begin Result := DefaultInterface.HomeAddressPostOfficeBox; end; procedure TContactItemProperties.Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString); { Warning: The property HomeAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressPostOfficeBox := HomeAddressPostOfficeBox; end; function TContactItemProperties.Get_HomeAddressState: WideString; begin Result := DefaultInterface.HomeAddressState; end; procedure TContactItemProperties.Set_HomeAddressState(const HomeAddressState: WideString); { Warning: The property HomeAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressState := HomeAddressState; end; function TContactItemProperties.Get_HomeAddressStreet: WideString; begin Result := DefaultInterface.HomeAddressStreet; end; procedure TContactItemProperties.Set_HomeAddressStreet(const HomeAddressStreet: WideString); { Warning: The property HomeAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeAddressStreet := HomeAddressStreet; end; function TContactItemProperties.Get_HomeFaxNumber: WideString; begin Result := DefaultInterface.HomeFaxNumber; end; procedure TContactItemProperties.Set_HomeFaxNumber(const HomeFaxNumber: WideString); { Warning: The property HomeFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeFaxNumber := HomeFaxNumber; end; function TContactItemProperties.Get_HomeTelephoneNumber: WideString; begin Result := DefaultInterface.HomeTelephoneNumber; end; procedure TContactItemProperties.Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString); { Warning: The property HomeTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HomeTelephoneNumber := HomeTelephoneNumber; end; function TContactItemProperties.Get_Initials: WideString; begin Result := DefaultInterface.Initials; end; procedure TContactItemProperties.Set_Initials(const Initials: WideString); { Warning: The property Initials has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Initials := Initials; end; function TContactItemProperties.Get_InternetFreeBusyAddress: WideString; begin Result := DefaultInterface.InternetFreeBusyAddress; end; procedure TContactItemProperties.Set_InternetFreeBusyAddress(const InternetFreeBusyAddress: WideString); { Warning: The property InternetFreeBusyAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.InternetFreeBusyAddress := InternetFreeBusyAddress; end; function TContactItemProperties.Get_ISDNNumber: WideString; begin Result := DefaultInterface.ISDNNumber; end; procedure TContactItemProperties.Set_ISDNNumber(const ISDNNumber: WideString); { Warning: The property ISDNNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ISDNNumber := ISDNNumber; end; function TContactItemProperties.Get_JobTitle: WideString; begin Result := DefaultInterface.JobTitle; end; procedure TContactItemProperties.Set_JobTitle(const JobTitle: WideString); { Warning: The property JobTitle has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.JobTitle := JobTitle; end; function TContactItemProperties.Get_Journal: WordBool; begin Result := DefaultInterface.Journal; end; procedure TContactItemProperties.Set_Journal(Journal: WordBool); begin DefaultInterface.Set_Journal(Journal); end; function TContactItemProperties.Get_Language: WideString; begin Result := DefaultInterface.Language; end; procedure TContactItemProperties.Set_Language(const Language: WideString); { Warning: The property Language has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Language := Language; end; function TContactItemProperties.Get_LastFirstAndSuffix: WideString; begin Result := DefaultInterface.LastFirstAndSuffix; end; function TContactItemProperties.Get_LastFirstNoSpace: WideString; begin Result := DefaultInterface.LastFirstNoSpace; end; function TContactItemProperties.Get_LastFirstNoSpaceCompany: WideString; begin Result := DefaultInterface.LastFirstNoSpaceCompany; end; function TContactItemProperties.Get_LastFirstSpaceOnly: WideString; begin Result := DefaultInterface.LastFirstSpaceOnly; end; function TContactItemProperties.Get_LastFirstSpaceOnlyCompany: WideString; begin Result := DefaultInterface.LastFirstSpaceOnlyCompany; end; function TContactItemProperties.Get_LastName: WideString; begin Result := DefaultInterface.LastName; end; procedure TContactItemProperties.Set_LastName(const LastName: WideString); { Warning: The property LastName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.LastName := LastName; end; function TContactItemProperties.Get_LastNameAndFirstName: WideString; begin Result := DefaultInterface.LastNameAndFirstName; end; function TContactItemProperties.Get_MailingAddress: WideString; begin Result := DefaultInterface.MailingAddress; end; procedure TContactItemProperties.Set_MailingAddress(const MailingAddress: WideString); { Warning: The property MailingAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddress := MailingAddress; end; function TContactItemProperties.Get_MailingAddressCity: WideString; begin Result := DefaultInterface.MailingAddressCity; end; procedure TContactItemProperties.Set_MailingAddressCity(const MailingAddressCity: WideString); { Warning: The property MailingAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressCity := MailingAddressCity; end; function TContactItemProperties.Get_MailingAddressCountry: WideString; begin Result := DefaultInterface.MailingAddressCountry; end; procedure TContactItemProperties.Set_MailingAddressCountry(const MailingAddressCountry: WideString); { Warning: The property MailingAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressCountry := MailingAddressCountry; end; function TContactItemProperties.Get_MailingAddressPostalCode: WideString; begin Result := DefaultInterface.MailingAddressPostalCode; end; procedure TContactItemProperties.Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString); { Warning: The property MailingAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressPostalCode := MailingAddressPostalCode; end; function TContactItemProperties.Get_MailingAddressPostOfficeBox: WideString; begin Result := DefaultInterface.MailingAddressPostOfficeBox; end; procedure TContactItemProperties.Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString); { Warning: The property MailingAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressPostOfficeBox := MailingAddressPostOfficeBox; end; function TContactItemProperties.Get_MailingAddressState: WideString; begin Result := DefaultInterface.MailingAddressState; end; procedure TContactItemProperties.Set_MailingAddressState(const MailingAddressState: WideString); { Warning: The property MailingAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressState := MailingAddressState; end; function TContactItemProperties.Get_MailingAddressStreet: WideString; begin Result := DefaultInterface.MailingAddressStreet; end; procedure TContactItemProperties.Set_MailingAddressStreet(const MailingAddressStreet: WideString); { Warning: The property MailingAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MailingAddressStreet := MailingAddressStreet; end; function TContactItemProperties.Get_ManagerName: WideString; begin Result := DefaultInterface.ManagerName; end; procedure TContactItemProperties.Set_ManagerName(const ManagerName: WideString); { Warning: The property ManagerName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ManagerName := ManagerName; end; function TContactItemProperties.Get_MiddleName: WideString; begin Result := DefaultInterface.MiddleName; end; procedure TContactItemProperties.Set_MiddleName(const MiddleName: WideString); { Warning: The property MiddleName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MiddleName := MiddleName; end; function TContactItemProperties.Get_MobileTelephoneNumber: WideString; begin Result := DefaultInterface.MobileTelephoneNumber; end; procedure TContactItemProperties.Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString); { Warning: The property MobileTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MobileTelephoneNumber := MobileTelephoneNumber; end; function TContactItemProperties.Get_NetMeetingAlias: WideString; begin Result := DefaultInterface.NetMeetingAlias; end; procedure TContactItemProperties.Set_NetMeetingAlias(const NetMeetingAlias: WideString); { Warning: The property NetMeetingAlias has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingAlias := NetMeetingAlias; end; function TContactItemProperties.Get_NetMeetingServer: WideString; begin Result := DefaultInterface.NetMeetingServer; end; procedure TContactItemProperties.Set_NetMeetingServer(const NetMeetingServer: WideString); { Warning: The property NetMeetingServer has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NetMeetingServer := NetMeetingServer; end; function TContactItemProperties.Get_NickName: WideString; begin Result := DefaultInterface.NickName; end; procedure TContactItemProperties.Set_NickName(const NickName: WideString); { Warning: The property NickName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.NickName := NickName; end; function TContactItemProperties.Get_OfficeLocation: WideString; begin Result := DefaultInterface.OfficeLocation; end; procedure TContactItemProperties.Set_OfficeLocation(const OfficeLocation: WideString); { Warning: The property OfficeLocation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OfficeLocation := OfficeLocation; end; function TContactItemProperties.Get_OrganizationalIDNumber: WideString; begin Result := DefaultInterface.OrganizationalIDNumber; end; procedure TContactItemProperties.Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString); { Warning: The property OrganizationalIDNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OrganizationalIDNumber := OrganizationalIDNumber; end; function TContactItemProperties.Get_OtherAddress: WideString; begin Result := DefaultInterface.OtherAddress; end; procedure TContactItemProperties.Set_OtherAddress(const OtherAddress: WideString); { Warning: The property OtherAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddress := OtherAddress; end; function TContactItemProperties.Get_OtherAddressCity: WideString; begin Result := DefaultInterface.OtherAddressCity; end; procedure TContactItemProperties.Set_OtherAddressCity(const OtherAddressCity: WideString); { Warning: The property OtherAddressCity has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressCity := OtherAddressCity; end; function TContactItemProperties.Get_OtherAddressCountry: WideString; begin Result := DefaultInterface.OtherAddressCountry; end; procedure TContactItemProperties.Set_OtherAddressCountry(const OtherAddressCountry: WideString); { Warning: The property OtherAddressCountry has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressCountry := OtherAddressCountry; end; function TContactItemProperties.Get_OtherAddressPostalCode: WideString; begin Result := DefaultInterface.OtherAddressPostalCode; end; procedure TContactItemProperties.Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString); { Warning: The property OtherAddressPostalCode has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressPostalCode := OtherAddressPostalCode; end; function TContactItemProperties.Get_OtherAddressPostOfficeBox: WideString; begin Result := DefaultInterface.OtherAddressPostOfficeBox; end; procedure TContactItemProperties.Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString); { Warning: The property OtherAddressPostOfficeBox has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressPostOfficeBox := OtherAddressPostOfficeBox; end; function TContactItemProperties.Get_OtherAddressState: WideString; begin Result := DefaultInterface.OtherAddressState; end; procedure TContactItemProperties.Set_OtherAddressState(const OtherAddressState: WideString); { Warning: The property OtherAddressState has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressState := OtherAddressState; end; function TContactItemProperties.Get_OtherAddressStreet: WideString; begin Result := DefaultInterface.OtherAddressStreet; end; procedure TContactItemProperties.Set_OtherAddressStreet(const OtherAddressStreet: WideString); { Warning: The property OtherAddressStreet has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherAddressStreet := OtherAddressStreet; end; function TContactItemProperties.Get_OtherFaxNumber: WideString; begin Result := DefaultInterface.OtherFaxNumber; end; procedure TContactItemProperties.Set_OtherFaxNumber(const OtherFaxNumber: WideString); { Warning: The property OtherFaxNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherFaxNumber := OtherFaxNumber; end; function TContactItemProperties.Get_OtherTelephoneNumber: WideString; begin Result := DefaultInterface.OtherTelephoneNumber; end; procedure TContactItemProperties.Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString); { Warning: The property OtherTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.OtherTelephoneNumber := OtherTelephoneNumber; end; function TContactItemProperties.Get_PagerNumber: WideString; begin Result := DefaultInterface.PagerNumber; end; procedure TContactItemProperties.Set_PagerNumber(const PagerNumber: WideString); { Warning: The property PagerNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PagerNumber := PagerNumber; end; function TContactItemProperties.Get_PersonalHomePage: WideString; begin Result := DefaultInterface.PersonalHomePage; end; procedure TContactItemProperties.Set_PersonalHomePage(const PersonalHomePage: WideString); { Warning: The property PersonalHomePage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PersonalHomePage := PersonalHomePage; end; function TContactItemProperties.Get_PrimaryTelephoneNumber: WideString; begin Result := DefaultInterface.PrimaryTelephoneNumber; end; procedure TContactItemProperties.Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString); { Warning: The property PrimaryTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.PrimaryTelephoneNumber := PrimaryTelephoneNumber; end; function TContactItemProperties.Get_Profession: WideString; begin Result := DefaultInterface.Profession; end; procedure TContactItemProperties.Set_Profession(const Profession: WideString); { Warning: The property Profession has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Profession := Profession; end; function TContactItemProperties.Get_RadioTelephoneNumber: WideString; begin Result := DefaultInterface.RadioTelephoneNumber; end; procedure TContactItemProperties.Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString); { Warning: The property RadioTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.RadioTelephoneNumber := RadioTelephoneNumber; end; function TContactItemProperties.Get_ReferredBy: WideString; begin Result := DefaultInterface.ReferredBy; end; procedure TContactItemProperties.Set_ReferredBy(const ReferredBy: WideString); { Warning: The property ReferredBy has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ReferredBy := ReferredBy; end; function TContactItemProperties.Get_SelectedMailingAddress: OlMailingAddress; begin Result := DefaultInterface.SelectedMailingAddress; end; procedure TContactItemProperties.Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress); begin DefaultInterface.Set_SelectedMailingAddress(SelectedMailingAddress); end; function TContactItemProperties.Get_Spouse: WideString; begin Result := DefaultInterface.Spouse; end; procedure TContactItemProperties.Set_Spouse(const Spouse: WideString); { Warning: The property Spouse has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Spouse := Spouse; end; function TContactItemProperties.Get_Suffix: WideString; begin Result := DefaultInterface.Suffix; end; procedure TContactItemProperties.Set_Suffix(const Suffix: WideString); { Warning: The property Suffix has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Suffix := Suffix; end; function TContactItemProperties.Get_TelexNumber: WideString; begin Result := DefaultInterface.TelexNumber; end; procedure TContactItemProperties.Set_TelexNumber(const TelexNumber: WideString); { Warning: The property TelexNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.TelexNumber := TelexNumber; end; function TContactItemProperties.Get_Title: WideString; begin Result := DefaultInterface.Title; end; procedure TContactItemProperties.Set_Title(const Title: WideString); { Warning: The property Title has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Title := Title; end; function TContactItemProperties.Get_TTYTDDTelephoneNumber: WideString; begin Result := DefaultInterface.TTYTDDTelephoneNumber; end; procedure TContactItemProperties.Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString); { Warning: The property TTYTDDTelephoneNumber has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.TTYTDDTelephoneNumber := TTYTDDTelephoneNumber; end; function TContactItemProperties.Get_User1: WideString; begin Result := DefaultInterface.User1; end; procedure TContactItemProperties.Set_User1(const User1: WideString); { Warning: The property User1 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User1 := User1; end; function TContactItemProperties.Get_User2: WideString; begin Result := DefaultInterface.User2; end; procedure TContactItemProperties.Set_User2(const User2: WideString); { Warning: The property User2 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User2 := User2; end; function TContactItemProperties.Get_User3: WideString; begin Result := DefaultInterface.User3; end; procedure TContactItemProperties.Set_User3(const User3: WideString); { Warning: The property User3 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User3 := User3; end; function TContactItemProperties.Get_User4: WideString; begin Result := DefaultInterface.User4; end; procedure TContactItemProperties.Set_User4(const User4: WideString); { Warning: The property User4 has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.User4 := User4; end; function TContactItemProperties.Get_UserCertificate: WideString; begin Result := DefaultInterface.UserCertificate; end; procedure TContactItemProperties.Set_UserCertificate(const UserCertificate: WideString); { Warning: The property UserCertificate has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.UserCertificate := UserCertificate; end; function TContactItemProperties.Get_WebPage: WideString; begin Result := DefaultInterface.WebPage; end; procedure TContactItemProperties.Set_WebPage(const WebPage: WideString); { Warning: The property WebPage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.WebPage := WebPage; end; function TContactItemProperties.Get_YomiCompanyName: WideString; begin Result := DefaultInterface.YomiCompanyName; end; procedure TContactItemProperties.Set_YomiCompanyName(const YomiCompanyName: WideString); { Warning: The property YomiCompanyName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiCompanyName := YomiCompanyName; end; function TContactItemProperties.Get_YomiFirstName: WideString; begin Result := DefaultInterface.YomiFirstName; end; procedure TContactItemProperties.Set_YomiFirstName(const YomiFirstName: WideString); { Warning: The property YomiFirstName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiFirstName := YomiFirstName; end; function TContactItemProperties.Get_YomiLastName: WideString; begin Result := DefaultInterface.YomiLastName; end; procedure TContactItemProperties.Set_YomiLastName(const YomiLastName: WideString); { Warning: The property YomiLastName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.YomiLastName := YomiLastName; end; function TContactItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TContactItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TContactItemProperties.Get_LastFirstNoSpaceAndSuffix: WideString; begin Result := DefaultInterface.LastFirstNoSpaceAndSuffix; end; function TContactItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TContactItemProperties.Get_IMAddress: WideString; begin Result := DefaultInterface.IMAddress; end; procedure TContactItemProperties.Set_IMAddress(const IMAddress: WideString); { Warning: The property IMAddress has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.IMAddress := IMAddress; end; function TContactItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TContactItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; procedure TContactItemProperties.Set_Email1DisplayName(const Email1DisplayName: WideString); { Warning: The property Email1DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email1DisplayName := Email1DisplayName; end; procedure TContactItemProperties.Set_Email2DisplayName(const Email2DisplayName: WideString); { Warning: The property Email2DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email2DisplayName := Email2DisplayName; end; procedure TContactItemProperties.Set_Email3DisplayName(const Email3DisplayName: WideString); { Warning: The property Email3DisplayName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Email3DisplayName := Email3DisplayName; end; function TContactItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoDistListItem.Create: _DistListItem; begin Result := CreateComObject(CLASS_DistListItem) as _DistListItem; end; class function CoDistListItem.CreateRemote(const MachineName: string): _DistListItem; begin Result := CreateRemoteComObject(MachineName, CLASS_DistListItem) as _DistListItem; end; procedure TDistListItem.InitServerData; const CServerData: TServerData = ( ClassID: '{0006103C-0000-0000-C000-000000000046}'; IntfIID: '{00063081-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDistListItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _DistListItem; end; end; procedure TDistListItem.ConnectTo(svrIntf: _DistListItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDistListItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDistListItem.GetDefaultInterface: _DistListItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDistListItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDistListItemProperties.Create(Self); {$ENDIF} end; destructor TDistListItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDistListItem.GetServerProperties: TDistListItemProperties; begin Result := FProps; end; {$ENDIF} procedure TDistListItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TDistListItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TDistListItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TDistListItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TDistListItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TDistListItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TDistListItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TDistListItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TDistListItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TDistListItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TDistListItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TDistListItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TDistListItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TDistListItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TDistListItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TDistListItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TDistListItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TDistListItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TDistListItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TDistListItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TDistListItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TDistListItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TDistListItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TDistListItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TDistListItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TDistListItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TDistListItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TDistListItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TDistListItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TDistListItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TDistListItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TDistListItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TDistListItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TDistListItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TDistListItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TDistListItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TDistListItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TDistListItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TDistListItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TDistListItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TDistListItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TDistListItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TDistListItem.Get_DLName: WideString; begin Result := DefaultInterface.DLName; end; procedure TDistListItem.Set_DLName(const DLName: WideString); { Warning: The property DLName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.DLName := DLName; end; function TDistListItem.Get_MemberCount: Integer; begin Result := DefaultInterface.MemberCount; end; function TDistListItem.Get_CheckSum: Integer; begin Result := DefaultInterface.CheckSum; end; function TDistListItem.Get_Members: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.Members; end; procedure TDistListItem.Set_Members(Members: OleVariant); begin DefaultInterface.Set_Members(Members); end; function TDistListItem.Get_OneOffMembers: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.OneOffMembers; end; procedure TDistListItem.Set_OneOffMembers(OneOffMembers: OleVariant); begin DefaultInterface.Set_OneOffMembers(OneOffMembers); end; function TDistListItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TDistListItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TDistListItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TDistListItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TDistListItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TDistListItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TDistListItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TDistListItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TDistListItem.Delete; begin DefaultInterface.Delete; end; procedure TDistListItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TDistListItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TDistListItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TDistListItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TDistListItem.Save; begin DefaultInterface.Save; end; procedure TDistListItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TDistListItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TDistListItem.AddMembers(const Recipients: Recipients); begin DefaultInterface.AddMembers(Recipients); end; procedure TDistListItem.RemoveMembers(const Recipients: Recipients); begin DefaultInterface.RemoveMembers(Recipients); end; function TDistListItem.GetMember(Index: Integer): Recipient; begin Result := DefaultInterface.GetMember(Index); end; procedure TDistListItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; procedure TDistListItem.AddMember(const Recipient: Recipient); begin DefaultInterface.AddMember(Recipient); end; procedure TDistListItem.RemoveMember(const Recipient: Recipient); begin DefaultInterface.RemoveMember(Recipient); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDistListItemProperties.Create(AServer: TDistListItem); begin inherited Create; FServer := AServer; end; function TDistListItemProperties.GetDefaultInterface: _DistListItem; begin Result := FServer.DefaultInterface; end; function TDistListItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TDistListItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TDistListItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TDistListItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TDistListItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TDistListItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TDistListItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TDistListItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TDistListItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TDistListItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TDistListItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TDistListItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TDistListItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TDistListItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TDistListItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TDistListItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TDistListItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TDistListItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TDistListItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TDistListItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TDistListItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TDistListItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TDistListItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TDistListItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TDistListItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TDistListItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TDistListItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TDistListItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TDistListItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TDistListItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TDistListItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TDistListItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TDistListItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TDistListItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TDistListItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TDistListItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TDistListItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TDistListItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TDistListItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TDistListItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TDistListItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TDistListItemProperties.Get_DLName: WideString; begin Result := DefaultInterface.DLName; end; procedure TDistListItemProperties.Set_DLName(const DLName: WideString); { Warning: The property DLName has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.DLName := DLName; end; function TDistListItemProperties.Get_MemberCount: Integer; begin Result := DefaultInterface.MemberCount; end; function TDistListItemProperties.Get_CheckSum: Integer; begin Result := DefaultInterface.CheckSum; end; function TDistListItemProperties.Get_Members: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.Members; end; procedure TDistListItemProperties.Set_Members(Members: OleVariant); begin DefaultInterface.Set_Members(Members); end; function TDistListItemProperties.Get_OneOffMembers: OleVariant; var InterfaceVariant : OleVariant; begin InterfaceVariant := DefaultInterface; Result := InterfaceVariant.OneOffMembers; end; procedure TDistListItemProperties.Set_OneOffMembers(OneOffMembers: OleVariant); begin DefaultInterface.Set_OneOffMembers(OneOffMembers); end; function TDistListItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TDistListItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TDistListItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TDistListItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TDistListItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TDistListItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoDocumentItem.Create: _DocumentItem; begin Result := CreateComObject(CLASS_DocumentItem) as _DocumentItem; end; class function CoDocumentItem.CreateRemote(const MachineName: string): _DocumentItem; begin Result := CreateRemoteComObject(MachineName, CLASS_DocumentItem) as _DocumentItem; end; procedure TDocumentItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061061-0000-0000-C000-000000000046}'; IntfIID: '{00063020-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDocumentItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _DocumentItem; end; end; procedure TDocumentItem.ConnectTo(svrIntf: _DocumentItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDocumentItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDocumentItem.GetDefaultInterface: _DocumentItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TDocumentItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDocumentItemProperties.Create(Self); {$ENDIF} end; destructor TDocumentItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDocumentItem.GetServerProperties: TDocumentItemProperties; begin Result := FProps; end; {$ENDIF} procedure TDocumentItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TDocumentItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TDocumentItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TDocumentItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TDocumentItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TDocumentItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TDocumentItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TDocumentItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TDocumentItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TDocumentItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TDocumentItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TDocumentItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TDocumentItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TDocumentItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TDocumentItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TDocumentItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TDocumentItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TDocumentItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TDocumentItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TDocumentItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TDocumentItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TDocumentItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TDocumentItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TDocumentItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TDocumentItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TDocumentItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TDocumentItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TDocumentItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TDocumentItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TDocumentItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TDocumentItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TDocumentItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TDocumentItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TDocumentItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TDocumentItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TDocumentItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TDocumentItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TDocumentItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TDocumentItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TDocumentItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TDocumentItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TDocumentItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TDocumentItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TDocumentItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TDocumentItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TDocumentItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TDocumentItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TDocumentItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TDocumentItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TDocumentItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TDocumentItem.Delete; begin DefaultInterface.Delete; end; procedure TDocumentItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TDocumentItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TDocumentItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TDocumentItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TDocumentItem.Save; begin DefaultInterface.Save; end; procedure TDocumentItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TDocumentItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TDocumentItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDocumentItemProperties.Create(AServer: TDocumentItem); begin inherited Create; FServer := AServer; end; function TDocumentItemProperties.GetDefaultInterface: _DocumentItem; begin Result := FServer.DefaultInterface; end; function TDocumentItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TDocumentItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TDocumentItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TDocumentItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TDocumentItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TDocumentItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TDocumentItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TDocumentItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TDocumentItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TDocumentItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TDocumentItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TDocumentItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TDocumentItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TDocumentItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TDocumentItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TDocumentItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TDocumentItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TDocumentItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TDocumentItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TDocumentItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TDocumentItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TDocumentItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TDocumentItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TDocumentItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TDocumentItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TDocumentItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TDocumentItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TDocumentItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TDocumentItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TDocumentItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TDocumentItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TDocumentItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TDocumentItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TDocumentItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TDocumentItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TDocumentItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TDocumentItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TDocumentItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TDocumentItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TDocumentItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TDocumentItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TDocumentItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TDocumentItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TDocumentItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TDocumentItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TDocumentItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TDocumentItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoExplorers.Create: _Explorers; begin Result := CreateComObject(CLASS_Explorers) as _Explorers; end; class function CoExplorers.CreateRemote(const MachineName: string): _Explorers; begin Result := CreateRemoteComObject(MachineName, CLASS_Explorers) as _Explorers; end; procedure TExplorers.InitServerData; const CServerData: TServerData = ( ClassID: '{00063053-0000-0000-C000-000000000046}'; IntfIID: '{0006300A-0000-0000-C000-000000000046}'; EventIID: '{00063078-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TExplorers.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Explorers; end; end; procedure TExplorers.ConnectTo(svrIntf: _Explorers); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TExplorers.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TExplorers.GetDefaultInterface: _Explorers; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TExplorers.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TExplorersProperties.Create(Self); {$ENDIF} end; destructor TExplorers.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TExplorers.GetServerProperties: TExplorersProperties; begin Result := FProps; end; {$ENDIF} procedure TExplorers.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnNewExplorer) then FOnNewExplorer(Self, IUnknown(TVarData(Params[0]).VPointer) as _Explorer {const _Explorer}); end; {case DispID} end; function TExplorers.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TExplorers.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TExplorers.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TExplorers.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TExplorers.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TExplorers.Item(Index: OleVariant): Explorer; begin Result := DefaultInterface.Item(Index); end; function TExplorers.Add(Folder: OleVariant; DisplayMode: OlFolderDisplayMode): _Explorer; begin Result := DefaultInterface.Add(Folder, DisplayMode); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TExplorersProperties.Create(AServer: TExplorers); begin inherited Create; FServer := AServer; end; function TExplorersProperties.GetDefaultInterface: _Explorers; begin Result := FServer.DefaultInterface; end; function TExplorersProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TExplorersProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TExplorersProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TExplorersProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TExplorersProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} class function CoInspectors.Create: _Inspectors; begin Result := CreateComObject(CLASS_Inspectors) as _Inspectors; end; class function CoInspectors.CreateRemote(const MachineName: string): _Inspectors; begin Result := CreateRemoteComObject(MachineName, CLASS_Inspectors) as _Inspectors; end; procedure TInspectors.InitServerData; const CServerData: TServerData = ( ClassID: '{00063054-0000-0000-C000-000000000046}'; IntfIID: '{00063008-0000-0000-C000-000000000046}'; EventIID: '{00063079-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TInspectors.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Inspectors; end; end; procedure TInspectors.ConnectTo(svrIntf: _Inspectors); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TInspectors.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TInspectors.GetDefaultInterface: _Inspectors; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TInspectors.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TInspectorsProperties.Create(Self); {$ENDIF} end; destructor TInspectors.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TInspectors.GetServerProperties: TInspectorsProperties; begin Result := FProps; end; {$ENDIF} procedure TInspectors.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnNewInspector) then FOnNewInspector(Self, IUnknown(TVarData(Params[0]).VPointer) as _Inspector {const _Inspector}); end; {case DispID} end; function TInspectors.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TInspectors.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TInspectors.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TInspectors.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TInspectors.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TInspectors.Item(Index: OleVariant): Inspector; begin Result := DefaultInterface.Item(Index); end; function TInspectors.Add(const Item: IDispatch): _Inspector; begin Result := DefaultInterface.Add(Item); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TInspectorsProperties.Create(AServer: TInspectors); begin inherited Create; FServer := AServer; end; function TInspectorsProperties.GetDefaultInterface: _Inspectors; begin Result := FServer.DefaultInterface; end; function TInspectorsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TInspectorsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TInspectorsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TInspectorsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TInspectorsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} class function CoFolders.Create: _Folders; begin Result := CreateComObject(CLASS_Folders) as _Folders; end; class function CoFolders.CreateRemote(const MachineName: string): _Folders; begin Result := CreateRemoteComObject(MachineName, CLASS_Folders) as _Folders; end; procedure TFolders.InitServerData; const CServerData: TServerData = ( ClassID: '{00063051-0000-0000-C000-000000000046}'; IntfIID: '{00063040-0000-0000-C000-000000000046}'; EventIID: '{00063076-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TFolders.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Folders; end; end; procedure TFolders.ConnectTo(svrIntf: _Folders); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TFolders.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TFolders.GetDefaultInterface: _Folders; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TFolders.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TFoldersProperties.Create(Self); {$ENDIF} end; destructor TFolders.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TFolders.GetServerProperties: TFoldersProperties; begin Result := FProps; end; {$ENDIF} procedure TFolders.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnFolderAdd) then FOnFolderAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as MAPIFolder {const MAPIFolder}); 61442: if Assigned(FOnFolderChange) then FOnFolderChange(Self, IUnknown(TVarData(Params[0]).VPointer) as MAPIFolder {const MAPIFolder}); 61443: if Assigned(FOnFolderRemove) then FOnFolderRemove(Self); end; {case DispID} end; function TFolders.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TFolders.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TFolders.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TFolders.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TFolders.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TFolders.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; function TFolders.Item(Index: OleVariant): MAPIFolder; begin Result := DefaultInterface.Item(Index); end; function TFolders.Add(const Name: WideString): MAPIFolder; begin Result := DefaultInterface.Add(Name, EmptyParam); end; function TFolders.Add(const Name: WideString; Type_: OleVariant): MAPIFolder; begin Result := DefaultInterface.Add(Name, Type_); end; function TFolders.GetFirst: MAPIFolder; begin Result := DefaultInterface.GetFirst; end; function TFolders.GetLast: MAPIFolder; begin Result := DefaultInterface.GetLast; end; function TFolders.GetNext: MAPIFolder; begin Result := DefaultInterface.GetNext; end; function TFolders.GetPrevious: MAPIFolder; begin Result := DefaultInterface.GetPrevious; end; procedure TFolders.Remove(Index: Integer); begin DefaultInterface.Remove(Index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TFoldersProperties.Create(AServer: TFolders); begin inherited Create; FServer := AServer; end; function TFoldersProperties.GetDefaultInterface: _Folders; begin Result := FServer.DefaultInterface; end; function TFoldersProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TFoldersProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TFoldersProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TFoldersProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TFoldersProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TFoldersProperties.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; {$ENDIF} class function CoItems.Create: _Items; begin Result := CreateComObject(CLASS_Items) as _Items; end; class function CoItems.CreateRemote(const MachineName: string): _Items; begin Result := CreateRemoteComObject(MachineName, CLASS_Items) as _Items; end; procedure TItems.InitServerData; const CServerData: TServerData = ( ClassID: '{00063052-0000-0000-C000-000000000046}'; IntfIID: '{00063041-0000-0000-C000-000000000046}'; EventIID: '{00063077-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TItems.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Items; end; end; procedure TItems.ConnectTo(svrIntf: _Items); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TItems.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TItems.GetDefaultInterface: _Items; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TItems.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TItemsProperties.Create(Self); {$ENDIF} end; destructor TItems.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TItems.GetServerProperties: TItemsProperties; begin Result := FProps; end; {$ENDIF} procedure TItems.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnItemAdd) then FOnItemAdd(Self, Params[0] {const IDispatch}); 61442: if Assigned(FOnItemChange) then FOnItemChange(Self, Params[0] {const IDispatch}); 61443: if Assigned(FOnItemRemove) then FOnItemRemove(Self); end; {case DispID} end; function TItems.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TItems.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TItems.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TItems.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TItems.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TItems.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; function TItems.Get_IncludeRecurrences: WordBool; begin Result := DefaultInterface.IncludeRecurrences; end; procedure TItems.Set_IncludeRecurrences(IncludeRecurrences: WordBool); begin DefaultInterface.Set_IncludeRecurrences(IncludeRecurrences); end; function TItems.Item(Index: OleVariant): IDispatch; begin Result := DefaultInterface.Item(Index); end; function TItems.Add: IDispatch; begin Result := DefaultInterface.Add(EmptyParam); end; function TItems.Add(Type_: OleVariant): IDispatch; begin Result := DefaultInterface.Add(Type_); end; function TItems.Find(const Filter: WideString): IDispatch; begin Result := DefaultInterface.Find(Filter); end; function TItems.FindNext: IDispatch; begin Result := DefaultInterface.FindNext; end; function TItems.GetFirst: IDispatch; begin Result := DefaultInterface.GetFirst; end; function TItems.GetLast: IDispatch; begin Result := DefaultInterface.GetLast; end; function TItems.GetNext: IDispatch; begin Result := DefaultInterface.GetNext; end; function TItems.GetPrevious: IDispatch; begin Result := DefaultInterface.GetPrevious; end; procedure TItems.Remove(Index: Integer); begin DefaultInterface.Remove(Index); end; procedure TItems.ResetColumns; begin DefaultInterface.ResetColumns; end; function TItems.Restrict(const Filter: WideString): _Items; begin Result := DefaultInterface.Restrict(Filter); end; procedure TItems.SetColumns(const Columns: WideString); begin DefaultInterface.SetColumns(Columns); end; procedure TItems.Sort(const Property_: WideString); begin DefaultInterface.Sort(Property_, EmptyParam); end; procedure TItems.Sort(const Property_: WideString; Descending: OleVariant); begin DefaultInterface.Sort(Property_, Descending); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TItemsProperties.Create(AServer: TItems); begin inherited Create; FServer := AServer; end; function TItemsProperties.GetDefaultInterface: _Items; begin Result := FServer.DefaultInterface; end; function TItemsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TItemsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TItemsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TItemsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TItemsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TItemsProperties.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; function TItemsProperties.Get_IncludeRecurrences: WordBool; begin Result := DefaultInterface.IncludeRecurrences; end; procedure TItemsProperties.Set_IncludeRecurrences(IncludeRecurrences: WordBool); begin DefaultInterface.Set_IncludeRecurrences(IncludeRecurrences); end; {$ENDIF} class function CoJournalItem.Create: _JournalItem; begin Result := CreateComObject(CLASS_JournalItem) as _JournalItem; end; class function CoJournalItem.CreateRemote(const MachineName: string): _JournalItem; begin Result := CreateRemoteComObject(MachineName, CLASS_JournalItem) as _JournalItem; end; procedure TJournalItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061037-0000-0000-C000-000000000046}'; IntfIID: '{00063022-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TJournalItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _JournalItem; end; end; procedure TJournalItem.ConnectTo(svrIntf: _JournalItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TJournalItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TJournalItem.GetDefaultInterface: _JournalItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TJournalItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TJournalItemProperties.Create(Self); {$ENDIF} end; destructor TJournalItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TJournalItem.GetServerProperties: TJournalItemProperties; begin Result := FProps; end; {$ENDIF} procedure TJournalItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TJournalItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TJournalItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TJournalItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TJournalItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TJournalItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TJournalItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TJournalItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TJournalItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TJournalItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TJournalItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TJournalItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TJournalItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TJournalItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TJournalItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TJournalItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TJournalItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TJournalItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TJournalItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TJournalItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TJournalItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TJournalItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TJournalItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TJournalItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TJournalItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TJournalItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TJournalItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TJournalItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TJournalItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TJournalItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TJournalItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TJournalItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TJournalItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TJournalItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TJournalItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TJournalItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TJournalItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TJournalItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TJournalItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TJournalItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TJournalItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TJournalItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TJournalItem.Get_ContactNames: WideString; begin Result := DefaultInterface.ContactNames; end; procedure TJournalItem.Set_ContactNames(const ContactNames: WideString); { Warning: The property ContactNames has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ContactNames := ContactNames; end; function TJournalItem.Get_DocPosted: WordBool; begin Result := DefaultInterface.DocPosted; end; procedure TJournalItem.Set_DocPosted(DocPosted: WordBool); begin DefaultInterface.Set_DocPosted(DocPosted); end; function TJournalItem.Get_DocPrinted: WordBool; begin Result := DefaultInterface.DocPrinted; end; procedure TJournalItem.Set_DocPrinted(DocPrinted: WordBool); begin DefaultInterface.Set_DocPrinted(DocPrinted); end; function TJournalItem.Get_DocRouted: WordBool; begin Result := DefaultInterface.DocRouted; end; procedure TJournalItem.Set_DocRouted(DocRouted: WordBool); begin DefaultInterface.Set_DocRouted(DocRouted); end; function TJournalItem.Get_DocSaved: WordBool; begin Result := DefaultInterface.DocSaved; end; procedure TJournalItem.Set_DocSaved(DocSaved: WordBool); begin DefaultInterface.Set_DocSaved(DocSaved); end; function TJournalItem.Get_Duration: Integer; begin Result := DefaultInterface.Duration; end; procedure TJournalItem.Set_Duration(Duration: Integer); begin DefaultInterface.Set_Duration(Duration); end; function TJournalItem.Get_End_: TDateTime; begin Result := DefaultInterface.End_; end; procedure TJournalItem.Set_End_(End_: TDateTime); begin DefaultInterface.Set_End_(End_); end; function TJournalItem.Get_type_: WideString; begin Result := DefaultInterface.type_; end; procedure TJournalItem.Set_type_(const Type_: WideString); { Warning: The property type_ has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.type_ := Type_; end; function TJournalItem.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TJournalItem.Get_Start: TDateTime; begin Result := DefaultInterface.Start; end; procedure TJournalItem.Set_Start(Start: TDateTime); begin DefaultInterface.Set_Start(Start); end; function TJournalItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TJournalItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TJournalItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TJournalItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TJournalItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TJournalItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TJournalItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TJournalItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TJournalItem.Delete; begin DefaultInterface.Delete; end; procedure TJournalItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TJournalItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TJournalItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TJournalItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TJournalItem.Save; begin DefaultInterface.Save; end; procedure TJournalItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TJournalItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TJournalItem.Forward: MailItem; begin Result := DefaultInterface.Forward; end; function TJournalItem.Reply: MailItem; begin Result := DefaultInterface.Reply; end; function TJournalItem.ReplyAll: MailItem; begin Result := DefaultInterface.ReplyAll; end; procedure TJournalItem.StartTimer; begin DefaultInterface.StartTimer; end; procedure TJournalItem.StopTimer; begin DefaultInterface.StopTimer; end; procedure TJournalItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TJournalItemProperties.Create(AServer: TJournalItem); begin inherited Create; FServer := AServer; end; function TJournalItemProperties.GetDefaultInterface: _JournalItem; begin Result := FServer.DefaultInterface; end; function TJournalItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TJournalItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TJournalItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TJournalItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TJournalItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TJournalItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TJournalItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TJournalItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TJournalItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TJournalItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TJournalItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TJournalItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TJournalItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TJournalItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TJournalItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TJournalItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TJournalItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TJournalItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TJournalItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TJournalItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TJournalItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TJournalItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TJournalItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TJournalItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TJournalItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TJournalItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TJournalItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TJournalItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TJournalItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TJournalItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TJournalItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TJournalItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TJournalItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TJournalItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TJournalItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TJournalItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TJournalItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TJournalItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TJournalItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TJournalItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TJournalItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TJournalItemProperties.Get_ContactNames: WideString; begin Result := DefaultInterface.ContactNames; end; procedure TJournalItemProperties.Set_ContactNames(const ContactNames: WideString); { Warning: The property ContactNames has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.ContactNames := ContactNames; end; function TJournalItemProperties.Get_DocPosted: WordBool; begin Result := DefaultInterface.DocPosted; end; procedure TJournalItemProperties.Set_DocPosted(DocPosted: WordBool); begin DefaultInterface.Set_DocPosted(DocPosted); end; function TJournalItemProperties.Get_DocPrinted: WordBool; begin Result := DefaultInterface.DocPrinted; end; procedure TJournalItemProperties.Set_DocPrinted(DocPrinted: WordBool); begin DefaultInterface.Set_DocPrinted(DocPrinted); end; function TJournalItemProperties.Get_DocRouted: WordBool; begin Result := DefaultInterface.DocRouted; end; procedure TJournalItemProperties.Set_DocRouted(DocRouted: WordBool); begin DefaultInterface.Set_DocRouted(DocRouted); end; function TJournalItemProperties.Get_DocSaved: WordBool; begin Result := DefaultInterface.DocSaved; end; procedure TJournalItemProperties.Set_DocSaved(DocSaved: WordBool); begin DefaultInterface.Set_DocSaved(DocSaved); end; function TJournalItemProperties.Get_Duration: Integer; begin Result := DefaultInterface.Duration; end; procedure TJournalItemProperties.Set_Duration(Duration: Integer); begin DefaultInterface.Set_Duration(Duration); end; function TJournalItemProperties.Get_End_: TDateTime; begin Result := DefaultInterface.End_; end; procedure TJournalItemProperties.Set_End_(End_: TDateTime); begin DefaultInterface.Set_End_(End_); end; function TJournalItemProperties.Get_type_: WideString; begin Result := DefaultInterface.type_; end; procedure TJournalItemProperties.Set_type_(const Type_: WideString); { Warning: The property type_ has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.type_ := Type_; end; function TJournalItemProperties.Get_Recipients: Recipients; begin Result := DefaultInterface.Recipients; end; function TJournalItemProperties.Get_Start: TDateTime; begin Result := DefaultInterface.Start; end; procedure TJournalItemProperties.Set_Start(Start: TDateTime); begin DefaultInterface.Set_Start(Start); end; function TJournalItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TJournalItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TJournalItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TJournalItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TJournalItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TJournalItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoNameSpace.Create: _NameSpace; begin Result := CreateComObject(CLASS_NameSpace) as _NameSpace; end; class function CoNameSpace.CreateRemote(const MachineName: string): _NameSpace; begin Result := CreateRemoteComObject(MachineName, CLASS_NameSpace) as _NameSpace; end; procedure TNameSpace.InitServerData; const CServerData: TServerData = ( ClassID: '{0006308B-0000-0000-C000-000000000046}'; IntfIID: '{00063002-0000-0000-C000-000000000046}'; EventIID: '{0006308C-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNameSpace.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _NameSpace; end; end; procedure TNameSpace.ConnectTo(svrIntf: _NameSpace); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TNameSpace.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TNameSpace.GetDefaultInterface: _NameSpace; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNameSpace.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNameSpaceProperties.Create(Self); {$ENDIF} end; destructor TNameSpace.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNameSpace.GetServerProperties: TNameSpaceProperties; begin Result := FProps; end; {$ENDIF} procedure TNameSpace.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61445: if Assigned(FOnOptionsPagesAdd) then FOnOptionsPagesAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as PropertyPages {const PropertyPages}, IUnknown(TVarData(Params[1]).VPointer) as MAPIFolder {const MAPIFolder}); end; {case DispID} end; function TNameSpace.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TNameSpace.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TNameSpace.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TNameSpace.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TNameSpace.Get_CurrentUser: Recipient; begin Result := DefaultInterface.CurrentUser; end; function TNameSpace.Get_Folders: _Folders; begin Result := DefaultInterface.Folders; end; function TNameSpace.Get_type_: WideString; begin Result := DefaultInterface.type_; end; function TNameSpace.Get_AddressLists: AddressLists; begin Result := DefaultInterface.AddressLists; end; function TNameSpace.Get_SyncObjects: SyncObjects; begin Result := DefaultInterface.SyncObjects; end; function TNameSpace.Get_Offline: WordBool; begin Result := DefaultInterface.Offline; end; function TNameSpace.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TNameSpace.CreateRecipient(const RecipientName: WideString): Recipient; begin Result := DefaultInterface.CreateRecipient(RecipientName); end; function TNameSpace.GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; begin Result := DefaultInterface.GetDefaultFolder(FolderType); end; function TNameSpace.GetFolderFromID(const EntryIDFolder: WideString): MAPIFolder; begin Result := DefaultInterface.GetFolderFromID(EntryIDFolder, EmptyParam); end; function TNameSpace.GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; begin Result := DefaultInterface.GetFolderFromID(EntryIDFolder, EntryIDStore); end; function TNameSpace.GetItemFromID(const EntryIDItem: WideString): IDispatch; begin Result := DefaultInterface.GetItemFromID(EntryIDItem, EmptyParam); end; function TNameSpace.GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; begin Result := DefaultInterface.GetItemFromID(EntryIDItem, EntryIDStore); end; function TNameSpace.GetRecipientFromID(const EntryID: WideString): Recipient; begin Result := DefaultInterface.GetRecipientFromID(EntryID); end; function TNameSpace.GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; begin Result := DefaultInterface.GetSharedDefaultFolder(Recipient, FolderType); end; procedure TNameSpace.Logoff; begin DefaultInterface.Logoff; end; procedure TNameSpace.Logon; begin DefaultInterface.Logon(EmptyParam, EmptyParam, EmptyParam, EmptyParam); end; procedure TNameSpace.Logon(Profile: OleVariant); begin DefaultInterface.Logon(Profile, EmptyParam, EmptyParam, EmptyParam); end; procedure TNameSpace.Logon(Profile: OleVariant; Password: OleVariant); begin DefaultInterface.Logon(Profile, Password, EmptyParam, EmptyParam); end; procedure TNameSpace.Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant); begin DefaultInterface.Logon(Profile, Password, ShowDialog, EmptyParam); end; procedure TNameSpace.Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; NewSession: OleVariant); begin DefaultInterface.Logon(Profile, Password, ShowDialog, NewSession); end; function TNameSpace.PickFolder: MAPIFolder; begin Result := DefaultInterface.PickFolder; end; procedure TNameSpace.RefreshRemoteHeaders; begin DefaultInterface.RefreshRemoteHeaders; end; procedure TNameSpace.AddStore(Store: OleVariant); begin DefaultInterface.AddStore(Store); end; procedure TNameSpace.RemoveStore(const Folder: MAPIFolder); begin DefaultInterface.RemoveStore(Folder); end; procedure TNameSpace.Dial; begin DefaultInterface.Dial(EmptyParam); end; procedure TNameSpace.Dial(ContactItem: OleVariant); begin DefaultInterface.Dial(ContactItem); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNameSpaceProperties.Create(AServer: TNameSpace); begin inherited Create; FServer := AServer; end; function TNameSpaceProperties.GetDefaultInterface: _NameSpace; begin Result := FServer.DefaultInterface; end; function TNameSpaceProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TNameSpaceProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TNameSpaceProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TNameSpaceProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TNameSpaceProperties.Get_CurrentUser: Recipient; begin Result := DefaultInterface.CurrentUser; end; function TNameSpaceProperties.Get_Folders: _Folders; begin Result := DefaultInterface.Folders; end; function TNameSpaceProperties.Get_type_: WideString; begin Result := DefaultInterface.type_; end; function TNameSpaceProperties.Get_AddressLists: AddressLists; begin Result := DefaultInterface.AddressLists; end; function TNameSpaceProperties.Get_SyncObjects: SyncObjects; begin Result := DefaultInterface.SyncObjects; end; function TNameSpaceProperties.Get_Offline: WordBool; begin Result := DefaultInterface.Offline; end; function TNameSpaceProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; {$ENDIF} class function CoNoteItem.Create: _NoteItem; begin Result := CreateComObject(CLASS_NoteItem) as _NoteItem; end; class function CoNoteItem.CreateRemote(const MachineName: string): _NoteItem; begin Result := CreateRemoteComObject(MachineName, CLASS_NoteItem) as _NoteItem; end; procedure TNoteItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061034-0000-0000-C000-000000000046}'; IntfIID: '{00063025-0000-0000-C000-000000000046}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TNoteItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as _NoteItem; end; end; procedure TNoteItem.ConnectTo(svrIntf: _NoteItem); begin Disconnect; FIntf := svrIntf; end; procedure TNoteItem.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TNoteItem.GetDefaultInterface: _NoteItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TNoteItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TNoteItemProperties.Create(Self); {$ENDIF} end; destructor TNoteItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TNoteItem.GetServerProperties: TNoteItemProperties; begin Result := FProps; end; {$ENDIF} function TNoteItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TNoteItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TNoteItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TNoteItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TNoteItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TNoteItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TNoteItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TNoteItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TNoteItem.Get_Color: OlNoteColor; begin Result := DefaultInterface.Color; end; procedure TNoteItem.Set_Color(Color: OlNoteColor); begin DefaultInterface.Set_Color(Color); end; function TNoteItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TNoteItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TNoteItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TNoteItem.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TNoteItem.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TNoteItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TNoteItem.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TNoteItem.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TNoteItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TNoteItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TNoteItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TNoteItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TNoteItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; function TNoteItem.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TNoteItem.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TNoteItem.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TNoteItem.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TNoteItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TNoteItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TNoteItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TNoteItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TNoteItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TNoteItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TNoteItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TNoteItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TNoteItem.Delete; begin DefaultInterface.Delete; end; procedure TNoteItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TNoteItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TNoteItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TNoteItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TNoteItem.Save; begin DefaultInterface.Save; end; procedure TNoteItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TNoteItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TNoteItemProperties.Create(AServer: TNoteItem); begin inherited Create; FServer := AServer; end; function TNoteItemProperties.GetDefaultInterface: _NoteItem; begin Result := FServer.DefaultInterface; end; function TNoteItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TNoteItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TNoteItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TNoteItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TNoteItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TNoteItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TNoteItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TNoteItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TNoteItemProperties.Get_Color: OlNoteColor; begin Result := DefaultInterface.Color; end; procedure TNoteItemProperties.Set_Color(Color: OlNoteColor); begin DefaultInterface.Set_Color(Color); end; function TNoteItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TNoteItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TNoteItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TNoteItemProperties.Get_Height: Integer; begin Result := DefaultInterface.Height; end; procedure TNoteItemProperties.Set_Height(Height: Integer); begin DefaultInterface.Set_Height(Height); end; function TNoteItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TNoteItemProperties.Get_Left: Integer; begin Result := DefaultInterface.Left; end; procedure TNoteItemProperties.Set_Left(Left: Integer); begin DefaultInterface.Set_Left(Left); end; function TNoteItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TNoteItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TNoteItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TNoteItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TNoteItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; function TNoteItemProperties.Get_Top: Integer; begin Result := DefaultInterface.Top; end; procedure TNoteItemProperties.Set_Top(Top: Integer); begin DefaultInterface.Set_Top(Top); end; function TNoteItemProperties.Get_Width: Integer; begin Result := DefaultInterface.Width; end; procedure TNoteItemProperties.Set_Width(Width: Integer); begin DefaultInterface.Set_Width(Width); end; function TNoteItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TNoteItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TNoteItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TNoteItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TNoteItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TNoteItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoOutlookBarGroups.Create: _OutlookBarGroups; begin Result := CreateComObject(CLASS_OutlookBarGroups) as _OutlookBarGroups; end; class function CoOutlookBarGroups.CreateRemote(const MachineName: string): _OutlookBarGroups; begin Result := CreateRemoteComObject(MachineName, CLASS_OutlookBarGroups) as _OutlookBarGroups; end; procedure TOutlookBarGroups.InitServerData; const CServerData: TServerData = ( ClassID: '{00063056-0000-0000-C000-000000000046}'; IntfIID: '{00063072-0000-0000-C000-000000000046}'; EventIID: '{0006307B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOutlookBarGroups.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _OutlookBarGroups; end; end; procedure TOutlookBarGroups.ConnectTo(svrIntf: _OutlookBarGroups); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TOutlookBarGroups.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TOutlookBarGroups.GetDefaultInterface: _OutlookBarGroups; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOutlookBarGroups.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOutlookBarGroupsProperties.Create(Self); {$ENDIF} end; destructor TOutlookBarGroups.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOutlookBarGroups.GetServerProperties: TOutlookBarGroupsProperties; begin Result := FProps; end; {$ENDIF} procedure TOutlookBarGroups.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnGroupAdd) then FOnGroupAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarGroup {const OutlookBarGroup}); 61442: if Assigned(FOnBeforeGroupAdd) then FOnBeforeGroupAdd(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61443: if Assigned(FOnBeforeGroupRemove) then FOnBeforeGroupRemove(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarGroup {const OutlookBarGroup}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TOutlookBarGroups.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarGroups.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarGroups.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarGroups.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarGroups.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TOutlookBarGroups.Item(Index: OleVariant): OutlookBarGroup; begin Result := DefaultInterface.Item(Index); end; function TOutlookBarGroups.Add(const Name: WideString): OutlookBarGroup; begin Result := DefaultInterface.Add(Name, EmptyParam); end; function TOutlookBarGroups.Add(const Name: WideString; Index: OleVariant): OutlookBarGroup; begin Result := DefaultInterface.Add(Name, Index); end; procedure TOutlookBarGroups.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOutlookBarGroupsProperties.Create(AServer: TOutlookBarGroups); begin inherited Create; FServer := AServer; end; function TOutlookBarGroupsProperties.GetDefaultInterface: _OutlookBarGroups; begin Result := FServer.DefaultInterface; end; function TOutlookBarGroupsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarGroupsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarGroupsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarGroupsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarGroupsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} class function CoOutlookBarPane.Create: _OutlookBarPane; begin Result := CreateComObject(CLASS_OutlookBarPane) as _OutlookBarPane; end; class function CoOutlookBarPane.CreateRemote(const MachineName: string): _OutlookBarPane; begin Result := CreateRemoteComObject(MachineName, CLASS_OutlookBarPane) as _OutlookBarPane; end; procedure TOutlookBarPane.InitServerData; const CServerData: TServerData = ( ClassID: '{00063055-0000-0000-C000-000000000046}'; IntfIID: '{00063070-0000-0000-C000-000000000046}'; EventIID: '{0006307A-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOutlookBarPane.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _OutlookBarPane; end; end; procedure TOutlookBarPane.ConnectTo(svrIntf: _OutlookBarPane); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TOutlookBarPane.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TOutlookBarPane.GetDefaultInterface: _OutlookBarPane; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOutlookBarPane.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOutlookBarPaneProperties.Create(Self); {$ENDIF} end; destructor TOutlookBarPane.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOutlookBarPane.GetServerProperties: TOutlookBarPaneProperties; begin Result := FProps; end; {$ENDIF} procedure TOutlookBarPane.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnBeforeNavigate) then FOnBeforeNavigate(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarShortcut {const OutlookBarShortcut}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnBeforeGroupSwitch) then FOnBeforeGroupSwitch(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarGroup {const OutlookBarGroup}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TOutlookBarPane.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarPane.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarPane.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarPane.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarPane.Get_Contents: OutlookBarStorage; begin Result := DefaultInterface.Contents; end; function TOutlookBarPane.Get_CurrentGroup: OutlookBarGroup; begin Result := DefaultInterface.CurrentGroup; end; procedure TOutlookBarPane._Set_CurrentGroup(const CurrentGroup: OutlookBarGroup); { Warning: The property CurrentGroup has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CurrentGroup := CurrentGroup; end; function TOutlookBarPane.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TOutlookBarPane.Get_Visible: WordBool; begin Result := DefaultInterface.Visible; end; procedure TOutlookBarPane.Set_Visible(Visible: WordBool); begin DefaultInterface.Set_Visible(Visible); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOutlookBarPaneProperties.Create(AServer: TOutlookBarPane); begin inherited Create; FServer := AServer; end; function TOutlookBarPaneProperties.GetDefaultInterface: _OutlookBarPane; begin Result := FServer.DefaultInterface; end; function TOutlookBarPaneProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarPaneProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarPaneProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarPaneProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarPaneProperties.Get_Contents: OutlookBarStorage; begin Result := DefaultInterface.Contents; end; function TOutlookBarPaneProperties.Get_CurrentGroup: OutlookBarGroup; begin Result := DefaultInterface.CurrentGroup; end; procedure TOutlookBarPaneProperties._Set_CurrentGroup(const CurrentGroup: OutlookBarGroup); { Warning: The property CurrentGroup has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.CurrentGroup := CurrentGroup; end; function TOutlookBarPaneProperties.Get_Name: WideString; begin Result := DefaultInterface.Name; end; function TOutlookBarPaneProperties.Get_Visible: WordBool; begin Result := DefaultInterface.Visible; end; procedure TOutlookBarPaneProperties.Set_Visible(Visible: WordBool); begin DefaultInterface.Set_Visible(Visible); end; {$ENDIF} class function CoOutlookBarShortcuts.Create: _OutlookBarShortcuts; begin Result := CreateComObject(CLASS_OutlookBarShortcuts) as _OutlookBarShortcuts; end; class function CoOutlookBarShortcuts.CreateRemote(const MachineName: string): _OutlookBarShortcuts; begin Result := CreateRemoteComObject(MachineName, CLASS_OutlookBarShortcuts) as _OutlookBarShortcuts; end; procedure TOutlookBarShortcuts.InitServerData; const CServerData: TServerData = ( ClassID: '{00063057-0000-0000-C000-000000000046}'; IntfIID: '{00063074-0000-0000-C000-000000000046}'; EventIID: '{0006307C-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TOutlookBarShortcuts.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _OutlookBarShortcuts; end; end; procedure TOutlookBarShortcuts.ConnectTo(svrIntf: _OutlookBarShortcuts); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TOutlookBarShortcuts.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TOutlookBarShortcuts.GetDefaultInterface: _OutlookBarShortcuts; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TOutlookBarShortcuts.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TOutlookBarShortcutsProperties.Create(Self); {$ENDIF} end; destructor TOutlookBarShortcuts.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TOutlookBarShortcuts.GetServerProperties: TOutlookBarShortcutsProperties; begin Result := FProps; end; {$ENDIF} procedure TOutlookBarShortcuts.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnShortcutAdd) then FOnShortcutAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarShortcut {const OutlookBarShortcut}); 61442: if Assigned(FOnBeforeShortcutAdd) then FOnBeforeShortcutAdd(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61443: if Assigned(FOnBeforeShortcutRemove) then FOnBeforeShortcutRemove(Self, IUnknown(TVarData(Params[0]).VPointer) as OutlookBarShortcut {const OutlookBarShortcut}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TOutlookBarShortcuts.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarShortcuts.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarShortcuts.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarShortcuts.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarShortcuts.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TOutlookBarShortcuts.Item(Index: OleVariant): OutlookBarShortcut; begin Result := DefaultInterface.Item(Index); end; function TOutlookBarShortcuts.Add(Target: OleVariant; const Name: WideString): OutlookBarShortcut; begin Result := DefaultInterface.Add(Target, Name, EmptyParam); end; function TOutlookBarShortcuts.Add(Target: OleVariant; const Name: WideString; Index: OleVariant): OutlookBarShortcut; begin Result := DefaultInterface.Add(Target, Name, Index); end; procedure TOutlookBarShortcuts.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TOutlookBarShortcutsProperties.Create(AServer: TOutlookBarShortcuts); begin inherited Create; FServer := AServer; end; function TOutlookBarShortcutsProperties.GetDefaultInterface: _OutlookBarShortcuts; begin Result := FServer.DefaultInterface; end; function TOutlookBarShortcutsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TOutlookBarShortcutsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TOutlookBarShortcutsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TOutlookBarShortcutsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TOutlookBarShortcutsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} class function CoPostItem.Create: _PostItem; begin Result := CreateComObject(CLASS_PostItem) as _PostItem; end; class function CoPostItem.CreateRemote(const MachineName: string): _PostItem; begin Result := CreateRemoteComObject(MachineName, CLASS_PostItem) as _PostItem; end; procedure TPostItem.InitServerData; const CServerData: TServerData = ( ClassID: '{0006103A-0000-0000-C000-000000000046}'; IntfIID: '{00063024-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TPostItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _PostItem; end; end; procedure TPostItem.ConnectTo(svrIntf: _PostItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TPostItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TPostItem.GetDefaultInterface: _PostItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TPostItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TPostItemProperties.Create(Self); {$ENDIF} end; destructor TPostItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TPostItem.GetServerProperties: TPostItemProperties; begin Result := FProps; end; {$ENDIF} procedure TPostItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TPostItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TPostItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TPostItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TPostItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TPostItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TPostItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TPostItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TPostItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TPostItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TPostItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TPostItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TPostItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TPostItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TPostItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TPostItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TPostItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TPostItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TPostItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TPostItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TPostItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TPostItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TPostItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TPostItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TPostItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TPostItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TPostItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TPostItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TPostItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TPostItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TPostItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TPostItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TPostItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TPostItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TPostItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TPostItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TPostItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TPostItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TPostItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TPostItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TPostItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TPostItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TPostItem.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TPostItem.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TPostItem.Get_HTMLBody: WideString; begin Result := DefaultInterface.HTMLBody; end; procedure TPostItem.Set_HTMLBody(const HTMLBody: WideString); { Warning: The property HTMLBody has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HTMLBody := HTMLBody; end; function TPostItem.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; function TPostItem.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TPostItem.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TPostItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TPostItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TPostItem.Get_BodyFormat: OlBodyFormat; begin Result := DefaultInterface.BodyFormat; end; procedure TPostItem.Set_BodyFormat(BodyFormat: OlBodyFormat); begin DefaultInterface.Set_BodyFormat(BodyFormat); end; function TPostItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TPostItem.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TPostItem.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TPostItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TPostItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TPostItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TPostItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TPostItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TPostItem.Delete; begin DefaultInterface.Delete; end; procedure TPostItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TPostItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TPostItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TPostItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TPostItem.Save; begin DefaultInterface.Save; end; procedure TPostItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TPostItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TPostItem.ClearConversationIndex; begin DefaultInterface.ClearConversationIndex; end; function TPostItem.Forward: MailItem; begin Result := DefaultInterface.Forward; end; procedure TPostItem.Post; begin DefaultInterface.Post; end; function TPostItem.Reply: MailItem; begin Result := DefaultInterface.Reply; end; procedure TPostItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; function TPostItem.SetACLs: WordBool; begin Result := DefaultInterface.SetACLs; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TPostItemProperties.Create(AServer: TPostItem); begin inherited Create; FServer := AServer; end; function TPostItemProperties.GetDefaultInterface: _PostItem; begin Result := FServer.DefaultInterface; end; function TPostItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TPostItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TPostItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TPostItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TPostItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TPostItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TPostItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TPostItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TPostItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TPostItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TPostItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TPostItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TPostItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TPostItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TPostItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TPostItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TPostItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TPostItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TPostItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TPostItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TPostItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TPostItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TPostItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TPostItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TPostItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TPostItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TPostItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TPostItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TPostItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TPostItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TPostItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TPostItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TPostItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TPostItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TPostItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TPostItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TPostItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TPostItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TPostItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TPostItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TPostItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TPostItemProperties.Get_ExpiryTime: TDateTime; begin Result := DefaultInterface.ExpiryTime; end; procedure TPostItemProperties.Set_ExpiryTime(ExpiryTime: TDateTime); begin DefaultInterface.Set_ExpiryTime(ExpiryTime); end; function TPostItemProperties.Get_HTMLBody: WideString; begin Result := DefaultInterface.HTMLBody; end; procedure TPostItemProperties.Set_HTMLBody(const HTMLBody: WideString); { Warning: The property HTMLBody has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.HTMLBody := HTMLBody; end; function TPostItemProperties.Get_ReceivedTime: TDateTime; begin Result := DefaultInterface.ReceivedTime; end; function TPostItemProperties.Get_SenderName: WideString; begin Result := DefaultInterface.SenderName; end; function TPostItemProperties.Get_SentOn: TDateTime; begin Result := DefaultInterface.SentOn; end; function TPostItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TPostItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TPostItemProperties.Get_BodyFormat: OlBodyFormat; begin Result := DefaultInterface.BodyFormat; end; procedure TPostItemProperties.Set_BodyFormat(BodyFormat: OlBodyFormat); begin DefaultInterface.Set_BodyFormat(BodyFormat); end; function TPostItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TPostItemProperties.Get_InternetCodepage: Integer; begin Result := DefaultInterface.InternetCodepage; end; procedure TPostItemProperties.Set_InternetCodepage(InternetCodepage: Integer); begin DefaultInterface.Set_InternetCodepage(InternetCodepage); end; function TPostItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TPostItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TPostItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoRemoteItem.Create: _RemoteItem; begin Result := CreateComObject(CLASS_RemoteItem) as _RemoteItem; end; class function CoRemoteItem.CreateRemote(const MachineName: string): _RemoteItem; begin Result := CreateRemoteComObject(MachineName, CLASS_RemoteItem) as _RemoteItem; end; procedure TRemoteItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061060-0000-0000-C000-000000000046}'; IntfIID: '{00063023-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TRemoteItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _RemoteItem; end; end; procedure TRemoteItem.ConnectTo(svrIntf: _RemoteItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TRemoteItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TRemoteItem.GetDefaultInterface: _RemoteItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TRemoteItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRemoteItemProperties.Create(Self); {$ENDIF} end; destructor TRemoteItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TRemoteItem.GetServerProperties: TRemoteItemProperties; begin Result := FProps; end; {$ENDIF} procedure TRemoteItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TRemoteItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TRemoteItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TRemoteItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TRemoteItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TRemoteItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TRemoteItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TRemoteItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TRemoteItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TRemoteItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TRemoteItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TRemoteItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TRemoteItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TRemoteItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TRemoteItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TRemoteItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TRemoteItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TRemoteItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TRemoteItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TRemoteItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TRemoteItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TRemoteItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TRemoteItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TRemoteItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TRemoteItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TRemoteItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TRemoteItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TRemoteItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TRemoteItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TRemoteItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TRemoteItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TRemoteItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TRemoteItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TRemoteItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TRemoteItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TRemoteItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TRemoteItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TRemoteItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TRemoteItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TRemoteItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TRemoteItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TRemoteItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TRemoteItem.Get_HasAttachment: WordBool; begin Result := DefaultInterface.HasAttachment; end; function TRemoteItem.Get_RemoteMessageClass: WideString; begin Result := DefaultInterface.RemoteMessageClass; end; function TRemoteItem.Get_TransferSize: Integer; begin Result := DefaultInterface.TransferSize; end; function TRemoteItem.Get_TransferTime: Integer; begin Result := DefaultInterface.TransferTime; end; function TRemoteItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TRemoteItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TRemoteItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TRemoteItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TRemoteItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TRemoteItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TRemoteItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TRemoteItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TRemoteItem.Delete; begin DefaultInterface.Delete; end; procedure TRemoteItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TRemoteItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TRemoteItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TRemoteItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TRemoteItem.Save; begin DefaultInterface.Save; end; procedure TRemoteItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TRemoteItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TRemoteItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRemoteItemProperties.Create(AServer: TRemoteItem); begin inherited Create; FServer := AServer; end; function TRemoteItemProperties.GetDefaultInterface: _RemoteItem; begin Result := FServer.DefaultInterface; end; function TRemoteItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TRemoteItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TRemoteItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TRemoteItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TRemoteItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TRemoteItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TRemoteItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TRemoteItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TRemoteItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TRemoteItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TRemoteItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TRemoteItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TRemoteItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TRemoteItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TRemoteItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TRemoteItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TRemoteItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TRemoteItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TRemoteItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TRemoteItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TRemoteItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TRemoteItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TRemoteItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TRemoteItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TRemoteItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TRemoteItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TRemoteItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TRemoteItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TRemoteItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TRemoteItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TRemoteItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TRemoteItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TRemoteItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TRemoteItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TRemoteItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TRemoteItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TRemoteItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TRemoteItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TRemoteItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TRemoteItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TRemoteItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TRemoteItemProperties.Get_HasAttachment: WordBool; begin Result := DefaultInterface.HasAttachment; end; function TRemoteItemProperties.Get_RemoteMessageClass: WideString; begin Result := DefaultInterface.RemoteMessageClass; end; function TRemoteItemProperties.Get_TransferSize: Integer; begin Result := DefaultInterface.TransferSize; end; function TRemoteItemProperties.Get_TransferTime: Integer; begin Result := DefaultInterface.TransferTime; end; function TRemoteItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TRemoteItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TRemoteItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TRemoteItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TRemoteItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TRemoteItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoReportItem.Create: _ReportItem; begin Result := CreateComObject(CLASS_ReportItem) as _ReportItem; end; class function CoReportItem.CreateRemote(const MachineName: string): _ReportItem; begin Result := CreateRemoteComObject(MachineName, CLASS_ReportItem) as _ReportItem; end; procedure TReportItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061035-0000-0000-C000-000000000046}'; IntfIID: '{00063026-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TReportItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _ReportItem; end; end; procedure TReportItem.ConnectTo(svrIntf: _ReportItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TReportItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TReportItem.GetDefaultInterface: _ReportItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TReportItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TReportItemProperties.Create(Self); {$ENDIF} end; destructor TReportItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TReportItem.GetServerProperties: TReportItemProperties; begin Result := FProps; end; {$ENDIF} procedure TReportItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TReportItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TReportItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TReportItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TReportItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TReportItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TReportItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TReportItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TReportItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TReportItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TReportItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TReportItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TReportItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TReportItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TReportItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TReportItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TReportItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TReportItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TReportItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TReportItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TReportItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TReportItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TReportItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TReportItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TReportItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TReportItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TReportItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TReportItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TReportItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TReportItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TReportItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TReportItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TReportItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TReportItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TReportItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TReportItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TReportItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TReportItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TReportItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TReportItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TReportItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TReportItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TReportItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TReportItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TReportItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TReportItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TReportItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TReportItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TReportItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TReportItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TReportItem.Delete; begin DefaultInterface.Delete; end; procedure TReportItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TReportItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TReportItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TReportItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TReportItem.Save; begin DefaultInterface.Save; end; procedure TReportItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TReportItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; procedure TReportItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TReportItemProperties.Create(AServer: TReportItem); begin inherited Create; FServer := AServer; end; function TReportItemProperties.GetDefaultInterface: _ReportItem; begin Result := FServer.DefaultInterface; end; function TReportItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TReportItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TReportItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TReportItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TReportItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TReportItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TReportItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TReportItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TReportItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TReportItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TReportItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TReportItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TReportItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TReportItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TReportItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TReportItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TReportItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TReportItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TReportItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TReportItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TReportItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TReportItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TReportItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TReportItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TReportItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TReportItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TReportItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TReportItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TReportItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TReportItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TReportItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TReportItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TReportItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TReportItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TReportItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TReportItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TReportItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TReportItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TReportItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TReportItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TReportItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TReportItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TReportItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TReportItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TReportItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TReportItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TReportItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoTaskRequestAcceptItem.Create: _TaskRequestAcceptItem; begin Result := CreateComObject(CLASS_TaskRequestAcceptItem) as _TaskRequestAcceptItem; end; class function CoTaskRequestAcceptItem.CreateRemote(const MachineName: string): _TaskRequestAcceptItem; begin Result := CreateRemoteComObject(MachineName, CLASS_TaskRequestAcceptItem) as _TaskRequestAcceptItem; end; procedure TTaskRequestAcceptItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061052-0000-0000-C000-000000000046}'; IntfIID: '{00063038-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTaskRequestAcceptItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _TaskRequestAcceptItem; end; end; procedure TTaskRequestAcceptItem.ConnectTo(svrIntf: _TaskRequestAcceptItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TTaskRequestAcceptItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TTaskRequestAcceptItem.GetDefaultInterface: _TaskRequestAcceptItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTaskRequestAcceptItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTaskRequestAcceptItemProperties.Create(Self); {$ENDIF} end; destructor TTaskRequestAcceptItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTaskRequestAcceptItem.GetServerProperties: TTaskRequestAcceptItemProperties; begin Result := FProps; end; {$ENDIF} procedure TTaskRequestAcceptItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TTaskRequestAcceptItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestAcceptItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestAcceptItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestAcceptItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestAcceptItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestAcceptItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestAcceptItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestAcceptItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestAcceptItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestAcceptItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestAcceptItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestAcceptItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestAcceptItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestAcceptItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestAcceptItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestAcceptItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestAcceptItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestAcceptItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestAcceptItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestAcceptItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestAcceptItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestAcceptItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestAcceptItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestAcceptItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestAcceptItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestAcceptItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestAcceptItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestAcceptItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestAcceptItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestAcceptItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestAcceptItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestAcceptItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestAcceptItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestAcceptItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestAcceptItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestAcceptItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestAcceptItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestAcceptItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestAcceptItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestAcceptItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestAcceptItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestAcceptItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestAcceptItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestAcceptItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestAcceptItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestAcceptItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestAcceptItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TTaskRequestAcceptItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TTaskRequestAcceptItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TTaskRequestAcceptItem.Delete; begin DefaultInterface.Delete; end; procedure TTaskRequestAcceptItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TTaskRequestAcceptItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TTaskRequestAcceptItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TTaskRequestAcceptItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TTaskRequestAcceptItem.Save; begin DefaultInterface.Save; end; procedure TTaskRequestAcceptItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TTaskRequestAcceptItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TTaskRequestAcceptItem.GetAssociatedTask(AddToTaskList: WordBool): TaskItem; begin Result := DefaultInterface.GetAssociatedTask(AddToTaskList); end; procedure TTaskRequestAcceptItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTaskRequestAcceptItemProperties.Create(AServer: TTaskRequestAcceptItem); begin inherited Create; FServer := AServer; end; function TTaskRequestAcceptItemProperties.GetDefaultInterface: _TaskRequestAcceptItem; begin Result := FServer.DefaultInterface; end; function TTaskRequestAcceptItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestAcceptItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestAcceptItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestAcceptItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestAcceptItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestAcceptItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestAcceptItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestAcceptItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestAcceptItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestAcceptItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestAcceptItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestAcceptItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestAcceptItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestAcceptItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestAcceptItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestAcceptItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestAcceptItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestAcceptItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestAcceptItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestAcceptItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestAcceptItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestAcceptItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestAcceptItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestAcceptItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestAcceptItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestAcceptItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestAcceptItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestAcceptItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestAcceptItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestAcceptItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestAcceptItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestAcceptItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestAcceptItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestAcceptItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestAcceptItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestAcceptItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestAcceptItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestAcceptItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestAcceptItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestAcceptItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestAcceptItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestAcceptItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestAcceptItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestAcceptItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestAcceptItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestAcceptItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestAcceptItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoTaskRequestDeclineItem.Create: _TaskRequestDeclineItem; begin Result := CreateComObject(CLASS_TaskRequestDeclineItem) as _TaskRequestDeclineItem; end; class function CoTaskRequestDeclineItem.CreateRemote(const MachineName: string): _TaskRequestDeclineItem; begin Result := CreateRemoteComObject(MachineName, CLASS_TaskRequestDeclineItem) as _TaskRequestDeclineItem; end; procedure TTaskRequestDeclineItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061053-0000-0000-C000-000000000046}'; IntfIID: '{00063039-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTaskRequestDeclineItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _TaskRequestDeclineItem; end; end; procedure TTaskRequestDeclineItem.ConnectTo(svrIntf: _TaskRequestDeclineItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TTaskRequestDeclineItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TTaskRequestDeclineItem.GetDefaultInterface: _TaskRequestDeclineItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTaskRequestDeclineItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTaskRequestDeclineItemProperties.Create(Self); {$ENDIF} end; destructor TTaskRequestDeclineItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTaskRequestDeclineItem.GetServerProperties: TTaskRequestDeclineItemProperties; begin Result := FProps; end; {$ENDIF} procedure TTaskRequestDeclineItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TTaskRequestDeclineItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestDeclineItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestDeclineItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestDeclineItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestDeclineItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestDeclineItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestDeclineItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestDeclineItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestDeclineItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestDeclineItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestDeclineItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestDeclineItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestDeclineItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestDeclineItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestDeclineItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestDeclineItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestDeclineItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestDeclineItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestDeclineItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestDeclineItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestDeclineItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestDeclineItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestDeclineItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestDeclineItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestDeclineItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestDeclineItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestDeclineItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestDeclineItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestDeclineItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestDeclineItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestDeclineItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestDeclineItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestDeclineItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestDeclineItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestDeclineItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestDeclineItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestDeclineItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestDeclineItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestDeclineItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestDeclineItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestDeclineItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestDeclineItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestDeclineItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestDeclineItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestDeclineItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestDeclineItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestDeclineItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TTaskRequestDeclineItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TTaskRequestDeclineItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TTaskRequestDeclineItem.Delete; begin DefaultInterface.Delete; end; procedure TTaskRequestDeclineItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TTaskRequestDeclineItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TTaskRequestDeclineItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TTaskRequestDeclineItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TTaskRequestDeclineItem.Save; begin DefaultInterface.Save; end; procedure TTaskRequestDeclineItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TTaskRequestDeclineItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TTaskRequestDeclineItem.GetAssociatedTask(AddToTaskList: WordBool): TaskItem; begin Result := DefaultInterface.GetAssociatedTask(AddToTaskList); end; procedure TTaskRequestDeclineItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTaskRequestDeclineItemProperties.Create(AServer: TTaskRequestDeclineItem); begin inherited Create; FServer := AServer; end; function TTaskRequestDeclineItemProperties.GetDefaultInterface: _TaskRequestDeclineItem; begin Result := FServer.DefaultInterface; end; function TTaskRequestDeclineItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestDeclineItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestDeclineItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestDeclineItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestDeclineItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestDeclineItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestDeclineItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestDeclineItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestDeclineItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestDeclineItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestDeclineItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestDeclineItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestDeclineItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestDeclineItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestDeclineItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestDeclineItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestDeclineItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestDeclineItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestDeclineItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestDeclineItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestDeclineItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestDeclineItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestDeclineItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestDeclineItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestDeclineItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestDeclineItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestDeclineItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestDeclineItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestDeclineItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestDeclineItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestDeclineItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestDeclineItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestDeclineItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestDeclineItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestDeclineItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestDeclineItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestDeclineItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestDeclineItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestDeclineItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestDeclineItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestDeclineItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestDeclineItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestDeclineItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestDeclineItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestDeclineItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestDeclineItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestDeclineItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoTaskRequestItem.Create: _TaskRequestItem; begin Result := CreateComObject(CLASS_TaskRequestItem) as _TaskRequestItem; end; class function CoTaskRequestItem.CreateRemote(const MachineName: string): _TaskRequestItem; begin Result := CreateRemoteComObject(MachineName, CLASS_TaskRequestItem) as _TaskRequestItem; end; procedure TTaskRequestItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061050-0000-0000-C000-000000000046}'; IntfIID: '{00063036-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTaskRequestItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _TaskRequestItem; end; end; procedure TTaskRequestItem.ConnectTo(svrIntf: _TaskRequestItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TTaskRequestItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TTaskRequestItem.GetDefaultInterface: _TaskRequestItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTaskRequestItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTaskRequestItemProperties.Create(Self); {$ENDIF} end; destructor TTaskRequestItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTaskRequestItem.GetServerProperties: TTaskRequestItemProperties; begin Result := FProps; end; {$ENDIF} procedure TTaskRequestItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TTaskRequestItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TTaskRequestItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TTaskRequestItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TTaskRequestItem.Delete; begin DefaultInterface.Delete; end; procedure TTaskRequestItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TTaskRequestItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TTaskRequestItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TTaskRequestItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TTaskRequestItem.Save; begin DefaultInterface.Save; end; procedure TTaskRequestItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TTaskRequestItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TTaskRequestItem.GetAssociatedTask(AddToTaskList: WordBool): TaskItem; begin Result := DefaultInterface.GetAssociatedTask(AddToTaskList); end; procedure TTaskRequestItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTaskRequestItemProperties.Create(AServer: TTaskRequestItem); begin inherited Create; FServer := AServer; end; function TTaskRequestItemProperties.GetDefaultInterface: _TaskRequestItem; begin Result := FServer.DefaultInterface; end; function TTaskRequestItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} class function CoTaskRequestUpdateItem.Create: _TaskRequestUpdateItem; begin Result := CreateComObject(CLASS_TaskRequestUpdateItem) as _TaskRequestUpdateItem; end; class function CoTaskRequestUpdateItem.CreateRemote(const MachineName: string): _TaskRequestUpdateItem; begin Result := CreateRemoteComObject(MachineName, CLASS_TaskRequestUpdateItem) as _TaskRequestUpdateItem; end; procedure TTaskRequestUpdateItem.InitServerData; const CServerData: TServerData = ( ClassID: '{00061051-0000-0000-C000-000000000046}'; IntfIID: '{00063037-0000-0000-C000-000000000046}'; EventIID: '{0006302B-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TTaskRequestUpdateItem.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _TaskRequestUpdateItem; end; end; procedure TTaskRequestUpdateItem.ConnectTo(svrIntf: _TaskRequestUpdateItem); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TTaskRequestUpdateItem.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TTaskRequestUpdateItem.GetDefaultInterface: _TaskRequestUpdateItem; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TTaskRequestUpdateItem.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TTaskRequestUpdateItemProperties.Create(Self); {$ENDIF} end; destructor TTaskRequestUpdateItem.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TTaskRequestUpdateItem.GetServerProperties: TTaskRequestUpdateItemProperties; begin Result := FProps; end; {$ENDIF} procedure TTaskRequestUpdateItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61443: if Assigned(FOnOpen) then FOnOpen(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61446: if Assigned(FOnCustomAction) then FOnCustomAction(Self, Params[0] {const IDispatch}, Params[1] {const IDispatch}, WordBool((TVarData(Params[2]).VPointer)^) {var WordBool}); 61448: if Assigned(FOnCustomPropertyChange) then FOnCustomPropertyChange(Self, Params[0] {const WideString}); 62568: if Assigned(FOnForward) then FOnForward(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61444: if Assigned(FOnClose) then FOnClose(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61449: if Assigned(FOnPropertyChange) then FOnPropertyChange(Self, Params[0] {const WideString}); 61441: if Assigned(FOnRead) then FOnRead(Self); 62566: if Assigned(FOnReply) then FOnReply(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 62567: if Assigned(FOnReplyAll) then FOnReplyAll(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 61445: if Assigned(FOnSend) then FOnSend(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61442: if Assigned(FOnWrite) then FOnWrite(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61450: if Assigned(FOnBeforeCheckNames) then FOnBeforeCheckNames(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 61451: if Assigned(FOnAttachmentAdd) then FOnAttachmentAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61452: if Assigned(FOnAttachmentRead) then FOnAttachmentRead(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}); 61453: if Assigned(FOnBeforeAttachmentSave) then FOnBeforeAttachmentSave(Self, IUnknown(TVarData(Params[0]).VPointer) as Attachment {const Attachment}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); 64117: if Assigned(FOnBeforeDelete) then FOnBeforeDelete(Self, Params[0] {const IDispatch}, WordBool((TVarData(Params[1]).VPointer)^) {var WordBool}); end; {case DispID} end; function TTaskRequestUpdateItem.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestUpdateItem.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestUpdateItem.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestUpdateItem.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestUpdateItem.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestUpdateItem.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestUpdateItem.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestUpdateItem.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestUpdateItem.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestUpdateItem.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestUpdateItem.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestUpdateItem.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestUpdateItem.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestUpdateItem.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestUpdateItem.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestUpdateItem.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestUpdateItem.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestUpdateItem.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestUpdateItem.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestUpdateItem.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestUpdateItem.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestUpdateItem.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestUpdateItem.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestUpdateItem.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestUpdateItem.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestUpdateItem.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestUpdateItem.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestUpdateItem.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestUpdateItem.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestUpdateItem.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestUpdateItem.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestUpdateItem.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestUpdateItem.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestUpdateItem.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestUpdateItem.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestUpdateItem.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestUpdateItem.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestUpdateItem.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestUpdateItem.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestUpdateItem.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestUpdateItem.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestUpdateItem.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestUpdateItem.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestUpdateItem.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestUpdateItem.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestUpdateItem.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestUpdateItem.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; procedure TTaskRequestUpdateItem.Close(SaveMode: OlInspectorClose); begin DefaultInterface.Close(SaveMode); end; function TTaskRequestUpdateItem.Copy: IDispatch; begin Result := DefaultInterface.Copy; end; procedure TTaskRequestUpdateItem.Delete; begin DefaultInterface.Delete; end; procedure TTaskRequestUpdateItem.Display; begin DefaultInterface.Display(EmptyParam); end; procedure TTaskRequestUpdateItem.Display(Modal: OleVariant); begin DefaultInterface.Display(Modal); end; function TTaskRequestUpdateItem.Move(const DestFldr: MAPIFolder): IDispatch; begin Result := DefaultInterface.Move(DestFldr); end; procedure TTaskRequestUpdateItem.PrintOut; begin DefaultInterface.PrintOut; end; procedure TTaskRequestUpdateItem.Save; begin DefaultInterface.Save; end; procedure TTaskRequestUpdateItem.SaveAs(const Path: WideString); begin DefaultInterface.SaveAs(Path, EmptyParam); end; procedure TTaskRequestUpdateItem.SaveAs(const Path: WideString; Type_: OleVariant); begin DefaultInterface.SaveAs(Path, Type_); end; function TTaskRequestUpdateItem.GetAssociatedTask(AddToTaskList: WordBool): TaskItem; begin Result := DefaultInterface.GetAssociatedTask(AddToTaskList); end; procedure TTaskRequestUpdateItem.ShowCategoriesDialog; begin DefaultInterface.ShowCategoriesDialog; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TTaskRequestUpdateItemProperties.Create(AServer: TTaskRequestUpdateItem); begin inherited Create; FServer := AServer; end; function TTaskRequestUpdateItemProperties.GetDefaultInterface: _TaskRequestUpdateItem; begin Result := FServer.DefaultInterface; end; function TTaskRequestUpdateItemProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TTaskRequestUpdateItemProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TTaskRequestUpdateItemProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TTaskRequestUpdateItemProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TTaskRequestUpdateItemProperties.Get_Actions: Actions; begin Result := DefaultInterface.Actions; end; function TTaskRequestUpdateItemProperties.Get_Attachments: Attachments; begin Result := DefaultInterface.Attachments; end; function TTaskRequestUpdateItemProperties.Get_BillingInformation: WideString; begin Result := DefaultInterface.BillingInformation; end; procedure TTaskRequestUpdateItemProperties.Set_BillingInformation(const BillingInformation: WideString); { Warning: The property BillingInformation has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.BillingInformation := BillingInformation; end; function TTaskRequestUpdateItemProperties.Get_Body: WideString; begin Result := DefaultInterface.Body; end; procedure TTaskRequestUpdateItemProperties.Set_Body(const Body: WideString); { Warning: The property Body has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Body := Body; end; function TTaskRequestUpdateItemProperties.Get_Categories: WideString; begin Result := DefaultInterface.Categories; end; procedure TTaskRequestUpdateItemProperties.Set_Categories(const Categories: WideString); { Warning: The property Categories has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Categories := Categories; end; function TTaskRequestUpdateItemProperties.Get_Companies: WideString; begin Result := DefaultInterface.Companies; end; procedure TTaskRequestUpdateItemProperties.Set_Companies(const Companies: WideString); { Warning: The property Companies has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Companies := Companies; end; function TTaskRequestUpdateItemProperties.Get_ConversationIndex: WideString; begin Result := DefaultInterface.ConversationIndex; end; function TTaskRequestUpdateItemProperties.Get_ConversationTopic: WideString; begin Result := DefaultInterface.ConversationTopic; end; function TTaskRequestUpdateItemProperties.Get_CreationTime: TDateTime; begin Result := DefaultInterface.CreationTime; end; function TTaskRequestUpdateItemProperties.Get_EntryID: WideString; begin Result := DefaultInterface.EntryID; end; function TTaskRequestUpdateItemProperties.Get_FormDescription: FormDescription; begin Result := DefaultInterface.FormDescription; end; function TTaskRequestUpdateItemProperties.Get_GetInspector: _Inspector; begin Result := DefaultInterface.GetInspector; end; function TTaskRequestUpdateItemProperties.Get_Importance: OlImportance; begin Result := DefaultInterface.Importance; end; procedure TTaskRequestUpdateItemProperties.Set_Importance(Importance: OlImportance); begin DefaultInterface.Set_Importance(Importance); end; function TTaskRequestUpdateItemProperties.Get_LastModificationTime: TDateTime; begin Result := DefaultInterface.LastModificationTime; end; function TTaskRequestUpdateItemProperties.Get_MAPIOBJECT: IUnknown; begin Result := DefaultInterface.MAPIOBJECT; end; function TTaskRequestUpdateItemProperties.Get_MessageClass: WideString; begin Result := DefaultInterface.MessageClass; end; procedure TTaskRequestUpdateItemProperties.Set_MessageClass(const MessageClass: WideString); { Warning: The property MessageClass has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.MessageClass := MessageClass; end; function TTaskRequestUpdateItemProperties.Get_Mileage: WideString; begin Result := DefaultInterface.Mileage; end; procedure TTaskRequestUpdateItemProperties.Set_Mileage(const Mileage: WideString); { Warning: The property Mileage has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Mileage := Mileage; end; function TTaskRequestUpdateItemProperties.Get_NoAging: WordBool; begin Result := DefaultInterface.NoAging; end; procedure TTaskRequestUpdateItemProperties.Set_NoAging(NoAging: WordBool); begin DefaultInterface.Set_NoAging(NoAging); end; function TTaskRequestUpdateItemProperties.Get_OutlookInternalVersion: Integer; begin Result := DefaultInterface.OutlookInternalVersion; end; function TTaskRequestUpdateItemProperties.Get_OutlookVersion: WideString; begin Result := DefaultInterface.OutlookVersion; end; function TTaskRequestUpdateItemProperties.Get_Saved: WordBool; begin Result := DefaultInterface.Saved; end; function TTaskRequestUpdateItemProperties.Get_Sensitivity: OlSensitivity; begin Result := DefaultInterface.Sensitivity; end; procedure TTaskRequestUpdateItemProperties.Set_Sensitivity(Sensitivity: OlSensitivity); begin DefaultInterface.Set_Sensitivity(Sensitivity); end; function TTaskRequestUpdateItemProperties.Get_Size: Integer; begin Result := DefaultInterface.Size; end; function TTaskRequestUpdateItemProperties.Get_Subject: WideString; begin Result := DefaultInterface.Subject; end; procedure TTaskRequestUpdateItemProperties.Set_Subject(const Subject: WideString); { Warning: The property Subject has a setter and a getter whose types do not match. Delphi was unable to generate a property of this sort and so is using a Variant as a passthrough. } var InterfaceVariant: OleVariant; begin InterfaceVariant := DefaultInterface; InterfaceVariant.Subject := Subject; end; function TTaskRequestUpdateItemProperties.Get_UnRead: WordBool; begin Result := DefaultInterface.UnRead; end; procedure TTaskRequestUpdateItemProperties.Set_UnRead(UnRead: WordBool); begin DefaultInterface.Set_UnRead(UnRead); end; function TTaskRequestUpdateItemProperties.Get_UserProperties: UserProperties; begin Result := DefaultInterface.UserProperties; end; function TTaskRequestUpdateItemProperties.Get_Links: Links; begin Result := DefaultInterface.Links; end; function TTaskRequestUpdateItemProperties.Get_DownloadState: OlDownloadState; begin Result := DefaultInterface.DownloadState; end; function TTaskRequestUpdateItemProperties.Get_ItemProperties: ItemProperties; begin Result := DefaultInterface.ItemProperties; end; function TTaskRequestUpdateItemProperties.Get_MarkForDownload: OlRemoteStatus; begin Result := DefaultInterface.MarkForDownload; end; procedure TTaskRequestUpdateItemProperties.Set_MarkForDownload(MarkForDownload: OlRemoteStatus); begin DefaultInterface.Set_MarkForDownload(MarkForDownload); end; function TTaskRequestUpdateItemProperties.Get_IsConflict: WordBool; begin Result := DefaultInterface.IsConflict; end; {$ENDIF} procedure TDataSourceObject.InitControlData; const CControlData: TControlData2 = ( ClassID: '{0006F02C-0000-0000-C000-000000000046}'; EventIID: ''; EventCount: 0; EventDispIDs: nil; LicenseKey: nil (*HR:$80040154*); Flags: $00000000; Version: 401); begin ControlData := @CControlData; end; procedure TDataSourceObject.CreateControl; procedure DoCreate; begin FIntf := IUnknown(OleObject) as DDataSourceObject; end; begin if FIntf = nil then DoCreate; end; function TDataSourceObject.GetControlInterface: DDataSourceObject; begin CreateControl; Result := FIntf; end; function TDataSourceObject.Get_OutlookItem: IDispatch; begin Result := DefaultInterface.OutlookItem; end; procedure TDataSourceObject.Set_OutlookItem(const Value: IDispatch); begin DefaultInterface.OutlookItem := Value; end; class function CoResults.Create: _Results; begin Result := CreateComObject(CLASS_Results) as _Results; end; class function CoResults.CreateRemote(const MachineName: string): _Results; begin Result := CreateRemoteComObject(MachineName, CLASS_Results) as _Results; end; procedure TResults.InitServerData; const CServerData: TServerData = ( ClassID: '{00061039-0000-0000-C000-000000000046}'; IntfIID: '{0006300C-0000-0000-C000-000000000046}'; EventIID: '{0006300D-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TResults.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Results; end; end; procedure TResults.ConnectTo(svrIntf: _Results); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TResults.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TResults.GetDefaultInterface: _Results; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TResults.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TResultsProperties.Create(Self); {$ENDIF} end; destructor TResults.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TResults.GetServerProperties: TResultsProperties; begin Result := FProps; end; {$ENDIF} procedure TResults.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 61441: if Assigned(FOnItemAdd) then FOnItemAdd(Self, Params[0] {const IDispatch}); 61442: if Assigned(FOnItemChange) then FOnItemChange(Self, Params[0] {const IDispatch}); 61443: if Assigned(FOnItemRemove) then FOnItemRemove(Self); end; {case DispID} end; function TResults.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TResults.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TResults.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TResults.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TResults.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TResults.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; function TResults.Get_DefaultItemType: OlItemType; begin Result := DefaultInterface.DefaultItemType; end; procedure TResults.Set_DefaultItemType(DefaultItemType: OlItemType); begin DefaultInterface.Set_DefaultItemType(DefaultItemType); end; function TResults.Item(Index: OleVariant): IDispatch; begin Result := DefaultInterface.Item(Index); end; function TResults.GetFirst: IDispatch; begin Result := DefaultInterface.GetFirst; end; function TResults.GetLast: IDispatch; begin Result := DefaultInterface.GetLast; end; function TResults.GetNext: IDispatch; begin Result := DefaultInterface.GetNext; end; function TResults.GetPrevious: IDispatch; begin Result := DefaultInterface.GetPrevious; end; procedure TResults.ResetColumns; begin DefaultInterface.ResetColumns; end; procedure TResults.SetColumns(const Columns: WideString); begin DefaultInterface.SetColumns(Columns); end; procedure TResults.Sort(const Property_: WideString); begin DefaultInterface.Sort(Property_, EmptyParam); end; procedure TResults.Sort(const Property_: WideString; Descending: OleVariant); begin DefaultInterface.Sort(Property_, Descending); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TResultsProperties.Create(AServer: TResults); begin inherited Create; FServer := AServer; end; function TResultsProperties.GetDefaultInterface: _Results; begin Result := FServer.DefaultInterface; end; function TResultsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TResultsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TResultsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TResultsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TResultsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TResultsProperties.Get_RawTable: IUnknown; begin Result := DefaultInterface.RawTable; end; function TResultsProperties.Get_DefaultItemType: OlItemType; begin Result := DefaultInterface.DefaultItemType; end; procedure TResultsProperties.Set_DefaultItemType(DefaultItemType: OlItemType); begin DefaultInterface.Set_DefaultItemType(DefaultItemType); end; {$ENDIF} class function CoViews.Create: _Views; begin Result := CreateComObject(CLASS_Views) as _Views; end; class function CoViews.CreateRemote(const MachineName: string): _Views; begin Result := CreateRemoteComObject(MachineName, CLASS_Views) as _Views; end; procedure TViews.InitServerData; const CServerData: TServerData = ( ClassID: '{0006F027-0000-0000-C000-000000000046}'; IntfIID: '{0006308D-0000-0000-C000-000000000046}'; EventIID: '{000630A5-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TViews.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Views; end; end; procedure TViews.ConnectTo(svrIntf: _Views); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TViews.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TViews.GetDefaultInterface: _Views; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TViews.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TViewsProperties.Create(Self); {$ENDIF} end; destructor TViews.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TViews.GetServerProperties: TViewsProperties; begin Result := FProps; end; {$ENDIF} procedure TViews.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 400: if Assigned(FOnViewAdd) then FOnViewAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as View {const View}); 64071: if Assigned(FOnViewRemove) then FOnViewRemove(Self, IUnknown(TVarData(Params[0]).VPointer) as View {const View}); end; {case DispID} end; function TViews.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TViews.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TViews.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TViews.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TViews.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TViews.Item(Index: OleVariant): View; begin Result := DefaultInterface.Item(Index); end; function TViews.Add(const Name: WideString; ViewType: OlViewType; SaveOption: OlViewSaveOption): View; begin Result := DefaultInterface.Add(Name, ViewType, SaveOption); end; procedure TViews.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; function TViews._NewEnum: IUnknown; begin Result := DefaultInterface._NewEnum; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TViewsProperties.Create(AServer: TViews); begin inherited Create; FServer := AServer; end; function TViewsProperties.GetDefaultInterface: _Views; begin Result := FServer.DefaultInterface; end; function TViewsProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TViewsProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TViewsProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TViewsProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TViewsProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} class function CoReminder.Create: _Reminder; begin Result := CreateComObject(CLASS_Reminder) as _Reminder; end; class function CoReminder.CreateRemote(const MachineName: string): _Reminder; begin Result := CreateRemoteComObject(MachineName, CLASS_Reminder) as _Reminder; end; procedure TReminder.InitServerData; const CServerData: TServerData = ( ClassID: '{0006F028-0000-0000-C000-000000000046}'; IntfIID: '{000630B0-0000-0000-C000-000000000046}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TReminder.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as _Reminder; end; end; procedure TReminder.ConnectTo(svrIntf: _Reminder); begin Disconnect; FIntf := svrIntf; end; procedure TReminder.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TReminder.GetDefaultInterface: _Reminder; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TReminder.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TReminderProperties.Create(Self); {$ENDIF} end; destructor TReminder.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TReminder.GetServerProperties: TReminderProperties; begin Result := FProps; end; {$ENDIF} function TReminder.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TReminder.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TReminder.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TReminder.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TReminder.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TReminder.Get_IsVisible: WordBool; begin Result := DefaultInterface.IsVisible; end; function TReminder.Get_Item: IDispatch; begin Result := DefaultInterface.Item; end; function TReminder.Get_NextReminderDate: TDateTime; begin Result := DefaultInterface.NextReminderDate; end; function TReminder.Get_OriginalReminderDate: TDateTime; begin Result := DefaultInterface.OriginalReminderDate; end; procedure TReminder.Dismiss; begin DefaultInterface.Dismiss; end; procedure TReminder.Snooze; begin DefaultInterface.Snooze(EmptyParam); end; procedure TReminder.Snooze(SnoozeTime: OleVariant); begin DefaultInterface.Snooze(SnoozeTime); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TReminderProperties.Create(AServer: TReminder); begin inherited Create; FServer := AServer; end; function TReminderProperties.GetDefaultInterface: _Reminder; begin Result := FServer.DefaultInterface; end; function TReminderProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TReminderProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TReminderProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TReminderProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TReminderProperties.Get_Caption: WideString; begin Result := DefaultInterface.Caption; end; function TReminderProperties.Get_IsVisible: WordBool; begin Result := DefaultInterface.IsVisible; end; function TReminderProperties.Get_Item: IDispatch; begin Result := DefaultInterface.Item; end; function TReminderProperties.Get_NextReminderDate: TDateTime; begin Result := DefaultInterface.NextReminderDate; end; function TReminderProperties.Get_OriginalReminderDate: TDateTime; begin Result := DefaultInterface.OriginalReminderDate; end; {$ENDIF} class function CoReminders.Create: _Reminders; begin Result := CreateComObject(CLASS_Reminders) as _Reminders; end; class function CoReminders.CreateRemote(const MachineName: string): _Reminders; begin Result := CreateRemoteComObject(MachineName, CLASS_Reminders) as _Reminders; end; procedure TReminders.InitServerData; const CServerData: TServerData = ( ClassID: '{0006F029-0000-0000-C000-000000000046}'; IntfIID: '{000630B1-0000-0000-C000-000000000046}'; EventIID: '{000630B2-0000-0000-C000-000000000046}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TReminders.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as _Reminders; end; end; procedure TReminders.ConnectTo(svrIntf: _Reminders); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TReminders.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TReminders.GetDefaultInterface: _Reminders; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation'); Result := FIntf; end; constructor TReminders.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TRemindersProperties.Create(Self); {$ENDIF} end; destructor TReminders.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TReminders.GetServerProperties: TRemindersProperties; begin Result := FProps; end; {$ENDIF} procedure TReminders.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 64147: if Assigned(FOnBeforeReminderShow) then FOnBeforeReminderShow(Self, WordBool((TVarData(Params[0]).VPointer)^) {var WordBool}); 64148: if Assigned(FOnReminderAdd) then FOnReminderAdd(Self, IUnknown(TVarData(Params[0]).VPointer) as _Reminder {const _Reminder}); 64149: if Assigned(FOnReminderChange) then FOnReminderChange(Self, IUnknown(TVarData(Params[0]).VPointer) as _Reminder {const _Reminder}); 64150: if Assigned(FOnReminderFire) then FOnReminderFire(Self, IUnknown(TVarData(Params[0]).VPointer) as _Reminder {const _Reminder}); 64151: if Assigned(FOnReminderRemove) then FOnReminderRemove(Self); 64152: if Assigned(FOnSnooze) then FOnSnooze(Self, IUnknown(TVarData(Params[0]).VPointer) as _Reminder {const _Reminder}); end; {case DispID} end; function TReminders.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TReminders.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TReminders.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TReminders.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TReminders.Get_Count: Integer; begin Result := DefaultInterface.Count; end; function TReminders.Item(Index: OleVariant): _Reminder; begin Result := DefaultInterface.Item(Index); end; procedure TReminders.Remove(Index: OleVariant); begin DefaultInterface.Remove(Index); end; function TReminders._NewEnum: IUnknown; begin Result := DefaultInterface._NewEnum; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TRemindersProperties.Create(AServer: TReminders); begin inherited Create; FServer := AServer; end; function TRemindersProperties.GetDefaultInterface: _Reminders; begin Result := FServer.DefaultInterface; end; function TRemindersProperties.Get_Application: _Application; begin Result := DefaultInterface.Application; end; function TRemindersProperties.Get_Class_: OlObjectClass; begin Result := DefaultInterface.Class_; end; function TRemindersProperties.Get_Session: _NameSpace; begin Result := DefaultInterface.Session; end; function TRemindersProperties.Get_Parent: IDispatch; begin Result := DefaultInterface.Parent; end; function TRemindersProperties.Get_Count: Integer; begin Result := DefaultInterface.Count; end; {$ENDIF} end.