home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Ocx / Servers / OUTLOOK8.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-07-22  |  660.9 KB  |  17,473 lines
  1. unit Outlook8;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.11  $
  15. // File generated on 6/3/99 9:50:06 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: typelibraries\msoutl8.olb (1)
  19. // IID\LCID: {00062FFF-0000-0000-C000-000000000046}\0
  20. // Helpfile: C:\typelib\VBAOUTL.HLP
  21. // DepndLst: 
  22. //   (1) v1.0 stdole, (C:\WINNT\System32\stdole32.tlb)
  23. //   (2) v2.0 Office, (D:\Program Files\Microsoft Office\Office\mso97.dll)
  24. //   (3) v2.0 MSForms, (C:\typelib\fm20.dll)
  25. //   (4) v2.0 StdType, (C:\typelib\OLEPRO32.dll)
  26. //   (5) v1.0 StdVCL, (C:\WINNT\System32\STDVCL32.DLL)
  27. // Errors:
  28. //   Hint: Symbol 'Application' renamed to 'OutlookApplication'
  29. //   Hint: Parameter 'Object' of _IApplication.CreateObject changed to 'Object_'
  30. //   Hint: Parameter 'Type' of _IApplication.GetNamespace changed to 'Type_'
  31. //   Hint: Parameter 'Type' of _DApplication.GetNamespace changed to 'Type_'
  32. //   Hint: Member 'End' of '_IAppointmentItem' changed to 'End_'
  33. //   Hint: Parameter 'End' of _IAppointmentItem.End changed to 'End_'
  34. //   Hint: Parameter 'End' of _IAppointmentItem.End changed to 'End_'
  35. //   Hint: Parameter 'Type' of _IAppointmentItem.SaveAs changed to 'Type_'
  36. //   Hint: Member 'End' of '_DAppointmentItem' changed to 'End_'
  37. //   Hint: Parameter 'Type' of _DAppointmentItem.SaveAs changed to 'Type_'
  38. //   Hint: Member 'Type' of '_IAttachment' changed to 'Type_'
  39. //   Hint: Parameter 'Type' of _IAttachment.Type changed to 'Type_'
  40. //   Hint: Member 'Type' of 'Attachment' changed to 'Type_'
  41. //   Hint: Parameter 'Type' of _IAttachments.Add changed to 'Type_'
  42. //   Hint: Parameter 'Type' of Attachments.Add changed to 'Type_'
  43. //   Hint: Parameter 'Type' of _IContactItem.SaveAs changed to 'Type_'
  44. //   Hint: Parameter 'Type' of _DContactItem.SaveAs changed to 'Type_'
  45. //   Hint: Parameter 'Type' of _IFolders.Add changed to 'Type_'
  46. //   Hint: Parameter 'Type' of Folders.Add changed to 'Type_'
  47. //   Hint: Parameter 'Type' of _IItems.Add changed to 'Type_'
  48. //   Hint: Parameter 'Property' of _IItems.Sort changed to 'Property_'
  49. //   Hint: Parameter 'Type' of Items.Add changed to 'Type_'
  50. //   Hint: Parameter 'Property' of Items.Sort changed to 'Property_'
  51. //   Hint: Member 'End' of '_IJournalItem' changed to 'End_'
  52. //   Hint: Parameter 'End' of _IJournalItem.End changed to 'End_'
  53. //   Hint: Parameter 'End' of _IJournalItem.End changed to 'End_'
  54. //   Hint: Member 'Type' of '_IJournalItem' changed to 'Type_'
  55. //   Hint: Parameter 'Type' of _IJournalItem.Type changed to 'Type_'
  56. //   Hint: Parameter 'Type' of _IJournalItem.Type changed to 'Type_'
  57. //   Hint: Parameter 'Type' of _IJournalItem.SaveAs changed to 'Type_'
  58. //   Hint: Member 'End' of '_DJournalItem' changed to 'End_'
  59. //   Hint: Member 'Type' of '_DJournalItem' changed to 'Type_'
  60. //   Hint: Parameter 'Type' of _DJournalItem.SaveAs changed to 'Type_'
  61. //   Hint: Member 'To' of '_IMailItem' changed to 'To_'
  62. //   Hint: Parameter 'To' of _IMailItem.To changed to 'To_'
  63. //   Hint: Parameter 'To' of _IMailItem.To changed to 'To_'
  64. //   Hint: Parameter 'Type' of _IMailItem.SaveAs changed to 'Type_'
  65. //   Hint: Member 'To' of '_DMailItem' changed to 'To_'
  66. //   Hint: Parameter 'Type' of _DMailItem.SaveAs changed to 'Type_'
  67. //   Hint: Parameter 'Type' of _IMeetingCanceledItem.SaveAs changed to 'Type_'
  68. //   Hint: Parameter 'Type' of _DMeetingCanceledItem.SaveAs changed to 'Type_'
  69. //   Hint: Parameter 'Type' of _IMeetingRequestAcceptedItem.SaveAs changed to 'Type_'
  70. //   Hint: Parameter 'Type' of _DMeetingRequestAcceptedItem.SaveAs changed to 'Type_'
  71. //   Hint: Parameter 'Type' of _IMeetingRequestDeclinedItem.SaveAs changed to 'Type_'
  72. //   Hint: Parameter 'Type' of _DMeetingRequestDeclinedItem.SaveAs changed to 'Type_'
  73. //   Hint: Parameter 'Type' of _IMeetingRequestItem.SaveAs changed to 'Type_'
  74. //   Hint: Parameter 'Type' of _DMeetingRequestItem.SaveAs changed to 'Type_'
  75. //   Hint: Parameter 'Type' of _IMeetingRequestTentativeItem.SaveAs changed to 'Type_'
  76. //   Hint: Parameter 'Type' of _DMeetingRequestTentativeItem.SaveAs changed to 'Type_'
  77. //   Hint: Member 'Type' of '_INameSpace' changed to 'Type_'
  78. //   Hint: Parameter 'Type' of _INameSpace.Type changed to 'Type_'
  79. //   Hint: Member 'Type' of 'NameSpace' changed to 'Type_'
  80. //   Hint: Parameter 'Type' of _INoteItem.SaveAs changed to 'Type_'
  81. //   Hint: Parameter 'Type' of _DNoteItem.SaveAs changed to 'Type_'
  82. //   Hint: Parameter 'Type' of _IOfficeDocumentItem.SaveAs changed to 'Type_'
  83. //   Hint: Parameter 'Type' of _DOfficeDocumentItem.SaveAs changed to 'Type_'
  84. //   Hint: Parameter 'Type' of _IPostItem.SaveAs changed to 'Type_'
  85. //   Hint: Parameter 'Type' of _DPostItem.SaveAs changed to 'Type_'
  86. //   Hint: Member 'Type' of '_IRecipient' changed to 'Type_'
  87. //   Hint: Parameter 'Type' of _IRecipient.Type changed to 'Type_'
  88. //   Hint: Parameter 'Type' of _IRecipient.Type changed to 'Type_'
  89. //   Hint: Member 'Type' of 'Recipient' changed to 'Type_'
  90. //   Hint: Parameter 'Type' of _IRemoteItem.SaveAs changed to 'Type_'
  91. //   Hint: Parameter 'Type' of _DRemoteItem.SaveAs changed to 'Type_'
  92. //   Hint: Parameter 'Type' of _IReportItem.SaveAs changed to 'Type_'
  93. //   Hint: Parameter 'Type' of _DReportItem.SaveAs changed to 'Type_'
  94. //   Hint: Parameter 'Type' of _ITaskItem.SaveAs changed to 'Type_'
  95. //   Hint: Parameter 'Type' of _DTaskItem.SaveAs changed to 'Type_'
  96. //   Hint: Parameter 'Type' of _ITaskRequestAcceptItem.SaveAs changed to 'Type_'
  97. //   Hint: Parameter 'Type' of _DTaskRequestAcceptItem.SaveAs changed to 'Type_'
  98. //   Hint: Parameter 'Type' of _ITaskRequestDeclineItem.SaveAs changed to 'Type_'
  99. //   Hint: Parameter 'Type' of _DTaskRequestDeclineItem.SaveAs changed to 'Type_'
  100. //   Hint: Parameter 'Type' of _ITaskRequestItem.SaveAs changed to 'Type_'
  101. //   Hint: Parameter 'Type' of _DTaskRequestItem.SaveAs changed to 'Type_'
  102. //   Hint: Parameter 'Type' of _ITaskRequestUpdateItem.SaveAs changed to 'Type_'
  103. //   Hint: Parameter 'Type' of _DTaskRequestUpdateItem.SaveAs changed to 'Type_'
  104. //   Hint: Parameter 'Type' of _IUserProperties.Add changed to 'Type_'
  105. //   Hint: Parameter 'Type' of UserProperties.Add changed to 'Type_'
  106. //   Hint: Member 'Type' of '_IUserProperty' changed to 'Type_'
  107. //   Hint: Parameter 'Type' of _IUserProperty.Type changed to 'Type_'
  108. //   Hint: Member 'Type' of 'UserProperty' changed to 'Type_'
  109. //   Hint: Symbol 'Application' renamed to 'OutlookApplication'
  110. //   Hint: Member 'End' of '_IAppointmentItem' changed to 'End_'
  111. //   Hint: Member 'End' of '_DAppointmentItem' changed to 'End_'
  112. //   Hint: Member 'Type' of '_IAttachment' changed to 'Type_'
  113. //   Hint: Member 'Type' of 'Attachment' changed to 'Type_'
  114. //   Hint: Member 'End' of '_IJournalItem' changed to 'End_'
  115. //   Hint: Member 'Type' of '_IJournalItem' changed to 'Type_'
  116. //   Hint: Member 'End' of '_DJournalItem' changed to 'End_'
  117. //   Hint: Member 'Type' of '_DJournalItem' changed to 'Type_'
  118. //   Hint: Member 'To' of '_IMailItem' changed to 'To_'
  119. //   Hint: Member 'To' of '_DMailItem' changed to 'To_'
  120. //   Hint: Member 'Type' of '_INameSpace' changed to 'Type_'
  121. //   Hint: Member 'Type' of 'NameSpace' changed to 'Type_'
  122. //   Hint: Member 'Type' of '_IRecipient' changed to 'Type_'
  123. //   Hint: Member 'Type' of 'Recipient' changed to 'Type_'
  124. //   Hint: Member 'Type' of '_IUserProperty' changed to 'Type_'
  125. //   Hint: Member 'Type' of 'UserProperty' changed to 'Type_'
  126. // ************************************************************************ //
  127. interface
  128.  
  129. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  130.   Office97, MSForms97;
  131.  
  132. // *********************************************************************//
  133. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  134. //   Type Libraries     : LIBID_xxxx                                      
  135. //   CoClasses          : CLASS_xxxx                                      
  136. //   DISPInterfaces     : DIID_xxxx                                       
  137. //   Non-DISP interfaces: IID_xxxx                                        
  138. // *********************************************************************//
  139. const
  140.   // TypeLibrary Major and minor versions
  141.   OutlookMajorVersion = 8;
  142.   OutlookMinorVersion = 0;
  143.  
  144.   LIBID_Outlook: TGUID = '{00062FFF-0000-0000-C000-000000000046}';
  145.  
  146.   IID__IItemEvents: TGUID = '{0006313A-0000-0000-C000-000000000046}';
  147.   DIID__DItemEvents: TGUID = '{0006303A-0000-0000-C000-000000000046}';
  148.   IID__IAction: TGUID = '{00063143-0000-0000-C000-000000000046}';
  149.   DIID_Action: TGUID = '{00063043-0000-0000-C000-000000000046}';
  150.   IID__IActions: TGUID = '{0006313E-0000-0000-C000-000000000046}';
  151.   DIID_Actions: TGUID = '{0006303E-0000-0000-C000-000000000046}';
  152.   IID__IApplication: TGUID = '{00063101-0000-0000-C000-000000000046}';
  153.   DIID__DApplication: TGUID = '{00063001-0000-0000-C000-000000000046}';
  154.   CLASS_OutlookApplication: TGUID = '{0006F033-0000-0000-C000-000000000046}';
  155.   IID__IAppointmentItem: TGUID = '{00063133-0000-0000-C000-000000000046}';
  156.   DIID__DAppointmentItem: TGUID = '{00063033-0000-0000-C000-000000000046}';
  157.   CLASS_AppointmentItem: TGUID = '{00061030-0000-0000-C000-000000000046}';
  158.   IID__IAttachment: TGUID = '{00063107-0000-0000-C000-000000000046}';
  159.   DIID_Attachment: TGUID = '{00063007-0000-0000-C000-000000000046}';
  160.   IID__IAttachments: TGUID = '{0006313C-0000-0000-C000-000000000046}';
  161.   DIID_Attachments: TGUID = '{0006303C-0000-0000-C000-000000000046}';
  162.   IID__IContactItem: TGUID = '{00063121-0000-0000-C000-000000000046}';
  163.   DIID__DContactItem: TGUID = '{00063021-0000-0000-C000-000000000046}';
  164.   CLASS_ContactItem: TGUID = '{00061031-0000-0000-C000-000000000046}';
  165.   IID__IExplorer: TGUID = '{00063103-0000-0000-C000-000000000046}';
  166.   DIID_Explorer: TGUID = '{00063003-0000-0000-C000-000000000046}';
  167.   IID__IFolders: TGUID = '{00063140-0000-0000-C000-000000000046}';
  168.   DIID_Folders: TGUID = '{00063040-0000-0000-C000-000000000046}';
  169.   IID__IFormDescription: TGUID = '{00063146-0000-0000-C000-000000000046}';
  170.   DIID_FormDescription: TGUID = '{00063046-0000-0000-C000-000000000046}';
  171.   IID__IInspector: TGUID = '{00063105-0000-0000-C000-000000000046}';
  172.   DIID_Inspector: TGUID = '{00063005-0000-0000-C000-000000000046}';
  173.   IID__IItems: TGUID = '{00063141-0000-0000-C000-000000000046}';
  174.   DIID_Items: TGUID = '{00063041-0000-0000-C000-000000000046}';
  175.   IID__IJournalItem: TGUID = '{00063122-0000-0000-C000-000000000046}';
  176.   DIID__DJournalItem: TGUID = '{00063022-0000-0000-C000-000000000046}';
  177.   CLASS_JournalItem: TGUID = '{00061037-0000-0000-C000-000000000046}';
  178.   IID__IMailItem: TGUID = '{00063134-0000-0000-C000-000000000046}';
  179.   DIID__DMailItem: TGUID = '{00063034-0000-0000-C000-000000000046}';
  180.   CLASS_MailItem: TGUID = '{00061033-0000-0000-C000-000000000046}';
  181.   IID__IMAPIFolder: TGUID = '{00063106-0000-0000-C000-000000000046}';
  182.   DIID_MAPIFolder: TGUID = '{00063006-0000-0000-C000-000000000046}';
  183.   IID__IMeetingCanceledItem: TGUID = '{00063128-0000-0000-C000-000000000046}';
  184.   DIID__DMeetingCanceledItem: TGUID = '{00063028-0000-0000-C000-000000000046}';
  185.   CLASS__MeetingCanceledItem: TGUID = '{00061040-0000-0000-C000-000000000046}';
  186.   IID__IMeetingRequestAcceptedItem: TGUID = '{00063130-0000-0000-C000-000000000046}';
  187.   DIID__DMeetingRequestAcceptedItem: TGUID = '{00063030-0000-0000-C000-000000000046}';
  188.   CLASS__MeetingRequestAcceptedItem: TGUID = '{00061042-0000-0000-C000-000000000046}';
  189.   IID__IMeetingRequestDeclinedItem: TGUID = '{00063131-0000-0000-C000-000000000046}';
  190.   DIID__DMeetingRequestDeclinedItem: TGUID = '{00063031-0000-0000-C000-000000000046}';
  191.   CLASS__MeetingRequestDeclinedItem: TGUID = '{00061043-0000-0000-C000-000000000046}';
  192.   IID__IMeetingRequestItem: TGUID = '{00063129-0000-0000-C000-000000000046}';
  193.   DIID__DMeetingRequestItem: TGUID = '{00063029-0000-0000-C000-000000000046}';
  194.   CLASS_MeetingRequestItem: TGUID = '{00061041-0000-0000-C000-000000000046}';
  195.   IID__IMeetingRequestTentativeItem: TGUID = '{00063132-0000-0000-C000-000000000046}';
  196.   DIID__DMeetingRequestTentativeItem: TGUID = '{00063032-0000-0000-C000-000000000046}';
  197.   CLASS__MeetingRequestTentativeItem: TGUID = '{00061044-0000-0000-C000-000000000046}';
  198.   IID__INameSpace: TGUID = '{00063102-0000-0000-C000-000000000046}';
  199.   DIID_NameSpace: TGUID = '{00063002-0000-0000-C000-000000000046}';
  200.   IID__INoteItem: TGUID = '{00063125-0000-0000-C000-000000000046}';
  201.   DIID__DNoteItem: TGUID = '{00063025-0000-0000-C000-000000000046}';
  202.   CLASS_NoteItem: TGUID = '{00061034-0000-0000-C000-000000000046}';
  203.   IID__IOfficeDocumentItem: TGUID = '{00063120-0000-0000-C000-000000000046}';
  204.   DIID__DOfficeDocumentItem: TGUID = '{00063020-0000-0000-C000-000000000046}';
  205.   CLASS__OfficeDocumentItem: TGUID = '{00061061-0000-0000-C000-000000000046}';
  206.   IID__IPages: TGUID = '{0006313F-0000-0000-C000-000000000046}';
  207.   DIID_Pages: TGUID = '{0006303F-0000-0000-C000-000000000046}';
  208.   IID__IPostItem: TGUID = '{00063124-0000-0000-C000-000000000046}';
  209.   DIID__DPostItem: TGUID = '{00063024-0000-0000-C000-000000000046}';
  210.   CLASS_PostItem: TGUID = '{0006103A-0000-0000-C000-000000000046}';
  211.   IID__IRecipient: TGUID = '{00063145-0000-0000-C000-000000000046}';
  212.   DIID_Recipient: TGUID = '{00063045-0000-0000-C000-000000000046}';
  213.   IID__IRecipients: TGUID = '{0006313B-0000-0000-C000-000000000046}';
  214.   DIID_Recipients: TGUID = '{0006303B-0000-0000-C000-000000000046}';
  215.   IID__IRecurrencePattern: TGUID = '{00063144-0000-0000-C000-000000000046}';
  216.   DIID_RecurrencePattern: TGUID = '{00063044-0000-0000-C000-000000000046}';
  217.   IID__IRemoteItem: TGUID = '{00063123-0000-0000-C000-000000000046}';
  218.   DIID__DRemoteItem: TGUID = '{00063023-0000-0000-C000-000000000046}';
  219.   CLASS_RemoteItem: TGUID = '{00061060-0000-0000-C000-000000000046}';
  220.   IID__IReportItem: TGUID = '{00063126-0000-0000-C000-000000000046}';
  221.   DIID__DReportItem: TGUID = '{00063026-0000-0000-C000-000000000046}';
  222.   CLASS_ReportItem: TGUID = '{00061035-0000-0000-C000-000000000046}';
  223.   IID__ITaskItem: TGUID = '{00063135-0000-0000-C000-000000000046}';
  224.   DIID__DTaskItem: TGUID = '{00063035-0000-0000-C000-000000000046}';
  225.   CLASS_TaskItem: TGUID = '{00061032-0000-0000-C000-000000000046}';
  226.   IID__ITaskRequestAcceptItem: TGUID = '{00063138-0000-0000-C000-000000000046}';
  227.   DIID__DTaskRequestAcceptItem: TGUID = '{00063038-0000-0000-C000-000000000046}';
  228.   CLASS__TaskRequestAcceptItem: TGUID = '{00061052-0000-0000-C000-000000000046}';
  229.   IID__ITaskRequestDeclineItem: TGUID = '{00063139-0000-0000-C000-000000000046}';
  230.   DIID__DTaskRequestDeclineItem: TGUID = '{00063039-0000-0000-C000-000000000046}';
  231.   CLASS__TaskRequestDeclineItem: TGUID = '{00061053-0000-0000-C000-000000000046}';
  232.   IID__ITaskRequestItem: TGUID = '{00063136-0000-0000-C000-000000000046}';
  233.   DIID__DTaskRequestItem: TGUID = '{00063036-0000-0000-C000-000000000046}';
  234.   CLASS_TaskRequestItem: TGUID = '{00061050-0000-0000-C000-000000000046}';
  235.   IID__ITaskRequestUpdateItem: TGUID = '{00063137-0000-0000-C000-000000000046}';
  236.   DIID__DTaskRequestUpdateItem: TGUID = '{00063037-0000-0000-C000-000000000046}';
  237.   CLASS__TaskRequestUpdateItem: TGUID = '{00061051-0000-0000-C000-000000000046}';
  238.   IID__IUserProperties: TGUID = '{0006313D-0000-0000-C000-000000000046}';
  239.   DIID_UserProperties: TGUID = '{0006303D-0000-0000-C000-000000000046}';
  240.   IID__IUserProperty: TGUID = '{00063142-0000-0000-C000-000000000046}';
  241.   DIID_UserProperty: TGUID = '{00063042-0000-0000-C000-000000000046}';
  242.   IID__IRecipientControl: TGUID = '{D87E7E16-6897-11CE-A6C0-00AA00608FAA}';
  243.   DIID__DRecipientControl: TGUID = '{0006F025-0000-0000-C000-000000000046}';
  244.   DIID__DRecipientControlEvents: TGUID = '{D87E7E17-6897-11CE-A6C0-00AA00608FAA}';
  245.   CLASS__RecipientControl: TGUID = '{0006F023-0000-0000-C000-000000000046}';
  246.   IID__IDocSiteControl: TGUID = '{43507DD0-811D-11CE-B565-00AA00608FAA}';
  247.   DIID__DDocSiteControl: TGUID = '{0006F026-0000-0000-C000-000000000046}';
  248.   DIID__DDocSiteControlEvents: TGUID = '{50BB9B50-811D-11CE-B565-00AA00608FAA}';
  249.   CLASS__DocSiteControl: TGUID = '{0006F024-0000-0000-C000-000000000046}';
  250.  
  251. // *********************************************************************//
  252. // Declaration of Enumerations defined in Type Library                    
  253. // *********************************************************************//
  254. // OlAttachmentType constants
  255. type
  256.   OlAttachmentType = TOleEnum;
  257. const
  258.   olByValue = $00000001;
  259.   olByReference = $00000004;
  260.   olEmbeddedItem = $00000005;
  261.   olOLE = $00000006;
  262.  
  263. // OlBusyStatus constants
  264. type
  265.   OlBusyStatus = TOleEnum;
  266. const
  267.   olFree = $00000000;
  268.   olTentative = $00000001;
  269.   olBusy = $00000002;
  270.   olOutOfOffice = $00000003;
  271.  
  272. // OlDaysOfWeek constants
  273. type
  274.   OlDaysOfWeek = TOleEnum;
  275. const
  276.   olSunday = $00000001;
  277.   olMonday = $00000002;
  278.   olTuesday = $00000004;
  279.   olWednesday = $00000008;
  280.   olThursday = $00000010;
  281.   olFriday = $00000020;
  282.   olSaturday = $00000040;
  283.  
  284. // OlDefaultFolders constants
  285. type
  286.   OlDefaultFolders = TOleEnum;
  287. const
  288.   olFolderDeletedItems = $00000003;
  289.   olFolderOutbox = $00000004;
  290.   olFolderSentMail = $00000005;
  291.   olFolderInbox = $00000006;
  292.   olFolderCalendar = $00000009;
  293.   olFolderContacts = $0000000A;
  294.   olFolderJournal = $0000000B;
  295.   olFolderNotes = $0000000C;
  296.   olFolderTasks = $0000000D;
  297.  
  298. // OlFolderDisplayMode constants
  299. type
  300.   OlFolderDisplayMode = TOleEnum;
  301. const
  302.   olFolderDisplayNormal = $00000000;
  303.   olFolderDisplayFolderOnly = $00000001;
  304.   olFolderDisplayNoNavigation = $00000002;
  305.  
  306. // OlFormRegistry constants
  307. type
  308.   OlFormRegistry = TOleEnum;
  309. const
  310.   olDefaultRegistry = $00000000;
  311.   olOrganizationRegistry = $00000004;
  312.   olPersonalRegistry = $00000002;
  313.   olFolderRegistry = $00000003;
  314.  
  315. // OlGender constants
  316. type
  317.   OlGender = TOleEnum;
  318. const
  319.   olUnspecified = $00000000;
  320.   olFemale = $00000001;
  321.   olMale = $00000002;
  322.  
  323. // OlImportance constants
  324. type
  325.   OlImportance = TOleEnum;
  326. const
  327.   olImportanceLow = $00000000;
  328.   olImportanceNormal = $00000001;
  329.   olImportanceHigh = $00000002;
  330.  
  331. // OlInspectorClose constants
  332. type
  333.   OlInspectorClose = TOleEnum;
  334. const
  335.   olSave = $00000000;
  336.   olDiscard = $00000001;
  337.   olPromptForSave = $00000002;
  338.  
  339. // OlItems constants
  340. type
  341.   OlItems = TOleEnum;
  342. const
  343.   olMailItem = $00000000;
  344.   olAppointmentItem = $00000001;
  345.   olContactItem = $00000002;
  346.   olTaskItem = $00000003;
  347.   olJournalItem = $00000004;
  348.   olNoteItem = $00000005;
  349.   olPostItem = $00000006;
  350.  
  351. // OlJournalRecipientType constants
  352. type
  353.   OlJournalRecipientType = TOleEnum;
  354. const
  355.   olAssociatedContact = $00000001;
  356.  
  357. // OlMailingAddress constants
  358. type
  359.   OlMailingAddress = TOleEnum;
  360. const
  361.   olNone = $00000000;
  362.   olHome = $00000001;
  363.   olBusiness = $00000002;
  364.   olOther = $00000003;
  365.  
  366. // OlMailRecipientType constants
  367. type
  368.   OlMailRecipientType = TOleEnum;
  369. const
  370.   olOriginator = $00000000;
  371.   olTo = $00000001;
  372.   olCC = $00000002;
  373.   olBCC = $00000003;
  374.  
  375. // OlMeetingRecipientType constants
  376. type
  377.   OlMeetingRecipientType = TOleEnum;
  378. const
  379.   olOrganizer = $00000000;
  380.   olRequired = $00000001;
  381.   olOptional = $00000002;
  382.   olResource = $00000003;
  383.  
  384. // OlMeetingStatus constants
  385. type
  386.   OlMeetingStatus = TOleEnum;
  387. const
  388.   olNonMeeting = $00000000;
  389.   olMeeting = $00000001;
  390.   olMeetingReceived = $00000003;
  391.   olMeetingCanceled = $00000005;
  392.  
  393. // OlNoteColor constants
  394. type
  395.   OlNoteColor = TOleEnum;
  396. const
  397.   olBlue = $00000000;
  398.   olGreen = $00000001;
  399.   olPink = $00000002;
  400.   olYellow = $00000003;
  401.   olWhite = $00000004;
  402.  
  403. // OlRecurrenceType constants
  404. type
  405.   OlRecurrenceType = TOleEnum;
  406. const
  407.   olRecursDaily = $00000000;
  408.   olRecursWeekly = $00000001;
  409.   olRecursMonthly = $00000002;
  410.   olRecursMonthNth = $00000003;
  411.   olRecursYearly = $00000005;
  412.   olRecursYearNth = $00000006;
  413.  
  414. // OlRemoteStatus constants
  415. type
  416.   OlRemoteStatus = TOleEnum;
  417. const
  418.   olRemoteStatusNone = $00000000;
  419.   olUnMarked = $00000001;
  420.   olMarkedForDownload = $00000002;
  421.   olMarkedForCopy = $00000003;
  422.   olMarkedForDelete = $00000004;
  423.  
  424. // OlMeetingResponse constants
  425. type
  426.   OlMeetingResponse = TOleEnum;
  427. const
  428.   olMeetingAccepted = $00000003;
  429.   olMeetingDeclined = $00000004;
  430.   olMeetingTentative = $00000002;
  431.  
  432. // OlResponseStatus constants
  433. type
  434.   OlResponseStatus = TOleEnum;
  435. const
  436.   olResponseNone = $00000000;
  437.   olResponseOrganized = $00000001;
  438.   olResponseTentative = $00000002;
  439.   olResponseAccepted = $00000003;
  440.   olResponseDeclined = $00000004;
  441.   olResponseNotResponded = $00000005;
  442.  
  443. // OlSaveAsType constants
  444. type
  445.   OlSaveAsType = TOleEnum;
  446. const
  447.   olTXT = $00000000;
  448.   olRTF = $00000001;
  449.   olTemplate = $00000002;
  450.   olMSG = $00000003;
  451.   olDoc = $00000004;
  452.  
  453. // OlSensitivity constants
  454. type
  455.   OlSensitivity = TOleEnum;
  456. const
  457.   olNormal = $00000000;
  458.   olPersonal = $00000001;
  459.   olPrivate = $00000002;
  460.   olConfidential = $00000003;
  461.  
  462. // OlFlagStatus constants
  463. type
  464.   OlFlagStatus = TOleEnum;
  465. const
  466.   olNoFlag = $00000000;
  467.   olFlagComplete = $00000001;
  468.   olFlagMarked = $00000002;
  469.  
  470. // OlTaskDelegationState constants
  471. type
  472.   OlTaskDelegationState = TOleEnum;
  473. const
  474.   olTaskNotDelegated = $00000000;
  475.   olTaskDelegationUnknown = $00000001;
  476.   olTaskDelegationAccepted = $00000002;
  477.   olTaskDelegationDeclined = $00000003;
  478.  
  479. // OlTaskOwnership constants
  480. type
  481.   OlTaskOwnership = TOleEnum;
  482. const
  483.   olNewTask = $00000000;
  484.   olDelegatedTask = $00000001;
  485.   olOwnTask = $00000002;
  486.  
  487. // OlTaskRecipientType constants
  488. type
  489.   OlTaskRecipientType = TOleEnum;
  490. const
  491.   olUpdate = $00000001;
  492.   olFinalStatus = $00000002;
  493.  
  494. // OlTaskResponse constants
  495. type
  496.   OlTaskResponse = TOleEnum;
  497. const
  498.   olTaskSimple = $00000000;
  499.   olTaskAssign = $00000001;
  500.   olTaskAccept = $00000002;
  501.   olTaskDecline = $00000003;
  502.  
  503. // OlTaskStatus constants
  504. type
  505.   OlTaskStatus = TOleEnum;
  506. const
  507.   olTaskNotStarted = $00000000;
  508.   olTaskInProgress = $00000001;
  509.   olTaskComplete = $00000002;
  510.   olTaskWaiting = $00000003;
  511.   olTaskDeferred = $00000004;
  512.  
  513. // OlTrackingStatus constants
  514. type
  515.   OlTrackingStatus = TOleEnum;
  516. const
  517.   olTrackingNone = $00000000;
  518.   olTrackingDelivered = $00000001;
  519.   olTrackingNotDelivered = $00000002;
  520.   olTrackingNotRead = $00000003;
  521.   olTrackingRecallFailure = $00000004;
  522.   olTrackingRecallSuccess = $00000005;
  523.   olTrackingRead = $00000006;
  524.   olTrackingReplied = $00000007;
  525.  
  526. // OlUserPropertyType constants
  527. type
  528.   OlUserPropertyType = TOleEnum;
  529. const
  530.   olText = $00000001;
  531.   olNumber = $00000003;
  532.   olDateTime = $00000005;
  533.   olYesNo = $00000006;
  534.   olDuration = $00000007;
  535.   olKeywords = $0000000B;
  536.   olPercent = $0000000C;
  537.   olCurrency = $0000000E;
  538.   olFormula = $00000012;
  539.   olCombination = $00000013;
  540.  
  541. // OlActionCopyLike constants
  542. type
  543.   OlActionCopyLike = TOleEnum;
  544. const
  545.   olReply = $00000000;
  546.   olReplyAll = $00000001;
  547.   olForward = $00000002;
  548.   olReplyFolder = $00000003;
  549.   olRespond = $00000004;
  550.  
  551. // OlActionReplyStyle constants
  552. type
  553.   OlActionReplyStyle = TOleEnum;
  554. const
  555.   olOmitOriginalText = $00000000;
  556.   olEmbedOriginalItem = $00000001;
  557.   olIncludeOriginalText = $00000002;
  558.   olIndentOriginalText = $00000003;
  559.   olLinkOriginalItem = $00000004;
  560.   olUserPreference = $00000005;
  561.  
  562. // OlActionResponseStyle constants
  563. type
  564.   OlActionResponseStyle = TOleEnum;
  565. const
  566.   olOpen = $00000000;
  567.   olSend = $00000001;
  568.   olPrompt = $00000002;
  569.  
  570. // OlActionShowOn constants
  571. type
  572.   OlActionShowOn = TOleEnum;
  573. const
  574.   olDontShow = $00000000;
  575.   olMenu = $00000001;
  576.   olMenuAndToolbar = $00000002;
  577.  
  578. type
  579.  
  580. // *********************************************************************//
  581. // Forward declaration of types defined in TypeLibrary                    
  582. // *********************************************************************//
  583.   _IItemEvents = interface;
  584.   _DItemEvents = dispinterface;
  585.   _IAction = interface;
  586.   Action = dispinterface;
  587.   _IActions = interface;
  588.   Actions = dispinterface;
  589.   _IApplication = interface;
  590.   _DApplication = dispinterface;
  591.   _IAppointmentItem = interface;
  592.   _DAppointmentItem = dispinterface;
  593.   _IAttachment = interface;
  594.   Attachment = dispinterface;
  595.   _IAttachments = interface;
  596.   Attachments = dispinterface;
  597.   _IContactItem = interface;
  598.   _DContactItem = dispinterface;
  599.   _IExplorer = interface;
  600.   Explorer = dispinterface;
  601.   _IFolders = interface;
  602.   Folders = dispinterface;
  603.   _IFormDescription = interface;
  604.   FormDescription = dispinterface;
  605.   _IInspector = interface;
  606.   Inspector = dispinterface;
  607.   _IItems = interface;
  608.   Items = dispinterface;
  609.   _IJournalItem = interface;
  610.   _DJournalItem = dispinterface;
  611.   _IMailItem = interface;
  612.   _DMailItem = dispinterface;
  613.   _IMAPIFolder = interface;
  614.   MAPIFolder = dispinterface;
  615.   _IMeetingCanceledItem = interface;
  616.   _DMeetingCanceledItem = dispinterface;
  617.   _IMeetingRequestAcceptedItem = interface;
  618.   _DMeetingRequestAcceptedItem = dispinterface;
  619.   _IMeetingRequestDeclinedItem = interface;
  620.   _DMeetingRequestDeclinedItem = dispinterface;
  621.   _IMeetingRequestItem = interface;
  622.   _DMeetingRequestItem = dispinterface;
  623.   _IMeetingRequestTentativeItem = interface;
  624.   _DMeetingRequestTentativeItem = dispinterface;
  625.   _INameSpace = interface;
  626.   NameSpace = dispinterface;
  627.   _INoteItem = interface;
  628.   _DNoteItem = dispinterface;
  629.   _IOfficeDocumentItem = interface;
  630.   _DOfficeDocumentItem = dispinterface;
  631.   _IPages = interface;
  632.   Pages = dispinterface;
  633.   _IPostItem = interface;
  634.   _DPostItem = dispinterface;
  635.   _IRecipient = interface;
  636.   Recipient = dispinterface;
  637.   _IRecipients = interface;
  638.   Recipients = dispinterface;
  639.   _IRecurrencePattern = interface;
  640.   RecurrencePattern = dispinterface;
  641.   _IRemoteItem = interface;
  642.   _DRemoteItem = dispinterface;
  643.   _IReportItem = interface;
  644.   _DReportItem = dispinterface;
  645.   _ITaskItem = interface;
  646.   _DTaskItem = dispinterface;
  647.   _ITaskRequestAcceptItem = interface;
  648.   _DTaskRequestAcceptItem = dispinterface;
  649.   _ITaskRequestDeclineItem = interface;
  650.   _DTaskRequestDeclineItem = dispinterface;
  651.   _ITaskRequestItem = interface;
  652.   _DTaskRequestItem = dispinterface;
  653.   _ITaskRequestUpdateItem = interface;
  654.   _DTaskRequestUpdateItem = dispinterface;
  655.   _IUserProperties = interface;
  656.   UserProperties = dispinterface;
  657.   _IUserProperty = interface;
  658.   UserProperty = dispinterface;
  659.   _IRecipientControl = interface;
  660.   _DRecipientControl = dispinterface;
  661.   _DRecipientControlEvents = dispinterface;
  662.   _IDocSiteControl = interface;
  663.   _DDocSiteControl = dispinterface;
  664.   _DDocSiteControlEvents = dispinterface;
  665.  
  666. // *********************************************************************//
  667. // Declaration of CoClasses defined in Type Library                       
  668. // (NOTE: Here we map each CoClass to its Default Interface)              
  669. // *********************************************************************//
  670.   OutlookApplication = _DApplication;
  671.   AppointmentItem = _DAppointmentItem;
  672.   ContactItem = _DContactItem;
  673.   JournalItem = _DJournalItem;
  674.   MailItem = _DMailItem;
  675.   _MeetingCanceledItem = _DMeetingCanceledItem;
  676.   _MeetingRequestAcceptedItem = _DMeetingRequestAcceptedItem;
  677.   _MeetingRequestDeclinedItem = _DMeetingRequestDeclinedItem;
  678.   MeetingRequestItem = _DMeetingRequestItem;
  679.   _MeetingRequestTentativeItem = _DMeetingRequestTentativeItem;
  680.   NoteItem = _DNoteItem;
  681.   _OfficeDocumentItem = _DOfficeDocumentItem;
  682.   PostItem = _DPostItem;
  683.   RemoteItem = _DRemoteItem;
  684.   ReportItem = _DReportItem;
  685.   TaskItem = _DTaskItem;
  686.   _TaskRequestAcceptItem = _DTaskRequestAcceptItem;
  687.   _TaskRequestDeclineItem = _DTaskRequestDeclineItem;
  688.   TaskRequestItem = _DTaskRequestItem;
  689.   _TaskRequestUpdateItem = _DTaskRequestUpdateItem;
  690.   _RecipientControl = _DRecipientControl;
  691.   _DocSiteControl = _DDocSiteControl;
  692.  
  693.  
  694. // *********************************************************************//
  695. // Declaration of structures, unions and aliases.                         
  696. // *********************************************************************//
  697.   PUserType1 = ^TGUID; {*}
  698.   PShortint1 = ^Shortint; {*}
  699.   PPShortint1 = ^PShortint1; {*}
  700.   PUserType2 = ^DISPPARAMS; {*}
  701.  
  702.  
  703. // *********************************************************************//
  704. // Interface: _IItemEvents
  705. // Flags:     (4096) Dispatchable
  706. // GUID:      {0006313A-0000-0000-C000-000000000046}
  707. // *********************************************************************//
  708.   _IItemEvents = interface(IDispatch)
  709.     ['{0006313A-0000-0000-C000-000000000046}']
  710.     function  Read: WordBool; stdcall;
  711.     function  Write: WordBool; stdcall;
  712.     function  Open: WordBool; stdcall;
  713.     function  Close: WordBool; stdcall;
  714.     function  Send: WordBool; stdcall;
  715.     function  Reply(const Response: IDispatch): WordBool; stdcall;
  716.     function  ReplyAll(const Response: IDispatch): WordBool; stdcall;
  717.     function  Forward(const Forward: IDispatch): WordBool; stdcall;
  718.     function  CustomAction(const Action: IDispatch; const Response: IDispatch): WordBool; stdcall;
  719.     procedure CustomPropertyChange(const Name: WideString); stdcall;
  720.     procedure PropertyChange(const Name: WideString); stdcall;
  721.   end;
  722.  
  723. // *********************************************************************//
  724. // DispIntf:  _DItemEvents
  725. // Flags:     (4096) Dispatchable
  726. // GUID:      {0006303A-0000-0000-C000-000000000046}
  727. // *********************************************************************//
  728.   _DItemEvents = dispinterface
  729.     ['{0006303A-0000-0000-C000-000000000046}']
  730.     function  Read: WordBool; dispid 61441;
  731.     function  Write: WordBool; dispid 61442;
  732.     function  Open: WordBool; dispid 61443;
  733.     function  Close: WordBool; dispid 61444;
  734.     function  Send: WordBool; dispid 61445;
  735.     function  Reply(const Response: IDispatch): WordBool; dispid 62566;
  736.     function  ReplyAll(const Response: IDispatch): WordBool; dispid 62567;
  737.     function  Forward(const Forward: IDispatch): WordBool; dispid 62568;
  738.     function  CustomAction(const Action: IDispatch; const Response: IDispatch): WordBool; dispid 61446;
  739.     procedure CustomPropertyChange(const Name: WideString); dispid 61448;
  740.     procedure PropertyChange(const Name: WideString); dispid 61449;
  741.   end;
  742.  
  743. // *********************************************************************//
  744. // Interface: _IAction
  745. // Flags:     (4112) Hidden Dispatchable
  746. // GUID:      {00063143-0000-0000-C000-000000000046}
  747. // *********************************************************************//
  748.   _IAction = interface(IDispatch)
  749.     ['{00063143-0000-0000-C000-000000000046}']
  750.     function  Get_CopyLike(out CopyLike: OlActionCopyLike): HResult; stdcall;
  751.     function  Set_CopyLike(CopyLike: OlActionCopyLike): HResult; stdcall;
  752.     function  Get_Enabled(out Enabled: WordBool): HResult; stdcall;
  753.     function  Set_Enabled(Enabled: WordBool): HResult; stdcall;
  754.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  755.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  756.     function  Get_Name(out Name: WideString): HResult; stdcall;
  757.     function  Set_Name(const Name: WideString): HResult; stdcall;
  758.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  759.     function  Get_Prefix(out Prefix: WideString): HResult; stdcall;
  760.     function  Set_Prefix(const Prefix: WideString): HResult; stdcall;
  761.     function  Get_ReplyStyle(out ReplyStyle: OlActionReplyStyle): HResult; stdcall;
  762.     function  Set_ReplyStyle(ReplyStyle: OlActionReplyStyle): HResult; stdcall;
  763.     function  Get_ResponseStyle(out ResponseStyle: OlActionResponseStyle): HResult; stdcall;
  764.     function  Set_ResponseStyle(ResponseStyle: OlActionResponseStyle): HResult; stdcall;
  765.     function  Get_ShowOn(out ShowOn: OlActionShowOn): HResult; stdcall;
  766.     function  Set_ShowOn(ShowOn: OlActionShowOn): HResult; stdcall;
  767.     function  Delete: HResult; stdcall;
  768.     function  Execute(out Item: IDispatch): HResult; stdcall;
  769.   end;
  770.  
  771. // *********************************************************************//
  772. // DispIntf:  Action
  773. // Flags:     (4096) Dispatchable
  774. // GUID:      {00063043-0000-0000-C000-000000000046}
  775. // *********************************************************************//
  776.   Action = dispinterface
  777.     ['{00063043-0000-0000-C000-000000000046}']
  778.     property CopyLike: OlActionCopyLike dispid 100;
  779.     property Enabled: WordBool dispid 103;
  780.     property MessageClass: WideString dispid 26;
  781.     property Name: WideString dispid 12289;
  782.     property Parent: IDispatch readonly dispid 61441;
  783.     property Prefix: WideString dispid 61;
  784.     property ReplyStyle: OlActionReplyStyle dispid 101;
  785.     property ResponseStyle: OlActionResponseStyle dispid 102;
  786.     property ShowOn: OlActionShowOn dispid 105;
  787.     procedure Delete; dispid 108;
  788.     function  Execute: IDispatch; dispid 106;
  789.   end;
  790.  
  791. // *********************************************************************//
  792. // Interface: _IActions
  793. // Flags:     (4112) Hidden Dispatchable
  794. // GUID:      {0006313E-0000-0000-C000-000000000046}
  795. // *********************************************************************//
  796.   _IActions = interface(IDispatch)
  797.     ['{0006313E-0000-0000-C000-000000000046}']
  798.     function  Get_Count(out Count: Integer): HResult; stdcall;
  799.     function  Add(out Action: Action): HResult; stdcall;
  800.     function  Item(Index: OleVariant; out Action: Action): HResult; stdcall;
  801.     function  Remove(Index: Integer): HResult; stdcall;
  802.   end;
  803.  
  804. // *********************************************************************//
  805. // DispIntf:  Actions
  806. // Flags:     (4096) Dispatchable
  807. // GUID:      {0006303E-0000-0000-C000-000000000046}
  808. // *********************************************************************//
  809.   Actions = dispinterface
  810.     ['{0006303E-0000-0000-C000-000000000046}']
  811.     property Count: Integer readonly dispid 80;
  812.     function  Add: Action; dispid 100;
  813.     function  Item(Index: OleVariant): Action; dispid 81;
  814.     procedure Remove(Index: Integer); dispid 82;
  815.   end;
  816.  
  817. // *********************************************************************//
  818. // Interface: _IApplication
  819. // Flags:     (4112) Hidden Dispatchable
  820. // GUID:      {00063101-0000-0000-C000-000000000046}
  821. // *********************************************************************//
  822.   _IApplication = interface(IDispatch)
  823.     ['{00063101-0000-0000-C000-000000000046}']
  824.     function  Get_Assistant(out Assistant: Assistant): HResult; stdcall;
  825.     function  ActiveExplorer(out ActiveExplorer: Explorer): HResult; stdcall;
  826.     function  ActiveInspector(out ActiveInspector: Inspector): HResult; stdcall;
  827.     function  CreateItem(ItemType: OlItems; out Item: IDispatch): HResult; stdcall;
  828.     function  CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant; 
  829.                                      out Item: IDispatch): HResult; stdcall;
  830.     function  CreateObject(const ObjectName: WideString; out Object_: IDispatch): HResult; stdcall;
  831.     function  GetNamespace(const Type_: WideString; out NameSpace: NameSpace): HResult; stdcall;
  832.     function  Quit: HResult; stdcall;
  833.   end;
  834.  
  835. // *********************************************************************//
  836. // DispIntf:  _DApplication
  837. // Flags:     (4096) Dispatchable
  838. // GUID:      {00063001-0000-0000-C000-000000000046}
  839. // *********************************************************************//
  840.   _DApplication = dispinterface
  841.     ['{00063001-0000-0000-C000-000000000046}']
  842.     property Assistant: Assistant readonly dispid 276;
  843.     function  ActiveExplorer: Explorer; dispid 273;
  844.     function  ActiveInspector: Inspector; dispid 274;
  845.     function  CreateItem(ItemType: OlItems): IDispatch; dispid 266;
  846.     function  CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; dispid 267;
  847.     function  CreateObject(const ObjectName: WideString): IDispatch; dispid 277;
  848.     function  GetNamespace(const Type_: WideString): NameSpace; dispid 272;
  849.     procedure Quit; dispid 275;
  850.   end;
  851.  
  852. // *********************************************************************//
  853. // Interface: _IAppointmentItem
  854. // Flags:     (4112) Hidden Dispatchable
  855. // GUID:      {00063133-0000-0000-C000-000000000046}
  856. // *********************************************************************//
  857.   _IAppointmentItem = interface(IDispatch)
  858.     ['{00063133-0000-0000-C000-000000000046}']
  859.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  860.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  861.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  862.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  863.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  864.     function  Get_Body(out Body: WideString): HResult; stdcall;
  865.     function  Set_Body(const Body: WideString): HResult; stdcall;
  866.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  867.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  868.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  869.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  870.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  871.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  872.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  873.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  874.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  875.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  876.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  877.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  878.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  879.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  880.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  881.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  882.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  883.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  884.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  885.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  886.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  887.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  888.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  889.     function  Get_Size(out Size: Integer): HResult; stdcall;
  890.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  891.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  892.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  893.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  894.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  895.     function  Get_AllDayEvent(out AllDayEvent: WordBool): HResult; stdcall;
  896.     function  Set_AllDayEvent(AllDayEvent: WordBool): HResult; stdcall;
  897.     function  Get_BusyStatus(out BusyStatus: OlBusyStatus): HResult; stdcall;
  898.     function  Set_BusyStatus(BusyStatus: OlBusyStatus): HResult; stdcall;
  899.     function  Get_Duration(out Duration: Integer): HResult; stdcall;
  900.     function  Set_Duration(Duration: Integer): HResult; stdcall;
  901.     function  Get_End_(out End_: TDateTime): HResult; stdcall;
  902.     function  Set_End_(End_: TDateTime): HResult; stdcall;
  903.     function  Get_IsRecurring(out IsRecurring: WordBool): HResult; stdcall;
  904.     function  Get_Location(out Location: WideString): HResult; stdcall;
  905.     function  Set_Location(const Location: WideString): HResult; stdcall;
  906.     function  Get_MeetingStatus(out MeetingStatus: OlMeetingStatus): HResult; stdcall;
  907.     function  Set_MeetingStatus(MeetingStatus: OlMeetingStatus): HResult; stdcall;
  908.     function  Get_OptionalAttendees(out OptionalAttendees: WideString): HResult; stdcall;
  909.     function  Set_OptionalAttendees(const OptionalAttendees: WideString): HResult; stdcall;
  910.     function  Get_Organizer(out Organizer: WideString): HResult; stdcall;
  911.     function  Get_Recipients(out Recipients: Recipients): HResult; stdcall;
  912.     function  Get_ReminderMinutesBeforeStart(out ReminderMinutesBeforeStart: Integer): HResult; stdcall;
  913.     function  Set_ReminderMinutesBeforeStart(ReminderMinutesBeforeStart: Integer): HResult; stdcall;
  914.     function  Get_ReminderOverrideDefault(out ReminderOverrideDefault: WordBool): HResult; stdcall;
  915.     function  Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool): HResult; stdcall;
  916.     function  Get_ReminderPlaySound(out ReminderPlaySound: WordBool): HResult; stdcall;
  917.     function  Set_ReminderPlaySound(ReminderPlaySound: WordBool): HResult; stdcall;
  918.     function  Get_ReminderSet(out ReminderSet: WordBool): HResult; stdcall;
  919.     function  Set_ReminderSet(ReminderSet: WordBool): HResult; stdcall;
  920.     function  Get_ReminderSoundFile(out ReminderSoundFile: WideString): HResult; stdcall;
  921.     function  Set_ReminderSoundFile(const ReminderSoundFile: WideString): HResult; stdcall;
  922.     function  Get_ReplyTime(out ReplyTime: TDateTime): HResult; stdcall;
  923.     function  Set_ReplyTime(ReplyTime: TDateTime): HResult; stdcall;
  924.     function  Get_RequiredAttendees(out RequiredAttendees: WideString): HResult; stdcall;
  925.     function  Set_RequiredAttendees(const RequiredAttendees: WideString): HResult; stdcall;
  926.     function  Get_Resources(out Resources: WideString): HResult; stdcall;
  927.     function  Set_Resources(const Resources: WideString): HResult; stdcall;
  928.     function  Get_ResponseRequested(out ResponseRequested: WordBool): HResult; stdcall;
  929.     function  Set_ResponseRequested(ResponseRequested: WordBool): HResult; stdcall;
  930.     function  Get_ResponseStatus(out ResponseStatus: OlResponseStatus): HResult; stdcall;
  931.     function  Get_Start(out Start: TDateTime): HResult; stdcall;
  932.     function  Set_Start(Start: TDateTime): HResult; stdcall;
  933.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  934.     function  Copy(out Item: IDispatch): HResult; stdcall;
  935.     function  Delete: HResult; stdcall;
  936.     function  Display(Modal: OleVariant): HResult; stdcall;
  937.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  938.     function  Save: HResult; stdcall;
  939.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  940.     function  PrintOut: HResult; stdcall;
  941.     function  ClearRecurrencePattern: HResult; stdcall;
  942.     function  GetRecurrencePattern(out RecurrencPattern: RecurrencePattern): HResult; stdcall;
  943.     function  Respond(Response: OlMeetingResponse; fNoUI: OleVariant; 
  944.                       fAdditionalTextDialog: OleVariant; out ResponseItem: IDispatch): HResult; stdcall;
  945.     function  Send: HResult; stdcall;
  946.   end;
  947.  
  948. // *********************************************************************//
  949. // DispIntf:  _DAppointmentItem
  950. // Flags:     (4096) Dispatchable
  951. // GUID:      {00063033-0000-0000-C000-000000000046}
  952. // *********************************************************************//
  953.   _DAppointmentItem = dispinterface
  954.     ['{00063033-0000-0000-C000-000000000046}']
  955.     property Actions: Actions readonly dispid 63511;
  956.     property Application: OutlookApplication readonly dispid 61440;
  957.     property Attachments: Attachments readonly dispid 63509;
  958.     property BillingInformation: WideString dispid 34101;
  959.     property Body: WideString dispid 37120;
  960.     property Categories: WideString dispid 36865;
  961.     property Companies: WideString dispid 34107;
  962.     property CreationTime: TDateTime readonly dispid 12295;
  963.     property EntryID: WideString readonly dispid 61470;
  964.     property FormDescription: FormDescription readonly dispid 61589;
  965.     property GetInspector: Inspector readonly dispid 61502;
  966.     property Importance: OlImportance dispid 23;
  967.     property LastModificationTime: TDateTime readonly dispid 12296;
  968.     property MessageClass: WideString dispid 26;
  969.     property Mileage: WideString dispid 34100;
  970.     property NoAging: WordBool dispid 34062;
  971.     property OutlookInternalVersion: WideString readonly dispid 34130;
  972.     property OutlookVersion: WideString readonly dispid 34132;
  973.     property Parent: IDispatch readonly dispid 61441;
  974.     property Saved: WordBool readonly dispid 61603;
  975.     property Sensitivity: OlSensitivity dispid 54;
  976.     property Size: Integer readonly dispid 3592;
  977.     property Subject: WideString dispid 55;
  978.     property UnRead: WordBool dispid 61468;
  979.     property UserProperties: UserProperties readonly dispid 63510;
  980.     property AllDayEvent: WordBool dispid 33301;
  981.     property BusyStatus: OlBusyStatus dispid 33285;
  982.     property Duration: Integer dispid 33299;
  983.     property End_: TDateTime dispid 33294;
  984.     property IsRecurring: WordBool readonly dispid 33315;
  985.     property Location: WideString dispid 33288;
  986.     property MeetingStatus: OlMeetingStatus dispid 33303;
  987.     property OptionalAttendees: WideString dispid 3587;
  988.     property Organizer: WideString readonly dispid 66;
  989.     property Recipients: Recipients readonly dispid 63508;
  990.     property ReminderMinutesBeforeStart: Integer dispid 34049;
  991.     property ReminderOverrideDefault: WordBool dispid 34076;
  992.     property ReminderPlaySound: WordBool dispid 34078;
  993.     property ReminderSet: WordBool dispid 34051;
  994.     property ReminderSoundFile: WideString dispid 34079;
  995.     property ReplyTime: TDateTime dispid 33312;
  996.     property RequiredAttendees: WideString dispid 3588;
  997.     property Resources: WideString dispid 3586;
  998.     property ResponseRequested: WordBool dispid 99;
  999.     property ResponseStatus: OlResponseStatus readonly dispid 33304;
  1000.     property Start: TDateTime dispid 33293;
  1001.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  1002.     function  Copy: IDispatch; dispid 61490;
  1003.     procedure Delete; dispid 61514;
  1004.     procedure Display(Modal: OleVariant); dispid 61606;
  1005.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  1006.     procedure Save; dispid 61512;
  1007.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  1008.     procedure PrintOut; dispid 61491;
  1009.     procedure ClearRecurrencePattern; dispid 61605;
  1010.     function  GetRecurrencePattern: RecurrencePattern; dispid 61604;
  1011.     function  Respond(Response: OlMeetingResponse; fNoUI: OleVariant; 
  1012.                       fAdditionalTextDialog: OleVariant): IDispatch; dispid 62722;
  1013.     procedure Send; dispid 61557;
  1014.   end;
  1015.  
  1016. // *********************************************************************//
  1017. // Interface: _IAttachment
  1018. // Flags:     (4112) Hidden Dispatchable
  1019. // GUID:      {00063107-0000-0000-C000-000000000046}
  1020. // *********************************************************************//
  1021.   _IAttachment = interface(IDispatch)
  1022.     ['{00063107-0000-0000-C000-000000000046}']
  1023.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1024.     function  Get_DisplayName(out DisplayName: WideString): HResult; stdcall;
  1025.     function  Set_DisplayName(const DisplayName: WideString): HResult; stdcall;
  1026.     function  Get_FileName(out FileName: WideString): HResult; stdcall;
  1027.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  1028.     function  Get_PathName(out PathName: WideString): HResult; stdcall;
  1029.     function  Get_Position(out Position: Integer): HResult; stdcall;
  1030.     function  Set_Position(Position: Integer): HResult; stdcall;
  1031.     function  Get_Type_(out Type_: OlAttachmentType): HResult; stdcall;
  1032.     function  Delete: HResult; stdcall;
  1033.     function  SaveAsFile(const Path: WideString): HResult; stdcall;
  1034.   end;
  1035.  
  1036. // *********************************************************************//
  1037. // DispIntf:  Attachment
  1038. // Flags:     (4096) Dispatchable
  1039. // GUID:      {00063007-0000-0000-C000-000000000046}
  1040. // *********************************************************************//
  1041.   Attachment = dispinterface
  1042.     ['{00063007-0000-0000-C000-000000000046}']
  1043.     property Application: OutlookApplication readonly dispid 61440;
  1044.     property DisplayName: WideString dispid 12289;
  1045.     property FileName: WideString readonly dispid 14084;
  1046.     property Parent: IDispatch readonly dispid 113;
  1047.     property PathName: WideString readonly dispid 14088;
  1048.     property Position: Integer dispid 114;
  1049.     property Type_: OlAttachmentType readonly dispid 14085;
  1050.     procedure Delete; dispid 105;
  1051.     procedure SaveAsFile(const Path: WideString); dispid 104;
  1052.   end;
  1053.  
  1054. // *********************************************************************//
  1055. // Interface: _IAttachments
  1056. // Flags:     (4112) Hidden Dispatchable
  1057. // GUID:      {0006313C-0000-0000-C000-000000000046}
  1058. // *********************************************************************//
  1059.   _IAttachments = interface(IDispatch)
  1060.     ['{0006313C-0000-0000-C000-000000000046}']
  1061.     function  Get_Count(out Count: Integer): HResult; stdcall;
  1062.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  1063.     function  Add(Source: OleVariant; Type_: OleVariant; Position: OleVariant; 
  1064.                   DisplayName: OleVariant; out Attachment: Attachment): HResult; stdcall;
  1065.     function  Item(Index: OleVariant; out Attachment: Attachment): HResult; stdcall;
  1066.     function  Remove(Index: Integer): HResult; stdcall;
  1067.   end;
  1068.  
  1069. // *********************************************************************//
  1070. // DispIntf:  Attachments
  1071. // Flags:     (4096) Dispatchable
  1072. // GUID:      {0006303C-0000-0000-C000-000000000046}
  1073. // *********************************************************************//
  1074.   Attachments = dispinterface
  1075.     ['{0006303C-0000-0000-C000-000000000046}']
  1076.     property Count: Integer readonly dispid 80;
  1077.     property Parent: IDispatch readonly dispid 61441;
  1078.     function  Add(Source: OleVariant; Type_: OleVariant; Position: OleVariant; 
  1079.                   DisplayName: OleVariant): Attachment; dispid 101;
  1080.     function  Item(Index: OleVariant): Attachment; dispid 81;
  1081.     procedure Remove(Index: Integer); dispid 84;
  1082.   end;
  1083.  
  1084. // *********************************************************************//
  1085. // Interface: _IContactItem
  1086. // Flags:     (4112) Hidden Dispatchable
  1087. // GUID:      {00063121-0000-0000-C000-000000000046}
  1088. // *********************************************************************//
  1089.   _IContactItem = interface(IDispatch)
  1090.     ['{00063121-0000-0000-C000-000000000046}']
  1091.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  1092.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1093.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  1094.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  1095.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  1096.     function  Get_Body(out Body: WideString): HResult; stdcall;
  1097.     function  Set_Body(const Body: WideString): HResult; stdcall;
  1098.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  1099.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  1100.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  1101.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  1102.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  1103.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  1104.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  1105.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  1106.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  1107.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  1108.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  1109.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  1110.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  1111.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  1112.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  1113.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  1114.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  1115.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  1116.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  1117.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  1118.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  1119.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  1120.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  1121.     function  Get_Size(out Size: Integer): HResult; stdcall;
  1122.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  1123.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  1124.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  1125.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  1126.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  1127.     function  Get_Account(out Account: WideString): HResult; stdcall;
  1128.     function  Set_Account(const Account: WideString): HResult; stdcall;
  1129.     function  Get_Anniversary(out Anniversary: TDateTime): HResult; stdcall;
  1130.     function  Set_Anniversary(Anniversary: TDateTime): HResult; stdcall;
  1131.     function  Get_AssistantName(out AssistantName: WideString): HResult; stdcall;
  1132.     function  Set_AssistantName(const AssistantName: WideString): HResult; stdcall;
  1133.     function  Get_AssistantTelephoneNumber(out AssistantTelephoneNumber: WideString): HResult; stdcall;
  1134.     function  Set_AssistantTelephoneNumber(const AssistantTelephoneNumber: WideString): HResult; stdcall;
  1135.     function  Get_Birthday(out Birthday: TDateTime): HResult; stdcall;
  1136.     function  Set_Birthday(Birthday: TDateTime): HResult; stdcall;
  1137.     function  Get_Business2TelephoneNumber(out Business2TelephoneNumber: WideString): HResult; stdcall;
  1138.     function  Set_Business2TelephoneNumber(const Business2TelephoneNumber: WideString): HResult; stdcall;
  1139.     function  Get_BusinessAddress(out BusinessAddress: WideString): HResult; stdcall;
  1140.     function  Set_BusinessAddress(const BusinessAddress: WideString): HResult; stdcall;
  1141.     function  Get_BusinessAddressCity(out BusinessAddressCity: WideString): HResult; stdcall;
  1142.     function  Set_BusinessAddressCity(const BusinessAddressCity: WideString): HResult; stdcall;
  1143.     function  Get_BusinessAddressCountry(out BusinessAddressCountry: WideString): HResult; stdcall;
  1144.     function  Set_BusinessAddressCountry(const BusinessAddressCountry: WideString): HResult; stdcall;
  1145.     function  Get_BusinessAddressPostalCode(out BusinessAddressPostalCode: WideString): HResult; stdcall;
  1146.     function  Set_BusinessAddressPostalCode(const BusinessAddressPostalCode: WideString): HResult; stdcall;
  1147.     function  Get_BusinessAddressPostOfficeBox(out BusinessAddressPostOfficeBox: WideString): HResult; stdcall;
  1148.     function  Set_BusinessAddressPostOfficeBox(const BusinessAddressPostOfficeBox: WideString): HResult; stdcall;
  1149.     function  Get_BusinessAddressState(out BusinessAddressState: WideString): HResult; stdcall;
  1150.     function  Set_BusinessAddressState(const BusinessAddressState: WideString): HResult; stdcall;
  1151.     function  Get_BusinessAddressStreet(out BusinessAddressStreet: WideString): HResult; stdcall;
  1152.     function  Set_BusinessAddressStreet(const BusinessAddressStreet: WideString): HResult; stdcall;
  1153.     function  Get_BusinessFaxNumber(out BusinessFaxNumber: WideString): HResult; stdcall;
  1154.     function  Set_BusinessFaxNumber(const BusinessFaxNumber: WideString): HResult; stdcall;
  1155.     function  Get_BusinessHomePage(out BusinessHomePage: WideString): HResult; stdcall;
  1156.     function  Set_BusinessHomePage(const BusinessHomePage: WideString): HResult; stdcall;
  1157.     function  Get_BusinessTelephoneNumber(out BusinessTelephoneNumber: WideString): HResult; stdcall;
  1158.     function  Set_BusinessTelephoneNumber(const BusinessTelephoneNumber: WideString): HResult; stdcall;
  1159.     function  Get_CallbackTelephoneNumber(out CallbackTelephoneNumber: WideString): HResult; stdcall;
  1160.     function  Set_CallbackTelephoneNumber(const CallbackTelephoneNumber: WideString): HResult; stdcall;
  1161.     function  Get_CarTelephoneNumber(out CarTelephoneNumber: WideString): HResult; stdcall;
  1162.     function  Set_CarTelephoneNumber(const CarTelephoneNumber: WideString): HResult; stdcall;
  1163.     function  Get_Children(out Children: WideString): HResult; stdcall;
  1164.     function  Set_Children(const Children: WideString): HResult; stdcall;
  1165.     function  Get_CompanyAndFullName(out CompanyAndFullName: WideString): HResult; stdcall;
  1166.     function  Get_CompanyMainTelephoneNumber(out CompanyMainTelephoneNumber: WideString): HResult; stdcall;
  1167.     function  Set_CompanyMainTelephoneNumber(const CompanyMainTelephoneNumber: WideString): HResult; stdcall;
  1168.     function  Get_CompanyName(out CompanyName: WideString): HResult; stdcall;
  1169.     function  Set_CompanyName(const CompanyName: WideString): HResult; stdcall;
  1170.     function  Get_ComputerNetworkName(out ComputerNetworkName: WideString): HResult; stdcall;
  1171.     function  Set_ComputerNetworkName(const ComputerNetworkName: WideString): HResult; stdcall;
  1172.     function  Get_CustomerID(out CustomerID: WideString): HResult; stdcall;
  1173.     function  Set_CustomerID(const CustomerID: WideString): HResult; stdcall;
  1174.     function  Get_Department(out Department: WideString): HResult; stdcall;
  1175.     function  Set_Department(const Department: WideString): HResult; stdcall;
  1176.     function  Get_Email1Address(out Email1Address: WideString): HResult; stdcall;
  1177.     function  Set_Email1Address(const Email1Address: WideString): HResult; stdcall;
  1178.     function  Get_Email1AddressType(out Email1AddressType: WideString): HResult; stdcall;
  1179.     function  Set_Email1AddressType(const Email1AddressType: WideString): HResult; stdcall;
  1180.     function  Get_Email1DisplayName(out Email1DisplayName: WideString): HResult; stdcall;
  1181.     function  Get_Email1EntryID(out Email1EntryID: WideString): HResult; stdcall;
  1182.     function  Get_Email2Address(out Email2Address: WideString): HResult; stdcall;
  1183.     function  Set_Email2Address(const Email2Address: WideString): HResult; stdcall;
  1184.     function  Get_Email2AddressType(out Email2AddressType: WideString): HResult; stdcall;
  1185.     function  Set_Email2AddressType(const Email2AddressType: WideString): HResult; stdcall;
  1186.     function  Get_Email2DisplayName(out Email2DisplayName: WideString): HResult; stdcall;
  1187.     function  Get_Email2EntryID(out Email2EntryID: WideString): HResult; stdcall;
  1188.     function  Get_Email3Address(out Email3Address: WideString): HResult; stdcall;
  1189.     function  Set_Email3Address(const Email3Address: WideString): HResult; stdcall;
  1190.     function  Get_Email3AddressType(out Email3AddressType: WideString): HResult; stdcall;
  1191.     function  Set_Email3AddressType(const Email3AddressType: WideString): HResult; stdcall;
  1192.     function  Get_Email3DisplayName(out Email3DisplayName: WideString): HResult; stdcall;
  1193.     function  Get_Email3EntryID(out Email3EntryID: WideString): HResult; stdcall;
  1194.     function  Get_FileAs(out FileAs: WideString): HResult; stdcall;
  1195.     function  Set_FileAs(const FileAs: WideString): HResult; stdcall;
  1196.     function  Get_FirstName(out FirstName: WideString): HResult; stdcall;
  1197.     function  Set_FirstName(const FirstName: WideString): HResult; stdcall;
  1198.     function  Get_FTPSite(out FTPSite: WideString): HResult; stdcall;
  1199.     function  Set_FTPSite(const FTPSite: WideString): HResult; stdcall;
  1200.     function  Get_FullName(out FullName: WideString): HResult; stdcall;
  1201.     function  Set_FullName(const FullName: WideString): HResult; stdcall;
  1202.     function  Get_FullNameAndCompany(out FullNameAndCompany: WideString): HResult; stdcall;
  1203.     function  Get_Gender(out Gender: OlGender): HResult; stdcall;
  1204.     function  Set_Gender(Gender: OlGender): HResult; stdcall;
  1205.     function  Get_GovernmentIDNumber(out GovernmentIDNumber: WideString): HResult; stdcall;
  1206.     function  Set_GovernmentIDNumber(const GovernmentIDNumber: WideString): HResult; stdcall;
  1207.     function  Get_Hobby(out Hobby: WideString): HResult; stdcall;
  1208.     function  Set_Hobby(const Hobby: WideString): HResult; stdcall;
  1209.     function  Get_Home2TelephoneNumber(out Home2TelephoneNumber: WideString): HResult; stdcall;
  1210.     function  Set_Home2TelephoneNumber(const Home2TelephoneNumber: WideString): HResult; stdcall;
  1211.     function  Get_HomeAddress(out HomeAddress: WideString): HResult; stdcall;
  1212.     function  Set_HomeAddress(const HomeAddress: WideString): HResult; stdcall;
  1213.     function  Get_HomeAddressCity(out HomeAddressCity: WideString): HResult; stdcall;
  1214.     function  Set_HomeAddressCity(const HomeAddressCity: WideString): HResult; stdcall;
  1215.     function  Get_HomeAddressCountry(out HomeAddressCountry: WideString): HResult; stdcall;
  1216.     function  Set_HomeAddressCountry(const HomeAddressCountry: WideString): HResult; stdcall;
  1217.     function  Get_HomeAddressPostalCode(out HomeAddressPostalCode: WideString): HResult; stdcall;
  1218.     function  Set_HomeAddressPostalCode(const HomeAddressPostalCode: WideString): HResult; stdcall;
  1219.     function  Get_HomeAddressPostOfficeBox(out HomeAddressPostOfficeBox: WideString): HResult; stdcall;
  1220.     function  Set_HomeAddressPostOfficeBox(const HomeAddressPostOfficeBox: WideString): HResult; stdcall;
  1221.     function  Get_HomeAddressState(out HomeAddressState: WideString): HResult; stdcall;
  1222.     function  Set_HomeAddressState(const HomeAddressState: WideString): HResult; stdcall;
  1223.     function  Get_HomeAddressStreet(out HomeAddressStreet: WideString): HResult; stdcall;
  1224.     function  Set_HomeAddressStreet(const HomeAddressStreet: WideString): HResult; stdcall;
  1225.     function  Get_HomeFaxNumber(out HomeFaxNumber: WideString): HResult; stdcall;
  1226.     function  Set_HomeFaxNumber(const HomeFaxNumber: WideString): HResult; stdcall;
  1227.     function  Get_HomeTelephoneNumber(out HomeTelephoneNumber: WideString): HResult; stdcall;
  1228.     function  Set_HomeTelephoneNumber(const HomeTelephoneNumber: WideString): HResult; stdcall;
  1229.     function  Get_Initials(out Initials: WideString): HResult; stdcall;
  1230.     function  Set_Initials(const Initials: WideString): HResult; stdcall;
  1231.     function  Get_ISDNNumber(out ISDNNumber: WideString): HResult; stdcall;
  1232.     function  Set_ISDNNumber(const ISDNNumber: WideString): HResult; stdcall;
  1233.     function  Get_JobTitle(out JobTitle: WideString): HResult; stdcall;
  1234.     function  Set_JobTitle(const JobTitle: WideString): HResult; stdcall;
  1235.     function  Get_Journal(out Journal: WordBool): HResult; stdcall;
  1236.     function  Set_Journal(Journal: WordBool): HResult; stdcall;
  1237.     function  Get_Language(out Language: WideString): HResult; stdcall;
  1238.     function  Set_Language(const Language: WideString): HResult; stdcall;
  1239.     function  Get_LastName(out LastName: WideString): HResult; stdcall;
  1240.     function  Set_LastName(const LastName: WideString): HResult; stdcall;
  1241.     function  Get_LastNameAndFirstName(out LastNameAndFirstName: WideString): HResult; stdcall;
  1242.     function  Get_MailingAddress(out MailingAddress: WideString): HResult; stdcall;
  1243.     function  Set_MailingAddress(const MailingAddress: WideString): HResult; stdcall;
  1244.     function  Get_MailingAddressCity(out MailingAddressCity: WideString): HResult; stdcall;
  1245.     function  Set_MailingAddressCity(const MailingAddressCity: WideString): HResult; stdcall;
  1246.     function  Get_MailingAddressCountry(out MailingAddressCountry: WideString): HResult; stdcall;
  1247.     function  Set_MailingAddressCountry(const MailingAddressCountry: WideString): HResult; stdcall;
  1248.     function  Get_MailingAddressPostalCode(out MailingAddressPostalCode: WideString): HResult; stdcall;
  1249.     function  Set_MailingAddressPostalCode(const MailingAddressPostalCode: WideString): HResult; stdcall;
  1250.     function  Get_MailingAddressPostOfficeBox(out MailingAddressPostOfficeBox: WideString): HResult; stdcall;
  1251.     function  Set_MailingAddressPostOfficeBox(const MailingAddressPostOfficeBox: WideString): HResult; stdcall;
  1252.     function  Get_MailingAddressState(out MailingAddressState: WideString): HResult; stdcall;
  1253.     function  Set_MailingAddressState(const MailingAddressState: WideString): HResult; stdcall;
  1254.     function  Get_MailingAddressStreet(out MailingAddressStreet: WideString): HResult; stdcall;
  1255.     function  Set_MailingAddressStreet(const MailingAddressStreet: WideString): HResult; stdcall;
  1256.     function  Get_ManagerName(out ManagerName: WideString): HResult; stdcall;
  1257.     function  Set_ManagerName(const ManagerName: WideString): HResult; stdcall;
  1258.     function  Get_MiddleName(out MiddleName: WideString): HResult; stdcall;
  1259.     function  Set_MiddleName(const MiddleName: WideString): HResult; stdcall;
  1260.     function  Get_MobileTelephoneNumber(out MobileTelephoneNumber: WideString): HResult; stdcall;
  1261.     function  Set_MobileTelephoneNumber(const MobileTelephoneNumber: WideString): HResult; stdcall;
  1262.     function  Get_NickName(out NickName: WideString): HResult; stdcall;
  1263.     function  Set_NickName(const NickName: WideString): HResult; stdcall;
  1264.     function  Get_OfficeLocation(out OfficeLocation: WideString): HResult; stdcall;
  1265.     function  Set_OfficeLocation(const OfficeLocation: WideString): HResult; stdcall;
  1266.     function  Get_OrganizationalIDNumber(out OrganizationalIDNumber: WideString): HResult; stdcall;
  1267.     function  Set_OrganizationalIDNumber(const OrganizationalIDNumber: WideString): HResult; stdcall;
  1268.     function  Get_OtherAddress(out OtherAddress: WideString): HResult; stdcall;
  1269.     function  Set_OtherAddress(const OtherAddress: WideString): HResult; stdcall;
  1270.     function  Get_OtherAddressCity(out OtherAddressCity: WideString): HResult; stdcall;
  1271.     function  Set_OtherAddressCity(const OtherAddressCity: WideString): HResult; stdcall;
  1272.     function  Get_OtherAddressCountry(out OtherAddressCountry: WideString): HResult; stdcall;
  1273.     function  Set_OtherAddressCountry(const OtherAddressCountry: WideString): HResult; stdcall;
  1274.     function  Get_OtherAddressPostalCode(out OtherAddressPostalCode: WideString): HResult; stdcall;
  1275.     function  Set_OtherAddressPostalCode(const OtherAddressPostalCode: WideString): HResult; stdcall;
  1276.     function  Get_OtherAddressPostOfficeBox(out OtherAddressPostOfficeBox: WideString): HResult; stdcall;
  1277.     function  Set_OtherAddressPostOfficeBox(const OtherAddressPostOfficeBox: WideString): HResult; stdcall;
  1278.     function  Get_OtherAddressState(out OtherAddressState: WideString): HResult; stdcall;
  1279.     function  Set_OtherAddressState(const OtherAddressState: WideString): HResult; stdcall;
  1280.     function  Get_OtherAddressStreet(out OtherAddressStreet: WideString): HResult; stdcall;
  1281.     function  Set_OtherAddressStreet(const OtherAddressStreet: WideString): HResult; stdcall;
  1282.     function  Get_OtherFaxNumber(out OtherFaxNumber: WideString): HResult; stdcall;
  1283.     function  Set_OtherFaxNumber(const OtherFaxNumber: WideString): HResult; stdcall;
  1284.     function  Get_OtherTelephoneNumber(out OtherTelephoneNumber: WideString): HResult; stdcall;
  1285.     function  Set_OtherTelephoneNumber(const OtherTelephoneNumber: WideString): HResult; stdcall;
  1286.     function  Get_PagerNumber(out PagerNumber: WideString): HResult; stdcall;
  1287.     function  Set_PagerNumber(const PagerNumber: WideString): HResult; stdcall;
  1288.     function  Get_PersonalHomePage(out PersonalHomePage: WideString): HResult; stdcall;
  1289.     function  Set_PersonalHomePage(const PersonalHomePage: WideString): HResult; stdcall;
  1290.     function  Get_PrimaryTelephoneNumber(out PrimaryTelephoneNumber: WideString): HResult; stdcall;
  1291.     function  Set_PrimaryTelephoneNumber(const PrimaryTelephoneNumber: WideString): HResult; stdcall;
  1292.     function  Get_Profession(out Profession: WideString): HResult; stdcall;
  1293.     function  Set_Profession(const Profession: WideString): HResult; stdcall;
  1294.     function  Get_RadioTelephoneNumber(out RadioTelephoneNumber: WideString): HResult; stdcall;
  1295.     function  Set_RadioTelephoneNumber(const RadioTelephoneNumber: WideString): HResult; stdcall;
  1296.     function  Get_ReferredBy(out ReferredBy: WideString): HResult; stdcall;
  1297.     function  Set_ReferredBy(const ReferredBy: WideString): HResult; stdcall;
  1298.     function  Get_SelectedMailingAddress(out SelectedMailingAddress: OlMailingAddress): HResult; stdcall;
  1299.     function  Set_SelectedMailingAddress(SelectedMailingAddress: OlMailingAddress): HResult; stdcall;
  1300.     function  Get_Spouse(out Spouse: WideString): HResult; stdcall;
  1301.     function  Set_Spouse(const Spouse: WideString): HResult; stdcall;
  1302.     function  Get_Suffix(out Suffix: WideString): HResult; stdcall;
  1303.     function  Set_Suffix(const Suffix: WideString): HResult; stdcall;
  1304.     function  Get_TelexNumber(out TelexNumber: WideString): HResult; stdcall;
  1305.     function  Set_TelexNumber(const TelexNumber: WideString): HResult; stdcall;
  1306.     function  Get_Title(out Title: WideString): HResult; stdcall;
  1307.     function  Set_Title(const Title: WideString): HResult; stdcall;
  1308.     function  Get_TTYTDDTelephoneNumber(out TTYTDDTelephoneNumber: WideString): HResult; stdcall;
  1309.     function  Set_TTYTDDTelephoneNumber(const TTYTDDTelephoneNumber: WideString): HResult; stdcall;
  1310.     function  Get_User1(out User1: WideString): HResult; stdcall;
  1311.     function  Set_User1(const User1: WideString): HResult; stdcall;
  1312.     function  Get_User2(out User2: WideString): HResult; stdcall;
  1313.     function  Set_User2(const User2: WideString): HResult; stdcall;
  1314.     function  Get_User3(out User3: WideString): HResult; stdcall;
  1315.     function  Set_User3(const User3: WideString): HResult; stdcall;
  1316.     function  Get_User4(out User4: WideString): HResult; stdcall;
  1317.     function  Set_User4(const User4: WideString): HResult; stdcall;
  1318.     function  Get_UserCertificate(out UserCertificate: WideString): HResult; stdcall;
  1319.     function  Set_UserCertificate(const UserCertificate: WideString): HResult; stdcall;
  1320.     function  Get_WebPage(out WebPage: WideString): HResult; stdcall;
  1321.     function  Set_WebPage(const WebPage: WideString): HResult; stdcall;
  1322.     function  Get_YomiCompanyName(out YomiCompanyName: WideString): HResult; stdcall;
  1323.     function  Set_YomiCompanyName(const YomiCompanyName: WideString): HResult; stdcall;
  1324.     function  Get_YomiFirstName(out YomiFirstName: WideString): HResult; stdcall;
  1325.     function  Set_YomiFirstName(const YomiFirstName: WideString): HResult; stdcall;
  1326.     function  Get_YomiLastName(out YomiLastName: WideString): HResult; stdcall;
  1327.     function  Set_YomiLastName(const YomiLastName: WideString): HResult; stdcall;
  1328.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  1329.     function  Copy(out Item: IDispatch): HResult; stdcall;
  1330.     function  Delete: HResult; stdcall;
  1331.     function  Display(Modal: OleVariant): HResult; stdcall;
  1332.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  1333.     function  Save: HResult; stdcall;
  1334.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  1335.     function  PrintOut: HResult; stdcall;
  1336.   end;
  1337.  
  1338. // *********************************************************************//
  1339. // DispIntf:  _DContactItem
  1340. // Flags:     (4096) Dispatchable
  1341. // GUID:      {00063021-0000-0000-C000-000000000046}
  1342. // *********************************************************************//
  1343.   _DContactItem = dispinterface
  1344.     ['{00063021-0000-0000-C000-000000000046}']
  1345.     property Actions: Actions readonly dispid 63511;
  1346.     property Application: OutlookApplication readonly dispid 61440;
  1347.     property Attachments: Attachments readonly dispid 63509;
  1348.     property BillingInformation: WideString dispid 34101;
  1349.     property Body: WideString dispid 37120;
  1350.     property Categories: WideString dispid 36865;
  1351.     property Companies: WideString dispid 34107;
  1352.     property CreationTime: TDateTime readonly dispid 12295;
  1353.     property EntryID: WideString readonly dispid 61470;
  1354.     property FormDescription: FormDescription readonly dispid 61589;
  1355.     property GetInspector: Inspector readonly dispid 61502;
  1356.     property Importance: OlImportance dispid 23;
  1357.     property LastModificationTime: TDateTime readonly dispid 12296;
  1358.     property MessageClass: WideString dispid 26;
  1359.     property Mileage: WideString dispid 34100;
  1360.     property NoAging: WordBool dispid 34062;
  1361.     property OutlookInternalVersion: WideString readonly dispid 34130;
  1362.     property OutlookVersion: WideString readonly dispid 34132;
  1363.     property Parent: IDispatch readonly dispid 61441;
  1364.     property Saved: WordBool readonly dispid 61603;
  1365.     property Sensitivity: OlSensitivity dispid 54;
  1366.     property Size: Integer readonly dispid 3592;
  1367.     property Subject: WideString dispid 55;
  1368.     property UnRead: WordBool dispid 61468;
  1369.     property UserProperties: UserProperties readonly dispid 63510;
  1370.     property Account: WideString dispid 14848;
  1371.     property Anniversary: TDateTime dispid 14913;
  1372.     property AssistantName: WideString dispid 14896;
  1373.     property AssistantTelephoneNumber: WideString dispid 14894;
  1374.     property Birthday: TDateTime dispid 14914;
  1375.     property Business2TelephoneNumber: WideString dispid 14875;
  1376.     property BusinessAddress: WideString dispid 32795;
  1377.     property BusinessAddressCity: WideString dispid 32838;
  1378.     property BusinessAddressCountry: WideString dispid 32841;
  1379.     property BusinessAddressPostalCode: WideString dispid 32840;
  1380.     property BusinessAddressPostOfficeBox: WideString dispid 32842;
  1381.     property BusinessAddressState: WideString dispid 32839;
  1382.     property BusinessAddressStreet: WideString dispid 32837;
  1383.     property BusinessFaxNumber: WideString dispid 14884;
  1384.     property BusinessHomePage: WideString dispid 14929;
  1385.     property BusinessTelephoneNumber: WideString dispid 14856;
  1386.     property CallbackTelephoneNumber: WideString dispid 14850;
  1387.     property CarTelephoneNumber: WideString dispid 14878;
  1388.     property Children: WideString dispid 32780;
  1389.     property CompanyAndFullName: WideString readonly dispid 32792;
  1390.     property CompanyMainTelephoneNumber: WideString dispid 14935;
  1391.     property CompanyName: WideString dispid 14870;
  1392.     property ComputerNetworkName: WideString dispid 14921;
  1393.     property CustomerID: WideString dispid 14922;
  1394.     property Department: WideString dispid 14872;
  1395.     property Email1Address: WideString dispid 32899;
  1396.     property Email1AddressType: WideString dispid 32898;
  1397.     property Email1DisplayName: WideString readonly dispid 32896;
  1398.     property Email1EntryID: WideString readonly dispid 32901;
  1399.     property Email2Address: WideString dispid 32915;
  1400.     property Email2AddressType: WideString dispid 32914;
  1401.     property Email2DisplayName: WideString readonly dispid 32912;
  1402.     property Email2EntryID: WideString readonly dispid 32917;
  1403.     property Email3Address: WideString dispid 32931;
  1404.     property Email3AddressType: WideString dispid 32930;
  1405.     property Email3DisplayName: WideString readonly dispid 32928;
  1406.     property Email3EntryID: WideString readonly dispid 32933;
  1407.     property FileAs: WideString dispid 32773;
  1408.     property FirstName: WideString dispid 14854;
  1409.     property FTPSite: WideString dispid 14924;
  1410.     property FullName: WideString dispid 12289;
  1411.     property FullNameAndCompany: WideString readonly dispid 32793;
  1412.     property Gender: OlGender dispid 14925;
  1413.     property GovernmentIDNumber: WideString dispid 14855;
  1414.     property Hobby: WideString dispid 14915;
  1415.     property Home2TelephoneNumber: WideString dispid 14895;
  1416.     property HomeAddress: WideString dispid 32794;
  1417.     property HomeAddressCity: WideString dispid 14937;
  1418.     property HomeAddressCountry: WideString dispid 14938;
  1419.     property HomeAddressPostalCode: WideString dispid 14939;
  1420.     property HomeAddressPostOfficeBox: WideString dispid 14942;
  1421.     property HomeAddressState: WideString dispid 14940;
  1422.     property HomeAddressStreet: WideString dispid 14941;
  1423.     property HomeFaxNumber: WideString dispid 14885;
  1424.     property HomeTelephoneNumber: WideString dispid 14857;
  1425.     property Initials: WideString dispid 14858;
  1426.     property ISDNNumber: WideString dispid 14893;
  1427.     property JobTitle: WideString dispid 14871;
  1428.     property Journal: WordBool dispid 32805;
  1429.     property Language: WideString dispid 14860;
  1430.     property LastName: WideString dispid 14865;
  1431.     property LastNameAndFirstName: WideString readonly dispid 32791;
  1432.     property MailingAddress: WideString dispid 14869;
  1433.     property MailingAddressCity: WideString dispid 14887;
  1434.     property MailingAddressCountry: WideString dispid 14886;
  1435.     property MailingAddressPostalCode: WideString dispid 14890;
  1436.     property MailingAddressPostOfficeBox: WideString dispid 14891;
  1437.     property MailingAddressState: WideString dispid 14888;
  1438.     property MailingAddressStreet: WideString dispid 14889;
  1439.     property ManagerName: WideString dispid 14926;
  1440.     property MiddleName: WideString dispid 14916;
  1441.     property MobileTelephoneNumber: WideString dispid 14876;
  1442.     property NickName: WideString dispid 14927;
  1443.     property OfficeLocation: WideString dispid 14873;
  1444.     property OrganizationalIDNumber: WideString dispid 14864;
  1445.     property OtherAddress: WideString dispid 32796;
  1446.     property OtherAddressCity: WideString dispid 14943;
  1447.     property OtherAddressCountry: WideString dispid 14944;
  1448.     property OtherAddressPostalCode: WideString dispid 14945;
  1449.     property OtherAddressPostOfficeBox: WideString dispid 14948;
  1450.     property OtherAddressState: WideString dispid 14946;
  1451.     property OtherAddressStreet: WideString dispid 14947;
  1452.     property OtherFaxNumber: WideString dispid 14883;
  1453.     property OtherTelephoneNumber: WideString dispid 14879;
  1454.     property PagerNumber: WideString dispid 14881;
  1455.     property PersonalHomePage: WideString dispid 14928;
  1456.     property PrimaryTelephoneNumber: WideString dispid 14874;
  1457.     property Profession: WideString dispid 14918;
  1458.     property RadioTelephoneNumber: WideString dispid 14877;
  1459.     property ReferredBy: WideString dispid 14919;
  1460.     property SelectedMailingAddress: OlMailingAddress dispid 32802;
  1461.     property Spouse: WideString dispid 14920;
  1462.     property Suffix: WideString dispid 14853;
  1463.     property TelexNumber: WideString dispid 14892;
  1464.     property Title: WideString dispid 14917;
  1465.     property TTYTDDTelephoneNumber: WideString dispid 14923;
  1466.     property User1: WideString dispid 32847;
  1467.     property User2: WideString dispid 32848;
  1468.     property User3: WideString dispid 32849;
  1469.     property User4: WideString dispid 32850;
  1470.     property UserCertificate: WideString dispid 32790;
  1471.     property WebPage: WideString dispid 32811;
  1472.     property YomiCompanyName: WideString dispid 32814;
  1473.     property YomiFirstName: WideString dispid 32812;
  1474.     property YomiLastName: WideString dispid 32813;
  1475.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  1476.     function  Copy: IDispatch; dispid 61490;
  1477.     procedure Delete; dispid 61514;
  1478.     procedure Display(Modal: OleVariant); dispid 61606;
  1479.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  1480.     procedure Save; dispid 61512;
  1481.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  1482.     procedure PrintOut; dispid 61491;
  1483.   end;
  1484.  
  1485. // *********************************************************************//
  1486. // Interface: _IExplorer
  1487. // Flags:     (4112) Hidden Dispatchable
  1488. // GUID:      {00063103-0000-0000-C000-000000000046}
  1489. // *********************************************************************//
  1490.   _IExplorer = interface(IDispatch)
  1491.     ['{00063103-0000-0000-C000-000000000046}']
  1492.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1493.     function  Get_CommandBars(out CommandBars: CommandBars): HResult; stdcall;
  1494.     function  Get_CurrentFolder(out CurrentFolder: MAPIFolder): HResult; stdcall;
  1495.     function  Set_CurrentFolder(const CurrentFolder: MAPIFolder): HResult; stdcall;
  1496.     function  Get_Parent(out Parent: OutlookApplication): HResult; stdcall;
  1497.     function  Close: HResult; stdcall;
  1498.     function  Display: HResult; stdcall;
  1499.   end;
  1500.  
  1501. // *********************************************************************//
  1502. // DispIntf:  Explorer
  1503. // Flags:     (4096) Dispatchable
  1504. // GUID:      {00063003-0000-0000-C000-000000000046}
  1505. // *********************************************************************//
  1506.   Explorer = dispinterface
  1507.     ['{00063003-0000-0000-C000-000000000046}']
  1508.     property Application: OutlookApplication readonly dispid 61440;
  1509.     property CommandBars: CommandBars readonly dispid 8448;
  1510.     property CurrentFolder: MAPIFolder dispid 8449;
  1511.     property Parent: OutlookApplication readonly dispid 61441;
  1512.     procedure Close; dispid 8451;
  1513.     procedure Display; dispid 8452;
  1514.   end;
  1515.  
  1516. // *********************************************************************//
  1517. // Interface: _IFolders
  1518. // Flags:     (4112) Hidden Dispatchable
  1519. // GUID:      {00063140-0000-0000-C000-000000000046}
  1520. // *********************************************************************//
  1521.   _IFolders = interface(IDispatch)
  1522.     ['{00063140-0000-0000-C000-000000000046}']
  1523.     function  Get_Count(out Count: Integer): HResult; stdcall;
  1524.     function  Add(const Name: WideString; Type_: OleVariant; out Folder: MAPIFolder): HResult; stdcall;
  1525.     function  Item(Index: OleVariant; out Folder: MAPIFolder): HResult; stdcall;
  1526.     function  Remove(Index: Integer): HResult; stdcall;
  1527.   end;
  1528.  
  1529. // *********************************************************************//
  1530. // DispIntf:  Folders
  1531. // Flags:     (4096) Dispatchable
  1532. // GUID:      {00063040-0000-0000-C000-000000000046}
  1533. // *********************************************************************//
  1534.   Folders = dispinterface
  1535.     ['{00063040-0000-0000-C000-000000000046}']
  1536.     property Count: Integer readonly dispid 80;
  1537.     function  Add(const Name: WideString; Type_: OleVariant): MAPIFolder; dispid 100;
  1538.     function  Item(Index: OleVariant): MAPIFolder; dispid 81;
  1539.     procedure Remove(Index: Integer); dispid 84;
  1540.   end;
  1541.  
  1542. // *********************************************************************//
  1543. // Interface: _IFormDescription
  1544. // Flags:     (4112) Hidden Dispatchable
  1545. // GUID:      {00063146-0000-0000-C000-000000000046}
  1546. // *********************************************************************//
  1547.   _IFormDescription = interface(IDispatch)
  1548.     ['{00063146-0000-0000-C000-000000000046}']
  1549.     function  Get_Category(out Category: WideString): HResult; stdcall;
  1550.     function  Set_Category(const Category: WideString): HResult; stdcall;
  1551.     function  Get_CategorySub(out CategorySub: WideString): HResult; stdcall;
  1552.     function  Set_CategorySub(const CategorySub: WideString): HResult; stdcall;
  1553.     function  Get_Comment(out Comment: WideString): HResult; stdcall;
  1554.     function  Set_Comment(const Comment: WideString): HResult; stdcall;
  1555.     function  Get_ContactName(out ContactName: WideString): HResult; stdcall;
  1556.     function  Set_ContactName(const ContactName: WideString): HResult; stdcall;
  1557.     function  Get_DisplayName(out DisplayName: WideString): HResult; stdcall;
  1558.     function  Set_DisplayName(const DisplayName: WideString): HResult; stdcall;
  1559.     function  Get_Hidden(out Hidden: WordBool): HResult; stdcall;
  1560.     function  Set_Hidden(Hidden: WordBool): HResult; stdcall;
  1561.     function  Get_Icon(out Icon: WideString): HResult; stdcall;
  1562.     function  Set_Icon(const Icon: WideString): HResult; stdcall;
  1563.     function  Get_Locked(out Locked: WordBool): HResult; stdcall;
  1564.     function  Set_Locked(Locked: WordBool): HResult; stdcall;
  1565.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  1566.     function  Get_MiniIcon(out MiniIcon: WideString): HResult; stdcall;
  1567.     function  Set_MiniIcon(const MiniIcon: WideString): HResult; stdcall;
  1568.     function  Get_Name(out Name: WideString): HResult; stdcall;
  1569.     function  Set_Name(const Name: WideString): HResult; stdcall;
  1570.     function  Get_Number(out Number: WideString): HResult; stdcall;
  1571.     function  Set_Number(const Number: WideString): HResult; stdcall;
  1572.     function  Get_OneOff(out OneOff: WordBool): HResult; stdcall;
  1573.     function  Set_OneOff(OneOff: WordBool): HResult; stdcall;
  1574.     function  Get_Password(out Password: WideString): HResult; stdcall;
  1575.     function  Set_Password(const Password: WideString): HResult; stdcall;
  1576.     function  Get_Template(out Template: WideString): HResult; stdcall;
  1577.     function  Set_Template(const Template: WideString): HResult; stdcall;
  1578.     function  Get_UseWordMail(out UseWordMail: WordBool): HResult; stdcall;
  1579.     function  Set_UseWordMail(UseWordMail: WordBool): HResult; stdcall;
  1580.     function  Get_Version(out Version: WideString): HResult; stdcall;
  1581.     function  Set_Version(const Version: WideString): HResult; stdcall;
  1582.     function  PublishForm(Registry: OlFormRegistry; Folder: OleVariant): HResult; stdcall;
  1583.   end;
  1584.  
  1585. // *********************************************************************//
  1586. // DispIntf:  FormDescription
  1587. // Flags:     (4096) Dispatchable
  1588. // GUID:      {00063046-0000-0000-C000-000000000046}
  1589. // *********************************************************************//
  1590.   FormDescription = dispinterface
  1591.     ['{00063046-0000-0000-C000-000000000046}']
  1592.     property Category: WideString dispid 13060;
  1593.     property CategorySub: WideString dispid 13061;
  1594.     property Comment: WideString dispid 12292;
  1595.     property ContactName: WideString dispid 13059;
  1596.     property DisplayName: WideString dispid 12289;
  1597.     property Hidden: WordBool dispid 13063;
  1598.     property Icon: WideString dispid 4093;
  1599.     property Locked: WordBool dispid 102;
  1600.     property MessageClass: WideString readonly dispid 26;
  1601.     property MiniIcon: WideString dispid 4092;
  1602.     property Name: WideString dispid 61469;
  1603.     property Number: WideString dispid 104;
  1604.     property OneOff: WordBool dispid 101;
  1605.     property Password: WideString dispid 103;
  1606.     property Template: WideString dispid 106;
  1607.     property UseWordMail: WordBool dispid 105;
  1608.     property Version: WideString dispid 13057;
  1609.     procedure PublishForm(Registry: OlFormRegistry; Folder: OleVariant); dispid 107;
  1610.   end;
  1611.  
  1612. // *********************************************************************//
  1613. // Interface: _IInspector
  1614. // Flags:     (4112) Hidden Dispatchable
  1615. // GUID:      {00063105-0000-0000-C000-000000000046}
  1616. // *********************************************************************//
  1617.   _IInspector = interface(IDispatch)
  1618.     ['{00063105-0000-0000-C000-000000000046}']
  1619.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1620.     function  Get_CommandBars(out CommandBars: CommandBars): HResult; stdcall;
  1621.     function  Get_CurrentItem(out CurrentItem: IDispatch): HResult; stdcall;
  1622.     function  Get_ModifiedFormPages(out ModifiedFormPages: Pages): HResult; stdcall;
  1623.     function  Get_Parent(out Parent: OutlookApplication): HResult; stdcall;
  1624.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  1625.     function  Display(Modal: OleVariant): HResult; stdcall;
  1626.     function  HideFormPage(const PageName: WideString): HResult; stdcall;
  1627.     function  IsWordMail(out IsWordMail: WordBool): HResult; stdcall;
  1628.     function  SetCurrentFormPage(const PageName: WideString): HResult; stdcall;
  1629.     function  ShowFormPage(const PageName: WideString): HResult; stdcall;
  1630.   end;
  1631.  
  1632. // *********************************************************************//
  1633. // DispIntf:  Inspector
  1634. // Flags:     (4096) Dispatchable
  1635. // GUID:      {00063005-0000-0000-C000-000000000046}
  1636. // *********************************************************************//
  1637.   Inspector = dispinterface
  1638.     ['{00063005-0000-0000-C000-000000000046}']
  1639.     property Application: OutlookApplication readonly dispid 61440;
  1640.     property CommandBars: CommandBars readonly dispid 8448;
  1641.     property CurrentItem: IDispatch readonly dispid 8450;
  1642.     property ModifiedFormPages: Pages readonly dispid 8454;
  1643.     property Parent: OutlookApplication readonly dispid 61441;
  1644.     procedure Close(SaveMode: OlInspectorClose); dispid 8451;
  1645.     procedure Display(Modal: OleVariant); dispid 8452;
  1646.     procedure HideFormPage(const PageName: WideString); dispid 8456;
  1647.     function  IsWordMail: WordBool; dispid 8453;
  1648.     procedure SetCurrentFormPage(const PageName: WideString); dispid 8460;
  1649.     procedure ShowFormPage(const PageName: WideString); dispid 8457;
  1650.   end;
  1651.  
  1652. // *********************************************************************//
  1653. // Interface: _IItems
  1654. // Flags:     (4112) Hidden Dispatchable
  1655. // GUID:      {00063141-0000-0000-C000-000000000046}
  1656. // *********************************************************************//
  1657.   _IItems = interface(IDispatch)
  1658.     ['{00063141-0000-0000-C000-000000000046}']
  1659.     function  Get_Count(out Count: Integer): HResult; stdcall;
  1660.     function  Get_IncludeRecurrences(out IncludeRecurrences: WordBool): HResult; stdcall;
  1661.     function  Set_IncludeRecurrences(IncludeRecurrences: WordBool): HResult; stdcall;
  1662.     function  Add(Type_: OleVariant; out Item: IDispatch): HResult; stdcall;
  1663.     function  Find(const Filter: WideString; out Item: IDispatch): HResult; stdcall;
  1664.     function  FindNext(out Item: IDispatch): HResult; stdcall;
  1665.     function  Item(Index: OleVariant; out Item: IDispatch): HResult; stdcall;
  1666.     function  Remove(Index: Integer): HResult; stdcall;
  1667.     function  Restrict(const Filter: WideString; out Items: Items): HResult; stdcall;
  1668.     function  Sort(const Property_: WideString; Descending: OleVariant): HResult; stdcall;
  1669.   end;
  1670.  
  1671. // *********************************************************************//
  1672. // DispIntf:  Items
  1673. // Flags:     (4096) Dispatchable
  1674. // GUID:      {00063041-0000-0000-C000-000000000046}
  1675. // *********************************************************************//
  1676.   Items = dispinterface
  1677.     ['{00063041-0000-0000-C000-000000000046}']
  1678.     property Count: Integer readonly dispid 80;
  1679.     property IncludeRecurrences: WordBool dispid 206;
  1680.     function  Add(Type_: OleVariant): IDispatch; dispid 200;
  1681.     function  Find(const Filter: WideString): IDispatch; dispid 203;
  1682.     function  FindNext: IDispatch; dispid 204;
  1683.     function  Item(Index: OleVariant): IDispatch; dispid 81;
  1684.     procedure Remove(Index: Integer); dispid 84;
  1685.     function  Restrict(const Filter: WideString): Items; dispid 202;
  1686.     procedure Sort(const Property_: WideString; Descending: OleVariant); dispid 205;
  1687.   end;
  1688.  
  1689. // *********************************************************************//
  1690. // Interface: _IJournalItem
  1691. // Flags:     (4112) Hidden Dispatchable
  1692. // GUID:      {00063122-0000-0000-C000-000000000046}
  1693. // *********************************************************************//
  1694.   _IJournalItem = interface(IDispatch)
  1695.     ['{00063122-0000-0000-C000-000000000046}']
  1696.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  1697.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1698.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  1699.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  1700.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  1701.     function  Get_Body(out Body: WideString): HResult; stdcall;
  1702.     function  Set_Body(const Body: WideString): HResult; stdcall;
  1703.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  1704.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  1705.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  1706.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  1707.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  1708.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  1709.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  1710.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  1711.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  1712.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  1713.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  1714.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  1715.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  1716.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  1717.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  1718.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  1719.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  1720.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  1721.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  1722.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  1723.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  1724.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  1725.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  1726.     function  Get_Size(out Size: Integer): HResult; stdcall;
  1727.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  1728.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  1729.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  1730.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  1731.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  1732.     function  Get_ContactNames(out ContactNames: WideString): HResult; stdcall;
  1733.     function  Set_ContactNames(const ContactNames: WideString): HResult; stdcall;
  1734.     function  Get_DocPosted(out DocPosted: WordBool): HResult; stdcall;
  1735.     function  Set_DocPosted(DocPosted: WordBool): HResult; stdcall;
  1736.     function  Get_DocPrinted(out DocPrinted: WordBool): HResult; stdcall;
  1737.     function  Set_DocPrinted(DocPrinted: WordBool): HResult; stdcall;
  1738.     function  Get_DocRouted(out DocRouted: WordBool): HResult; stdcall;
  1739.     function  Set_DocRouted(DocRouted: WordBool): HResult; stdcall;
  1740.     function  Get_DocSaved(out DocSaved: WordBool): HResult; stdcall;
  1741.     function  Set_DocSaved(DocSaved: WordBool): HResult; stdcall;
  1742.     function  Get_Duration(out Duration: Integer): HResult; stdcall;
  1743.     function  Set_Duration(Duration: Integer): HResult; stdcall;
  1744.     function  Get_End_(out End_: TDateTime): HResult; stdcall;
  1745.     function  Set_End_(End_: TDateTime): HResult; stdcall;
  1746.     function  Get_Recipients(out Recipients: Recipients): HResult; stdcall;
  1747.     function  Get_Start(out Start: TDateTime): HResult; stdcall;
  1748.     function  Set_Start(Start: TDateTime): HResult; stdcall;
  1749.     function  Get_Type_(out Type_: WideString): HResult; stdcall;
  1750.     function  Set_Type_(const Type_: WideString): HResult; stdcall;
  1751.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  1752.     function  Copy(out Item: IDispatch): HResult; stdcall;
  1753.     function  Delete: HResult; stdcall;
  1754.     function  Display(Modal: OleVariant): HResult; stdcall;
  1755.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  1756.     function  Save: HResult; stdcall;
  1757.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  1758.     function  PrintOut: HResult; stdcall;
  1759.     function  Forward(out Item: MailItem): HResult; stdcall;
  1760.     function  Reply(out Item: MailItem): HResult; stdcall;
  1761.     function  ReplyAll(out Item: MailItem): HResult; stdcall;
  1762.     function  StartTimer: HResult; stdcall;
  1763.     function  StopTimer: HResult; stdcall;
  1764.   end;
  1765.  
  1766. // *********************************************************************//
  1767. // DispIntf:  _DJournalItem
  1768. // Flags:     (4096) Dispatchable
  1769. // GUID:      {00063022-0000-0000-C000-000000000046}
  1770. // *********************************************************************//
  1771.   _DJournalItem = dispinterface
  1772.     ['{00063022-0000-0000-C000-000000000046}']
  1773.     property Actions: Actions readonly dispid 63511;
  1774.     property Application: OutlookApplication readonly dispid 61440;
  1775.     property Attachments: Attachments readonly dispid 63509;
  1776.     property BillingInformation: WideString dispid 34101;
  1777.     property Body: WideString dispid 37120;
  1778.     property Categories: WideString dispid 36865;
  1779.     property Companies: WideString dispid 34107;
  1780.     property CreationTime: TDateTime readonly dispid 12295;
  1781.     property EntryID: WideString readonly dispid 61470;
  1782.     property FormDescription: FormDescription readonly dispid 61589;
  1783.     property GetInspector: Inspector readonly dispid 61502;
  1784.     property Importance: OlImportance dispid 23;
  1785.     property LastModificationTime: TDateTime readonly dispid 12296;
  1786.     property MessageClass: WideString dispid 26;
  1787.     property Mileage: WideString dispid 34100;
  1788.     property NoAging: WordBool dispid 34062;
  1789.     property OutlookInternalVersion: WideString readonly dispid 34130;
  1790.     property OutlookVersion: WideString readonly dispid 34132;
  1791.     property Parent: IDispatch readonly dispid 61441;
  1792.     property Saved: WordBool readonly dispid 61603;
  1793.     property Sensitivity: OlSensitivity dispid 54;
  1794.     property Size: Integer readonly dispid 3592;
  1795.     property Subject: WideString dispid 55;
  1796.     property UnRead: WordBool dispid 61468;
  1797.     property UserProperties: UserProperties readonly dispid 63510;
  1798.     property ContactNames: WideString dispid 3588;
  1799.     property DocPosted: WordBool dispid 34577;
  1800.     property DocPrinted: WordBool dispid 34574;
  1801.     property DocRouted: WordBool dispid 34576;
  1802.     property DocSaved: WordBool dispid 34575;
  1803.     property Duration: Integer dispid 34567;
  1804.     property End_: TDateTime dispid 34568;
  1805.     property Recipients: Recipients readonly dispid 63508;
  1806.     property Start: TDateTime dispid 34566;
  1807.     property Type_: WideString dispid 34560;
  1808.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  1809.     function  Copy: IDispatch; dispid 61490;
  1810.     procedure Delete; dispid 61514;
  1811.     procedure Display(Modal: OleVariant); dispid 61606;
  1812.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  1813.     procedure Save; dispid 61512;
  1814.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  1815.     procedure PrintOut; dispid 61491;
  1816.     function  Forward: MailItem; dispid 63507;
  1817.     function  Reply: MailItem; dispid 63504;
  1818.     function  ReplyAll: MailItem; dispid 63505;
  1819.     procedure StartTimer; dispid 63269;
  1820.     procedure StopTimer; dispid 63270;
  1821.   end;
  1822.  
  1823. // *********************************************************************//
  1824. // Interface: _IMailItem
  1825. // Flags:     (4112) Hidden Dispatchable
  1826. // GUID:      {00063134-0000-0000-C000-000000000046}
  1827. // *********************************************************************//
  1828.   _IMailItem = interface(IDispatch)
  1829.     ['{00063134-0000-0000-C000-000000000046}']
  1830.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  1831.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  1832.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  1833.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  1834.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  1835.     function  Get_Body(out Body: WideString): HResult; stdcall;
  1836.     function  Set_Body(const Body: WideString): HResult; stdcall;
  1837.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  1838.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  1839.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  1840.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  1841.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  1842.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  1843.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  1844.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  1845.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  1846.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  1847.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  1848.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  1849.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  1850.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  1851.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  1852.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  1853.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  1854.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  1855.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  1856.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  1857.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  1858.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  1859.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  1860.     function  Get_Size(out Size: Integer): HResult; stdcall;
  1861.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  1862.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  1863.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  1864.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  1865.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  1866.     function  Get_AlternateRecipientAllowed(out AlternateRecipientAllowed: WordBool): HResult; stdcall;
  1867.     function  Set_AlternateRecipientAllowed(AlternateRecipientAllowed: WordBool): HResult; stdcall;
  1868.     function  Get_AutoForwarded(out AutoForwarded: WordBool): HResult; stdcall;
  1869.     function  Set_AutoForwarded(AutoForwarded: WordBool): HResult; stdcall;
  1870.     function  Get_BCC(out BCC: WideString): HResult; stdcall;
  1871.     function  Set_BCC(const BCC: WideString): HResult; stdcall;
  1872.     function  Get_CC(out CC: WideString): HResult; stdcall;
  1873.     function  Set_CC(const CC: WideString): HResult; stdcall;
  1874.     function  Get_ConversationIndex(out ConversationIndex: WideString): HResult; stdcall;
  1875.     function  Get_ConversationTopic(out ConversationTopic: WideString): HResult; stdcall;
  1876.     function  Get_DeferredDeliveryTime(out DeferredDeliveryTime: TDateTime): HResult; stdcall;
  1877.     function  Set_DeferredDeliveryTime(DeferredDeliveryTime: TDateTime): HResult; stdcall;
  1878.     function  Get_DeleteAfterSubmit(out DeleteAfterSubmit: WordBool): HResult; stdcall;
  1879.     function  Set_DeleteAfterSubmit(DeleteAfterSubmit: WordBool): HResult; stdcall;
  1880.     function  Get_ExpiryTime(out ExpiryTime: TDateTime): HResult; stdcall;
  1881.     function  Set_ExpiryTime(ExpiryTime: TDateTime): HResult; stdcall;
  1882.     function  Get_FlagDueBy(out FlagDueBy: TDateTime): HResult; stdcall;
  1883.     function  Set_FlagDueBy(FlagDueBy: TDateTime): HResult; stdcall;
  1884.     function  Get_FlagRequest(out FlagRequest: WideString): HResult; stdcall;
  1885.     function  Set_FlagRequest(const FlagRequest: WideString): HResult; stdcall;
  1886.     function  Get_FlagStatus(out FlagStatus: OlFlagStatus): HResult; stdcall;
  1887.     function  Set_FlagStatus(FlagStatus: OlFlagStatus): HResult; stdcall;
  1888.     function  Get_OriginatorDeliveryReportRequested(out OriginatorDeliveryReportRequested: WordBool): HResult; stdcall;
  1889.     function  Set_OriginatorDeliveryReportRequested(OriginatorDeliveryReportRequested: WordBool): HResult; stdcall;
  1890.     function  Get_ReadReceiptRequested(out ReadReceiptRequested: WordBool): HResult; stdcall;
  1891.     function  Set_ReadReceiptRequested(ReadReceiptRequested: WordBool): HResult; stdcall;
  1892.     function  Get_ReceivedByEntryID(out ReceivedByEntryID: WideString): HResult; stdcall;
  1893.     function  Get_ReceivedByName(out ReceivedByName: WideString): HResult; stdcall;
  1894.     function  Get_ReceivedOnBehalfOfEntryID(out ReceivedOnBehalfOfEntryID: WideString): HResult; stdcall;
  1895.     function  Get_ReceivedOnBehalfOfName(out ReceivedOnBehalfOfName: WideString): HResult; stdcall;
  1896.     function  Get_ReceivedTime(out ReceivedTime: TDateTime): HResult; stdcall;
  1897.     function  Get_RecipientReassignmentProhibited(out RecipientReassignmentProhibited: WordBool): HResult; stdcall;
  1898.     function  Set_RecipientReassignmentProhibited(RecipientReassignmentProhibited: WordBool): HResult; stdcall;
  1899.     function  Get_Recipients(out Recipients: Recipients): HResult; stdcall;
  1900.     function  Get_ReminderOverrideDefault(out ReminderOverrideDefault: WordBool): HResult; stdcall;
  1901.     function  Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool): HResult; stdcall;
  1902.     function  Get_ReminderPlaySound(out ReminderPlaySound: WordBool): HResult; stdcall;
  1903.     function  Set_ReminderPlaySound(ReminderPlaySound: WordBool): HResult; stdcall;
  1904.     function  Get_ReminderSet(out ReminderSet: WordBool): HResult; stdcall;
  1905.     function  Set_ReminderSet(ReminderSet: WordBool): HResult; stdcall;
  1906.     function  Get_ReminderSoundFile(out ReminderSoundFile: WideString): HResult; stdcall;
  1907.     function  Set_ReminderSoundFile(const ReminderSoundFile: WideString): HResult; stdcall;
  1908.     function  Get_ReminderTime(out ReminderTime: TDateTime): HResult; stdcall;
  1909.     function  Set_ReminderTime(ReminderTime: TDateTime): HResult; stdcall;
  1910.     function  Get_RemoteStatus(out RemoteStatus: OlRemoteStatus): HResult; stdcall;
  1911.     function  Get_ReplyRecipientNames(out ReplyRecipientNames: WideString): HResult; stdcall;
  1912.     function  Get_ReplyRecipients(out ReplyRecipients: Recipients): HResult; stdcall;
  1913.     function  Get_SaveSentMessageFolder(out SaveSentMessageFolder: MAPIFolder): HResult; stdcall;
  1914.     function  Set_SaveSentMessageFolder(const SaveSentMessageFolder: MAPIFolder): HResult; stdcall;
  1915.     function  Get_SenderName(out SenderName: WideString): HResult; stdcall;
  1916.     function  Get_SentOn(out SentOn: TDateTime): HResult; stdcall;
  1917.     function  Get_SentOnBehalfOfName(out SentOnBehalfOfName: WideString): HResult; stdcall;
  1918.     function  Set_SentOnBehalfOfName(const SentOnBehalfOfName: WideString): HResult; stdcall;
  1919.     function  Get_To_(out To_: WideString): HResult; stdcall;
  1920.     function  Set_To_(const To_: WideString): HResult; stdcall;
  1921.     function  Get_VotingOptions(out VotingOptions: WideString): HResult; stdcall;
  1922.     function  Set_VotingOptions(const VotingOptions: WideString): HResult; stdcall;
  1923.     function  Get_VotingResponse(out VotingResponse: WideString): HResult; stdcall;
  1924.     function  Set_VotingResponse(const VotingResponse: WideString): HResult; stdcall;
  1925.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  1926.     function  Copy(out Item: IDispatch): HResult; stdcall;
  1927.     function  Delete: HResult; stdcall;
  1928.     function  Display(Modal: OleVariant): HResult; stdcall;
  1929.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  1930.     function  Save: HResult; stdcall;
  1931.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  1932.     function  PrintOut: HResult; stdcall;
  1933.     function  ClearConversationIndex: HResult; stdcall;
  1934.     function  Forward(out Item: MailItem): HResult; stdcall;
  1935.     function  Reply(out Item: MailItem): HResult; stdcall;
  1936.     function  ReplyAll(out Item: MailItem): HResult; stdcall;
  1937.     function  Send: HResult; stdcall;
  1938.   end;
  1939.  
  1940. // *********************************************************************//
  1941. // DispIntf:  _DMailItem
  1942. // Flags:     (4096) Dispatchable
  1943. // GUID:      {00063034-0000-0000-C000-000000000046}
  1944. // *********************************************************************//
  1945.   _DMailItem = dispinterface
  1946.     ['{00063034-0000-0000-C000-000000000046}']
  1947.     property Actions: Actions readonly dispid 63511;
  1948.     property Application: OutlookApplication readonly dispid 61440;
  1949.     property Attachments: Attachments readonly dispid 63509;
  1950.     property BillingInformation: WideString dispid 34101;
  1951.     property Body: WideString dispid 37120;
  1952.     property Categories: WideString dispid 36865;
  1953.     property Companies: WideString dispid 34107;
  1954.     property CreationTime: TDateTime readonly dispid 12295;
  1955.     property EntryID: WideString readonly dispid 61470;
  1956.     property FormDescription: FormDescription readonly dispid 61589;
  1957.     property GetInspector: Inspector readonly dispid 61502;
  1958.     property Importance: OlImportance dispid 23;
  1959.     property LastModificationTime: TDateTime readonly dispid 12296;
  1960.     property MessageClass: WideString dispid 26;
  1961.     property Mileage: WideString dispid 34100;
  1962.     property NoAging: WordBool dispid 34062;
  1963.     property OutlookInternalVersion: WideString readonly dispid 34130;
  1964.     property OutlookVersion: WideString readonly dispid 34132;
  1965.     property Parent: IDispatch readonly dispid 61441;
  1966.     property Saved: WordBool readonly dispid 61603;
  1967.     property Sensitivity: OlSensitivity dispid 54;
  1968.     property Size: Integer readonly dispid 3592;
  1969.     property Subject: WideString dispid 55;
  1970.     property UnRead: WordBool dispid 61468;
  1971.     property UserProperties: UserProperties readonly dispid 63510;
  1972.     property AlternateRecipientAllowed: WordBool dispid 2;
  1973.     property AutoForwarded: WordBool dispid 5;
  1974.     property BCC: WideString dispid 3586;
  1975.     property CC: WideString dispid 3587;
  1976.     property ConversationIndex: WideString readonly dispid 113;
  1977.     property ConversationTopic: WideString readonly dispid 112;
  1978.     property DeferredDeliveryTime: TDateTime dispid 15;
  1979.     property DeleteAfterSubmit: WordBool dispid 3585;
  1980.     property ExpiryTime: TDateTime dispid 21;
  1981.     property FlagDueBy: TDateTime dispid 48;
  1982.     property FlagRequest: WideString dispid 34096;
  1983.     property FlagStatus: OlFlagStatus dispid 4240;
  1984.     property OriginatorDeliveryReportRequested: WordBool dispid 35;
  1985.     property ReadReceiptRequested: WordBool dispid 41;
  1986.     property ReceivedByEntryID: WideString readonly dispid 63;
  1987.     property ReceivedByName: WideString readonly dispid 64;
  1988.     property ReceivedOnBehalfOfEntryID: WideString readonly dispid 67;
  1989.     property ReceivedOnBehalfOfName: WideString readonly dispid 68;
  1990.     property ReceivedTime: TDateTime readonly dispid 3590;
  1991.     property RecipientReassignmentProhibited: WordBool dispid 43;
  1992.     property Recipients: Recipients readonly dispid 63508;
  1993.     property ReminderOverrideDefault: WordBool dispid 34076;
  1994.     property ReminderPlaySound: WordBool dispid 34078;
  1995.     property ReminderSet: WordBool dispid 34051;
  1996.     property ReminderSoundFile: WideString dispid 34079;
  1997.     property ReminderTime: TDateTime dispid 34050;
  1998.     property RemoteStatus: OlRemoteStatus readonly dispid 34065;
  1999.     property ReplyRecipientNames: WideString readonly dispid 80;
  2000.     property ReplyRecipients: Recipients readonly dispid 61459;
  2001.     property SaveSentMessageFolder: MAPIFolder dispid 62465;
  2002.     property SenderName: WideString readonly dispid 3098;
  2003.     property SentOn: TDateTime readonly dispid 57;
  2004.     property SentOnBehalfOfName: WideString dispid 66;
  2005.     property To_: WideString dispid 3588;
  2006.     property VotingOptions: WideString dispid 61467;
  2007.     property VotingResponse: WideString dispid 34084;
  2008.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2009.     function  Copy: IDispatch; dispid 61490;
  2010.     procedure Delete; dispid 61514;
  2011.     procedure Display(Modal: OleVariant); dispid 61606;
  2012.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2013.     procedure Save; dispid 61512;
  2014.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2015.     procedure PrintOut; dispid 61491;
  2016.     procedure ClearConversationIndex; dispid 63522;
  2017.     function  Forward: MailItem; dispid 63507;
  2018.     function  Reply: MailItem; dispid 63504;
  2019.     function  ReplyAll: MailItem; dispid 63505;
  2020.     procedure Send; dispid 61557;
  2021.   end;
  2022.  
  2023. // *********************************************************************//
  2024. // Interface: _IMAPIFolder
  2025. // Flags:     (4112) Hidden Dispatchable
  2026. // GUID:      {00063106-0000-0000-C000-000000000046}
  2027. // *********************************************************************//
  2028.   _IMAPIFolder = interface(IDispatch)
  2029.     ['{00063106-0000-0000-C000-000000000046}']
  2030.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2031.     function  Get_DefaultItemType(out DefaultItemType: OlItems): HResult; stdcall;
  2032.     function  Get_DefaultMessageClass(out DefaultMessageClass: WideString): HResult; stdcall;
  2033.     function  Get_Description(out Description: WideString): HResult; stdcall;
  2034.     function  Set_Description(const Description: WideString): HResult; stdcall;
  2035.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2036.     function  Get_Folders(out Folders: Folders): HResult; stdcall;
  2037.     function  Get_Items(out Items: Items): HResult; stdcall;
  2038.     function  Get_Name(out Name: WideString): HResult; stdcall;
  2039.     function  Set_Name(const Name: WideString): HResult; stdcall;
  2040.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2041.     function  Get_StoreID(out StoreID: WideString): HResult; stdcall;
  2042.     function  Get_UnReadItemCount(out UnReadItemCount: Integer): HResult; stdcall;
  2043.     function  CopyTo(const DestinationFolder: MAPIFolder; out Folder: MAPIFolder): HResult; stdcall;
  2044.     function  Delete: HResult; stdcall;
  2045.     function  Display: HResult; stdcall;
  2046.     function  GetExplorer(DisplayMode: OleVariant; out Explorer: Explorer): HResult; stdcall;
  2047.     function  MoveTo(const DestinationFolder: MAPIFolder): HResult; stdcall;
  2048.   end;
  2049.  
  2050. // *********************************************************************//
  2051. // DispIntf:  MAPIFolder
  2052. // Flags:     (4096) Dispatchable
  2053. // GUID:      {00063006-0000-0000-C000-000000000046}
  2054. // *********************************************************************//
  2055.   MAPIFolder = dispinterface
  2056.     ['{00063006-0000-0000-C000-000000000046}']
  2057.     property Application: OutlookApplication readonly dispid 61440;
  2058.     property DefaultItemType: OlItems readonly dispid 12550;
  2059.     property DefaultMessageClass: WideString readonly dispid 12551;
  2060.     property Description: WideString dispid 12292;
  2061.     property EntryID: WideString readonly dispid 61470;
  2062.     property Folders: Folders readonly dispid 8451;
  2063.     property Items: Items readonly dispid 12544;
  2064.     property Name: WideString dispid 12289;
  2065.     property Parent: IDispatch readonly dispid 61441;
  2066.     property StoreID: WideString readonly dispid 12552;
  2067.     property UnReadItemCount: Integer readonly dispid 13827;
  2068.     function  CopyTo(const DestinationFolder: MAPIFolder): MAPIFolder; dispid 61490;
  2069.     procedure Delete; dispid 61509;
  2070.     procedure Display; dispid 12548;
  2071.     function  GetExplorer(DisplayMode: OleVariant): Explorer; dispid 12545;
  2072.     procedure MoveTo(const DestinationFolder: MAPIFolder); dispid 61492;
  2073.   end;
  2074.  
  2075. // *********************************************************************//
  2076. // Interface: _IMeetingCanceledItem
  2077. // Flags:     (4112) Hidden Dispatchable
  2078. // GUID:      {00063128-0000-0000-C000-000000000046}
  2079. // *********************************************************************//
  2080.   _IMeetingCanceledItem = interface(IDispatch)
  2081.     ['{00063128-0000-0000-C000-000000000046}']
  2082.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2083.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2084.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2085.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2086.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2087.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2088.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2089.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2090.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2091.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2092.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2093.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2094.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2095.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2096.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2097.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2098.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2099.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2100.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2101.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2102.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2103.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2104.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2105.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2106.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2107.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2108.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2109.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2110.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2111.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2112.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2113.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2114.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2115.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2116.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2117.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2118.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2119.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2120.     function  Delete: HResult; stdcall;
  2121.     function  Display(Modal: OleVariant): HResult; stdcall;
  2122.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2123.     function  Save: HResult; stdcall;
  2124.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2125.     function  PrintOut: HResult; stdcall;
  2126.     function  GetAssociatedAppointment(AddToCalendar: WordBool; out AppointmentItem: AppointmentItem): HResult; stdcall;
  2127.     function  Send: HResult; stdcall;
  2128.   end;
  2129.  
  2130. // *********************************************************************//
  2131. // DispIntf:  _DMeetingCanceledItem
  2132. // Flags:     (4112) Hidden Dispatchable
  2133. // GUID:      {00063028-0000-0000-C000-000000000046}
  2134. // *********************************************************************//
  2135.   _DMeetingCanceledItem = dispinterface
  2136.     ['{00063028-0000-0000-C000-000000000046}']
  2137.     property Actions: Actions readonly dispid 63511;
  2138.     property Application: OutlookApplication readonly dispid 61440;
  2139.     property Attachments: Attachments readonly dispid 63509;
  2140.     property BillingInformation: WideString dispid 34101;
  2141.     property Body: WideString dispid 37120;
  2142.     property Categories: WideString dispid 36865;
  2143.     property Companies: WideString dispid 34107;
  2144.     property CreationTime: TDateTime readonly dispid 12295;
  2145.     property EntryID: WideString readonly dispid 61470;
  2146.     property FormDescription: FormDescription readonly dispid 61589;
  2147.     property GetInspector: Inspector readonly dispid 61502;
  2148.     property Importance: OlImportance dispid 23;
  2149.     property LastModificationTime: TDateTime readonly dispid 12296;
  2150.     property MessageClass: WideString dispid 26;
  2151.     property Mileage: WideString dispid 34100;
  2152.     property NoAging: WordBool dispid 34062;
  2153.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2154.     property OutlookVersion: WideString readonly dispid 34132;
  2155.     property Parent: IDispatch readonly dispid 61441;
  2156.     property Saved: WordBool readonly dispid 61603;
  2157.     property Sensitivity: OlSensitivity dispid 54;
  2158.     property Size: Integer readonly dispid 3592;
  2159.     property Subject: WideString dispid 55;
  2160.     property UnRead: WordBool dispid 61468;
  2161.     property UserProperties: UserProperties readonly dispid 63510;
  2162.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2163.     function  Copy: IDispatch; dispid 61490;
  2164.     procedure Delete; dispid 61514;
  2165.     procedure Display(Modal: OleVariant); dispid 61606;
  2166.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2167.     procedure Save; dispid 61512;
  2168.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2169.     procedure PrintOut; dispid 61491;
  2170.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328;
  2171.     procedure Send; dispid 61557;
  2172.   end;
  2173.  
  2174. // *********************************************************************//
  2175. // Interface: _IMeetingRequestAcceptedItem
  2176. // Flags:     (4112) Hidden Dispatchable
  2177. // GUID:      {00063130-0000-0000-C000-000000000046}
  2178. // *********************************************************************//
  2179.   _IMeetingRequestAcceptedItem = interface(IDispatch)
  2180.     ['{00063130-0000-0000-C000-000000000046}']
  2181.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2182.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2183.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2184.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2185.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2186.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2187.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2188.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2189.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2190.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2191.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2192.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2193.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2194.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2195.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2196.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2197.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2198.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2199.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2200.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2201.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2202.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2203.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2204.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2205.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2206.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2207.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2208.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2209.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2210.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2211.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2212.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2213.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2214.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2215.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2216.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2217.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2218.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2219.     function  Delete: HResult; stdcall;
  2220.     function  Display(Modal: OleVariant): HResult; stdcall;
  2221.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2222.     function  Save: HResult; stdcall;
  2223.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2224.     function  PrintOut: HResult; stdcall;
  2225.     function  GetAssociatedAppointment(AddToCalendar: WordBool; out AppointmentItem: AppointmentItem): HResult; stdcall;
  2226.     function  Send: HResult; stdcall;
  2227.   end;
  2228.  
  2229. // *********************************************************************//
  2230. // DispIntf:  _DMeetingRequestAcceptedItem
  2231. // Flags:     (4112) Hidden Dispatchable
  2232. // GUID:      {00063030-0000-0000-C000-000000000046}
  2233. // *********************************************************************//
  2234.   _DMeetingRequestAcceptedItem = dispinterface
  2235.     ['{00063030-0000-0000-C000-000000000046}']
  2236.     property Actions: Actions readonly dispid 63511;
  2237.     property Application: OutlookApplication readonly dispid 61440;
  2238.     property Attachments: Attachments readonly dispid 63509;
  2239.     property BillingInformation: WideString dispid 34101;
  2240.     property Body: WideString dispid 37120;
  2241.     property Categories: WideString dispid 36865;
  2242.     property Companies: WideString dispid 34107;
  2243.     property CreationTime: TDateTime readonly dispid 12295;
  2244.     property EntryID: WideString readonly dispid 61470;
  2245.     property FormDescription: FormDescription readonly dispid 61589;
  2246.     property GetInspector: Inspector readonly dispid 61502;
  2247.     property Importance: OlImportance dispid 23;
  2248.     property LastModificationTime: TDateTime readonly dispid 12296;
  2249.     property MessageClass: WideString dispid 26;
  2250.     property Mileage: WideString dispid 34100;
  2251.     property NoAging: WordBool dispid 34062;
  2252.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2253.     property OutlookVersion: WideString readonly dispid 34132;
  2254.     property Parent: IDispatch readonly dispid 61441;
  2255.     property Saved: WordBool readonly dispid 61603;
  2256.     property Sensitivity: OlSensitivity dispid 54;
  2257.     property Size: Integer readonly dispid 3592;
  2258.     property Subject: WideString dispid 55;
  2259.     property UnRead: WordBool dispid 61468;
  2260.     property UserProperties: UserProperties readonly dispid 63510;
  2261.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2262.     function  Copy: IDispatch; dispid 61490;
  2263.     procedure Delete; dispid 61514;
  2264.     procedure Display(Modal: OleVariant); dispid 61606;
  2265.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2266.     procedure Save; dispid 61512;
  2267.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2268.     procedure PrintOut; dispid 61491;
  2269.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328;
  2270.     procedure Send; dispid 61557;
  2271.   end;
  2272.  
  2273. // *********************************************************************//
  2274. // Interface: _IMeetingRequestDeclinedItem
  2275. // Flags:     (4112) Hidden Dispatchable
  2276. // GUID:      {00063131-0000-0000-C000-000000000046}
  2277. // *********************************************************************//
  2278.   _IMeetingRequestDeclinedItem = interface(IDispatch)
  2279.     ['{00063131-0000-0000-C000-000000000046}']
  2280.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2281.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2282.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2283.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2284.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2285.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2286.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2287.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2288.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2289.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2290.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2291.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2292.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2293.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2294.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2295.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2296.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2297.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2298.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2299.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2300.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2301.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2302.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2303.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2304.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2305.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2306.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2307.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2308.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2309.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2310.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2311.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2312.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2313.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2314.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2315.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2316.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2317.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2318.     function  Delete: HResult; stdcall;
  2319.     function  Display(Modal: OleVariant): HResult; stdcall;
  2320.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2321.     function  Save: HResult; stdcall;
  2322.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2323.     function  PrintOut: HResult; stdcall;
  2324.     function  GetAssociatedAppointment(AddToCalendar: WordBool; out AppointmentItem: AppointmentItem): HResult; stdcall;
  2325.     function  Send: HResult; stdcall;
  2326.   end;
  2327.  
  2328. // *********************************************************************//
  2329. // DispIntf:  _DMeetingRequestDeclinedItem
  2330. // Flags:     (4112) Hidden Dispatchable
  2331. // GUID:      {00063031-0000-0000-C000-000000000046}
  2332. // *********************************************************************//
  2333.   _DMeetingRequestDeclinedItem = dispinterface
  2334.     ['{00063031-0000-0000-C000-000000000046}']
  2335.     property Actions: Actions readonly dispid 63511;
  2336.     property Application: OutlookApplication readonly dispid 61440;
  2337.     property Attachments: Attachments readonly dispid 63509;
  2338.     property BillingInformation: WideString dispid 34101;
  2339.     property Body: WideString dispid 37120;
  2340.     property Categories: WideString dispid 36865;
  2341.     property Companies: WideString dispid 34107;
  2342.     property CreationTime: TDateTime readonly dispid 12295;
  2343.     property EntryID: WideString readonly dispid 61470;
  2344.     property FormDescription: FormDescription readonly dispid 61589;
  2345.     property GetInspector: Inspector readonly dispid 61502;
  2346.     property Importance: OlImportance dispid 23;
  2347.     property LastModificationTime: TDateTime readonly dispid 12296;
  2348.     property MessageClass: WideString dispid 26;
  2349.     property Mileage: WideString dispid 34100;
  2350.     property NoAging: WordBool dispid 34062;
  2351.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2352.     property OutlookVersion: WideString readonly dispid 34132;
  2353.     property Parent: IDispatch readonly dispid 61441;
  2354.     property Saved: WordBool readonly dispid 61603;
  2355.     property Sensitivity: OlSensitivity dispid 54;
  2356.     property Size: Integer readonly dispid 3592;
  2357.     property Subject: WideString dispid 55;
  2358.     property UnRead: WordBool dispid 61468;
  2359.     property UserProperties: UserProperties readonly dispid 63510;
  2360.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2361.     function  Copy: IDispatch; dispid 61490;
  2362.     procedure Delete; dispid 61514;
  2363.     procedure Display(Modal: OleVariant); dispid 61606;
  2364.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2365.     procedure Save; dispid 61512;
  2366.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2367.     procedure PrintOut; dispid 61491;
  2368.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328;
  2369.     procedure Send; dispid 61557;
  2370.   end;
  2371.  
  2372. // *********************************************************************//
  2373. // Interface: _IMeetingRequestItem
  2374. // Flags:     (4112) Hidden Dispatchable
  2375. // GUID:      {00063129-0000-0000-C000-000000000046}
  2376. // *********************************************************************//
  2377.   _IMeetingRequestItem = interface(IDispatch)
  2378.     ['{00063129-0000-0000-C000-000000000046}']
  2379.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2380.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2381.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2382.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2383.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2384.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2385.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2386.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2387.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2388.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2389.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2390.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2391.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2392.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2393.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2394.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2395.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2396.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2397.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2398.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2399.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2400.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2401.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2402.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2403.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2404.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2405.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2406.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2407.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2408.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2409.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2410.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2411.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2412.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2413.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2414.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2415.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2416.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2417.     function  Delete: HResult; stdcall;
  2418.     function  Display(Modal: OleVariant): HResult; stdcall;
  2419.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2420.     function  Save: HResult; stdcall;
  2421.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2422.     function  PrintOut: HResult; stdcall;
  2423.     function  GetAssociatedAppointment(AddToCalendar: WordBool; out AppointmentItem: AppointmentItem): HResult; stdcall;
  2424.   end;
  2425.  
  2426. // *********************************************************************//
  2427. // DispIntf:  _DMeetingRequestItem
  2428. // Flags:     (4096) Dispatchable
  2429. // GUID:      {00063029-0000-0000-C000-000000000046}
  2430. // *********************************************************************//
  2431.   _DMeetingRequestItem = dispinterface
  2432.     ['{00063029-0000-0000-C000-000000000046}']
  2433.     property Actions: Actions readonly dispid 63511;
  2434.     property Application: OutlookApplication readonly dispid 61440;
  2435.     property Attachments: Attachments readonly dispid 63509;
  2436.     property BillingInformation: WideString dispid 34101;
  2437.     property Body: WideString dispid 37120;
  2438.     property Categories: WideString dispid 36865;
  2439.     property Companies: WideString dispid 34107;
  2440.     property CreationTime: TDateTime readonly dispid 12295;
  2441.     property EntryID: WideString readonly dispid 61470;
  2442.     property FormDescription: FormDescription readonly dispid 61589;
  2443.     property GetInspector: Inspector readonly dispid 61502;
  2444.     property Importance: OlImportance dispid 23;
  2445.     property LastModificationTime: TDateTime readonly dispid 12296;
  2446.     property MessageClass: WideString dispid 26;
  2447.     property Mileage: WideString dispid 34100;
  2448.     property NoAging: WordBool dispid 34062;
  2449.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2450.     property OutlookVersion: WideString readonly dispid 34132;
  2451.     property Parent: IDispatch readonly dispid 61441;
  2452.     property Saved: WordBool readonly dispid 61603;
  2453.     property Sensitivity: OlSensitivity dispid 54;
  2454.     property Size: Integer readonly dispid 3592;
  2455.     property Subject: WideString dispid 55;
  2456.     property UnRead: WordBool dispid 61468;
  2457.     property UserProperties: UserProperties readonly dispid 63510;
  2458.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2459.     function  Copy: IDispatch; dispid 61490;
  2460.     procedure Delete; dispid 61514;
  2461.     procedure Display(Modal: OleVariant); dispid 61606;
  2462.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2463.     procedure Save; dispid 61512;
  2464.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2465.     procedure PrintOut; dispid 61491;
  2466.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328;
  2467.   end;
  2468.  
  2469. // *********************************************************************//
  2470. // Interface: _IMeetingRequestTentativeItem
  2471. // Flags:     (4112) Hidden Dispatchable
  2472. // GUID:      {00063132-0000-0000-C000-000000000046}
  2473. // *********************************************************************//
  2474.   _IMeetingRequestTentativeItem = interface(IDispatch)
  2475.     ['{00063132-0000-0000-C000-000000000046}']
  2476.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2477.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2478.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2479.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2480.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2481.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2482.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2483.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2484.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2485.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2486.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2487.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2488.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2489.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2490.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2491.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2492.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2493.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2494.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2495.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2496.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2497.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2498.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2499.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2500.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2501.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2502.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2503.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2504.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2505.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2506.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2507.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2508.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2509.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2510.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2511.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2512.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2513.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2514.     function  Delete: HResult; stdcall;
  2515.     function  Display(Modal: OleVariant): HResult; stdcall;
  2516.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2517.     function  Save: HResult; stdcall;
  2518.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2519.     function  PrintOut: HResult; stdcall;
  2520.     function  GetAssociatedAppointment(AddToCalendar: WordBool; out AppointmentItem: AppointmentItem): HResult; stdcall;
  2521.     function  Send: HResult; stdcall;
  2522.   end;
  2523.  
  2524. // *********************************************************************//
  2525. // DispIntf:  _DMeetingRequestTentativeItem
  2526. // Flags:     (4112) Hidden Dispatchable
  2527. // GUID:      {00063032-0000-0000-C000-000000000046}
  2528. // *********************************************************************//
  2529.   _DMeetingRequestTentativeItem = dispinterface
  2530.     ['{00063032-0000-0000-C000-000000000046}']
  2531.     property Actions: Actions readonly dispid 63511;
  2532.     property Application: OutlookApplication readonly dispid 61440;
  2533.     property Attachments: Attachments readonly dispid 63509;
  2534.     property BillingInformation: WideString dispid 34101;
  2535.     property Body: WideString dispid 37120;
  2536.     property Categories: WideString dispid 36865;
  2537.     property Companies: WideString dispid 34107;
  2538.     property CreationTime: TDateTime readonly dispid 12295;
  2539.     property EntryID: WideString readonly dispid 61470;
  2540.     property FormDescription: FormDescription readonly dispid 61589;
  2541.     property GetInspector: Inspector readonly dispid 61502;
  2542.     property Importance: OlImportance dispid 23;
  2543.     property LastModificationTime: TDateTime readonly dispid 12296;
  2544.     property MessageClass: WideString dispid 26;
  2545.     property Mileage: WideString dispid 34100;
  2546.     property NoAging: WordBool dispid 34062;
  2547.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2548.     property OutlookVersion: WideString readonly dispid 34132;
  2549.     property Parent: IDispatch readonly dispid 61441;
  2550.     property Saved: WordBool readonly dispid 61603;
  2551.     property Sensitivity: OlSensitivity dispid 54;
  2552.     property Size: Integer readonly dispid 3592;
  2553.     property Subject: WideString dispid 55;
  2554.     property UnRead: WordBool dispid 61468;
  2555.     property UserProperties: UserProperties readonly dispid 63510;
  2556.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2557.     function  Copy: IDispatch; dispid 61490;
  2558.     procedure Delete; dispid 61514;
  2559.     procedure Display(Modal: OleVariant); dispid 61606;
  2560.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2561.     procedure Save; dispid 61512;
  2562.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2563.     procedure PrintOut; dispid 61491;
  2564.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem; dispid 63328;
  2565.     procedure Send; dispid 61557;
  2566.   end;
  2567.  
  2568. // *********************************************************************//
  2569. // Interface: _INameSpace
  2570. // Flags:     (4112) Hidden Dispatchable
  2571. // GUID:      {00063102-0000-0000-C000-000000000046}
  2572. // *********************************************************************//
  2573.   _INameSpace = interface(IDispatch)
  2574.     ['{00063102-0000-0000-C000-000000000046}']
  2575.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2576.     function  Get_CurrentUser(out CurrentUser: Recipient): HResult; stdcall;
  2577.     function  Get_Folders(out Folders: Folders): HResult; stdcall;
  2578.     function  Get_Parent(out Parent: OutlookApplication): HResult; stdcall;
  2579.     function  Get_Type_(out Type_: WideString): HResult; stdcall;
  2580.     function  CreateRecipient(const RecipientName: WideString; out Recipient: Recipient): HResult; stdcall;
  2581.     function  GetDefaultFolder(FolderType: OlDefaultFolders; out Folder: MAPIFolder): HResult; stdcall;
  2582.     function  GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant; 
  2583.                               out Folder: MAPIFolder): HResult; stdcall;
  2584.     function  GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant; 
  2585.                             out Item: IDispatch): HResult; stdcall;
  2586.     function  GetRecipientFromID(const EntryID: WideString; out Recipient: Recipient): HResult; stdcall;
  2587.     function  GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders; 
  2588.                                      out Folder: MAPIFolder): HResult; stdcall;
  2589.     function  Logoff: HResult; stdcall;
  2590.     function  Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; 
  2591.                     NewSession: OleVariant): HResult; stdcall;
  2592.   end;
  2593.  
  2594. // *********************************************************************//
  2595. // DispIntf:  NameSpace
  2596. // Flags:     (4096) Dispatchable
  2597. // GUID:      {00063002-0000-0000-C000-000000000046}
  2598. // *********************************************************************//
  2599.   NameSpace = dispinterface
  2600.     ['{00063002-0000-0000-C000-000000000046}']
  2601.     property Application: OutlookApplication readonly dispid 61440;
  2602.     property CurrentUser: Recipient readonly dispid 8449;
  2603.     property Folders: Folders readonly dispid 8451;
  2604.     property Parent: OutlookApplication readonly dispid 61441;
  2605.     property Type_: WideString readonly dispid 8452;
  2606.     function  CreateRecipient(const RecipientName: WideString): Recipient; dispid 8458;
  2607.     function  GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; dispid 8459;
  2608.     function  GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; dispid 8456;
  2609.     function  GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; dispid 8457;
  2610.     function  GetRecipientFromID(const EntryID: WideString): Recipient; dispid 8455;
  2611.     function  GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; dispid 8460;
  2612.     procedure Logoff; dispid 8454;
  2613.     procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant; 
  2614.                     NewSession: OleVariant); dispid 8453;
  2615.   end;
  2616.  
  2617. // *********************************************************************//
  2618. // Interface: _INoteItem
  2619. // Flags:     (4112) Hidden Dispatchable
  2620. // GUID:      {00063125-0000-0000-C000-000000000046}
  2621. // *********************************************************************//
  2622.   _INoteItem = interface(IDispatch)
  2623.     ['{00063125-0000-0000-C000-000000000046}']
  2624.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2625.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2626.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2627.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2628.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2629.     function  Get_Color(out Color: OlNoteColor): HResult; stdcall;
  2630.     function  Set_Color(Color: OlNoteColor): HResult; stdcall;
  2631.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2632.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2633.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2634.     function  Get_Height(out Height: Integer): HResult; stdcall;
  2635.     function  Set_Height(Height: Integer): HResult; stdcall;
  2636.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2637.     function  Get_Left(out Left: Integer): HResult; stdcall;
  2638.     function  Set_Left(Left: Integer): HResult; stdcall;
  2639.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2640.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2641.     function  Get_Parent(out Parent: MAPIFolder): HResult; stdcall;
  2642.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2643.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2644.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2645.     function  Get_Top(out Top: Integer): HResult; stdcall;
  2646.     function  Set_Top(Top: Integer): HResult; stdcall;
  2647.     function  Get_Width(out Width: Integer): HResult; stdcall;
  2648.     function  Set_Width(Width: Integer): HResult; stdcall;
  2649.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2650.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2651.     function  Delete: HResult; stdcall;
  2652.     function  Display(Modal: OleVariant): HResult; stdcall;
  2653.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2654.     function  Save: HResult; stdcall;
  2655.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2656.     function  PrintOut: HResult; stdcall;
  2657.   end;
  2658.  
  2659. // *********************************************************************//
  2660. // DispIntf:  _DNoteItem
  2661. // Flags:     (4096) Dispatchable
  2662. // GUID:      {00063025-0000-0000-C000-000000000046}
  2663. // *********************************************************************//
  2664.   _DNoteItem = dispinterface
  2665.     ['{00063025-0000-0000-C000-000000000046}']
  2666.     property Application: OutlookApplication readonly dispid 61440;
  2667.     property Body: WideString dispid 37120;
  2668.     property Categories: WideString dispid 36865;
  2669.     property Color: OlNoteColor dispid 35584;
  2670.     property CreationTime: TDateTime readonly dispid 12295;
  2671.     property EntryID: WideString readonly dispid 61470;
  2672.     property GetInspector: Inspector readonly dispid 61502;
  2673.     property Height: Integer dispid 35587;
  2674.     property LastModificationTime: TDateTime readonly dispid 12296;
  2675.     property Left: Integer dispid 35588;
  2676.     property MessageClass: WideString dispid 26;
  2677.     property Parent: MAPIFolder readonly dispid 61441;
  2678.     property Saved: WordBool readonly dispid 61603;
  2679.     property Size: Integer readonly dispid 3592;
  2680.     property Subject: WideString readonly dispid 63392;
  2681.     property Top: Integer dispid 35589;
  2682.     property Width: Integer dispid 35586;
  2683.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2684.     function  Copy: IDispatch; dispid 61490;
  2685.     procedure Delete; dispid 61514;
  2686.     procedure Display(Modal: OleVariant); dispid 61606;
  2687.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2688.     procedure Save; dispid 61512;
  2689.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2690.     procedure PrintOut; dispid 61491;
  2691.   end;
  2692.  
  2693. // *********************************************************************//
  2694. // Interface: _IOfficeDocumentItem
  2695. // Flags:     (4112) Hidden Dispatchable
  2696. // GUID:      {00063120-0000-0000-C000-000000000046}
  2697. // *********************************************************************//
  2698.   _IOfficeDocumentItem = interface(IDispatch)
  2699.     ['{00063120-0000-0000-C000-000000000046}']
  2700.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2701.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2702.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2703.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2704.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2705.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2706.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2707.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2708.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2709.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2710.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2711.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2712.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2713.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2714.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2715.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2716.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2717.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2718.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2719.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2720.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2721.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2722.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2723.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2724.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2725.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2726.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2727.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2728.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2729.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2730.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2731.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2732.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2733.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2734.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2735.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2736.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2737.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2738.     function  Delete: HResult; stdcall;
  2739.     function  Display(Modal: OleVariant): HResult; stdcall;
  2740.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2741.     function  Save: HResult; stdcall;
  2742.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2743.     function  PrintOut: HResult; stdcall;
  2744.   end;
  2745.  
  2746. // *********************************************************************//
  2747. // DispIntf:  _DOfficeDocumentItem
  2748. // Flags:     (4112) Hidden Dispatchable
  2749. // GUID:      {00063020-0000-0000-C000-000000000046}
  2750. // *********************************************************************//
  2751.   _DOfficeDocumentItem = dispinterface
  2752.     ['{00063020-0000-0000-C000-000000000046}']
  2753.     property Actions: Actions readonly dispid 63511;
  2754.     property Application: OutlookApplication readonly dispid 61440;
  2755.     property Attachments: Attachments readonly dispid 63509;
  2756.     property BillingInformation: WideString dispid 34101;
  2757.     property Body: WideString dispid 37120;
  2758.     property Categories: WideString dispid 36865;
  2759.     property Companies: WideString dispid 34107;
  2760.     property CreationTime: TDateTime readonly dispid 12295;
  2761.     property EntryID: WideString readonly dispid 61470;
  2762.     property FormDescription: FormDescription readonly dispid 61589;
  2763.     property GetInspector: Inspector readonly dispid 61502;
  2764.     property Importance: OlImportance dispid 23;
  2765.     property LastModificationTime: TDateTime readonly dispid 12296;
  2766.     property MessageClass: WideString dispid 26;
  2767.     property Mileage: WideString dispid 34100;
  2768.     property NoAging: WordBool dispid 34062;
  2769.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2770.     property OutlookVersion: WideString readonly dispid 34132;
  2771.     property Parent: IDispatch readonly dispid 61441;
  2772.     property Saved: WordBool readonly dispid 61603;
  2773.     property Sensitivity: OlSensitivity dispid 54;
  2774.     property Size: Integer readonly dispid 3592;
  2775.     property Subject: WideString dispid 55;
  2776.     property UnRead: WordBool dispid 61468;
  2777.     property UserProperties: UserProperties readonly dispid 63510;
  2778.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2779.     function  Copy: IDispatch; dispid 61490;
  2780.     procedure Delete; dispid 61514;
  2781.     procedure Display(Modal: OleVariant); dispid 61606;
  2782.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2783.     procedure Save; dispid 61512;
  2784.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2785.     procedure PrintOut; dispid 61491;
  2786.   end;
  2787.  
  2788. // *********************************************************************//
  2789. // Interface: _IPages
  2790. // Flags:     (4112) Hidden Dispatchable
  2791. // GUID:      {0006313F-0000-0000-C000-000000000046}
  2792. // *********************************************************************//
  2793.   _IPages = interface(IDispatch)
  2794.     ['{0006313F-0000-0000-C000-000000000046}']
  2795.     function  Get_Count(out Count: Integer): HResult; stdcall;
  2796.     function  Add(Name: OleVariant; out Page: Page): HResult; stdcall;
  2797.     function  Item(Index: OleVariant; out Page: Page): HResult; stdcall;
  2798.     function  Remove(Index: Integer): HResult; stdcall;
  2799.   end;
  2800.  
  2801. // *********************************************************************//
  2802. // DispIntf:  Pages
  2803. // Flags:     (4096) Dispatchable
  2804. // GUID:      {0006303F-0000-0000-C000-000000000046}
  2805. // *********************************************************************//
  2806.   Pages = dispinterface
  2807.     ['{0006303F-0000-0000-C000-000000000046}']
  2808.     property Count: Integer readonly dispid 80;
  2809.     function  Add(Name: OleVariant): Page; dispid 300;
  2810.     function  Item(Index: OleVariant): Page; dispid 81;
  2811.     procedure Remove(Index: Integer); dispid 301;
  2812.   end;
  2813.  
  2814. // *********************************************************************//
  2815. // Interface: _IPostItem
  2816. // Flags:     (4112) Hidden Dispatchable
  2817. // GUID:      {00063124-0000-0000-C000-000000000046}
  2818. // *********************************************************************//
  2819.   _IPostItem = interface(IDispatch)
  2820.     ['{00063124-0000-0000-C000-000000000046}']
  2821.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  2822.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2823.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  2824.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  2825.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  2826.     function  Get_Body(out Body: WideString): HResult; stdcall;
  2827.     function  Set_Body(const Body: WideString): HResult; stdcall;
  2828.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  2829.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  2830.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  2831.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  2832.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  2833.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2834.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  2835.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  2836.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  2837.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  2838.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  2839.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  2840.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  2841.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  2842.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  2843.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  2844.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  2845.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  2846.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  2847.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2848.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  2849.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  2850.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  2851.     function  Get_Size(out Size: Integer): HResult; stdcall;
  2852.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  2853.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  2854.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  2855.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  2856.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  2857.     function  Get_ConversationIndex(out ConversationIndex: WideString): HResult; stdcall;
  2858.     function  Get_ConversationTopic(out ConversationTopic: WideString): HResult; stdcall;
  2859.     function  Get_ExpiryTime(out ExpiryTime: TDateTime): HResult; stdcall;
  2860.     function  Set_ExpiryTime(ExpiryTime: TDateTime): HResult; stdcall;
  2861.     function  Get_ReceivedTime(out ReceivedTime: TDateTime): HResult; stdcall;
  2862.     function  Get_SenderName(out SenderName: WideString): HResult; stdcall;
  2863.     function  Get_SentOn(out SentOn: TDateTime): HResult; stdcall;
  2864.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  2865.     function  Copy(out Item: IDispatch): HResult; stdcall;
  2866.     function  Delete: HResult; stdcall;
  2867.     function  Display(Modal: OleVariant): HResult; stdcall;
  2868.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  2869.     function  Save: HResult; stdcall;
  2870.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  2871.     function  PrintOut: HResult; stdcall;
  2872.     function  ClearConversationIndex: HResult; stdcall;
  2873.     function  Forward(out Item: MailItem): HResult; stdcall;
  2874.     function  Post: HResult; stdcall;
  2875.     function  Reply(out Item: MailItem): HResult; stdcall;
  2876.   end;
  2877.  
  2878. // *********************************************************************//
  2879. // DispIntf:  _DPostItem
  2880. // Flags:     (4096) Dispatchable
  2881. // GUID:      {00063024-0000-0000-C000-000000000046}
  2882. // *********************************************************************//
  2883.   _DPostItem = dispinterface
  2884.     ['{00063024-0000-0000-C000-000000000046}']
  2885.     property Actions: Actions readonly dispid 63511;
  2886.     property Application: OutlookApplication readonly dispid 61440;
  2887.     property Attachments: Attachments readonly dispid 63509;
  2888.     property BillingInformation: WideString dispid 34101;
  2889.     property Body: WideString dispid 37120;
  2890.     property Categories: WideString dispid 36865;
  2891.     property Companies: WideString dispid 34107;
  2892.     property CreationTime: TDateTime readonly dispid 12295;
  2893.     property EntryID: WideString readonly dispid 61470;
  2894.     property FormDescription: FormDescription readonly dispid 61589;
  2895.     property GetInspector: Inspector readonly dispid 61502;
  2896.     property Importance: OlImportance dispid 23;
  2897.     property LastModificationTime: TDateTime readonly dispid 12296;
  2898.     property MessageClass: WideString dispid 26;
  2899.     property Mileage: WideString dispid 34100;
  2900.     property NoAging: WordBool dispid 34062;
  2901.     property OutlookInternalVersion: WideString readonly dispid 34130;
  2902.     property OutlookVersion: WideString readonly dispid 34132;
  2903.     property Parent: IDispatch readonly dispid 61441;
  2904.     property Saved: WordBool readonly dispid 61603;
  2905.     property Sensitivity: OlSensitivity dispid 54;
  2906.     property Size: Integer readonly dispid 3592;
  2907.     property Subject: WideString dispid 55;
  2908.     property UnRead: WordBool dispid 61468;
  2909.     property UserProperties: UserProperties readonly dispid 63510;
  2910.     property ConversationIndex: WideString readonly dispid 113;
  2911.     property ConversationTopic: WideString readonly dispid 112;
  2912.     property ExpiryTime: TDateTime dispid 21;
  2913.     property ReceivedTime: TDateTime readonly dispid 3590;
  2914.     property SenderName: WideString readonly dispid 3098;
  2915.     property SentOn: TDateTime readonly dispid 57;
  2916.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  2917.     function  Copy: IDispatch; dispid 61490;
  2918.     procedure Delete; dispid 61514;
  2919.     procedure Display(Modal: OleVariant); dispid 61606;
  2920.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  2921.     procedure Save; dispid 61512;
  2922.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  2923.     procedure PrintOut; dispid 61491;
  2924.     procedure ClearConversationIndex; dispid 63522;
  2925.     function  Forward: MailItem; dispid 63507;
  2926.     procedure Post; dispid 61557;
  2927.     function  Reply: MailItem; dispid 63504;
  2928.   end;
  2929.  
  2930. // *********************************************************************//
  2931. // Interface: _IRecipient
  2932. // Flags:     (4112) Hidden Dispatchable
  2933. // GUID:      {00063145-0000-0000-C000-000000000046}
  2934. // *********************************************************************//
  2935.   _IRecipient = interface(IDispatch)
  2936.     ['{00063145-0000-0000-C000-000000000046}']
  2937.     function  Get_Address(out Address: WideString): HResult; stdcall;
  2938.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  2939.     function  Get_AutoResponse(out AutoResponse: WideString): HResult; stdcall;
  2940.     function  Set_AutoResponse(const AutoResponse: WideString): HResult; stdcall;
  2941.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  2942.     function  Get_MeetingResponseStatus(out MeetingResponseStatus: OlResponseStatus): HResult; stdcall;
  2943.     function  Set_MeetingResponseStatus(MeetingResponseStatus: OlResponseStatus): HResult; stdcall;
  2944.     function  Get_Name(out Name: WideString): HResult; stdcall;
  2945.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  2946.     function  Get_Resolved(out Resolved: WordBool): HResult; stdcall;
  2947.     function  Get_TrackingStatus(out TrackingStatus: OlTrackingStatus): HResult; stdcall;
  2948.     function  Set_TrackingStatus(TrackingStatus: OlTrackingStatus): HResult; stdcall;
  2949.     function  Get_TrackingStatusTime(out TrackingStatusTime: TDateTime): HResult; stdcall;
  2950.     function  Set_TrackingStatusTime(TrackingStatusTime: TDateTime): HResult; stdcall;
  2951.     function  Get_Type_(out Type_: Integer): HResult; stdcall;
  2952.     function  Set_Type_(Type_: Integer): HResult; stdcall;
  2953.     function  Delete: HResult; stdcall;
  2954.     function  FreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant; 
  2955.                        out FreeBusyInfo: WideString): HResult; stdcall;
  2956.     function  Resolve(out Success: WordBool): HResult; stdcall;
  2957.   end;
  2958.  
  2959. // *********************************************************************//
  2960. // DispIntf:  Recipient
  2961. // Flags:     (4096) Dispatchable
  2962. // GUID:      {00063045-0000-0000-C000-000000000046}
  2963. // *********************************************************************//
  2964.   Recipient = dispinterface
  2965.     ['{00063045-0000-0000-C000-000000000046}']
  2966.     property Address: WideString readonly dispid 12291;
  2967.     property Application: OutlookApplication readonly dispid 61440;
  2968.     property AutoResponse: WideString dispid 106;
  2969.     property EntryID: WideString readonly dispid 61470;
  2970.     property MeetingResponseStatus: OlResponseStatus dispid 102;
  2971.     property Name: WideString readonly dispid 12289;
  2972.     property Parent: IDispatch readonly dispid 109;
  2973.     property Resolved: WordBool readonly dispid 100;
  2974.     property TrackingStatus: OlTrackingStatus dispid 118;
  2975.     property TrackingStatusTime: TDateTime dispid 119;
  2976.     property Type_: Integer dispid 112;
  2977.     procedure Delete; dispid 110;
  2978.     function  FreeBusy(Start: TDateTime; MinPerChar: Integer; CompleteFormat: OleVariant): WideString; dispid 111;
  2979.     function  Resolve: WordBool; dispid 113;
  2980.   end;
  2981.  
  2982. // *********************************************************************//
  2983. // Interface: _IRecipients
  2984. // Flags:     (4112) Hidden Dispatchable
  2985. // GUID:      {0006313B-0000-0000-C000-000000000046}
  2986. // *********************************************************************//
  2987.   _IRecipients = interface(IDispatch)
  2988.     ['{0006313B-0000-0000-C000-000000000046}']
  2989.     function  Get_Count(out Count: Integer): HResult; stdcall;
  2990.     function  Add(const Name: WideString; out Recipient: Recipient): HResult; stdcall;
  2991.     function  Item(Index: OleVariant; out Recipient: Recipient): HResult; stdcall;
  2992.     function  Remove(Index: Integer): HResult; stdcall;
  2993.     function  ResolveAll(out Success: WordBool): HResult; stdcall;
  2994.   end;
  2995.  
  2996. // *********************************************************************//
  2997. // DispIntf:  Recipients
  2998. // Flags:     (4096) Dispatchable
  2999. // GUID:      {0006303B-0000-0000-C000-000000000046}
  3000. // *********************************************************************//
  3001.   Recipients = dispinterface
  3002.     ['{0006303B-0000-0000-C000-000000000046}']
  3003.     property Count: Integer readonly dispid 80;
  3004.     function  Add(const Name: WideString): Recipient; dispid 111;
  3005.     function  Item(Index: OleVariant): Recipient; dispid 81;
  3006.     procedure Remove(Index: Integer); dispid 84;
  3007.     function  ResolveAll: WordBool; dispid 126;
  3008.   end;
  3009.  
  3010. // *********************************************************************//
  3011. // Interface: _IRecurrencePattern
  3012. // Flags:     (4112) Hidden Dispatchable
  3013. // GUID:      {00063144-0000-0000-C000-000000000046}
  3014. // *********************************************************************//
  3015.   _IRecurrencePattern = interface(IDispatch)
  3016.     ['{00063144-0000-0000-C000-000000000046}']
  3017.     function  Get_DayOfMonth(out DayOfMonth: Integer): HResult; stdcall;
  3018.     function  Set_DayOfMonth(DayOfMonth: Integer): HResult; stdcall;
  3019.     function  Get_DayOfWeekMask(out DayOfWeekMask: OlDaysOfWeek): HResult; stdcall;
  3020.     function  Set_DayOfWeekMask(DayOfWeekMask: OlDaysOfWeek): HResult; stdcall;
  3021.     function  Get_Duration(out Duration: Integer): HResult; stdcall;
  3022.     function  Set_Duration(Duration: Integer): HResult; stdcall;
  3023.     function  Get_EndTime(out EndTime: TDateTime): HResult; stdcall;
  3024.     function  Set_EndTime(EndTime: TDateTime): HResult; stdcall;
  3025.     function  Get_Instance(out Instance: Integer): HResult; stdcall;
  3026.     function  Set_Instance(Instance: Integer): HResult; stdcall;
  3027.     function  Get_Interval(out Interval: Integer): HResult; stdcall;
  3028.     function  Set_Interval(Interval: Integer): HResult; stdcall;
  3029.     function  Get_MonthOfYear(out MonthOfYear: Integer): HResult; stdcall;
  3030.     function  Set_MonthOfYear(MonthOfYear: Integer): HResult; stdcall;
  3031.     function  Get_NoEndDate(out NoEndDate: WordBool): HResult; stdcall;
  3032.     function  Set_NoEndDate(NoEndDate: WordBool): HResult; stdcall;
  3033.     function  Get_Occurrences(out Occurrences: Integer): HResult; stdcall;
  3034.     function  Set_Occurrences(Occurrences: Integer): HResult; stdcall;
  3035.     function  Get_PatternEndDate(out PatternEndDate: TDateTime): HResult; stdcall;
  3036.     function  Set_PatternEndDate(PatternEndDate: TDateTime): HResult; stdcall;
  3037.     function  Get_PatternStartDate(out PatternStartDate: TDateTime): HResult; stdcall;
  3038.     function  Set_PatternStartDate(PatternStartDate: TDateTime): HResult; stdcall;
  3039.     function  Get_RecurrenceType(out RecurrenceType: OlRecurrenceType): HResult; stdcall;
  3040.     function  Set_RecurrenceType(RecurrenceType: OlRecurrenceType): HResult; stdcall;
  3041.     function  Get_Regenerate(out Regenerate: WordBool): HResult; stdcall;
  3042.     function  Set_Regenerate(Regenerate: WordBool): HResult; stdcall;
  3043.     function  Get_StartTime(out StartTime: TDateTime): HResult; stdcall;
  3044.     function  Set_StartTime(StartTime: TDateTime): HResult; stdcall;
  3045.   end;
  3046.  
  3047. // *********************************************************************//
  3048. // DispIntf:  RecurrencePattern
  3049. // Flags:     (4096) Dispatchable
  3050. // GUID:      {00063044-0000-0000-C000-000000000046}
  3051. // *********************************************************************//
  3052.   RecurrencePattern = dispinterface
  3053.     ['{00063044-0000-0000-C000-000000000046}']
  3054.     property DayOfMonth: Integer dispid 4096;
  3055.     property DayOfWeekMask: OlDaysOfWeek dispid 4097;
  3056.     property Duration: Integer dispid 4109;
  3057.     property EndTime: TDateTime dispid 4108;
  3058.     property Instance: Integer dispid 4099;
  3059.     property Interval: Integer dispid 4100;
  3060.     property MonthOfYear: Integer dispid 4102;
  3061.     property NoEndDate: WordBool dispid 4107;
  3062.     property Occurrences: Integer dispid 4101;
  3063.     property PatternEndDate: TDateTime dispid 4098;
  3064.     property PatternStartDate: TDateTime dispid 4104;
  3065.     property RecurrenceType: OlRecurrenceType dispid 4103;
  3066.     property Regenerate: WordBool dispid 4106;
  3067.     property StartTime: TDateTime dispid 4105;
  3068.   end;
  3069.  
  3070. // *********************************************************************//
  3071. // Interface: _IRemoteItem
  3072. // Flags:     (4112) Hidden Dispatchable
  3073. // GUID:      {00063123-0000-0000-C000-000000000046}
  3074. // *********************************************************************//
  3075.   _IRemoteItem = interface(IDispatch)
  3076.     ['{00063123-0000-0000-C000-000000000046}']
  3077.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3078.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3079.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3080.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3081.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3082.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3083.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3084.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3085.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3086.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3087.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3088.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3089.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3090.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3091.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3092.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3093.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3094.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3095.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3096.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3097.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3098.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3099.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3100.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3101.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3102.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3103.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3104.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3105.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3106.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3107.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3108.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3109.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3110.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3111.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3112.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3113.     function  Get_HasAttachment(out HasAttachment: WordBool): HResult; stdcall;
  3114.     function  Get_RemoteMessageClass(out RemoteMessageClass: WideString): HResult; stdcall;
  3115.     function  Get_TransferSize(out TransferSize: Integer): HResult; stdcall;
  3116.     function  Get_TransferTime(out TransferTime: Integer): HResult; stdcall;
  3117.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3118.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3119.     function  Delete: HResult; stdcall;
  3120.     function  Display(Modal: OleVariant): HResult; stdcall;
  3121.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3122.     function  Save: HResult; stdcall;
  3123.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3124.     function  PrintOut: HResult; stdcall;
  3125.   end;
  3126.  
  3127. // *********************************************************************//
  3128. // DispIntf:  _DRemoteItem
  3129. // Flags:     (4096) Dispatchable
  3130. // GUID:      {00063023-0000-0000-C000-000000000046}
  3131. // *********************************************************************//
  3132.   _DRemoteItem = dispinterface
  3133.     ['{00063023-0000-0000-C000-000000000046}']
  3134.     property Actions: Actions readonly dispid 63511;
  3135.     property Application: OutlookApplication readonly dispid 61440;
  3136.     property Attachments: Attachments readonly dispid 63509;
  3137.     property BillingInformation: WideString dispid 34101;
  3138.     property Body: WideString dispid 37120;
  3139.     property Categories: WideString dispid 36865;
  3140.     property Companies: WideString dispid 34107;
  3141.     property CreationTime: TDateTime readonly dispid 12295;
  3142.     property EntryID: WideString readonly dispid 61470;
  3143.     property FormDescription: FormDescription readonly dispid 61589;
  3144.     property GetInspector: Inspector readonly dispid 61502;
  3145.     property Importance: OlImportance dispid 23;
  3146.     property LastModificationTime: TDateTime readonly dispid 12296;
  3147.     property MessageClass: WideString dispid 26;
  3148.     property Mileage: WideString dispid 34100;
  3149.     property NoAging: WordBool dispid 34062;
  3150.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3151.     property OutlookVersion: WideString readonly dispid 34132;
  3152.     property Parent: IDispatch readonly dispid 61441;
  3153.     property Saved: WordBool readonly dispid 61603;
  3154.     property Sensitivity: OlSensitivity dispid 54;
  3155.     property Size: Integer readonly dispid 3592;
  3156.     property Subject: WideString dispid 55;
  3157.     property UnRead: WordBool dispid 61468;
  3158.     property UserProperties: UserProperties readonly dispid 63510;
  3159.     property HasAttachment: WordBool readonly dispid 36615;
  3160.     property RemoteMessageClass: WideString readonly dispid 36610;
  3161.     property TransferSize: Integer readonly dispid 36613;
  3162.     property TransferTime: Integer readonly dispid 36612;
  3163.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3164.     function  Copy: IDispatch; dispid 61490;
  3165.     procedure Delete; dispid 61514;
  3166.     procedure Display(Modal: OleVariant); dispid 61606;
  3167.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3168.     procedure Save; dispid 61512;
  3169.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3170.     procedure PrintOut; dispid 61491;
  3171.   end;
  3172.  
  3173. // *********************************************************************//
  3174. // Interface: _IReportItem
  3175. // Flags:     (4112) Hidden Dispatchable
  3176. // GUID:      {00063126-0000-0000-C000-000000000046}
  3177. // *********************************************************************//
  3178.   _IReportItem = interface(IDispatch)
  3179.     ['{00063126-0000-0000-C000-000000000046}']
  3180.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3181.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3182.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3183.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3184.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3185.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3186.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3187.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3188.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3189.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3190.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3191.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3192.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3193.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3194.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3195.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3196.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3197.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3198.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3199.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3200.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3201.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3202.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3203.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3204.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3205.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3206.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3207.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3208.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3209.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3210.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3211.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3212.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3213.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3214.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3215.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3216.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3217.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3218.     function  Delete: HResult; stdcall;
  3219.     function  Display(Modal: OleVariant): HResult; stdcall;
  3220.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3221.     function  Save: HResult; stdcall;
  3222.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3223.     function  PrintOut: HResult; stdcall;
  3224.   end;
  3225.  
  3226. // *********************************************************************//
  3227. // DispIntf:  _DReportItem
  3228. // Flags:     (4096) Dispatchable
  3229. // GUID:      {00063026-0000-0000-C000-000000000046}
  3230. // *********************************************************************//
  3231.   _DReportItem = dispinterface
  3232.     ['{00063026-0000-0000-C000-000000000046}']
  3233.     property Actions: Actions readonly dispid 63511;
  3234.     property Application: OutlookApplication readonly dispid 61440;
  3235.     property Attachments: Attachments readonly dispid 63509;
  3236.     property BillingInformation: WideString dispid 34101;
  3237.     property Body: WideString dispid 37120;
  3238.     property Categories: WideString dispid 36865;
  3239.     property Companies: WideString dispid 34107;
  3240.     property CreationTime: TDateTime readonly dispid 12295;
  3241.     property EntryID: WideString readonly dispid 61470;
  3242.     property FormDescription: FormDescription readonly dispid 61589;
  3243.     property GetInspector: Inspector readonly dispid 61502;
  3244.     property Importance: OlImportance dispid 23;
  3245.     property LastModificationTime: TDateTime readonly dispid 12296;
  3246.     property MessageClass: WideString dispid 26;
  3247.     property Mileage: WideString dispid 34100;
  3248.     property NoAging: WordBool dispid 34062;
  3249.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3250.     property OutlookVersion: WideString readonly dispid 34132;
  3251.     property Parent: IDispatch readonly dispid 61441;
  3252.     property Saved: WordBool readonly dispid 61603;
  3253.     property Sensitivity: OlSensitivity dispid 54;
  3254.     property Size: Integer readonly dispid 3592;
  3255.     property Subject: WideString dispid 55;
  3256.     property UnRead: WordBool dispid 61468;
  3257.     property UserProperties: UserProperties readonly dispid 63510;
  3258.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3259.     function  Copy: IDispatch; dispid 61490;
  3260.     procedure Delete; dispid 61514;
  3261.     procedure Display(Modal: OleVariant); dispid 61606;
  3262.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3263.     procedure Save; dispid 61512;
  3264.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3265.     procedure PrintOut; dispid 61491;
  3266.   end;
  3267.  
  3268. // *********************************************************************//
  3269. // Interface: _ITaskItem
  3270. // Flags:     (4112) Hidden Dispatchable
  3271. // GUID:      {00063135-0000-0000-C000-000000000046}
  3272. // *********************************************************************//
  3273.   _ITaskItem = interface(IDispatch)
  3274.     ['{00063135-0000-0000-C000-000000000046}']
  3275.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3276.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3277.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3278.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3279.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3280.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3281.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3282.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3283.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3284.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3285.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3286.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3287.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3288.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3289.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3290.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3291.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3292.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3293.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3294.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3295.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3296.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3297.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3298.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3299.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3300.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3301.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3302.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3303.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3304.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3305.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3306.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3307.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3308.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3309.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3310.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3311.     function  Get_ActualWork(out ActualWork: Integer): HResult; stdcall;
  3312.     function  Set_ActualWork(ActualWork: Integer): HResult; stdcall;
  3313.     function  Get_CardData(out CardData: WideString): HResult; stdcall;
  3314.     function  Set_CardData(const CardData: WideString): HResult; stdcall;
  3315.     function  Get_Complete(out Complete: WordBool): HResult; stdcall;
  3316.     function  Set_Complete(Complete: WordBool): HResult; stdcall;
  3317.     function  Get_Contacts(out Contacts: WideString): HResult; stdcall;
  3318.     function  Set_Contacts(const Contacts: WideString): HResult; stdcall;
  3319.     function  Get_DateCompleted(out DateCompleted: TDateTime): HResult; stdcall;
  3320.     function  Set_DateCompleted(DateCompleted: TDateTime): HResult; stdcall;
  3321.     function  Get_DelegationState(out DelegationState: OlTaskDelegationState): HResult; stdcall;
  3322.     function  Get_Delegator(out Delegator: WideString): HResult; stdcall;
  3323.     function  Get_DueDate(out DueDate: TDateTime): HResult; stdcall;
  3324.     function  Set_DueDate(DueDate: TDateTime): HResult; stdcall;
  3325.     function  Get_IsRecurring(out IsRecurring: WordBool): HResult; stdcall;
  3326.     function  Get_Ordinal(out Ordinal: Integer): HResult; stdcall;
  3327.     function  Set_Ordinal(Ordinal: Integer): HResult; stdcall;
  3328.     function  Get_Owner(out Owner: WideString): HResult; stdcall;
  3329.     function  Set_Owner(const Owner: WideString): HResult; stdcall;
  3330.     function  Get_Ownership(out Ownership: OlTaskOwnership): HResult; stdcall;
  3331.     function  Get_PercentComplete(out PercentComplete: Integer): HResult; stdcall;
  3332.     function  Set_PercentComplete(PercentComplete: Integer): HResult; stdcall;
  3333.     function  Get_Recipients(out Recipients: Recipients): HResult; stdcall;
  3334.     function  Get_ReminderOverrideDefault(out ReminderOverrideDefault: WordBool): HResult; stdcall;
  3335.     function  Set_ReminderOverrideDefault(ReminderOverrideDefault: WordBool): HResult; stdcall;
  3336.     function  Get_ReminderPlaySound(out ReminderPlaySound: WordBool): HResult; stdcall;
  3337.     function  Set_ReminderPlaySound(ReminderPlaySound: WordBool): HResult; stdcall;
  3338.     function  Get_ReminderSet(out ReminderSet: WordBool): HResult; stdcall;
  3339.     function  Set_ReminderSet(ReminderSet: WordBool): HResult; stdcall;
  3340.     function  Get_ReminderSoundFile(out ReminderSoundFile: WideString): HResult; stdcall;
  3341.     function  Set_ReminderSoundFile(const ReminderSoundFile: WideString): HResult; stdcall;
  3342.     function  Get_ReminderTime(out ReminderTime: TDateTime): HResult; stdcall;
  3343.     function  Set_ReminderTime(ReminderTime: TDateTime): HResult; stdcall;
  3344.     function  Get_ResponseState(out ResponseState: OlTaskResponse): HResult; stdcall;
  3345.     function  Get_Role(out Role: WideString): HResult; stdcall;
  3346.     function  Set_Role(const Role: WideString): HResult; stdcall;
  3347.     function  Get_SchedulePlusPriority(out SchedulePlusPriority: WideString): HResult; stdcall;
  3348.     function  Set_SchedulePlusPriority(const SchedulePlusPriority: WideString): HResult; stdcall;
  3349.     function  Get_StartDate(out StartDate: TDateTime): HResult; stdcall;
  3350.     function  Set_StartDate(StartDate: TDateTime): HResult; stdcall;
  3351.     function  Get_Status(out Status: OlTaskStatus): HResult; stdcall;
  3352.     function  Set_Status(Status: OlTaskStatus): HResult; stdcall;
  3353.     function  Get_StatusOnCompletionRecipients(out StatusOnCompletionRecipients: WideString): HResult; stdcall;
  3354.     function  Set_StatusOnCompletionRecipients(const StatusOnCompletionRecipients: WideString): HResult; stdcall;
  3355.     function  Get_StatusUpdateRecipients(out StatusUpdateRecipients: WideString): HResult; stdcall;
  3356.     function  Set_StatusUpdateRecipients(const StatusUpdateRecipients: WideString): HResult; stdcall;
  3357.     function  Get_TeamTask(out TeamTask: WordBool): HResult; stdcall;
  3358.     function  Set_TeamTask(TeamTask: WordBool): HResult; stdcall;
  3359.     function  Get_TotalWork(out TotalWork: Integer): HResult; stdcall;
  3360.     function  Set_TotalWork(TotalWork: Integer): HResult; stdcall;
  3361.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3362.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3363.     function  Delete: HResult; stdcall;
  3364.     function  Display(Modal: OleVariant): HResult; stdcall;
  3365.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3366.     function  Save: HResult; stdcall;
  3367.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3368.     function  PrintOut: HResult; stdcall;
  3369.     function  Assign_(out Item: TaskItem): HResult; stdcall;
  3370.     function  CancelResponseState: HResult; stdcall;
  3371.     function  ClearRecurrencePattern: HResult; stdcall;
  3372.     function  GetRecurrencePattern: HResult; stdcall;
  3373.     function  MarkComplete: HResult; stdcall;
  3374.     function  Respond(Response: OlTaskResponse; fNoUI: OleVariant; 
  3375.                       fAdditionalTextDialog: OleVariant; out Item: TaskItem): HResult; stdcall;
  3376.     function  Send: HResult; stdcall;
  3377.     function  SkipRecurrence: WordBool; stdcall;
  3378.     function  StatusReport(out StatusReport: IDispatch): HResult; stdcall;
  3379.   end;
  3380.  
  3381. // *********************************************************************//
  3382. // DispIntf:  _DTaskItem
  3383. // Flags:     (4096) Dispatchable
  3384. // GUID:      {00063035-0000-0000-C000-000000000046}
  3385. // *********************************************************************//
  3386.   _DTaskItem = dispinterface
  3387.     ['{00063035-0000-0000-C000-000000000046}']
  3388.     property Actions: Actions readonly dispid 63511;
  3389.     property Application: OutlookApplication readonly dispid 61440;
  3390.     property Attachments: Attachments readonly dispid 63509;
  3391.     property BillingInformation: WideString dispid 34101;
  3392.     property Body: WideString dispid 37120;
  3393.     property Categories: WideString dispid 36865;
  3394.     property Companies: WideString dispid 34107;
  3395.     property CreationTime: TDateTime readonly dispid 12295;
  3396.     property EntryID: WideString readonly dispid 61470;
  3397.     property FormDescription: FormDescription readonly dispid 61589;
  3398.     property GetInspector: Inspector readonly dispid 61502;
  3399.     property Importance: OlImportance dispid 23;
  3400.     property LastModificationTime: TDateTime readonly dispid 12296;
  3401.     property MessageClass: WideString dispid 26;
  3402.     property Mileage: WideString dispid 34100;
  3403.     property NoAging: WordBool dispid 34062;
  3404.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3405.     property OutlookVersion: WideString readonly dispid 34132;
  3406.     property Parent: IDispatch readonly dispid 61441;
  3407.     property Saved: WordBool readonly dispid 61603;
  3408.     property Sensitivity: OlSensitivity dispid 54;
  3409.     property Size: Integer readonly dispid 3592;
  3410.     property Subject: WideString dispid 55;
  3411.     property UnRead: WordBool dispid 61468;
  3412.     property UserProperties: UserProperties readonly dispid 63510;
  3413.     property ActualWork: Integer dispid 33040;
  3414.     property CardData: WideString dispid 33067;
  3415.     property Complete: WordBool dispid 33052;
  3416.     property Contacts: WideString dispid 34106;
  3417.     property DateCompleted: TDateTime dispid 33039;
  3418.     property DelegationState: OlTaskDelegationState readonly dispid 33066;
  3419.     property Delegator: WideString readonly dispid 33057;
  3420.     property DueDate: TDateTime dispid 33029;
  3421.     property IsRecurring: WordBool readonly dispid 62999;
  3422.     property Ordinal: Integer dispid 33059;
  3423.     property Owner: WideString dispid 33055;
  3424.     property Ownership: OlTaskOwnership readonly dispid 33065;
  3425.     property PercentComplete: Integer dispid 63007;
  3426.     property Recipients: Recipients readonly dispid 63508;
  3427.     property ReminderOverrideDefault: WordBool dispid 34076;
  3428.     property ReminderPlaySound: WordBool dispid 34078;
  3429.     property ReminderSet: WordBool dispid 34051;
  3430.     property ReminderSoundFile: WideString dispid 34079;
  3431.     property ReminderTime: TDateTime dispid 34050;
  3432.     property ResponseState: OlTaskResponse readonly dispid 63011;
  3433.     property Role: WideString dispid 33063;
  3434.     property SchedulePlusPriority: WideString dispid 33071;
  3435.     property StartDate: TDateTime dispid 33028;
  3436.     property Status: OlTaskStatus dispid 33025;
  3437.     property StatusOnCompletionRecipients: WideString dispid 3586;
  3438.     property StatusUpdateRecipients: WideString dispid 3587;
  3439.     property TeamTask: WordBool dispid 33027;
  3440.     property TotalWork: Integer dispid 33041;
  3441.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3442.     function  Copy: IDispatch; dispid 61490;
  3443.     procedure Delete; dispid 61514;
  3444.     procedure Display(Modal: OleVariant); dispid 61606;
  3445.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3446.     procedure Save; dispid 61512;
  3447.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3448.     procedure PrintOut; dispid 61491;
  3449.     function  Assign_: TaskItem; dispid 63008;
  3450.     procedure CancelResponseState; dispid 63010;
  3451.     procedure ClearRecurrencePattern; dispid 61605;
  3452.     procedure GetRecurrencePattern; dispid 61604;
  3453.     procedure MarkComplete; dispid 62989;
  3454.     function  Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem; dispid 63009;
  3455.     procedure Send; dispid 61557;
  3456.     function  SkipRecurrence: WordBool; dispid 63012;
  3457.     function  StatusReport: IDispatch; dispid 62994;
  3458.   end;
  3459.  
  3460. // *********************************************************************//
  3461. // Interface: _ITaskRequestAcceptItem
  3462. // Flags:     (4112) Hidden Dispatchable
  3463. // GUID:      {00063138-0000-0000-C000-000000000046}
  3464. // *********************************************************************//
  3465.   _ITaskRequestAcceptItem = interface(IDispatch)
  3466.     ['{00063138-0000-0000-C000-000000000046}']
  3467.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3468.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3469.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3470.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3471.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3472.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3473.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3474.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3475.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3476.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3477.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3478.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3479.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3480.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3481.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3482.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3483.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3484.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3485.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3486.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3487.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3488.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3489.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3490.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3491.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3492.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3493.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3494.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3495.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3496.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3497.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3498.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3499.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3500.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3501.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3502.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3503.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3504.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3505.     function  Delete: HResult; stdcall;
  3506.     function  Display(Modal: OleVariant): HResult; stdcall;
  3507.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3508.     function  Save: HResult; stdcall;
  3509.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3510.     function  PrintOut: HResult; stdcall;
  3511.     function  GetAssociatedTask(AddToTaskList: WordBool; out Item: TaskItem): HResult; stdcall;
  3512.   end;
  3513.  
  3514. // *********************************************************************//
  3515. // DispIntf:  _DTaskRequestAcceptItem
  3516. // Flags:     (4112) Hidden Dispatchable
  3517. // GUID:      {00063038-0000-0000-C000-000000000046}
  3518. // *********************************************************************//
  3519.   _DTaskRequestAcceptItem = dispinterface
  3520.     ['{00063038-0000-0000-C000-000000000046}']
  3521.     property Actions: Actions readonly dispid 63511;
  3522.     property Application: OutlookApplication readonly dispid 61440;
  3523.     property Attachments: Attachments readonly dispid 63509;
  3524.     property BillingInformation: WideString dispid 34101;
  3525.     property Body: WideString dispid 37120;
  3526.     property Categories: WideString dispid 36865;
  3527.     property Companies: WideString dispid 34107;
  3528.     property CreationTime: TDateTime readonly dispid 12295;
  3529.     property EntryID: WideString readonly dispid 61470;
  3530.     property FormDescription: FormDescription readonly dispid 61589;
  3531.     property GetInspector: Inspector readonly dispid 61502;
  3532.     property Importance: OlImportance dispid 23;
  3533.     property LastModificationTime: TDateTime readonly dispid 12296;
  3534.     property MessageClass: WideString dispid 26;
  3535.     property Mileage: WideString dispid 34100;
  3536.     property NoAging: WordBool dispid 34062;
  3537.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3538.     property OutlookVersion: WideString readonly dispid 34132;
  3539.     property Parent: IDispatch readonly dispid 61441;
  3540.     property Saved: WordBool readonly dispid 61603;
  3541.     property Sensitivity: OlSensitivity dispid 54;
  3542.     property Size: Integer readonly dispid 3592;
  3543.     property Subject: WideString dispid 55;
  3544.     property UnRead: WordBool dispid 61468;
  3545.     property UserProperties: UserProperties readonly dispid 63510;
  3546.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3547.     function  Copy: IDispatch; dispid 61490;
  3548.     procedure Delete; dispid 61514;
  3549.     procedure Display(Modal: OleVariant); dispid 61606;
  3550.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3551.     procedure Save; dispid 61512;
  3552.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3553.     procedure PrintOut; dispid 61491;
  3554.     function  GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460;
  3555.   end;
  3556.  
  3557. // *********************************************************************//
  3558. // Interface: _ITaskRequestDeclineItem
  3559. // Flags:     (4112) Hidden Dispatchable
  3560. // GUID:      {00063139-0000-0000-C000-000000000046}
  3561. // *********************************************************************//
  3562.   _ITaskRequestDeclineItem = interface(IDispatch)
  3563.     ['{00063139-0000-0000-C000-000000000046}']
  3564.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3565.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3566.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3567.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3568.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3569.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3570.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3571.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3572.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3573.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3574.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3575.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3576.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3577.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3578.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3579.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3580.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3581.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3582.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3583.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3584.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3585.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3586.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3587.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3588.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3589.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3590.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3591.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3592.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3593.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3594.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3595.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3596.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3597.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3598.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3599.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3600.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3601.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3602.     function  Delete: HResult; stdcall;
  3603.     function  Display(Modal: OleVariant): HResult; stdcall;
  3604.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3605.     function  Save: HResult; stdcall;
  3606.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3607.     function  PrintOut: HResult; stdcall;
  3608.     function  GetAssociatedTask(AddToTaskList: WordBool; out Item: TaskItem): HResult; stdcall;
  3609.   end;
  3610.  
  3611. // *********************************************************************//
  3612. // DispIntf:  _DTaskRequestDeclineItem
  3613. // Flags:     (4112) Hidden Dispatchable
  3614. // GUID:      {00063039-0000-0000-C000-000000000046}
  3615. // *********************************************************************//
  3616.   _DTaskRequestDeclineItem = dispinterface
  3617.     ['{00063039-0000-0000-C000-000000000046}']
  3618.     property Actions: Actions readonly dispid 63511;
  3619.     property Application: OutlookApplication readonly dispid 61440;
  3620.     property Attachments: Attachments readonly dispid 63509;
  3621.     property BillingInformation: WideString dispid 34101;
  3622.     property Body: WideString dispid 37120;
  3623.     property Categories: WideString dispid 36865;
  3624.     property Companies: WideString dispid 34107;
  3625.     property CreationTime: TDateTime readonly dispid 12295;
  3626.     property EntryID: WideString readonly dispid 61470;
  3627.     property FormDescription: FormDescription readonly dispid 61589;
  3628.     property GetInspector: Inspector readonly dispid 61502;
  3629.     property Importance: OlImportance dispid 23;
  3630.     property LastModificationTime: TDateTime readonly dispid 12296;
  3631.     property MessageClass: WideString dispid 26;
  3632.     property Mileage: WideString dispid 34100;
  3633.     property NoAging: WordBool dispid 34062;
  3634.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3635.     property OutlookVersion: WideString readonly dispid 34132;
  3636.     property Parent: IDispatch readonly dispid 61441;
  3637.     property Saved: WordBool readonly dispid 61603;
  3638.     property Sensitivity: OlSensitivity dispid 54;
  3639.     property Size: Integer readonly dispid 3592;
  3640.     property Subject: WideString dispid 55;
  3641.     property UnRead: WordBool dispid 61468;
  3642.     property UserProperties: UserProperties readonly dispid 63510;
  3643.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3644.     function  Copy: IDispatch; dispid 61490;
  3645.     procedure Delete; dispid 61514;
  3646.     procedure Display(Modal: OleVariant); dispid 61606;
  3647.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3648.     procedure Save; dispid 61512;
  3649.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3650.     procedure PrintOut; dispid 61491;
  3651.     function  GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460;
  3652.   end;
  3653.  
  3654. // *********************************************************************//
  3655. // Interface: _ITaskRequestItem
  3656. // Flags:     (4112) Hidden Dispatchable
  3657. // GUID:      {00063136-0000-0000-C000-000000000046}
  3658. // *********************************************************************//
  3659.   _ITaskRequestItem = interface(IDispatch)
  3660.     ['{00063136-0000-0000-C000-000000000046}']
  3661.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3662.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3663.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3664.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3665.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3666.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3667.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3668.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3669.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3670.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3671.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3672.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3673.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3674.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3675.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3676.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3677.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3678.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3679.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3680.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3681.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3682.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3683.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3684.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3685.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3686.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3687.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3688.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3689.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3690.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3691.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3692.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3693.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3694.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3695.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3696.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3697.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3698.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3699.     function  Delete: HResult; stdcall;
  3700.     function  Display(Modal: OleVariant): HResult; stdcall;
  3701.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3702.     function  Save: HResult; stdcall;
  3703.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3704.     function  PrintOut: HResult; stdcall;
  3705.     function  GetAssociatedTask(AddToTaskList: WordBool; out Item: TaskItem): HResult; stdcall;
  3706.   end;
  3707.  
  3708. // *********************************************************************//
  3709. // DispIntf:  _DTaskRequestItem
  3710. // Flags:     (4096) Dispatchable
  3711. // GUID:      {00063036-0000-0000-C000-000000000046}
  3712. // *********************************************************************//
  3713.   _DTaskRequestItem = dispinterface
  3714.     ['{00063036-0000-0000-C000-000000000046}']
  3715.     property Actions: Actions readonly dispid 63511;
  3716.     property Application: OutlookApplication readonly dispid 61440;
  3717.     property Attachments: Attachments readonly dispid 63509;
  3718.     property BillingInformation: WideString dispid 34101;
  3719.     property Body: WideString dispid 37120;
  3720.     property Categories: WideString dispid 36865;
  3721.     property Companies: WideString dispid 34107;
  3722.     property CreationTime: TDateTime readonly dispid 12295;
  3723.     property EntryID: WideString readonly dispid 61470;
  3724.     property FormDescription: FormDescription readonly dispid 61589;
  3725.     property GetInspector: Inspector readonly dispid 61502;
  3726.     property Importance: OlImportance dispid 23;
  3727.     property LastModificationTime: TDateTime readonly dispid 12296;
  3728.     property MessageClass: WideString dispid 26;
  3729.     property Mileage: WideString dispid 34100;
  3730.     property NoAging: WordBool dispid 34062;
  3731.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3732.     property OutlookVersion: WideString readonly dispid 34132;
  3733.     property Parent: IDispatch readonly dispid 61441;
  3734.     property Saved: WordBool readonly dispid 61603;
  3735.     property Sensitivity: OlSensitivity dispid 54;
  3736.     property Size: Integer readonly dispid 3592;
  3737.     property Subject: WideString dispid 55;
  3738.     property UnRead: WordBool dispid 61468;
  3739.     property UserProperties: UserProperties readonly dispid 63510;
  3740.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3741.     function  Copy: IDispatch; dispid 61490;
  3742.     procedure Delete; dispid 61514;
  3743.     procedure Display(Modal: OleVariant); dispid 61606;
  3744.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3745.     procedure Save; dispid 61512;
  3746.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3747.     procedure PrintOut; dispid 61491;
  3748.     function  GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460;
  3749.   end;
  3750.  
  3751. // *********************************************************************//
  3752. // Interface: _ITaskRequestUpdateItem
  3753. // Flags:     (4112) Hidden Dispatchable
  3754. // GUID:      {00063137-0000-0000-C000-000000000046}
  3755. // *********************************************************************//
  3756.   _ITaskRequestUpdateItem = interface(IDispatch)
  3757.     ['{00063137-0000-0000-C000-000000000046}']
  3758.     function  Get_Actions(out Actions: Actions): HResult; stdcall;
  3759.     function  Get_Application(out Application: OutlookApplication): HResult; stdcall;
  3760.     function  Get_Attachments(out Attachments: Attachments): HResult; stdcall;
  3761.     function  Get_BillingInformation(out BillingInformation: WideString): HResult; stdcall;
  3762.     function  Set_BillingInformation(const BillingInformation: WideString): HResult; stdcall;
  3763.     function  Get_Body(out Body: WideString): HResult; stdcall;
  3764.     function  Set_Body(const Body: WideString): HResult; stdcall;
  3765.     function  Get_Categories(out Categories: WideString): HResult; stdcall;
  3766.     function  Set_Categories(const Categories: WideString): HResult; stdcall;
  3767.     function  Get_Companies(out Companies: WideString): HResult; stdcall;
  3768.     function  Set_Companies(const Companies: WideString): HResult; stdcall;
  3769.     function  Get_CreationTime(out CreationTime: TDateTime): HResult; stdcall;
  3770.     function  Get_EntryID(out EntryID: WideString): HResult; stdcall;
  3771.     function  Get_FormDescription(out FormDescription: FormDescription): HResult; stdcall;
  3772.     function  Get_GetInspector(out GetInspector: Inspector): HResult; stdcall;
  3773.     function  Get_Importance(out Importance: OlImportance): HResult; stdcall;
  3774.     function  Set_Importance(Importance: OlImportance): HResult; stdcall;
  3775.     function  Get_LastModificationTime(out LastModificationTime: TDateTime): HResult; stdcall;
  3776.     function  Get_MessageClass(out MessageClass: WideString): HResult; stdcall;
  3777.     function  Set_MessageClass(const MessageClass: WideString): HResult; stdcall;
  3778.     function  Get_Mileage(out Mileage: WideString): HResult; stdcall;
  3779.     function  Set_Mileage(const Mileage: WideString): HResult; stdcall;
  3780.     function  Get_NoAging(out NoAging: WordBool): HResult; stdcall;
  3781.     function  Set_NoAging(NoAging: WordBool): HResult; stdcall;
  3782.     function  Get_OutlookInternalVersion(out OutlookInternalVersion: WideString): HResult; stdcall;
  3783.     function  Get_OutlookVersion(out OutlookVersion: WideString): HResult; stdcall;
  3784.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3785.     function  Get_Saved(out Saved: WordBool): HResult; stdcall;
  3786.     function  Get_Sensitivity(out Sensitivity: OlSensitivity): HResult; stdcall;
  3787.     function  Set_Sensitivity(Sensitivity: OlSensitivity): HResult; stdcall;
  3788.     function  Get_Size(out Size: Integer): HResult; stdcall;
  3789.     function  Get_Subject(out Subject: WideString): HResult; stdcall;
  3790.     function  Set_Subject(const Subject: WideString): HResult; stdcall;
  3791.     function  Get_UnRead(out UnRead: WordBool): HResult; stdcall;
  3792.     function  Set_UnRead(UnRead: WordBool): HResult; stdcall;
  3793.     function  Get_UserProperties(out UserProperties: UserProperties): HResult; stdcall;
  3794.     function  Close(SaveMode: OlInspectorClose): HResult; stdcall;
  3795.     function  Copy(out Item: IDispatch): HResult; stdcall;
  3796.     function  Delete: HResult; stdcall;
  3797.     function  Display(Modal: OleVariant): HResult; stdcall;
  3798.     function  Move(const DestFldr: MAPIFolder; out Item: IDispatch): HResult; stdcall;
  3799.     function  Save: HResult; stdcall;
  3800.     function  SaveAs(const Path: WideString; Type_: OleVariant): HResult; stdcall;
  3801.     function  PrintOut: HResult; stdcall;
  3802.     function  GetAssociatedTask(AddToTaskList: WordBool; out Item: TaskItem): HResult; stdcall;
  3803.   end;
  3804.  
  3805. // *********************************************************************//
  3806. // DispIntf:  _DTaskRequestUpdateItem
  3807. // Flags:     (4112) Hidden Dispatchable
  3808. // GUID:      {00063037-0000-0000-C000-000000000046}
  3809. // *********************************************************************//
  3810.   _DTaskRequestUpdateItem = dispinterface
  3811.     ['{00063037-0000-0000-C000-000000000046}']
  3812.     property Actions: Actions readonly dispid 63511;
  3813.     property Application: OutlookApplication readonly dispid 61440;
  3814.     property Attachments: Attachments readonly dispid 63509;
  3815.     property BillingInformation: WideString dispid 34101;
  3816.     property Body: WideString dispid 37120;
  3817.     property Categories: WideString dispid 36865;
  3818.     property Companies: WideString dispid 34107;
  3819.     property CreationTime: TDateTime readonly dispid 12295;
  3820.     property EntryID: WideString readonly dispid 61470;
  3821.     property FormDescription: FormDescription readonly dispid 61589;
  3822.     property GetInspector: Inspector readonly dispid 61502;
  3823.     property Importance: OlImportance dispid 23;
  3824.     property LastModificationTime: TDateTime readonly dispid 12296;
  3825.     property MessageClass: WideString dispid 26;
  3826.     property Mileage: WideString dispid 34100;
  3827.     property NoAging: WordBool dispid 34062;
  3828.     property OutlookInternalVersion: WideString readonly dispid 34130;
  3829.     property OutlookVersion: WideString readonly dispid 34132;
  3830.     property Parent: IDispatch readonly dispid 61441;
  3831.     property Saved: WordBool readonly dispid 61603;
  3832.     property Sensitivity: OlSensitivity dispid 54;
  3833.     property Size: Integer readonly dispid 3592;
  3834.     property Subject: WideString dispid 55;
  3835.     property UnRead: WordBool dispid 61468;
  3836.     property UserProperties: UserProperties readonly dispid 63510;
  3837.     procedure Close(SaveMode: OlInspectorClose); dispid 61475;
  3838.     function  Copy: IDispatch; dispid 61490;
  3839.     procedure Delete; dispid 61514;
  3840.     procedure Display(Modal: OleVariant); dispid 61606;
  3841.     function  Move(const DestFldr: MAPIFolder): IDispatch; dispid 61492;
  3842.     procedure Save; dispid 61512;
  3843.     procedure SaveAs(const Path: WideString; Type_: OleVariant); dispid 61521;
  3844.     procedure PrintOut; dispid 61491;
  3845.     function  GetAssociatedTask(AddToTaskList: WordBool): TaskItem; dispid 61460;
  3846.   end;
  3847.  
  3848. // *********************************************************************//
  3849. // Interface: _IUserProperties
  3850. // Flags:     (4112) Hidden Dispatchable
  3851. // GUID:      {0006313D-0000-0000-C000-000000000046}
  3852. // *********************************************************************//
  3853.   _IUserProperties = interface(IDispatch)
  3854.     ['{0006313D-0000-0000-C000-000000000046}']
  3855.     function  Get_Count(out Count: Integer): HResult; stdcall;
  3856.     function  Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; 
  3857.                   DisplayFormat: OleVariant; out UserProperty: UserProperty): HResult; stdcall;
  3858.     function  Find(const Name: WideString; Custom: OleVariant): HResult; stdcall;
  3859.     function  Item(Index: OleVariant; out UserProperty: UserProperty): HResult; stdcall;
  3860.     function  Remove(Index: Integer): HResult; stdcall;
  3861.   end;
  3862.  
  3863. // *********************************************************************//
  3864. // DispIntf:  UserProperties
  3865. // Flags:     (4096) Dispatchable
  3866. // GUID:      {0006303D-0000-0000-C000-000000000046}
  3867. // *********************************************************************//
  3868.   UserProperties = dispinterface
  3869.     ['{0006303D-0000-0000-C000-000000000046}']
  3870.     property Count: Integer readonly dispid 80;
  3871.     function  Add(const Name: WideString; Type_: OlUserPropertyType; AddToFolderFields: OleVariant; 
  3872.                   DisplayFormat: OleVariant): UserProperty; dispid 102;
  3873.     procedure Find(const Name: WideString; Custom: OleVariant); dispid 103;
  3874.     function  Item(Index: OleVariant): UserProperty; dispid 81;
  3875.     procedure Remove(Index: Integer); dispid 82;
  3876.   end;
  3877.  
  3878. // *********************************************************************//
  3879. // Interface: _IUserProperty
  3880. // Flags:     (4112) Hidden Dispatchable
  3881. // GUID:      {00063142-0000-0000-C000-000000000046}
  3882. // *********************************************************************//
  3883.   _IUserProperty = interface(IDispatch)
  3884.     ['{00063142-0000-0000-C000-000000000046}']
  3885.     function  Get_Formula(out Formula: WideString): HResult; stdcall;
  3886.     function  Set_Formula(const Formula: WideString): HResult; stdcall;
  3887.     function  Get_Name(out Name: WideString): HResult; stdcall;
  3888.     function  Get_Parent(out Parent: IDispatch): HResult; stdcall;
  3889.     function  Get_Type_(out Type_: OlUserPropertyType): HResult; stdcall;
  3890.     function  Get_ValidationFormula(out ValidationFormula: WideString): HResult; stdcall;
  3891.     function  Set_ValidationFormula(const ValidationFormula: WideString): HResult; stdcall;
  3892.     function  Get_ValidationText(out ValidationText: WideString): HResult; stdcall;
  3893.     function  Set_ValidationText(const ValidationText: WideString): HResult; stdcall;
  3894.     function  Get_Value(out Value: OleVariant): HResult; stdcall;
  3895.     function  Set_Value(Value: OleVariant): HResult; stdcall;
  3896.     function  Delete: HResult; stdcall;
  3897.   end;
  3898.  
  3899. // *********************************************************************//
  3900. // DispIntf:  UserProperty
  3901. // Flags:     (4096) Dispatchable
  3902. // GUID:      {00063042-0000-0000-C000-000000000046}
  3903. // *********************************************************************//
  3904.   UserProperty = dispinterface
  3905.     ['{00063042-0000-0000-C000-000000000046}']
  3906.     property Formula: WideString dispid 103;
  3907.     property Name: WideString readonly dispid 12289;
  3908.     property Parent: IDispatch readonly dispid 61441;
  3909.     property Type_: OlUserPropertyType readonly dispid 109;
  3910.     property ValidationFormula: WideString dispid 104;
  3911.     property ValidationText: WideString dispid 105;
  3912.     property Value: OleVariant dispid 0;
  3913.     procedure Delete; dispid 108;
  3914.   end;
  3915.  
  3916. // *********************************************************************//
  3917. // Interface: _IRecipientControl
  3918. // Flags:     (4112) Hidden Dispatchable
  3919. // GUID:      {D87E7E16-6897-11CE-A6C0-00AA00608FAA}
  3920. // *********************************************************************//
  3921.   _IRecipientControl = interface(IDispatch)
  3922.     ['{D87E7E16-6897-11CE-A6C0-00AA00608FAA}']
  3923.     function  Get_Enabled(out Enabled: WordBool): HResult; stdcall;
  3924.     function  Set_Enabled(Enabled: WordBool): HResult; stdcall;
  3925.     function  Get_BackColor(out BackColor: Integer): HResult; stdcall;
  3926.     function  Set_BackColor(BackColor: Integer): HResult; stdcall;
  3927.     function  Get_ForeColor(out ForeColor: Integer): HResult; stdcall;
  3928.     function  Set_ForeColor(ForeColor: Integer): HResult; stdcall;
  3929.     function  Get_ReadOnly(out ReadOnly: WordBool): HResult; stdcall;
  3930.     function  Set_ReadOnly(ReadOnly: WordBool): HResult; stdcall;
  3931.     function  Get_Font(out Font: IFontDisp): HResult; stdcall;
  3932.     function  Set_Font(const Font: IFontDisp): HResult; stdcall;
  3933.     function  Get_SpecialEffect(out Effect: Integer): HResult; stdcall;
  3934.     function  Set_SpecialEffect(Effect: Integer): HResult; stdcall;
  3935.   end;
  3936.  
  3937. // *********************************************************************//
  3938. // DispIntf:  _DRecipientControl
  3939. // Flags:     (4112) Hidden Dispatchable
  3940. // GUID:      {0006F025-0000-0000-C000-000000000046}
  3941. // *********************************************************************//
  3942.   _DRecipientControl = dispinterface
  3943.     ['{0006F025-0000-0000-C000-000000000046}']
  3944.     property Enabled: WordBool dispid -514;
  3945.     property BackColor: Integer dispid -501;
  3946.     property ForeColor: Integer dispid -513;
  3947.     property ReadOnly: WordBool dispid -2147356664;
  3948.     property Font: IFontDisp dispid -512;
  3949.     property SpecialEffect: Integer dispid 12;
  3950.   end;
  3951.  
  3952. // *********************************************************************//
  3953. // DispIntf:  _DRecipientControlEvents
  3954. // Flags:     (4112) Hidden Dispatchable
  3955. // GUID:      {D87E7E17-6897-11CE-A6C0-00AA00608FAA}
  3956. // *********************************************************************//
  3957.   _DRecipientControlEvents = dispinterface
  3958.     ['{D87E7E17-6897-11CE-A6C0-00AA00608FAA}']
  3959.   end;
  3960.  
  3961. // *********************************************************************//
  3962. // Interface: _IDocSiteControl
  3963. // Flags:     (4112) Hidden Dispatchable
  3964. // GUID:      {43507DD0-811D-11CE-B565-00AA00608FAA}
  3965. // *********************************************************************//
  3966.   _IDocSiteControl = interface(IDispatch)
  3967.     ['{43507DD0-811D-11CE-B565-00AA00608FAA}']
  3968.     function  Get_ReadOnly(out ReadOnly: WordBool): HResult; stdcall;
  3969.     function  Set_ReadOnly(ReadOnly: WordBool): HResult; stdcall;
  3970.   end;
  3971.  
  3972. // *********************************************************************//
  3973. // DispIntf:  _DDocSiteControl
  3974. // Flags:     (4112) Hidden Dispatchable
  3975. // GUID:      {0006F026-0000-0000-C000-000000000046}
  3976. // *********************************************************************//
  3977.   _DDocSiteControl = dispinterface
  3978.     ['{0006F026-0000-0000-C000-000000000046}']
  3979.     property ReadOnly: WordBool dispid -2147356664;
  3980.   end;
  3981.  
  3982. // *********************************************************************//
  3983. // DispIntf:  _DDocSiteControlEvents
  3984. // Flags:     (4112) Hidden Dispatchable
  3985. // GUID:      {50BB9B50-811D-11CE-B565-00AA00608FAA}
  3986. // *********************************************************************//
  3987.   _DDocSiteControlEvents = dispinterface
  3988.     ['{50BB9B50-811D-11CE-B565-00AA00608FAA}']
  3989.   end;
  3990.  
  3991. // *********************************************************************//
  3992. // The Class CoOutlookApplication provides a Create and CreateRemote method to          
  3993. // create instances of the default interface _DApplication exposed by              
  3994. // the CoClass OutlookApplication. The functions are intended to be used by             
  3995. // clients wishing to automate the CoClass objects exposed by the         
  3996. // server of this typelibrary.                                            
  3997. // *********************************************************************//
  3998.   CoOutlookApplication = class
  3999.     class function Create: _DApplication;
  4000.     class function CreateRemote(const MachineName: string): _DApplication;
  4001.   end;
  4002.  
  4003.  
  4004. // *********************************************************************//
  4005. // OLE Server Proxy class declaration
  4006. // Server Object    : TOutlookApplication
  4007. // Help String      : 
  4008. // Default Interface: _DApplication
  4009. // Def. Intf. DISP? : Yes
  4010. // Event   Interface: 
  4011. // TypeFlags        : (2) CanCreate
  4012. // *********************************************************************//
  4013. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4014.   TOutlookApplicationProperties= class;
  4015. {$ENDIF}
  4016.   TOutlookApplication = class(TOleServer)
  4017.   private
  4018.     FAutoQuit:    Boolean;
  4019.     FIntf:        _DApplication;
  4020. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4021.     FProps:       TOutlookApplicationProperties;
  4022.     function      GetServerProperties: TOutlookApplicationProperties;
  4023. {$ENDIF}
  4024.     function      GetDefaultInterface: _DApplication;
  4025.   protected
  4026.     procedure InitServerData; override;
  4027.     function  Get_Assistant: Assistant;
  4028.   public
  4029.     constructor Create(AOwner: TComponent); override;
  4030.     destructor  Destroy; override;
  4031.     procedure Connect; override;
  4032.     procedure ConnectTo(svrIntf: _DApplication);
  4033.     procedure Disconnect; override;
  4034.     function  ActiveExplorer: Explorer;
  4035.     function  ActiveInspector: Inspector;
  4036.     function  CreateItem(ItemType: OlItems): IDispatch;
  4037.     function  CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch;
  4038.     function  CreateObject(const ObjectName: WideString): IDispatch;
  4039.     function  GetNamespace(const Type_: WideString): NameSpace;
  4040.     procedure Quit;
  4041.     property  DefaultInterface: _DApplication read GetDefaultInterface;
  4042.     property Assistant: Assistant read Get_Assistant;
  4043.   published
  4044.     property AutoQuit: Boolean read FAutoQuit write FAutoQuit; 
  4045. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4046.     property Server: TOutlookApplicationProperties read GetServerProperties;
  4047. {$ENDIF}
  4048.   end;
  4049.  
  4050. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4051. // *********************************************************************//
  4052. // OLE Server Properties Proxy Class
  4053. // Server Object    : TOutlookApplication
  4054. // (This object is used by the IDE's Property Inspector to allow editing
  4055. //  of the properties of this server)
  4056. // *********************************************************************//
  4057.  TOutlookApplicationProperties = class(TPersistent)
  4058.   private
  4059.     FServer:    TOutlookApplication;
  4060.     function    GetDefaultInterface: _DApplication;
  4061.     constructor Create(AServer: TOutlookApplication);
  4062.   protected
  4063.     function  Get_Assistant: Assistant;
  4064.   public
  4065.     property DefaultInterface: _DApplication read GetDefaultInterface;
  4066.   published
  4067.   end;
  4068. {$ENDIF}
  4069.  
  4070.  
  4071. // *********************************************************************//
  4072. // The Class CoAppointmentItem provides a Create and CreateRemote method to          
  4073. // create instances of the default interface _DAppointmentItem exposed by              
  4074. // the CoClass AppointmentItem. The functions are intended to be used by             
  4075. // clients wishing to automate the CoClass objects exposed by the         
  4076. // server of this typelibrary.                                            
  4077. // *********************************************************************//
  4078.   CoAppointmentItem = class
  4079.     class function Create: _DAppointmentItem;
  4080.     class function CreateRemote(const MachineName: string): _DAppointmentItem;
  4081.   end;
  4082.  
  4083.   TAppointmentItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  4084.   TAppointmentItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  4085.   TAppointmentItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  4086.   TAppointmentItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  4087.                                                             var Response: OleVariant) of object;
  4088.   TAppointmentItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  4089.   TAppointmentItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  4090.  
  4091.  
  4092. // *********************************************************************//
  4093. // OLE Server Proxy class declaration
  4094. // Server Object    : TAppointmentItem
  4095. // Help String      : 
  4096. // Default Interface: _DAppointmentItem
  4097. // Def. Intf. DISP? : Yes
  4098. // Event   Interface: _DItemEvents
  4099. // TypeFlags        : (2) CanCreate
  4100. // *********************************************************************//
  4101. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4102.   TAppointmentItemProperties= class;
  4103. {$ENDIF}
  4104.   TAppointmentItem = class(TOleServer)
  4105.   private
  4106.     FOnRead: TNotifyEvent;
  4107.     FOnWrite: TNotifyEvent;
  4108.     FOnOpen: TNotifyEvent;
  4109.     FOnClose: TNotifyEvent;
  4110.     FOnSend: TNotifyEvent;
  4111.     FOnReply: TAppointmentItemReply;
  4112.     FOnReplyAll: TAppointmentItemReplyAll;
  4113.     FOnForward: TAppointmentItemForward;
  4114.     FOnCustomAction: TAppointmentItemCustomAction;
  4115.     FOnCustomPropertyChange: TAppointmentItemCustomPropertyChange;
  4116.     FOnPropertyChange: TAppointmentItemPropertyChange;
  4117.     FIntf:        _DAppointmentItem;
  4118. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4119.     FProps:       TAppointmentItemProperties;
  4120.     function      GetServerProperties: TAppointmentItemProperties;
  4121. {$ENDIF}
  4122.     function      GetDefaultInterface: _DAppointmentItem;
  4123.   protected
  4124.     procedure InitServerData; override;
  4125.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  4126.     function  Get_Actions: Actions;
  4127.     function  Get_Application: OutlookApplication;
  4128.     function  Get_Attachments: Attachments;
  4129.     function  Get_BillingInformation: WideString;
  4130.     procedure Set_BillingInformation(const Param1: WideString);
  4131.     function  Get_Body: WideString;
  4132.     procedure Set_Body(const Param1: WideString);
  4133.     function  Get_Categories: WideString;
  4134.     procedure Set_Categories(const Param1: WideString);
  4135.     function  Get_Companies: WideString;
  4136.     procedure Set_Companies(const Param1: WideString);
  4137.     function  Get_CreationTime: TDateTime;
  4138.     function  Get_EntryID: WideString;
  4139.     function  Get_FormDescription: FormDescription;
  4140.     function  Get_GetInspector: Inspector;
  4141.     function  Get_Importance: OlImportance;
  4142.     procedure Set_Importance(Param1: OlImportance);
  4143.     function  Get_LastModificationTime: TDateTime;
  4144.     function  Get_MessageClass: WideString;
  4145.     procedure Set_MessageClass(const Param1: WideString);
  4146.     function  Get_Mileage: WideString;
  4147.     procedure Set_Mileage(const Param1: WideString);
  4148.     function  Get_NoAging: WordBool;
  4149.     procedure Set_NoAging(Param1: WordBool);
  4150.     function  Get_OutlookInternalVersion: WideString;
  4151.     function  Get_OutlookVersion: WideString;
  4152.     function  Get_Parent: IDispatch;
  4153.     function  Get_Saved: WordBool;
  4154.     function  Get_Sensitivity: OlSensitivity;
  4155.     procedure Set_Sensitivity(Param1: OlSensitivity);
  4156.     function  Get_Size: Integer;
  4157.     function  Get_Subject: WideString;
  4158.     procedure Set_Subject(const Param1: WideString);
  4159.     function  Get_UnRead: WordBool;
  4160.     procedure Set_UnRead(Param1: WordBool);
  4161.     function  Get_UserProperties: UserProperties;
  4162.     function  Get_AllDayEvent: WordBool;
  4163.     procedure Set_AllDayEvent(Param1: WordBool);
  4164.     function  Get_BusyStatus: OlBusyStatus;
  4165.     procedure Set_BusyStatus(Param1: OlBusyStatus);
  4166.     function  Get_Duration: Integer;
  4167.     procedure Set_Duration(Param1: Integer);
  4168.     function  Get_End_: TDateTime;
  4169.     procedure Set_End_(Param1: TDateTime);
  4170.     function  Get_IsRecurring: WordBool;
  4171.     function  Get_Location: WideString;
  4172.     procedure Set_Location(const Param1: WideString);
  4173.     function  Get_MeetingStatus: OlMeetingStatus;
  4174.     procedure Set_MeetingStatus(Param1: OlMeetingStatus);
  4175.     function  Get_OptionalAttendees: WideString;
  4176.     procedure Set_OptionalAttendees(const Param1: WideString);
  4177.     function  Get_Organizer: WideString;
  4178.     function  Get_Recipients: Recipients;
  4179.     function  Get_ReminderMinutesBeforeStart: Integer;
  4180.     procedure Set_ReminderMinutesBeforeStart(Param1: Integer);
  4181.     function  Get_ReminderOverrideDefault: WordBool;
  4182.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  4183.     function  Get_ReminderPlaySound: WordBool;
  4184.     procedure Set_ReminderPlaySound(Param1: WordBool);
  4185.     function  Get_ReminderSet: WordBool;
  4186.     procedure Set_ReminderSet(Param1: WordBool);
  4187.     function  Get_ReminderSoundFile: WideString;
  4188.     procedure Set_ReminderSoundFile(const Param1: WideString);
  4189.     function  Get_ReplyTime: TDateTime;
  4190.     procedure Set_ReplyTime(Param1: TDateTime);
  4191.     function  Get_RequiredAttendees: WideString;
  4192.     procedure Set_RequiredAttendees(const Param1: WideString);
  4193.     function  Get_Resources: WideString;
  4194.     procedure Set_Resources(const Param1: WideString);
  4195.     function  Get_ResponseRequested: WordBool;
  4196.     procedure Set_ResponseRequested(Param1: WordBool);
  4197.     function  Get_ResponseStatus: OlResponseStatus;
  4198.     function  Get_Start: TDateTime;
  4199.     procedure Set_Start(Param1: TDateTime);
  4200.   public
  4201.     constructor Create(AOwner: TComponent); override;
  4202.     destructor  Destroy; override;
  4203.     procedure Connect; override;
  4204.     procedure ConnectTo(svrIntf: _DAppointmentItem);
  4205.     procedure Disconnect; override;
  4206.     procedure Close(SaveMode: OlInspectorClose);
  4207.     function  Copy: IDispatch;
  4208.     procedure Delete;
  4209.     procedure Display(Modal: OleVariant);
  4210.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  4211.     procedure Save;
  4212.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  4213.     procedure PrintOut;
  4214.     procedure ClearRecurrencePattern;
  4215.     function  GetRecurrencePattern: RecurrencePattern;
  4216.     function  Respond(Response: OlMeetingResponse; fNoUI: OleVariant; 
  4217.                       fAdditionalTextDialog: OleVariant): IDispatch;
  4218.     procedure Send;
  4219.     property  DefaultInterface: _DAppointmentItem read GetDefaultInterface;
  4220.     property Actions: Actions read Get_Actions;
  4221.     property Application: OutlookApplication read Get_Application;
  4222.     property Attachments: Attachments read Get_Attachments;
  4223.     property CreationTime: TDateTime read Get_CreationTime;
  4224.     property EntryID: WideString read Get_EntryID;
  4225.     property FormDescription: FormDescription read Get_FormDescription;
  4226.     property GetInspector: Inspector read Get_GetInspector;
  4227.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  4228.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  4229.     property OutlookVersion: WideString read Get_OutlookVersion;
  4230.     property Parent: IDispatch read Get_Parent;
  4231.     property Saved: WordBool read Get_Saved;
  4232.     property Size: Integer read Get_Size;
  4233.     property UserProperties: UserProperties read Get_UserProperties;
  4234.     property IsRecurring: WordBool read Get_IsRecurring;
  4235.     property Organizer: WideString read Get_Organizer;
  4236.     property Recipients: Recipients read Get_Recipients;
  4237.     property ResponseStatus: OlResponseStatus read Get_ResponseStatus;
  4238.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  4239.     property Body: WideString read Get_Body write Set_Body;
  4240.     property Categories: WideString read Get_Categories write Set_Categories;
  4241.     property Companies: WideString read Get_Companies write Set_Companies;
  4242.     property Importance: OlImportance read Get_Importance write Set_Importance;
  4243.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  4244.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  4245.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  4246.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  4247.     property Subject: WideString read Get_Subject write Set_Subject;
  4248.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  4249.     property AllDayEvent: WordBool read Get_AllDayEvent write Set_AllDayEvent;
  4250.     property BusyStatus: OlBusyStatus read Get_BusyStatus write Set_BusyStatus;
  4251.     property Duration: Integer read Get_Duration write Set_Duration;
  4252.     property End_: TDateTime read Get_End_ write Set_End_;
  4253.     property Location: WideString read Get_Location write Set_Location;
  4254.     property MeetingStatus: OlMeetingStatus read Get_MeetingStatus write Set_MeetingStatus;
  4255.     property OptionalAttendees: WideString read Get_OptionalAttendees write Set_OptionalAttendees;
  4256.     property ReminderMinutesBeforeStart: Integer read Get_ReminderMinutesBeforeStart write Set_ReminderMinutesBeforeStart;
  4257.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  4258.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  4259.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  4260.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  4261.     property ReplyTime: TDateTime read Get_ReplyTime write Set_ReplyTime;
  4262.     property RequiredAttendees: WideString read Get_RequiredAttendees write Set_RequiredAttendees;
  4263.     property Resources: WideString read Get_Resources write Set_Resources;
  4264.     property ResponseRequested: WordBool read Get_ResponseRequested write Set_ResponseRequested;
  4265.     property Start: TDateTime read Get_Start write Set_Start;
  4266.   published
  4267. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4268.     property Server: TAppointmentItemProperties read GetServerProperties;
  4269. {$ENDIF}
  4270.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  4271.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  4272.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  4273.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  4274.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  4275.     property OnReply: TAppointmentItemReply read FOnReply write FOnReply;
  4276.     property OnReplyAll: TAppointmentItemReplyAll read FOnReplyAll write FOnReplyAll;
  4277.     property OnForward: TAppointmentItemForward read FOnForward write FOnForward;
  4278.     property OnCustomAction: TAppointmentItemCustomAction read FOnCustomAction write FOnCustomAction;
  4279.     property OnCustomPropertyChange: TAppointmentItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  4280.     property OnPropertyChange: TAppointmentItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  4281.   end;
  4282.  
  4283. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4284. // *********************************************************************//
  4285. // OLE Server Properties Proxy Class
  4286. // Server Object    : TAppointmentItem
  4287. // (This object is used by the IDE's Property Inspector to allow editing
  4288. //  of the properties of this server)
  4289. // *********************************************************************//
  4290.  TAppointmentItemProperties = class(TPersistent)
  4291.   private
  4292.     FServer:    TAppointmentItem;
  4293.     function    GetDefaultInterface: _DAppointmentItem;
  4294.     constructor Create(AServer: TAppointmentItem);
  4295.   protected
  4296.     function  Get_Actions: Actions;
  4297.     function  Get_Application: OutlookApplication;
  4298.     function  Get_Attachments: Attachments;
  4299.     function  Get_BillingInformation: WideString;
  4300.     procedure Set_BillingInformation(const Param1: WideString);
  4301.     function  Get_Body: WideString;
  4302.     procedure Set_Body(const Param1: WideString);
  4303.     function  Get_Categories: WideString;
  4304.     procedure Set_Categories(const Param1: WideString);
  4305.     function  Get_Companies: WideString;
  4306.     procedure Set_Companies(const Param1: WideString);
  4307.     function  Get_CreationTime: TDateTime;
  4308.     function  Get_EntryID: WideString;
  4309.     function  Get_FormDescription: FormDescription;
  4310.     function  Get_GetInspector: Inspector;
  4311.     function  Get_Importance: OlImportance;
  4312.     procedure Set_Importance(Param1: OlImportance);
  4313.     function  Get_LastModificationTime: TDateTime;
  4314.     function  Get_MessageClass: WideString;
  4315.     procedure Set_MessageClass(const Param1: WideString);
  4316.     function  Get_Mileage: WideString;
  4317.     procedure Set_Mileage(const Param1: WideString);
  4318.     function  Get_NoAging: WordBool;
  4319.     procedure Set_NoAging(Param1: WordBool);
  4320.     function  Get_OutlookInternalVersion: WideString;
  4321.     function  Get_OutlookVersion: WideString;
  4322.     function  Get_Parent: IDispatch;
  4323.     function  Get_Saved: WordBool;
  4324.     function  Get_Sensitivity: OlSensitivity;
  4325.     procedure Set_Sensitivity(Param1: OlSensitivity);
  4326.     function  Get_Size: Integer;
  4327.     function  Get_Subject: WideString;
  4328.     procedure Set_Subject(const Param1: WideString);
  4329.     function  Get_UnRead: WordBool;
  4330.     procedure Set_UnRead(Param1: WordBool);
  4331.     function  Get_UserProperties: UserProperties;
  4332.     function  Get_AllDayEvent: WordBool;
  4333.     procedure Set_AllDayEvent(Param1: WordBool);
  4334.     function  Get_BusyStatus: OlBusyStatus;
  4335.     procedure Set_BusyStatus(Param1: OlBusyStatus);
  4336.     function  Get_Duration: Integer;
  4337.     procedure Set_Duration(Param1: Integer);
  4338.     function  Get_End_: TDateTime;
  4339.     procedure Set_End_(Param1: TDateTime);
  4340.     function  Get_IsRecurring: WordBool;
  4341.     function  Get_Location: WideString;
  4342.     procedure Set_Location(const Param1: WideString);
  4343.     function  Get_MeetingStatus: OlMeetingStatus;
  4344.     procedure Set_MeetingStatus(Param1: OlMeetingStatus);
  4345.     function  Get_OptionalAttendees: WideString;
  4346.     procedure Set_OptionalAttendees(const Param1: WideString);
  4347.     function  Get_Organizer: WideString;
  4348.     function  Get_Recipients: Recipients;
  4349.     function  Get_ReminderMinutesBeforeStart: Integer;
  4350.     procedure Set_ReminderMinutesBeforeStart(Param1: Integer);
  4351.     function  Get_ReminderOverrideDefault: WordBool;
  4352.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  4353.     function  Get_ReminderPlaySound: WordBool;
  4354.     procedure Set_ReminderPlaySound(Param1: WordBool);
  4355.     function  Get_ReminderSet: WordBool;
  4356.     procedure Set_ReminderSet(Param1: WordBool);
  4357.     function  Get_ReminderSoundFile: WideString;
  4358.     procedure Set_ReminderSoundFile(const Param1: WideString);
  4359.     function  Get_ReplyTime: TDateTime;
  4360.     procedure Set_ReplyTime(Param1: TDateTime);
  4361.     function  Get_RequiredAttendees: WideString;
  4362.     procedure Set_RequiredAttendees(const Param1: WideString);
  4363.     function  Get_Resources: WideString;
  4364.     procedure Set_Resources(const Param1: WideString);
  4365.     function  Get_ResponseRequested: WordBool;
  4366.     procedure Set_ResponseRequested(Param1: WordBool);
  4367.     function  Get_ResponseStatus: OlResponseStatus;
  4368.     function  Get_Start: TDateTime;
  4369.     procedure Set_Start(Param1: TDateTime);
  4370.   public
  4371.     property DefaultInterface: _DAppointmentItem read GetDefaultInterface;
  4372.   published
  4373.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  4374.     property Body: WideString read Get_Body write Set_Body;
  4375.     property Categories: WideString read Get_Categories write Set_Categories;
  4376.     property Companies: WideString read Get_Companies write Set_Companies;
  4377.     property Importance: OlImportance read Get_Importance write Set_Importance;
  4378.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  4379.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  4380.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  4381.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  4382.     property Subject: WideString read Get_Subject write Set_Subject;
  4383.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  4384.     property AllDayEvent: WordBool read Get_AllDayEvent write Set_AllDayEvent;
  4385.     property BusyStatus: OlBusyStatus read Get_BusyStatus write Set_BusyStatus;
  4386.     property Duration: Integer read Get_Duration write Set_Duration;
  4387.     property End_: TDateTime read Get_End_ write Set_End_;
  4388.     property Location: WideString read Get_Location write Set_Location;
  4389.     property MeetingStatus: OlMeetingStatus read Get_MeetingStatus write Set_MeetingStatus;
  4390.     property OptionalAttendees: WideString read Get_OptionalAttendees write Set_OptionalAttendees;
  4391.     property ReminderMinutesBeforeStart: Integer read Get_ReminderMinutesBeforeStart write Set_ReminderMinutesBeforeStart;
  4392.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  4393.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  4394.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  4395.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  4396.     property ReplyTime: TDateTime read Get_ReplyTime write Set_ReplyTime;
  4397.     property RequiredAttendees: WideString read Get_RequiredAttendees write Set_RequiredAttendees;
  4398.     property Resources: WideString read Get_Resources write Set_Resources;
  4399.     property ResponseRequested: WordBool read Get_ResponseRequested write Set_ResponseRequested;
  4400.     property Start: TDateTime read Get_Start write Set_Start;
  4401.   end;
  4402. {$ENDIF}
  4403.  
  4404.  
  4405. // *********************************************************************//
  4406. // The Class CoContactItem provides a Create and CreateRemote method to          
  4407. // create instances of the default interface _DContactItem exposed by              
  4408. // the CoClass ContactItem. The functions are intended to be used by             
  4409. // clients wishing to automate the CoClass objects exposed by the         
  4410. // server of this typelibrary.                                            
  4411. // *********************************************************************//
  4412.   CoContactItem = class
  4413.     class function Create: _DContactItem;
  4414.     class function CreateRemote(const MachineName: string): _DContactItem;
  4415.   end;
  4416.  
  4417.   TContactItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  4418.   TContactItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  4419.   TContactItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  4420.   TContactItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  4421.                                                         var Response: OleVariant) of object;
  4422.   TContactItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  4423.   TContactItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  4424.  
  4425.  
  4426. // *********************************************************************//
  4427. // OLE Server Proxy class declaration
  4428. // Server Object    : TContactItem
  4429. // Help String      : 
  4430. // Default Interface: _DContactItem
  4431. // Def. Intf. DISP? : Yes
  4432. // Event   Interface: _DItemEvents
  4433. // TypeFlags        : (2) CanCreate
  4434. // *********************************************************************//
  4435. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4436.   TContactItemProperties= class;
  4437. {$ENDIF}
  4438.   TContactItem = class(TOleServer)
  4439.   private
  4440.     FOnRead: TNotifyEvent;
  4441.     FOnWrite: TNotifyEvent;
  4442.     FOnOpen: TNotifyEvent;
  4443.     FOnClose: TNotifyEvent;
  4444.     FOnSend: TNotifyEvent;
  4445.     FOnReply: TContactItemReply;
  4446.     FOnReplyAll: TContactItemReplyAll;
  4447.     FOnForward: TContactItemForward;
  4448.     FOnCustomAction: TContactItemCustomAction;
  4449.     FOnCustomPropertyChange: TContactItemCustomPropertyChange;
  4450.     FOnPropertyChange: TContactItemPropertyChange;
  4451.     FIntf:        _DContactItem;
  4452. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4453.     FProps:       TContactItemProperties;
  4454.     function      GetServerProperties: TContactItemProperties;
  4455. {$ENDIF}
  4456.     function      GetDefaultInterface: _DContactItem;
  4457.   protected
  4458.     procedure InitServerData; override;
  4459.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  4460.     function  Get_Actions: Actions;
  4461.     function  Get_Application: OutlookApplication;
  4462.     function  Get_Attachments: Attachments;
  4463.     function  Get_BillingInformation: WideString;
  4464.     procedure Set_BillingInformation(const Param1: WideString);
  4465.     function  Get_Body: WideString;
  4466.     procedure Set_Body(const Param1: WideString);
  4467.     function  Get_Categories: WideString;
  4468.     procedure Set_Categories(const Param1: WideString);
  4469.     function  Get_Companies: WideString;
  4470.     procedure Set_Companies(const Param1: WideString);
  4471.     function  Get_CreationTime: TDateTime;
  4472.     function  Get_EntryID: WideString;
  4473.     function  Get_FormDescription: FormDescription;
  4474.     function  Get_GetInspector: Inspector;
  4475.     function  Get_Importance: OlImportance;
  4476.     procedure Set_Importance(Param1: OlImportance);
  4477.     function  Get_LastModificationTime: TDateTime;
  4478.     function  Get_MessageClass: WideString;
  4479.     procedure Set_MessageClass(const Param1: WideString);
  4480.     function  Get_Mileage: WideString;
  4481.     procedure Set_Mileage(const Param1: WideString);
  4482.     function  Get_NoAging: WordBool;
  4483.     procedure Set_NoAging(Param1: WordBool);
  4484.     function  Get_OutlookInternalVersion: WideString;
  4485.     function  Get_OutlookVersion: WideString;
  4486.     function  Get_Parent: IDispatch;
  4487.     function  Get_Saved: WordBool;
  4488.     function  Get_Sensitivity: OlSensitivity;
  4489.     procedure Set_Sensitivity(Param1: OlSensitivity);
  4490.     function  Get_Size: Integer;
  4491.     function  Get_Subject: WideString;
  4492.     procedure Set_Subject(const Param1: WideString);
  4493.     function  Get_UnRead: WordBool;
  4494.     procedure Set_UnRead(Param1: WordBool);
  4495.     function  Get_UserProperties: UserProperties;
  4496.     function  Get_Account: WideString;
  4497.     procedure Set_Account(const Param1: WideString);
  4498.     function  Get_Anniversary: TDateTime;
  4499.     procedure Set_Anniversary(Param1: TDateTime);
  4500.     function  Get_AssistantName: WideString;
  4501.     procedure Set_AssistantName(const Param1: WideString);
  4502.     function  Get_AssistantTelephoneNumber: WideString;
  4503.     procedure Set_AssistantTelephoneNumber(const Param1: WideString);
  4504.     function  Get_Birthday: TDateTime;
  4505.     procedure Set_Birthday(Param1: TDateTime);
  4506.     function  Get_Business2TelephoneNumber: WideString;
  4507.     procedure Set_Business2TelephoneNumber(const Param1: WideString);
  4508.     function  Get_BusinessAddress: WideString;
  4509.     procedure Set_BusinessAddress(const Param1: WideString);
  4510.     function  Get_BusinessAddressCity: WideString;
  4511.     procedure Set_BusinessAddressCity(const Param1: WideString);
  4512.     function  Get_BusinessAddressCountry: WideString;
  4513.     procedure Set_BusinessAddressCountry(const Param1: WideString);
  4514.     function  Get_BusinessAddressPostalCode: WideString;
  4515.     procedure Set_BusinessAddressPostalCode(const Param1: WideString);
  4516.     function  Get_BusinessAddressPostOfficeBox: WideString;
  4517.     procedure Set_BusinessAddressPostOfficeBox(const Param1: WideString);
  4518.     function  Get_BusinessAddressState: WideString;
  4519.     procedure Set_BusinessAddressState(const Param1: WideString);
  4520.     function  Get_BusinessAddressStreet: WideString;
  4521.     procedure Set_BusinessAddressStreet(const Param1: WideString);
  4522.     function  Get_BusinessFaxNumber: WideString;
  4523.     procedure Set_BusinessFaxNumber(const Param1: WideString);
  4524.     function  Get_BusinessHomePage: WideString;
  4525.     procedure Set_BusinessHomePage(const Param1: WideString);
  4526.     function  Get_BusinessTelephoneNumber: WideString;
  4527.     procedure Set_BusinessTelephoneNumber(const Param1: WideString);
  4528.     function  Get_CallbackTelephoneNumber: WideString;
  4529.     procedure Set_CallbackTelephoneNumber(const Param1: WideString);
  4530.     function  Get_CarTelephoneNumber: WideString;
  4531.     procedure Set_CarTelephoneNumber(const Param1: WideString);
  4532.     function  Get_Children: WideString;
  4533.     procedure Set_Children(const Param1: WideString);
  4534.     function  Get_CompanyAndFullName: WideString;
  4535.     function  Get_CompanyMainTelephoneNumber: WideString;
  4536.     procedure Set_CompanyMainTelephoneNumber(const Param1: WideString);
  4537.     function  Get_CompanyName: WideString;
  4538.     procedure Set_CompanyName(const Param1: WideString);
  4539.     function  Get_ComputerNetworkName: WideString;
  4540.     procedure Set_ComputerNetworkName(const Param1: WideString);
  4541.     function  Get_CustomerID: WideString;
  4542.     procedure Set_CustomerID(const Param1: WideString);
  4543.     function  Get_Department: WideString;
  4544.     procedure Set_Department(const Param1: WideString);
  4545.     function  Get_Email1Address: WideString;
  4546.     procedure Set_Email1Address(const Param1: WideString);
  4547.     function  Get_Email1AddressType: WideString;
  4548.     procedure Set_Email1AddressType(const Param1: WideString);
  4549.     function  Get_Email1DisplayName: WideString;
  4550.     function  Get_Email1EntryID: WideString;
  4551.     function  Get_Email2Address: WideString;
  4552.     procedure Set_Email2Address(const Param1: WideString);
  4553.     function  Get_Email2AddressType: WideString;
  4554.     procedure Set_Email2AddressType(const Param1: WideString);
  4555.     function  Get_Email2DisplayName: WideString;
  4556.     function  Get_Email2EntryID: WideString;
  4557.     function  Get_Email3Address: WideString;
  4558.     procedure Set_Email3Address(const Param1: WideString);
  4559.     function  Get_Email3AddressType: WideString;
  4560.     procedure Set_Email3AddressType(const Param1: WideString);
  4561.     function  Get_Email3DisplayName: WideString;
  4562.     function  Get_Email3EntryID: WideString;
  4563.     function  Get_FileAs: WideString;
  4564.     procedure Set_FileAs(const Param1: WideString);
  4565.     function  Get_FirstName: WideString;
  4566.     procedure Set_FirstName(const Param1: WideString);
  4567.     function  Get_FTPSite: WideString;
  4568.     procedure Set_FTPSite(const Param1: WideString);
  4569.     function  Get_FullName: WideString;
  4570.     procedure Set_FullName(const Param1: WideString);
  4571.     function  Get_FullNameAndCompany: WideString;
  4572.     function  Get_Gender: OlGender;
  4573.     procedure Set_Gender(Param1: OlGender);
  4574.     function  Get_GovernmentIDNumber: WideString;
  4575.     procedure Set_GovernmentIDNumber(const Param1: WideString);
  4576.     function  Get_Hobby: WideString;
  4577.     procedure Set_Hobby(const Param1: WideString);
  4578.     function  Get_Home2TelephoneNumber: WideString;
  4579.     procedure Set_Home2TelephoneNumber(const Param1: WideString);
  4580.     function  Get_HomeAddress: WideString;
  4581.     procedure Set_HomeAddress(const Param1: WideString);
  4582.     function  Get_HomeAddressCity: WideString;
  4583.     procedure Set_HomeAddressCity(const Param1: WideString);
  4584.     function  Get_HomeAddressCountry: WideString;
  4585.     procedure Set_HomeAddressCountry(const Param1: WideString);
  4586.     function  Get_HomeAddressPostalCode: WideString;
  4587.     procedure Set_HomeAddressPostalCode(const Param1: WideString);
  4588.     function  Get_HomeAddressPostOfficeBox: WideString;
  4589.     procedure Set_HomeAddressPostOfficeBox(const Param1: WideString);
  4590.     function  Get_HomeAddressState: WideString;
  4591.     procedure Set_HomeAddressState(const Param1: WideString);
  4592.     function  Get_HomeAddressStreet: WideString;
  4593.     procedure Set_HomeAddressStreet(const Param1: WideString);
  4594.     function  Get_HomeFaxNumber: WideString;
  4595.     procedure Set_HomeFaxNumber(const Param1: WideString);
  4596.     function  Get_HomeTelephoneNumber: WideString;
  4597.     procedure Set_HomeTelephoneNumber(const Param1: WideString);
  4598.     function  Get_Initials: WideString;
  4599.     procedure Set_Initials(const Param1: WideString);
  4600.     function  Get_ISDNNumber: WideString;
  4601.     procedure Set_ISDNNumber(const Param1: WideString);
  4602.     function  Get_JobTitle: WideString;
  4603.     procedure Set_JobTitle(const Param1: WideString);
  4604.     function  Get_Journal: WordBool;
  4605.     procedure Set_Journal(Param1: WordBool);
  4606.     function  Get_Language: WideString;
  4607.     procedure Set_Language(const Param1: WideString);
  4608.     function  Get_LastName: WideString;
  4609.     procedure Set_LastName(const Param1: WideString);
  4610.     function  Get_LastNameAndFirstName: WideString;
  4611.     function  Get_MailingAddress: WideString;
  4612.     procedure Set_MailingAddress(const Param1: WideString);
  4613.     function  Get_MailingAddressCity: WideString;
  4614.     procedure Set_MailingAddressCity(const Param1: WideString);
  4615.     function  Get_MailingAddressCountry: WideString;
  4616.     procedure Set_MailingAddressCountry(const Param1: WideString);
  4617.     function  Get_MailingAddressPostalCode: WideString;
  4618.     procedure Set_MailingAddressPostalCode(const Param1: WideString);
  4619.     function  Get_MailingAddressPostOfficeBox: WideString;
  4620.     procedure Set_MailingAddressPostOfficeBox(const Param1: WideString);
  4621.     function  Get_MailingAddressState: WideString;
  4622.     procedure Set_MailingAddressState(const Param1: WideString);
  4623.     function  Get_MailingAddressStreet: WideString;
  4624.     procedure Set_MailingAddressStreet(const Param1: WideString);
  4625.     function  Get_ManagerName: WideString;
  4626.     procedure Set_ManagerName(const Param1: WideString);
  4627.     function  Get_MiddleName: WideString;
  4628.     procedure Set_MiddleName(const Param1: WideString);
  4629.     function  Get_MobileTelephoneNumber: WideString;
  4630.     procedure Set_MobileTelephoneNumber(const Param1: WideString);
  4631.     function  Get_NickName: WideString;
  4632.     procedure Set_NickName(const Param1: WideString);
  4633.     function  Get_OfficeLocation: WideString;
  4634.     procedure Set_OfficeLocation(const Param1: WideString);
  4635.     function  Get_OrganizationalIDNumber: WideString;
  4636.     procedure Set_OrganizationalIDNumber(const Param1: WideString);
  4637.     function  Get_OtherAddress: WideString;
  4638.     procedure Set_OtherAddress(const Param1: WideString);
  4639.     function  Get_OtherAddressCity: WideString;
  4640.     procedure Set_OtherAddressCity(const Param1: WideString);
  4641.     function  Get_OtherAddressCountry: WideString;
  4642.     procedure Set_OtherAddressCountry(const Param1: WideString);
  4643.     function  Get_OtherAddressPostalCode: WideString;
  4644.     procedure Set_OtherAddressPostalCode(const Param1: WideString);
  4645.     function  Get_OtherAddressPostOfficeBox: WideString;
  4646.     procedure Set_OtherAddressPostOfficeBox(const Param1: WideString);
  4647.     function  Get_OtherAddressState: WideString;
  4648.     procedure Set_OtherAddressState(const Param1: WideString);
  4649.     function  Get_OtherAddressStreet: WideString;
  4650.     procedure Set_OtherAddressStreet(const Param1: WideString);
  4651.     function  Get_OtherFaxNumber: WideString;
  4652.     procedure Set_OtherFaxNumber(const Param1: WideString);
  4653.     function  Get_OtherTelephoneNumber: WideString;
  4654.     procedure Set_OtherTelephoneNumber(const Param1: WideString);
  4655.     function  Get_PagerNumber: WideString;
  4656.     procedure Set_PagerNumber(const Param1: WideString);
  4657.     function  Get_PersonalHomePage: WideString;
  4658.     procedure Set_PersonalHomePage(const Param1: WideString);
  4659.     function  Get_PrimaryTelephoneNumber: WideString;
  4660.     procedure Set_PrimaryTelephoneNumber(const Param1: WideString);
  4661.     function  Get_Profession: WideString;
  4662.     procedure Set_Profession(const Param1: WideString);
  4663.     function  Get_RadioTelephoneNumber: WideString;
  4664.     procedure Set_RadioTelephoneNumber(const Param1: WideString);
  4665.     function  Get_ReferredBy: WideString;
  4666.     procedure Set_ReferredBy(const Param1: WideString);
  4667.     function  Get_SelectedMailingAddress: OlMailingAddress;
  4668.     procedure Set_SelectedMailingAddress(Param1: OlMailingAddress);
  4669.     function  Get_Spouse: WideString;
  4670.     procedure Set_Spouse(const Param1: WideString);
  4671.     function  Get_Suffix: WideString;
  4672.     procedure Set_Suffix(const Param1: WideString);
  4673.     function  Get_TelexNumber: WideString;
  4674.     procedure Set_TelexNumber(const Param1: WideString);
  4675.     function  Get_Title: WideString;
  4676.     procedure Set_Title(const Param1: WideString);
  4677.     function  Get_TTYTDDTelephoneNumber: WideString;
  4678.     procedure Set_TTYTDDTelephoneNumber(const Param1: WideString);
  4679.     function  Get_User1: WideString;
  4680.     procedure Set_User1(const Param1: WideString);
  4681.     function  Get_User2: WideString;
  4682.     procedure Set_User2(const Param1: WideString);
  4683.     function  Get_User3: WideString;
  4684.     procedure Set_User3(const Param1: WideString);
  4685.     function  Get_User4: WideString;
  4686.     procedure Set_User4(const Param1: WideString);
  4687.     function  Get_UserCertificate: WideString;
  4688.     procedure Set_UserCertificate(const Param1: WideString);
  4689.     function  Get_WebPage: WideString;
  4690.     procedure Set_WebPage(const Param1: WideString);
  4691.     function  Get_YomiCompanyName: WideString;
  4692.     procedure Set_YomiCompanyName(const Param1: WideString);
  4693.     function  Get_YomiFirstName: WideString;
  4694.     procedure Set_YomiFirstName(const Param1: WideString);
  4695.     function  Get_YomiLastName: WideString;
  4696.     procedure Set_YomiLastName(const Param1: WideString);
  4697.   public
  4698.     constructor Create(AOwner: TComponent); override;
  4699.     destructor  Destroy; override;
  4700.     procedure Connect; override;
  4701.     procedure ConnectTo(svrIntf: _DContactItem);
  4702.     procedure Disconnect; override;
  4703.     procedure Close(SaveMode: OlInspectorClose);
  4704.     function  Copy: IDispatch;
  4705.     procedure Delete;
  4706.     procedure Display(Modal: OleVariant);
  4707.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  4708.     procedure Save;
  4709.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  4710.     procedure PrintOut;
  4711.     property  DefaultInterface: _DContactItem read GetDefaultInterface;
  4712.     property Actions: Actions read Get_Actions;
  4713.     property Application: OutlookApplication read Get_Application;
  4714.     property Attachments: Attachments read Get_Attachments;
  4715.     property CreationTime: TDateTime read Get_CreationTime;
  4716.     property EntryID: WideString read Get_EntryID;
  4717.     property FormDescription: FormDescription read Get_FormDescription;
  4718.     property GetInspector: Inspector read Get_GetInspector;
  4719.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  4720.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  4721.     property OutlookVersion: WideString read Get_OutlookVersion;
  4722.     property Parent: IDispatch read Get_Parent;
  4723.     property Saved: WordBool read Get_Saved;
  4724.     property Size: Integer read Get_Size;
  4725.     property UserProperties: UserProperties read Get_UserProperties;
  4726.     property CompanyAndFullName: WideString read Get_CompanyAndFullName;
  4727.     property Email1DisplayName: WideString read Get_Email1DisplayName;
  4728.     property Email1EntryID: WideString read Get_Email1EntryID;
  4729.     property Email2DisplayName: WideString read Get_Email2DisplayName;
  4730.     property Email2EntryID: WideString read Get_Email2EntryID;
  4731.     property Email3DisplayName: WideString read Get_Email3DisplayName;
  4732.     property Email3EntryID: WideString read Get_Email3EntryID;
  4733.     property FullNameAndCompany: WideString read Get_FullNameAndCompany;
  4734.     property LastNameAndFirstName: WideString read Get_LastNameAndFirstName;
  4735.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  4736.     property Body: WideString read Get_Body write Set_Body;
  4737.     property Categories: WideString read Get_Categories write Set_Categories;
  4738.     property Companies: WideString read Get_Companies write Set_Companies;
  4739.     property Importance: OlImportance read Get_Importance write Set_Importance;
  4740.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  4741.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  4742.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  4743.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  4744.     property Subject: WideString read Get_Subject write Set_Subject;
  4745.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  4746.     property Account: WideString read Get_Account write Set_Account;
  4747.     property Anniversary: TDateTime read Get_Anniversary write Set_Anniversary;
  4748.     property AssistantName: WideString read Get_AssistantName write Set_AssistantName;
  4749.     property AssistantTelephoneNumber: WideString read Get_AssistantTelephoneNumber write Set_AssistantTelephoneNumber;
  4750.     property Birthday: TDateTime read Get_Birthday write Set_Birthday;
  4751.     property Business2TelephoneNumber: WideString read Get_Business2TelephoneNumber write Set_Business2TelephoneNumber;
  4752.     property BusinessAddress: WideString read Get_BusinessAddress write Set_BusinessAddress;
  4753.     property BusinessAddressCity: WideString read Get_BusinessAddressCity write Set_BusinessAddressCity;
  4754.     property BusinessAddressCountry: WideString read Get_BusinessAddressCountry write Set_BusinessAddressCountry;
  4755.     property BusinessAddressPostalCode: WideString read Get_BusinessAddressPostalCode write Set_BusinessAddressPostalCode;
  4756.     property BusinessAddressPostOfficeBox: WideString read Get_BusinessAddressPostOfficeBox write Set_BusinessAddressPostOfficeBox;
  4757.     property BusinessAddressState: WideString read Get_BusinessAddressState write Set_BusinessAddressState;
  4758.     property BusinessAddressStreet: WideString read Get_BusinessAddressStreet write Set_BusinessAddressStreet;
  4759.     property BusinessFaxNumber: WideString read Get_BusinessFaxNumber write Set_BusinessFaxNumber;
  4760.     property BusinessHomePage: WideString read Get_BusinessHomePage write Set_BusinessHomePage;
  4761.     property BusinessTelephoneNumber: WideString read Get_BusinessTelephoneNumber write Set_BusinessTelephoneNumber;
  4762.     property CallbackTelephoneNumber: WideString read Get_CallbackTelephoneNumber write Set_CallbackTelephoneNumber;
  4763.     property CarTelephoneNumber: WideString read Get_CarTelephoneNumber write Set_CarTelephoneNumber;
  4764.     property Children: WideString read Get_Children write Set_Children;
  4765.     property CompanyMainTelephoneNumber: WideString read Get_CompanyMainTelephoneNumber write Set_CompanyMainTelephoneNumber;
  4766.     property CompanyName: WideString read Get_CompanyName write Set_CompanyName;
  4767.     property ComputerNetworkName: WideString read Get_ComputerNetworkName write Set_ComputerNetworkName;
  4768.     property CustomerID: WideString read Get_CustomerID write Set_CustomerID;
  4769.     property Department: WideString read Get_Department write Set_Department;
  4770.     property Email1Address: WideString read Get_Email1Address write Set_Email1Address;
  4771.     property Email1AddressType: WideString read Get_Email1AddressType write Set_Email1AddressType;
  4772.     property Email2Address: WideString read Get_Email2Address write Set_Email2Address;
  4773.     property Email2AddressType: WideString read Get_Email2AddressType write Set_Email2AddressType;
  4774.     property Email3Address: WideString read Get_Email3Address write Set_Email3Address;
  4775.     property Email3AddressType: WideString read Get_Email3AddressType write Set_Email3AddressType;
  4776.     property FileAs: WideString read Get_FileAs write Set_FileAs;
  4777.     property FirstName: WideString read Get_FirstName write Set_FirstName;
  4778.     property FTPSite: WideString read Get_FTPSite write Set_FTPSite;
  4779.     property FullName: WideString read Get_FullName write Set_FullName;
  4780.     property Gender: OlGender read Get_Gender write Set_Gender;
  4781.     property GovernmentIDNumber: WideString read Get_GovernmentIDNumber write Set_GovernmentIDNumber;
  4782.     property Hobby: WideString read Get_Hobby write Set_Hobby;
  4783.     property Home2TelephoneNumber: WideString read Get_Home2TelephoneNumber write Set_Home2TelephoneNumber;
  4784.     property HomeAddress: WideString read Get_HomeAddress write Set_HomeAddress;
  4785.     property HomeAddressCity: WideString read Get_HomeAddressCity write Set_HomeAddressCity;
  4786.     property HomeAddressCountry: WideString read Get_HomeAddressCountry write Set_HomeAddressCountry;
  4787.     property HomeAddressPostalCode: WideString read Get_HomeAddressPostalCode write Set_HomeAddressPostalCode;
  4788.     property HomeAddressPostOfficeBox: WideString read Get_HomeAddressPostOfficeBox write Set_HomeAddressPostOfficeBox;
  4789.     property HomeAddressState: WideString read Get_HomeAddressState write Set_HomeAddressState;
  4790.     property HomeAddressStreet: WideString read Get_HomeAddressStreet write Set_HomeAddressStreet;
  4791.     property HomeFaxNumber: WideString read Get_HomeFaxNumber write Set_HomeFaxNumber;
  4792.     property HomeTelephoneNumber: WideString read Get_HomeTelephoneNumber write Set_HomeTelephoneNumber;
  4793.     property Initials: WideString read Get_Initials write Set_Initials;
  4794.     property ISDNNumber: WideString read Get_ISDNNumber write Set_ISDNNumber;
  4795.     property JobTitle: WideString read Get_JobTitle write Set_JobTitle;
  4796.     property Journal: WordBool read Get_Journal write Set_Journal;
  4797.     property Language: WideString read Get_Language write Set_Language;
  4798.     property LastName: WideString read Get_LastName write Set_LastName;
  4799.     property MailingAddress: WideString read Get_MailingAddress write Set_MailingAddress;
  4800.     property MailingAddressCity: WideString read Get_MailingAddressCity write Set_MailingAddressCity;
  4801.     property MailingAddressCountry: WideString read Get_MailingAddressCountry write Set_MailingAddressCountry;
  4802.     property MailingAddressPostalCode: WideString read Get_MailingAddressPostalCode write Set_MailingAddressPostalCode;
  4803.     property MailingAddressPostOfficeBox: WideString read Get_MailingAddressPostOfficeBox write Set_MailingAddressPostOfficeBox;
  4804.     property MailingAddressState: WideString read Get_MailingAddressState write Set_MailingAddressState;
  4805.     property MailingAddressStreet: WideString read Get_MailingAddressStreet write Set_MailingAddressStreet;
  4806.     property ManagerName: WideString read Get_ManagerName write Set_ManagerName;
  4807.     property MiddleName: WideString read Get_MiddleName write Set_MiddleName;
  4808.     property MobileTelephoneNumber: WideString read Get_MobileTelephoneNumber write Set_MobileTelephoneNumber;
  4809.     property NickName: WideString read Get_NickName write Set_NickName;
  4810.     property OfficeLocation: WideString read Get_OfficeLocation write Set_OfficeLocation;
  4811.     property OrganizationalIDNumber: WideString read Get_OrganizationalIDNumber write Set_OrganizationalIDNumber;
  4812.     property OtherAddress: WideString read Get_OtherAddress write Set_OtherAddress;
  4813.     property OtherAddressCity: WideString read Get_OtherAddressCity write Set_OtherAddressCity;
  4814.     property OtherAddressCountry: WideString read Get_OtherAddressCountry write Set_OtherAddressCountry;
  4815.     property OtherAddressPostalCode: WideString read Get_OtherAddressPostalCode write Set_OtherAddressPostalCode;
  4816.     property OtherAddressPostOfficeBox: WideString read Get_OtherAddressPostOfficeBox write Set_OtherAddressPostOfficeBox;
  4817.     property OtherAddressState: WideString read Get_OtherAddressState write Set_OtherAddressState;
  4818.     property OtherAddressStreet: WideString read Get_OtherAddressStreet write Set_OtherAddressStreet;
  4819.     property OtherFaxNumber: WideString read Get_OtherFaxNumber write Set_OtherFaxNumber;
  4820.     property OtherTelephoneNumber: WideString read Get_OtherTelephoneNumber write Set_OtherTelephoneNumber;
  4821.     property PagerNumber: WideString read Get_PagerNumber write Set_PagerNumber;
  4822.     property PersonalHomePage: WideString read Get_PersonalHomePage write Set_PersonalHomePage;
  4823.     property PrimaryTelephoneNumber: WideString read Get_PrimaryTelephoneNumber write Set_PrimaryTelephoneNumber;
  4824.     property Profession: WideString read Get_Profession write Set_Profession;
  4825.     property RadioTelephoneNumber: WideString read Get_RadioTelephoneNumber write Set_RadioTelephoneNumber;
  4826.     property ReferredBy: WideString read Get_ReferredBy write Set_ReferredBy;
  4827.     property SelectedMailingAddress: OlMailingAddress read Get_SelectedMailingAddress write Set_SelectedMailingAddress;
  4828.     property Spouse: WideString read Get_Spouse write Set_Spouse;
  4829.     property Suffix: WideString read Get_Suffix write Set_Suffix;
  4830.     property TelexNumber: WideString read Get_TelexNumber write Set_TelexNumber;
  4831.     property Title: WideString read Get_Title write Set_Title;
  4832.     property TTYTDDTelephoneNumber: WideString read Get_TTYTDDTelephoneNumber write Set_TTYTDDTelephoneNumber;
  4833.     property User1: WideString read Get_User1 write Set_User1;
  4834.     property User2: WideString read Get_User2 write Set_User2;
  4835.     property User3: WideString read Get_User3 write Set_User3;
  4836.     property User4: WideString read Get_User4 write Set_User4;
  4837.     property UserCertificate: WideString read Get_UserCertificate write Set_UserCertificate;
  4838.     property WebPage: WideString read Get_WebPage write Set_WebPage;
  4839.     property YomiCompanyName: WideString read Get_YomiCompanyName write Set_YomiCompanyName;
  4840.     property YomiFirstName: WideString read Get_YomiFirstName write Set_YomiFirstName;
  4841.     property YomiLastName: WideString read Get_YomiLastName write Set_YomiLastName;
  4842.   published
  4843. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4844.     property Server: TContactItemProperties read GetServerProperties;
  4845. {$ENDIF}
  4846.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  4847.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  4848.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  4849.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  4850.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  4851.     property OnReply: TContactItemReply read FOnReply write FOnReply;
  4852.     property OnReplyAll: TContactItemReplyAll read FOnReplyAll write FOnReplyAll;
  4853.     property OnForward: TContactItemForward read FOnForward write FOnForward;
  4854.     property OnCustomAction: TContactItemCustomAction read FOnCustomAction write FOnCustomAction;
  4855.     property OnCustomPropertyChange: TContactItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  4856.     property OnPropertyChange: TContactItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  4857.   end;
  4858.  
  4859. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  4860. // *********************************************************************//
  4861. // OLE Server Properties Proxy Class
  4862. // Server Object    : TContactItem
  4863. // (This object is used by the IDE's Property Inspector to allow editing
  4864. //  of the properties of this server)
  4865. // *********************************************************************//
  4866.  TContactItemProperties = class(TPersistent)
  4867.   private
  4868.     FServer:    TContactItem;
  4869.     function    GetDefaultInterface: _DContactItem;
  4870.     constructor Create(AServer: TContactItem);
  4871.   protected
  4872.     function  Get_Actions: Actions;
  4873.     function  Get_Application: OutlookApplication;
  4874.     function  Get_Attachments: Attachments;
  4875.     function  Get_BillingInformation: WideString;
  4876.     procedure Set_BillingInformation(const Param1: WideString);
  4877.     function  Get_Body: WideString;
  4878.     procedure Set_Body(const Param1: WideString);
  4879.     function  Get_Categories: WideString;
  4880.     procedure Set_Categories(const Param1: WideString);
  4881.     function  Get_Companies: WideString;
  4882.     procedure Set_Companies(const Param1: WideString);
  4883.     function  Get_CreationTime: TDateTime;
  4884.     function  Get_EntryID: WideString;
  4885.     function  Get_FormDescription: FormDescription;
  4886.     function  Get_GetInspector: Inspector;
  4887.     function  Get_Importance: OlImportance;
  4888.     procedure Set_Importance(Param1: OlImportance);
  4889.     function  Get_LastModificationTime: TDateTime;
  4890.     function  Get_MessageClass: WideString;
  4891.     procedure Set_MessageClass(const Param1: WideString);
  4892.     function  Get_Mileage: WideString;
  4893.     procedure Set_Mileage(const Param1: WideString);
  4894.     function  Get_NoAging: WordBool;
  4895.     procedure Set_NoAging(Param1: WordBool);
  4896.     function  Get_OutlookInternalVersion: WideString;
  4897.     function  Get_OutlookVersion: WideString;
  4898.     function  Get_Parent: IDispatch;
  4899.     function  Get_Saved: WordBool;
  4900.     function  Get_Sensitivity: OlSensitivity;
  4901.     procedure Set_Sensitivity(Param1: OlSensitivity);
  4902.     function  Get_Size: Integer;
  4903.     function  Get_Subject: WideString;
  4904.     procedure Set_Subject(const Param1: WideString);
  4905.     function  Get_UnRead: WordBool;
  4906.     procedure Set_UnRead(Param1: WordBool);
  4907.     function  Get_UserProperties: UserProperties;
  4908.     function  Get_Account: WideString;
  4909.     procedure Set_Account(const Param1: WideString);
  4910.     function  Get_Anniversary: TDateTime;
  4911.     procedure Set_Anniversary(Param1: TDateTime);
  4912.     function  Get_AssistantName: WideString;
  4913.     procedure Set_AssistantName(const Param1: WideString);
  4914.     function  Get_AssistantTelephoneNumber: WideString;
  4915.     procedure Set_AssistantTelephoneNumber(const Param1: WideString);
  4916.     function  Get_Birthday: TDateTime;
  4917.     procedure Set_Birthday(Param1: TDateTime);
  4918.     function  Get_Business2TelephoneNumber: WideString;
  4919.     procedure Set_Business2TelephoneNumber(const Param1: WideString);
  4920.     function  Get_BusinessAddress: WideString;
  4921.     procedure Set_BusinessAddress(const Param1: WideString);
  4922.     function  Get_BusinessAddressCity: WideString;
  4923.     procedure Set_BusinessAddressCity(const Param1: WideString);
  4924.     function  Get_BusinessAddressCountry: WideString;
  4925.     procedure Set_BusinessAddressCountry(const Param1: WideString);
  4926.     function  Get_BusinessAddressPostalCode: WideString;
  4927.     procedure Set_BusinessAddressPostalCode(const Param1: WideString);
  4928.     function  Get_BusinessAddressPostOfficeBox: WideString;
  4929.     procedure Set_BusinessAddressPostOfficeBox(const Param1: WideString);
  4930.     function  Get_BusinessAddressState: WideString;
  4931.     procedure Set_BusinessAddressState(const Param1: WideString);
  4932.     function  Get_BusinessAddressStreet: WideString;
  4933.     procedure Set_BusinessAddressStreet(const Param1: WideString);
  4934.     function  Get_BusinessFaxNumber: WideString;
  4935.     procedure Set_BusinessFaxNumber(const Param1: WideString);
  4936.     function  Get_BusinessHomePage: WideString;
  4937.     procedure Set_BusinessHomePage(const Param1: WideString);
  4938.     function  Get_BusinessTelephoneNumber: WideString;
  4939.     procedure Set_BusinessTelephoneNumber(const Param1: WideString);
  4940.     function  Get_CallbackTelephoneNumber: WideString;
  4941.     procedure Set_CallbackTelephoneNumber(const Param1: WideString);
  4942.     function  Get_CarTelephoneNumber: WideString;
  4943.     procedure Set_CarTelephoneNumber(const Param1: WideString);
  4944.     function  Get_Children: WideString;
  4945.     procedure Set_Children(const Param1: WideString);
  4946.     function  Get_CompanyAndFullName: WideString;
  4947.     function  Get_CompanyMainTelephoneNumber: WideString;
  4948.     procedure Set_CompanyMainTelephoneNumber(const Param1: WideString);
  4949.     function  Get_CompanyName: WideString;
  4950.     procedure Set_CompanyName(const Param1: WideString);
  4951.     function  Get_ComputerNetworkName: WideString;
  4952.     procedure Set_ComputerNetworkName(const Param1: WideString);
  4953.     function  Get_CustomerID: WideString;
  4954.     procedure Set_CustomerID(const Param1: WideString);
  4955.     function  Get_Department: WideString;
  4956.     procedure Set_Department(const Param1: WideString);
  4957.     function  Get_Email1Address: WideString;
  4958.     procedure Set_Email1Address(const Param1: WideString);
  4959.     function  Get_Email1AddressType: WideString;
  4960.     procedure Set_Email1AddressType(const Param1: WideString);
  4961.     function  Get_Email1DisplayName: WideString;
  4962.     function  Get_Email1EntryID: WideString;
  4963.     function  Get_Email2Address: WideString;
  4964.     procedure Set_Email2Address(const Param1: WideString);
  4965.     function  Get_Email2AddressType: WideString;
  4966.     procedure Set_Email2AddressType(const Param1: WideString);
  4967.     function  Get_Email2DisplayName: WideString;
  4968.     function  Get_Email2EntryID: WideString;
  4969.     function  Get_Email3Address: WideString;
  4970.     procedure Set_Email3Address(const Param1: WideString);
  4971.     function  Get_Email3AddressType: WideString;
  4972.     procedure Set_Email3AddressType(const Param1: WideString);
  4973.     function  Get_Email3DisplayName: WideString;
  4974.     function  Get_Email3EntryID: WideString;
  4975.     function  Get_FileAs: WideString;
  4976.     procedure Set_FileAs(const Param1: WideString);
  4977.     function  Get_FirstName: WideString;
  4978.     procedure Set_FirstName(const Param1: WideString);
  4979.     function  Get_FTPSite: WideString;
  4980.     procedure Set_FTPSite(const Param1: WideString);
  4981.     function  Get_FullName: WideString;
  4982.     procedure Set_FullName(const Param1: WideString);
  4983.     function  Get_FullNameAndCompany: WideString;
  4984.     function  Get_Gender: OlGender;
  4985.     procedure Set_Gender(Param1: OlGender);
  4986.     function  Get_GovernmentIDNumber: WideString;
  4987.     procedure Set_GovernmentIDNumber(const Param1: WideString);
  4988.     function  Get_Hobby: WideString;
  4989.     procedure Set_Hobby(const Param1: WideString);
  4990.     function  Get_Home2TelephoneNumber: WideString;
  4991.     procedure Set_Home2TelephoneNumber(const Param1: WideString);
  4992.     function  Get_HomeAddress: WideString;
  4993.     procedure Set_HomeAddress(const Param1: WideString);
  4994.     function  Get_HomeAddressCity: WideString;
  4995.     procedure Set_HomeAddressCity(const Param1: WideString);
  4996.     function  Get_HomeAddressCountry: WideString;
  4997.     procedure Set_HomeAddressCountry(const Param1: WideString);
  4998.     function  Get_HomeAddressPostalCode: WideString;
  4999.     procedure Set_HomeAddressPostalCode(const Param1: WideString);
  5000.     function  Get_HomeAddressPostOfficeBox: WideString;
  5001.     procedure Set_HomeAddressPostOfficeBox(const Param1: WideString);
  5002.     function  Get_HomeAddressState: WideString;
  5003.     procedure Set_HomeAddressState(const Param1: WideString);
  5004.     function  Get_HomeAddressStreet: WideString;
  5005.     procedure Set_HomeAddressStreet(const Param1: WideString);
  5006.     function  Get_HomeFaxNumber: WideString;
  5007.     procedure Set_HomeFaxNumber(const Param1: WideString);
  5008.     function  Get_HomeTelephoneNumber: WideString;
  5009.     procedure Set_HomeTelephoneNumber(const Param1: WideString);
  5010.     function  Get_Initials: WideString;
  5011.     procedure Set_Initials(const Param1: WideString);
  5012.     function  Get_ISDNNumber: WideString;
  5013.     procedure Set_ISDNNumber(const Param1: WideString);
  5014.     function  Get_JobTitle: WideString;
  5015.     procedure Set_JobTitle(const Param1: WideString);
  5016.     function  Get_Journal: WordBool;
  5017.     procedure Set_Journal(Param1: WordBool);
  5018.     function  Get_Language: WideString;
  5019.     procedure Set_Language(const Param1: WideString);
  5020.     function  Get_LastName: WideString;
  5021.     procedure Set_LastName(const Param1: WideString);
  5022.     function  Get_LastNameAndFirstName: WideString;
  5023.     function  Get_MailingAddress: WideString;
  5024.     procedure Set_MailingAddress(const Param1: WideString);
  5025.     function  Get_MailingAddressCity: WideString;
  5026.     procedure Set_MailingAddressCity(const Param1: WideString);
  5027.     function  Get_MailingAddressCountry: WideString;
  5028.     procedure Set_MailingAddressCountry(const Param1: WideString);
  5029.     function  Get_MailingAddressPostalCode: WideString;
  5030.     procedure Set_MailingAddressPostalCode(const Param1: WideString);
  5031.     function  Get_MailingAddressPostOfficeBox: WideString;
  5032.     procedure Set_MailingAddressPostOfficeBox(const Param1: WideString);
  5033.     function  Get_MailingAddressState: WideString;
  5034.     procedure Set_MailingAddressState(const Param1: WideString);
  5035.     function  Get_MailingAddressStreet: WideString;
  5036.     procedure Set_MailingAddressStreet(const Param1: WideString);
  5037.     function  Get_ManagerName: WideString;
  5038.     procedure Set_ManagerName(const Param1: WideString);
  5039.     function  Get_MiddleName: WideString;
  5040.     procedure Set_MiddleName(const Param1: WideString);
  5041.     function  Get_MobileTelephoneNumber: WideString;
  5042.     procedure Set_MobileTelephoneNumber(const Param1: WideString);
  5043.     function  Get_NickName: WideString;
  5044.     procedure Set_NickName(const Param1: WideString);
  5045.     function  Get_OfficeLocation: WideString;
  5046.     procedure Set_OfficeLocation(const Param1: WideString);
  5047.     function  Get_OrganizationalIDNumber: WideString;
  5048.     procedure Set_OrganizationalIDNumber(const Param1: WideString);
  5049.     function  Get_OtherAddress: WideString;
  5050.     procedure Set_OtherAddress(const Param1: WideString);
  5051.     function  Get_OtherAddressCity: WideString;
  5052.     procedure Set_OtherAddressCity(const Param1: WideString);
  5053.     function  Get_OtherAddressCountry: WideString;
  5054.     procedure Set_OtherAddressCountry(const Param1: WideString);
  5055.     function  Get_OtherAddressPostalCode: WideString;
  5056.     procedure Set_OtherAddressPostalCode(const Param1: WideString);
  5057.     function  Get_OtherAddressPostOfficeBox: WideString;
  5058.     procedure Set_OtherAddressPostOfficeBox(const Param1: WideString);
  5059.     function  Get_OtherAddressState: WideString;
  5060.     procedure Set_OtherAddressState(const Param1: WideString);
  5061.     function  Get_OtherAddressStreet: WideString;
  5062.     procedure Set_OtherAddressStreet(const Param1: WideString);
  5063.     function  Get_OtherFaxNumber: WideString;
  5064.     procedure Set_OtherFaxNumber(const Param1: WideString);
  5065.     function  Get_OtherTelephoneNumber: WideString;
  5066.     procedure Set_OtherTelephoneNumber(const Param1: WideString);
  5067.     function  Get_PagerNumber: WideString;
  5068.     procedure Set_PagerNumber(const Param1: WideString);
  5069.     function  Get_PersonalHomePage: WideString;
  5070.     procedure Set_PersonalHomePage(const Param1: WideString);
  5071.     function  Get_PrimaryTelephoneNumber: WideString;
  5072.     procedure Set_PrimaryTelephoneNumber(const Param1: WideString);
  5073.     function  Get_Profession: WideString;
  5074.     procedure Set_Profession(const Param1: WideString);
  5075.     function  Get_RadioTelephoneNumber: WideString;
  5076.     procedure Set_RadioTelephoneNumber(const Param1: WideString);
  5077.     function  Get_ReferredBy: WideString;
  5078.     procedure Set_ReferredBy(const Param1: WideString);
  5079.     function  Get_SelectedMailingAddress: OlMailingAddress;
  5080.     procedure Set_SelectedMailingAddress(Param1: OlMailingAddress);
  5081.     function  Get_Spouse: WideString;
  5082.     procedure Set_Spouse(const Param1: WideString);
  5083.     function  Get_Suffix: WideString;
  5084.     procedure Set_Suffix(const Param1: WideString);
  5085.     function  Get_TelexNumber: WideString;
  5086.     procedure Set_TelexNumber(const Param1: WideString);
  5087.     function  Get_Title: WideString;
  5088.     procedure Set_Title(const Param1: WideString);
  5089.     function  Get_TTYTDDTelephoneNumber: WideString;
  5090.     procedure Set_TTYTDDTelephoneNumber(const Param1: WideString);
  5091.     function  Get_User1: WideString;
  5092.     procedure Set_User1(const Param1: WideString);
  5093.     function  Get_User2: WideString;
  5094.     procedure Set_User2(const Param1: WideString);
  5095.     function  Get_User3: WideString;
  5096.     procedure Set_User3(const Param1: WideString);
  5097.     function  Get_User4: WideString;
  5098.     procedure Set_User4(const Param1: WideString);
  5099.     function  Get_UserCertificate: WideString;
  5100.     procedure Set_UserCertificate(const Param1: WideString);
  5101.     function  Get_WebPage: WideString;
  5102.     procedure Set_WebPage(const Param1: WideString);
  5103.     function  Get_YomiCompanyName: WideString;
  5104.     procedure Set_YomiCompanyName(const Param1: WideString);
  5105.     function  Get_YomiFirstName: WideString;
  5106.     procedure Set_YomiFirstName(const Param1: WideString);
  5107.     function  Get_YomiLastName: WideString;
  5108.     procedure Set_YomiLastName(const Param1: WideString);
  5109.   public
  5110.     property DefaultInterface: _DContactItem read GetDefaultInterface;
  5111.   published
  5112.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  5113.     property Body: WideString read Get_Body write Set_Body;
  5114.     property Categories: WideString read Get_Categories write Set_Categories;
  5115.     property Companies: WideString read Get_Companies write Set_Companies;
  5116.     property Importance: OlImportance read Get_Importance write Set_Importance;
  5117.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  5118.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  5119.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  5120.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  5121.     property Subject: WideString read Get_Subject write Set_Subject;
  5122.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  5123.     property Account: WideString read Get_Account write Set_Account;
  5124.     property Anniversary: TDateTime read Get_Anniversary write Set_Anniversary;
  5125.     property AssistantName: WideString read Get_AssistantName write Set_AssistantName;
  5126.     property AssistantTelephoneNumber: WideString read Get_AssistantTelephoneNumber write Set_AssistantTelephoneNumber;
  5127.     property Birthday: TDateTime read Get_Birthday write Set_Birthday;
  5128.     property Business2TelephoneNumber: WideString read Get_Business2TelephoneNumber write Set_Business2TelephoneNumber;
  5129.     property BusinessAddress: WideString read Get_BusinessAddress write Set_BusinessAddress;
  5130.     property BusinessAddressCity: WideString read Get_BusinessAddressCity write Set_BusinessAddressCity;
  5131.     property BusinessAddressCountry: WideString read Get_BusinessAddressCountry write Set_BusinessAddressCountry;
  5132.     property BusinessAddressPostalCode: WideString read Get_BusinessAddressPostalCode write Set_BusinessAddressPostalCode;
  5133.     property BusinessAddressPostOfficeBox: WideString read Get_BusinessAddressPostOfficeBox write Set_BusinessAddressPostOfficeBox;
  5134.     property BusinessAddressState: WideString read Get_BusinessAddressState write Set_BusinessAddressState;
  5135.     property BusinessAddressStreet: WideString read Get_BusinessAddressStreet write Set_BusinessAddressStreet;
  5136.     property BusinessFaxNumber: WideString read Get_BusinessFaxNumber write Set_BusinessFaxNumber;
  5137.     property BusinessHomePage: WideString read Get_BusinessHomePage write Set_BusinessHomePage;
  5138.     property BusinessTelephoneNumber: WideString read Get_BusinessTelephoneNumber write Set_BusinessTelephoneNumber;
  5139.     property CallbackTelephoneNumber: WideString read Get_CallbackTelephoneNumber write Set_CallbackTelephoneNumber;
  5140.     property CarTelephoneNumber: WideString read Get_CarTelephoneNumber write Set_CarTelephoneNumber;
  5141.     property Children: WideString read Get_Children write Set_Children;
  5142.     property CompanyMainTelephoneNumber: WideString read Get_CompanyMainTelephoneNumber write Set_CompanyMainTelephoneNumber;
  5143.     property CompanyName: WideString read Get_CompanyName write Set_CompanyName;
  5144.     property ComputerNetworkName: WideString read Get_ComputerNetworkName write Set_ComputerNetworkName;
  5145.     property CustomerID: WideString read Get_CustomerID write Set_CustomerID;
  5146.     property Department: WideString read Get_Department write Set_Department;
  5147.     property Email1Address: WideString read Get_Email1Address write Set_Email1Address;
  5148.     property Email1AddressType: WideString read Get_Email1AddressType write Set_Email1AddressType;
  5149.     property Email2Address: WideString read Get_Email2Address write Set_Email2Address;
  5150.     property Email2AddressType: WideString read Get_Email2AddressType write Set_Email2AddressType;
  5151.     property Email3Address: WideString read Get_Email3Address write Set_Email3Address;
  5152.     property Email3AddressType: WideString read Get_Email3AddressType write Set_Email3AddressType;
  5153.     property FileAs: WideString read Get_FileAs write Set_FileAs;
  5154.     property FirstName: WideString read Get_FirstName write Set_FirstName;
  5155.     property FTPSite: WideString read Get_FTPSite write Set_FTPSite;
  5156.     property FullName: WideString read Get_FullName write Set_FullName;
  5157.     property Gender: OlGender read Get_Gender write Set_Gender;
  5158.     property GovernmentIDNumber: WideString read Get_GovernmentIDNumber write Set_GovernmentIDNumber;
  5159.     property Hobby: WideString read Get_Hobby write Set_Hobby;
  5160.     property Home2TelephoneNumber: WideString read Get_Home2TelephoneNumber write Set_Home2TelephoneNumber;
  5161.     property HomeAddress: WideString read Get_HomeAddress write Set_HomeAddress;
  5162.     property HomeAddressCity: WideString read Get_HomeAddressCity write Set_HomeAddressCity;
  5163.     property HomeAddressCountry: WideString read Get_HomeAddressCountry write Set_HomeAddressCountry;
  5164.     property HomeAddressPostalCode: WideString read Get_HomeAddressPostalCode write Set_HomeAddressPostalCode;
  5165.     property HomeAddressPostOfficeBox: WideString read Get_HomeAddressPostOfficeBox write Set_HomeAddressPostOfficeBox;
  5166.     property HomeAddressState: WideString read Get_HomeAddressState write Set_HomeAddressState;
  5167.     property HomeAddressStreet: WideString read Get_HomeAddressStreet write Set_HomeAddressStreet;
  5168.     property HomeFaxNumber: WideString read Get_HomeFaxNumber write Set_HomeFaxNumber;
  5169.     property HomeTelephoneNumber: WideString read Get_HomeTelephoneNumber write Set_HomeTelephoneNumber;
  5170.     property Initials: WideString read Get_Initials write Set_Initials;
  5171.     property ISDNNumber: WideString read Get_ISDNNumber write Set_ISDNNumber;
  5172.     property JobTitle: WideString read Get_JobTitle write Set_JobTitle;
  5173.     property Journal: WordBool read Get_Journal write Set_Journal;
  5174.     property Language: WideString read Get_Language write Set_Language;
  5175.     property LastName: WideString read Get_LastName write Set_LastName;
  5176.     property MailingAddress: WideString read Get_MailingAddress write Set_MailingAddress;
  5177.     property MailingAddressCity: WideString read Get_MailingAddressCity write Set_MailingAddressCity;
  5178.     property MailingAddressCountry: WideString read Get_MailingAddressCountry write Set_MailingAddressCountry;
  5179.     property MailingAddressPostalCode: WideString read Get_MailingAddressPostalCode write Set_MailingAddressPostalCode;
  5180.     property MailingAddressPostOfficeBox: WideString read Get_MailingAddressPostOfficeBox write Set_MailingAddressPostOfficeBox;
  5181.     property MailingAddressState: WideString read Get_MailingAddressState write Set_MailingAddressState;
  5182.     property MailingAddressStreet: WideString read Get_MailingAddressStreet write Set_MailingAddressStreet;
  5183.     property ManagerName: WideString read Get_ManagerName write Set_ManagerName;
  5184.     property MiddleName: WideString read Get_MiddleName write Set_MiddleName;
  5185.     property MobileTelephoneNumber: WideString read Get_MobileTelephoneNumber write Set_MobileTelephoneNumber;
  5186.     property NickName: WideString read Get_NickName write Set_NickName;
  5187.     property OfficeLocation: WideString read Get_OfficeLocation write Set_OfficeLocation;
  5188.     property OrganizationalIDNumber: WideString read Get_OrganizationalIDNumber write Set_OrganizationalIDNumber;
  5189.     property OtherAddress: WideString read Get_OtherAddress write Set_OtherAddress;
  5190.     property OtherAddressCity: WideString read Get_OtherAddressCity write Set_OtherAddressCity;
  5191.     property OtherAddressCountry: WideString read Get_OtherAddressCountry write Set_OtherAddressCountry;
  5192.     property OtherAddressPostalCode: WideString read Get_OtherAddressPostalCode write Set_OtherAddressPostalCode;
  5193.     property OtherAddressPostOfficeBox: WideString read Get_OtherAddressPostOfficeBox write Set_OtherAddressPostOfficeBox;
  5194.     property OtherAddressState: WideString read Get_OtherAddressState write Set_OtherAddressState;
  5195.     property OtherAddressStreet: WideString read Get_OtherAddressStreet write Set_OtherAddressStreet;
  5196.     property OtherFaxNumber: WideString read Get_OtherFaxNumber write Set_OtherFaxNumber;
  5197.     property OtherTelephoneNumber: WideString read Get_OtherTelephoneNumber write Set_OtherTelephoneNumber;
  5198.     property PagerNumber: WideString read Get_PagerNumber write Set_PagerNumber;
  5199.     property PersonalHomePage: WideString read Get_PersonalHomePage write Set_PersonalHomePage;
  5200.     property PrimaryTelephoneNumber: WideString read Get_PrimaryTelephoneNumber write Set_PrimaryTelephoneNumber;
  5201.     property Profession: WideString read Get_Profession write Set_Profession;
  5202.     property RadioTelephoneNumber: WideString read Get_RadioTelephoneNumber write Set_RadioTelephoneNumber;
  5203.     property ReferredBy: WideString read Get_ReferredBy write Set_ReferredBy;
  5204.     property SelectedMailingAddress: OlMailingAddress read Get_SelectedMailingAddress write Set_SelectedMailingAddress;
  5205.     property Spouse: WideString read Get_Spouse write Set_Spouse;
  5206.     property Suffix: WideString read Get_Suffix write Set_Suffix;
  5207.     property TelexNumber: WideString read Get_TelexNumber write Set_TelexNumber;
  5208.     property Title: WideString read Get_Title write Set_Title;
  5209.     property TTYTDDTelephoneNumber: WideString read Get_TTYTDDTelephoneNumber write Set_TTYTDDTelephoneNumber;
  5210.     property User1: WideString read Get_User1 write Set_User1;
  5211.     property User2: WideString read Get_User2 write Set_User2;
  5212.     property User3: WideString read Get_User3 write Set_User3;
  5213.     property User4: WideString read Get_User4 write Set_User4;
  5214.     property UserCertificate: WideString read Get_UserCertificate write Set_UserCertificate;
  5215.     property WebPage: WideString read Get_WebPage write Set_WebPage;
  5216.     property YomiCompanyName: WideString read Get_YomiCompanyName write Set_YomiCompanyName;
  5217.     property YomiFirstName: WideString read Get_YomiFirstName write Set_YomiFirstName;
  5218.     property YomiLastName: WideString read Get_YomiLastName write Set_YomiLastName;
  5219.   end;
  5220. {$ENDIF}
  5221.  
  5222.  
  5223. // *********************************************************************//
  5224. // The Class CoJournalItem provides a Create and CreateRemote method to          
  5225. // create instances of the default interface _DJournalItem exposed by              
  5226. // the CoClass JournalItem. The functions are intended to be used by             
  5227. // clients wishing to automate the CoClass objects exposed by the         
  5228. // server of this typelibrary.                                            
  5229. // *********************************************************************//
  5230.   CoJournalItem = class
  5231.     class function Create: _DJournalItem;
  5232.     class function CreateRemote(const MachineName: string): _DJournalItem;
  5233.   end;
  5234.  
  5235.   TJournalItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  5236.   TJournalItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  5237.   TJournalItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  5238.   TJournalItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  5239.                                                         var Response: OleVariant) of object;
  5240.   TJournalItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5241.   TJournalItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5242.  
  5243.  
  5244. // *********************************************************************//
  5245. // OLE Server Proxy class declaration
  5246. // Server Object    : TJournalItem
  5247. // Help String      : 
  5248. // Default Interface: _DJournalItem
  5249. // Def. Intf. DISP? : Yes
  5250. // Event   Interface: _DItemEvents
  5251. // TypeFlags        : (2) CanCreate
  5252. // *********************************************************************//
  5253. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5254.   TJournalItemProperties= class;
  5255. {$ENDIF}
  5256.   TJournalItem = class(TOleServer)
  5257.   private
  5258.     FOnRead: TNotifyEvent;
  5259.     FOnWrite: TNotifyEvent;
  5260.     FOnOpen: TNotifyEvent;
  5261.     FOnClose: TNotifyEvent;
  5262.     FOnSend: TNotifyEvent;
  5263.     FOnReply: TJournalItemReply;
  5264.     FOnReplyAll: TJournalItemReplyAll;
  5265.     FOnForward: TJournalItemForward;
  5266.     FOnCustomAction: TJournalItemCustomAction;
  5267.     FOnCustomPropertyChange: TJournalItemCustomPropertyChange;
  5268.     FOnPropertyChange: TJournalItemPropertyChange;
  5269.     FIntf:        _DJournalItem;
  5270. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5271.     FProps:       TJournalItemProperties;
  5272.     function      GetServerProperties: TJournalItemProperties;
  5273. {$ENDIF}
  5274.     function      GetDefaultInterface: _DJournalItem;
  5275.   protected
  5276.     procedure InitServerData; override;
  5277.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  5278.     function  Get_Actions: Actions;
  5279.     function  Get_Application: OutlookApplication;
  5280.     function  Get_Attachments: Attachments;
  5281.     function  Get_BillingInformation: WideString;
  5282.     procedure Set_BillingInformation(const Param1: WideString);
  5283.     function  Get_Body: WideString;
  5284.     procedure Set_Body(const Param1: WideString);
  5285.     function  Get_Categories: WideString;
  5286.     procedure Set_Categories(const Param1: WideString);
  5287.     function  Get_Companies: WideString;
  5288.     procedure Set_Companies(const Param1: WideString);
  5289.     function  Get_CreationTime: TDateTime;
  5290.     function  Get_EntryID: WideString;
  5291.     function  Get_FormDescription: FormDescription;
  5292.     function  Get_GetInspector: Inspector;
  5293.     function  Get_Importance: OlImportance;
  5294.     procedure Set_Importance(Param1: OlImportance);
  5295.     function  Get_LastModificationTime: TDateTime;
  5296.     function  Get_MessageClass: WideString;
  5297.     procedure Set_MessageClass(const Param1: WideString);
  5298.     function  Get_Mileage: WideString;
  5299.     procedure Set_Mileage(const Param1: WideString);
  5300.     function  Get_NoAging: WordBool;
  5301.     procedure Set_NoAging(Param1: WordBool);
  5302.     function  Get_OutlookInternalVersion: WideString;
  5303.     function  Get_OutlookVersion: WideString;
  5304.     function  Get_Parent: IDispatch;
  5305.     function  Get_Saved: WordBool;
  5306.     function  Get_Sensitivity: OlSensitivity;
  5307.     procedure Set_Sensitivity(Param1: OlSensitivity);
  5308.     function  Get_Size: Integer;
  5309.     function  Get_Subject: WideString;
  5310.     procedure Set_Subject(const Param1: WideString);
  5311.     function  Get_UnRead: WordBool;
  5312.     procedure Set_UnRead(Param1: WordBool);
  5313.     function  Get_UserProperties: UserProperties;
  5314.     function  Get_ContactNames: WideString;
  5315.     procedure Set_ContactNames(const Param1: WideString);
  5316.     function  Get_DocPosted: WordBool;
  5317.     procedure Set_DocPosted(Param1: WordBool);
  5318.     function  Get_DocPrinted: WordBool;
  5319.     procedure Set_DocPrinted(Param1: WordBool);
  5320.     function  Get_DocRouted: WordBool;
  5321.     procedure Set_DocRouted(Param1: WordBool);
  5322.     function  Get_DocSaved: WordBool;
  5323.     procedure Set_DocSaved(Param1: WordBool);
  5324.     function  Get_Duration: Integer;
  5325.     procedure Set_Duration(Param1: Integer);
  5326.     function  Get_End_: TDateTime;
  5327.     procedure Set_End_(Param1: TDateTime);
  5328.     function  Get_Recipients: Recipients;
  5329.     function  Get_Start: TDateTime;
  5330.     procedure Set_Start(Param1: TDateTime);
  5331.     function  Get_Type_: WideString;
  5332.     procedure Set_Type_(const Param1: WideString);
  5333.   public
  5334.     constructor Create(AOwner: TComponent); override;
  5335.     destructor  Destroy; override;
  5336.     procedure Connect; override;
  5337.     procedure ConnectTo(svrIntf: _DJournalItem);
  5338.     procedure Disconnect; override;
  5339.     procedure Close(SaveMode: OlInspectorClose);
  5340.     function  Copy: IDispatch;
  5341.     procedure Delete;
  5342.     procedure Display(Modal: OleVariant);
  5343.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  5344.     procedure Save;
  5345.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  5346.     procedure PrintOut;
  5347.     function  Forward: MailItem;
  5348.     function  Reply: MailItem;
  5349.     function  ReplyAll: MailItem;
  5350.     procedure StartTimer;
  5351.     procedure StopTimer;
  5352.     property  DefaultInterface: _DJournalItem read GetDefaultInterface;
  5353.     property Actions: Actions read Get_Actions;
  5354.     property Application: OutlookApplication read Get_Application;
  5355.     property Attachments: Attachments read Get_Attachments;
  5356.     property CreationTime: TDateTime read Get_CreationTime;
  5357.     property EntryID: WideString read Get_EntryID;
  5358.     property FormDescription: FormDescription read Get_FormDescription;
  5359.     property GetInspector: Inspector read Get_GetInspector;
  5360.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  5361.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  5362.     property OutlookVersion: WideString read Get_OutlookVersion;
  5363.     property Parent: IDispatch read Get_Parent;
  5364.     property Saved: WordBool read Get_Saved;
  5365.     property Size: Integer read Get_Size;
  5366.     property UserProperties: UserProperties read Get_UserProperties;
  5367.     property Recipients: Recipients read Get_Recipients;
  5368.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  5369.     property Body: WideString read Get_Body write Set_Body;
  5370.     property Categories: WideString read Get_Categories write Set_Categories;
  5371.     property Companies: WideString read Get_Companies write Set_Companies;
  5372.     property Importance: OlImportance read Get_Importance write Set_Importance;
  5373.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  5374.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  5375.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  5376.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  5377.     property Subject: WideString read Get_Subject write Set_Subject;
  5378.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  5379.     property ContactNames: WideString read Get_ContactNames write Set_ContactNames;
  5380.     property DocPosted: WordBool read Get_DocPosted write Set_DocPosted;
  5381.     property DocPrinted: WordBool read Get_DocPrinted write Set_DocPrinted;
  5382.     property DocRouted: WordBool read Get_DocRouted write Set_DocRouted;
  5383.     property DocSaved: WordBool read Get_DocSaved write Set_DocSaved;
  5384.     property Duration: Integer read Get_Duration write Set_Duration;
  5385.     property End_: TDateTime read Get_End_ write Set_End_;
  5386.     property Start: TDateTime read Get_Start write Set_Start;
  5387.     property Type_: WideString read Get_Type_ write Set_Type_;
  5388.   published
  5389. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5390.     property Server: TJournalItemProperties read GetServerProperties;
  5391. {$ENDIF}
  5392.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  5393.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  5394.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  5395.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  5396.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  5397.     property OnReply: TJournalItemReply read FOnReply write FOnReply;
  5398.     property OnReplyAll: TJournalItemReplyAll read FOnReplyAll write FOnReplyAll;
  5399.     property OnForward: TJournalItemForward read FOnForward write FOnForward;
  5400.     property OnCustomAction: TJournalItemCustomAction read FOnCustomAction write FOnCustomAction;
  5401.     property OnCustomPropertyChange: TJournalItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  5402.     property OnPropertyChange: TJournalItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  5403.   end;
  5404.  
  5405. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5406. // *********************************************************************//
  5407. // OLE Server Properties Proxy Class
  5408. // Server Object    : TJournalItem
  5409. // (This object is used by the IDE's Property Inspector to allow editing
  5410. //  of the properties of this server)
  5411. // *********************************************************************//
  5412.  TJournalItemProperties = class(TPersistent)
  5413.   private
  5414.     FServer:    TJournalItem;
  5415.     function    GetDefaultInterface: _DJournalItem;
  5416.     constructor Create(AServer: TJournalItem);
  5417.   protected
  5418.     function  Get_Actions: Actions;
  5419.     function  Get_Application: OutlookApplication;
  5420.     function  Get_Attachments: Attachments;
  5421.     function  Get_BillingInformation: WideString;
  5422.     procedure Set_BillingInformation(const Param1: WideString);
  5423.     function  Get_Body: WideString;
  5424.     procedure Set_Body(const Param1: WideString);
  5425.     function  Get_Categories: WideString;
  5426.     procedure Set_Categories(const Param1: WideString);
  5427.     function  Get_Companies: WideString;
  5428.     procedure Set_Companies(const Param1: WideString);
  5429.     function  Get_CreationTime: TDateTime;
  5430.     function  Get_EntryID: WideString;
  5431.     function  Get_FormDescription: FormDescription;
  5432.     function  Get_GetInspector: Inspector;
  5433.     function  Get_Importance: OlImportance;
  5434.     procedure Set_Importance(Param1: OlImportance);
  5435.     function  Get_LastModificationTime: TDateTime;
  5436.     function  Get_MessageClass: WideString;
  5437.     procedure Set_MessageClass(const Param1: WideString);
  5438.     function  Get_Mileage: WideString;
  5439.     procedure Set_Mileage(const Param1: WideString);
  5440.     function  Get_NoAging: WordBool;
  5441.     procedure Set_NoAging(Param1: WordBool);
  5442.     function  Get_OutlookInternalVersion: WideString;
  5443.     function  Get_OutlookVersion: WideString;
  5444.     function  Get_Parent: IDispatch;
  5445.     function  Get_Saved: WordBool;
  5446.     function  Get_Sensitivity: OlSensitivity;
  5447.     procedure Set_Sensitivity(Param1: OlSensitivity);
  5448.     function  Get_Size: Integer;
  5449.     function  Get_Subject: WideString;
  5450.     procedure Set_Subject(const Param1: WideString);
  5451.     function  Get_UnRead: WordBool;
  5452.     procedure Set_UnRead(Param1: WordBool);
  5453.     function  Get_UserProperties: UserProperties;
  5454.     function  Get_ContactNames: WideString;
  5455.     procedure Set_ContactNames(const Param1: WideString);
  5456.     function  Get_DocPosted: WordBool;
  5457.     procedure Set_DocPosted(Param1: WordBool);
  5458.     function  Get_DocPrinted: WordBool;
  5459.     procedure Set_DocPrinted(Param1: WordBool);
  5460.     function  Get_DocRouted: WordBool;
  5461.     procedure Set_DocRouted(Param1: WordBool);
  5462.     function  Get_DocSaved: WordBool;
  5463.     procedure Set_DocSaved(Param1: WordBool);
  5464.     function  Get_Duration: Integer;
  5465.     procedure Set_Duration(Param1: Integer);
  5466.     function  Get_End_: TDateTime;
  5467.     procedure Set_End_(Param1: TDateTime);
  5468.     function  Get_Recipients: Recipients;
  5469.     function  Get_Start: TDateTime;
  5470.     procedure Set_Start(Param1: TDateTime);
  5471.     function  Get_Type_: WideString;
  5472.     procedure Set_Type_(const Param1: WideString);
  5473.   public
  5474.     property DefaultInterface: _DJournalItem read GetDefaultInterface;
  5475.   published
  5476.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  5477.     property Body: WideString read Get_Body write Set_Body;
  5478.     property Categories: WideString read Get_Categories write Set_Categories;
  5479.     property Companies: WideString read Get_Companies write Set_Companies;
  5480.     property Importance: OlImportance read Get_Importance write Set_Importance;
  5481.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  5482.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  5483.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  5484.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  5485.     property Subject: WideString read Get_Subject write Set_Subject;
  5486.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  5487.     property ContactNames: WideString read Get_ContactNames write Set_ContactNames;
  5488.     property DocPosted: WordBool read Get_DocPosted write Set_DocPosted;
  5489.     property DocPrinted: WordBool read Get_DocPrinted write Set_DocPrinted;
  5490.     property DocRouted: WordBool read Get_DocRouted write Set_DocRouted;
  5491.     property DocSaved: WordBool read Get_DocSaved write Set_DocSaved;
  5492.     property Duration: Integer read Get_Duration write Set_Duration;
  5493.     property End_: TDateTime read Get_End_ write Set_End_;
  5494.     property Start: TDateTime read Get_Start write Set_Start;
  5495.     property Type_: WideString read Get_Type_ write Set_Type_;
  5496.   end;
  5497. {$ENDIF}
  5498.  
  5499.  
  5500. // *********************************************************************//
  5501. // The Class CoMailItem provides a Create and CreateRemote method to          
  5502. // create instances of the default interface _DMailItem exposed by              
  5503. // the CoClass MailItem. The functions are intended to be used by             
  5504. // clients wishing to automate the CoClass objects exposed by the         
  5505. // server of this typelibrary.                                            
  5506. // *********************************************************************//
  5507.   CoMailItem = class
  5508.     class function Create: _DMailItem;
  5509.     class function CreateRemote(const MachineName: string): _DMailItem;
  5510.   end;
  5511.  
  5512.   TMailItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  5513.   TMailItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  5514.   TMailItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  5515.   TMailItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;var Response: OleVariant) of object;
  5516.   TMailItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5517.   TMailItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5518.  
  5519.  
  5520. // *********************************************************************//
  5521. // OLE Server Proxy class declaration
  5522. // Server Object    : TMailItem
  5523. // Help String      : 
  5524. // Default Interface: _DMailItem
  5525. // Def. Intf. DISP? : Yes
  5526. // Event   Interface: _DItemEvents
  5527. // TypeFlags        : (2) CanCreate
  5528. // *********************************************************************//
  5529. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5530.   TMailItemProperties= class;
  5531. {$ENDIF}
  5532.   TMailItem = class(TOleServer)
  5533.   private
  5534.     FOnRead: TNotifyEvent;
  5535.     FOnWrite: TNotifyEvent;
  5536.     FOnOpen: TNotifyEvent;
  5537.     FOnClose: TNotifyEvent;
  5538.     FOnSend: TNotifyEvent;
  5539.     FOnReply: TMailItemReply;
  5540.     FOnReplyAll: TMailItemReplyAll;
  5541.     FOnForward: TMailItemForward;
  5542.     FOnCustomAction: TMailItemCustomAction;
  5543.     FOnCustomPropertyChange: TMailItemCustomPropertyChange;
  5544.     FOnPropertyChange: TMailItemPropertyChange;
  5545.     FIntf:        _DMailItem;
  5546. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5547.     FProps:       TMailItemProperties;
  5548.     function      GetServerProperties: TMailItemProperties;
  5549. {$ENDIF}
  5550.     function      GetDefaultInterface: _DMailItem;
  5551.   protected
  5552.     procedure InitServerData; override;
  5553.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  5554.     function  Get_Actions: Actions;
  5555.     function  Get_Application: OutlookApplication;
  5556.     function  Get_Attachments: Attachments;
  5557.     function  Get_BillingInformation: WideString;
  5558.     procedure Set_BillingInformation(const Param1: WideString);
  5559.     function  Get_Body: WideString;
  5560.     procedure Set_Body(const Param1: WideString);
  5561.     function  Get_Categories: WideString;
  5562.     procedure Set_Categories(const Param1: WideString);
  5563.     function  Get_Companies: WideString;
  5564.     procedure Set_Companies(const Param1: WideString);
  5565.     function  Get_CreationTime: TDateTime;
  5566.     function  Get_EntryID: WideString;
  5567.     function  Get_FormDescription: FormDescription;
  5568.     function  Get_GetInspector: Inspector;
  5569.     function  Get_Importance: OlImportance;
  5570.     procedure Set_Importance(Param1: OlImportance);
  5571.     function  Get_LastModificationTime: TDateTime;
  5572.     function  Get_MessageClass: WideString;
  5573.     procedure Set_MessageClass(const Param1: WideString);
  5574.     function  Get_Mileage: WideString;
  5575.     procedure Set_Mileage(const Param1: WideString);
  5576.     function  Get_NoAging: WordBool;
  5577.     procedure Set_NoAging(Param1: WordBool);
  5578.     function  Get_OutlookInternalVersion: WideString;
  5579.     function  Get_OutlookVersion: WideString;
  5580.     function  Get_Parent: IDispatch;
  5581.     function  Get_Saved: WordBool;
  5582.     function  Get_Sensitivity: OlSensitivity;
  5583.     procedure Set_Sensitivity(Param1: OlSensitivity);
  5584.     function  Get_Size: Integer;
  5585.     function  Get_Subject: WideString;
  5586.     procedure Set_Subject(const Param1: WideString);
  5587.     function  Get_UnRead: WordBool;
  5588.     procedure Set_UnRead(Param1: WordBool);
  5589.     function  Get_UserProperties: UserProperties;
  5590.     function  Get_AlternateRecipientAllowed: WordBool;
  5591.     procedure Set_AlternateRecipientAllowed(Param1: WordBool);
  5592.     function  Get_AutoForwarded: WordBool;
  5593.     procedure Set_AutoForwarded(Param1: WordBool);
  5594.     function  Get_BCC: WideString;
  5595.     procedure Set_BCC(const Param1: WideString);
  5596.     function  Get_CC: WideString;
  5597.     procedure Set_CC(const Param1: WideString);
  5598.     function  Get_ConversationIndex: WideString;
  5599.     function  Get_ConversationTopic: WideString;
  5600.     function  Get_DeferredDeliveryTime: TDateTime;
  5601.     procedure Set_DeferredDeliveryTime(Param1: TDateTime);
  5602.     function  Get_DeleteAfterSubmit: WordBool;
  5603.     procedure Set_DeleteAfterSubmit(Param1: WordBool);
  5604.     function  Get_ExpiryTime: TDateTime;
  5605.     procedure Set_ExpiryTime(Param1: TDateTime);
  5606.     function  Get_FlagDueBy: TDateTime;
  5607.     procedure Set_FlagDueBy(Param1: TDateTime);
  5608.     function  Get_FlagRequest: WideString;
  5609.     procedure Set_FlagRequest(const Param1: WideString);
  5610.     function  Get_FlagStatus: OlFlagStatus;
  5611.     procedure Set_FlagStatus(Param1: OlFlagStatus);
  5612.     function  Get_OriginatorDeliveryReportRequested: WordBool;
  5613.     procedure Set_OriginatorDeliveryReportRequested(Param1: WordBool);
  5614.     function  Get_ReadReceiptRequested: WordBool;
  5615.     procedure Set_ReadReceiptRequested(Param1: WordBool);
  5616.     function  Get_ReceivedByEntryID: WideString;
  5617.     function  Get_ReceivedByName: WideString;
  5618.     function  Get_ReceivedOnBehalfOfEntryID: WideString;
  5619.     function  Get_ReceivedOnBehalfOfName: WideString;
  5620.     function  Get_ReceivedTime: TDateTime;
  5621.     function  Get_RecipientReassignmentProhibited: WordBool;
  5622.     procedure Set_RecipientReassignmentProhibited(Param1: WordBool);
  5623.     function  Get_Recipients: Recipients;
  5624.     function  Get_ReminderOverrideDefault: WordBool;
  5625.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  5626.     function  Get_ReminderPlaySound: WordBool;
  5627.     procedure Set_ReminderPlaySound(Param1: WordBool);
  5628.     function  Get_ReminderSet: WordBool;
  5629.     procedure Set_ReminderSet(Param1: WordBool);
  5630.     function  Get_ReminderSoundFile: WideString;
  5631.     procedure Set_ReminderSoundFile(const Param1: WideString);
  5632.     function  Get_ReminderTime: TDateTime;
  5633.     procedure Set_ReminderTime(Param1: TDateTime);
  5634.     function  Get_RemoteStatus: OlRemoteStatus;
  5635.     function  Get_ReplyRecipientNames: WideString;
  5636.     function  Get_ReplyRecipients: Recipients;
  5637.     function  Get_SaveSentMessageFolder: MAPIFolder;
  5638.     procedure Set_SaveSentMessageFolder(const Param1: MAPIFolder);
  5639.     function  Get_SenderName: WideString;
  5640.     function  Get_SentOn: TDateTime;
  5641.     function  Get_SentOnBehalfOfName: WideString;
  5642.     procedure Set_SentOnBehalfOfName(const Param1: WideString);
  5643.     function  Get_To_: WideString;
  5644.     procedure Set_To_(const Param1: WideString);
  5645.     function  Get_VotingOptions: WideString;
  5646.     procedure Set_VotingOptions(const Param1: WideString);
  5647.     function  Get_VotingResponse: WideString;
  5648.     procedure Set_VotingResponse(const Param1: WideString);
  5649.   public
  5650.     constructor Create(AOwner: TComponent); override;
  5651.     destructor  Destroy; override;
  5652.     procedure Connect; override;
  5653.     procedure ConnectTo(svrIntf: _DMailItem);
  5654.     procedure Disconnect; override;
  5655.     procedure Close(SaveMode: OlInspectorClose);
  5656.     function  Copy: IDispatch;
  5657.     procedure Delete;
  5658.     procedure Display(Modal: OleVariant);
  5659.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  5660.     procedure Save;
  5661.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  5662.     procedure PrintOut;
  5663.     procedure ClearConversationIndex;
  5664.     function  Forward: MailItem;
  5665.     function  Reply: MailItem;
  5666.     function  ReplyAll: MailItem;
  5667.     procedure Send;
  5668.     property  DefaultInterface: _DMailItem read GetDefaultInterface;
  5669.     property Actions: Actions read Get_Actions;
  5670.     property Application: OutlookApplication read Get_Application;
  5671.     property Attachments: Attachments read Get_Attachments;
  5672.     property CreationTime: TDateTime read Get_CreationTime;
  5673.     property EntryID: WideString read Get_EntryID;
  5674.     property FormDescription: FormDescription read Get_FormDescription;
  5675.     property GetInspector: Inspector read Get_GetInspector;
  5676.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  5677.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  5678.     property OutlookVersion: WideString read Get_OutlookVersion;
  5679.     property Parent: IDispatch read Get_Parent;
  5680.     property Saved: WordBool read Get_Saved;
  5681.     property Size: Integer read Get_Size;
  5682.     property UserProperties: UserProperties read Get_UserProperties;
  5683.     property ConversationIndex: WideString read Get_ConversationIndex;
  5684.     property ConversationTopic: WideString read Get_ConversationTopic;
  5685.     property ReceivedByEntryID: WideString read Get_ReceivedByEntryID;
  5686.     property ReceivedByName: WideString read Get_ReceivedByName;
  5687.     property ReceivedOnBehalfOfEntryID: WideString read Get_ReceivedOnBehalfOfEntryID;
  5688.     property ReceivedOnBehalfOfName: WideString read Get_ReceivedOnBehalfOfName;
  5689.     property ReceivedTime: TDateTime read Get_ReceivedTime;
  5690.     property Recipients: Recipients read Get_Recipients;
  5691.     property RemoteStatus: OlRemoteStatus read Get_RemoteStatus;
  5692.     property ReplyRecipientNames: WideString read Get_ReplyRecipientNames;
  5693.     property ReplyRecipients: Recipients read Get_ReplyRecipients;
  5694.     property SaveSentMessageFolder: MAPIFolder read Get_SaveSentMessageFolder write Set_SaveSentMessageFolder;
  5695.     property SenderName: WideString read Get_SenderName;
  5696.     property SentOn: TDateTime read Get_SentOn;
  5697.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  5698.     property Body: WideString read Get_Body write Set_Body;
  5699.     property Categories: WideString read Get_Categories write Set_Categories;
  5700.     property Companies: WideString read Get_Companies write Set_Companies;
  5701.     property Importance: OlImportance read Get_Importance write Set_Importance;
  5702.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  5703.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  5704.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  5705.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  5706.     property Subject: WideString read Get_Subject write Set_Subject;
  5707.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  5708.     property AlternateRecipientAllowed: WordBool read Get_AlternateRecipientAllowed write Set_AlternateRecipientAllowed;
  5709.     property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded;
  5710.     property BCC: WideString read Get_BCC write Set_BCC;
  5711.     property CC: WideString read Get_CC write Set_CC;
  5712.     property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime;
  5713.     property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit;
  5714.     property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime;
  5715.     property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy;
  5716.     property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest;
  5717.     property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus;
  5718.     property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested;
  5719.     property ReadReceiptRequested: WordBool read Get_ReadReceiptRequested write Set_ReadReceiptRequested;
  5720.     property RecipientReassignmentProhibited: WordBool read Get_RecipientReassignmentProhibited write Set_RecipientReassignmentProhibited;
  5721.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  5722.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  5723.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  5724.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  5725.     property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime;
  5726.     property SentOnBehalfOfName: WideString read Get_SentOnBehalfOfName write Set_SentOnBehalfOfName;
  5727.     property To_: WideString read Get_To_ write Set_To_;
  5728.     property VotingOptions: WideString read Get_VotingOptions write Set_VotingOptions;
  5729.     property VotingResponse: WideString read Get_VotingResponse write Set_VotingResponse;
  5730.   published
  5731. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5732.     property Server: TMailItemProperties read GetServerProperties;
  5733. {$ENDIF}
  5734.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  5735.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  5736.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  5737.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  5738.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  5739.     property OnReply: TMailItemReply read FOnReply write FOnReply;
  5740.     property OnReplyAll: TMailItemReplyAll read FOnReplyAll write FOnReplyAll;
  5741.     property OnForward: TMailItemForward read FOnForward write FOnForward;
  5742.     property OnCustomAction: TMailItemCustomAction read FOnCustomAction write FOnCustomAction;
  5743.     property OnCustomPropertyChange: TMailItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  5744.     property OnPropertyChange: TMailItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  5745.   end;
  5746.  
  5747. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5748. // *********************************************************************//
  5749. // OLE Server Properties Proxy Class
  5750. // Server Object    : TMailItem
  5751. // (This object is used by the IDE's Property Inspector to allow editing
  5752. //  of the properties of this server)
  5753. // *********************************************************************//
  5754.  TMailItemProperties = class(TPersistent)
  5755.   private
  5756.     FServer:    TMailItem;
  5757.     function    GetDefaultInterface: _DMailItem;
  5758.     constructor Create(AServer: TMailItem);
  5759.   protected
  5760.     function  Get_Actions: Actions;
  5761.     function  Get_Application: OutlookApplication;
  5762.     function  Get_Attachments: Attachments;
  5763.     function  Get_BillingInformation: WideString;
  5764.     procedure Set_BillingInformation(const Param1: WideString);
  5765.     function  Get_Body: WideString;
  5766.     procedure Set_Body(const Param1: WideString);
  5767.     function  Get_Categories: WideString;
  5768.     procedure Set_Categories(const Param1: WideString);
  5769.     function  Get_Companies: WideString;
  5770.     procedure Set_Companies(const Param1: WideString);
  5771.     function  Get_CreationTime: TDateTime;
  5772.     function  Get_EntryID: WideString;
  5773.     function  Get_FormDescription: FormDescription;
  5774.     function  Get_GetInspector: Inspector;
  5775.     function  Get_Importance: OlImportance;
  5776.     procedure Set_Importance(Param1: OlImportance);
  5777.     function  Get_LastModificationTime: TDateTime;
  5778.     function  Get_MessageClass: WideString;
  5779.     procedure Set_MessageClass(const Param1: WideString);
  5780.     function  Get_Mileage: WideString;
  5781.     procedure Set_Mileage(const Param1: WideString);
  5782.     function  Get_NoAging: WordBool;
  5783.     procedure Set_NoAging(Param1: WordBool);
  5784.     function  Get_OutlookInternalVersion: WideString;
  5785.     function  Get_OutlookVersion: WideString;
  5786.     function  Get_Parent: IDispatch;
  5787.     function  Get_Saved: WordBool;
  5788.     function  Get_Sensitivity: OlSensitivity;
  5789.     procedure Set_Sensitivity(Param1: OlSensitivity);
  5790.     function  Get_Size: Integer;
  5791.     function  Get_Subject: WideString;
  5792.     procedure Set_Subject(const Param1: WideString);
  5793.     function  Get_UnRead: WordBool;
  5794.     procedure Set_UnRead(Param1: WordBool);
  5795.     function  Get_UserProperties: UserProperties;
  5796.     function  Get_AlternateRecipientAllowed: WordBool;
  5797.     procedure Set_AlternateRecipientAllowed(Param1: WordBool);
  5798.     function  Get_AutoForwarded: WordBool;
  5799.     procedure Set_AutoForwarded(Param1: WordBool);
  5800.     function  Get_BCC: WideString;
  5801.     procedure Set_BCC(const Param1: WideString);
  5802.     function  Get_CC: WideString;
  5803.     procedure Set_CC(const Param1: WideString);
  5804.     function  Get_ConversationIndex: WideString;
  5805.     function  Get_ConversationTopic: WideString;
  5806.     function  Get_DeferredDeliveryTime: TDateTime;
  5807.     procedure Set_DeferredDeliveryTime(Param1: TDateTime);
  5808.     function  Get_DeleteAfterSubmit: WordBool;
  5809.     procedure Set_DeleteAfterSubmit(Param1: WordBool);
  5810.     function  Get_ExpiryTime: TDateTime;
  5811.     procedure Set_ExpiryTime(Param1: TDateTime);
  5812.     function  Get_FlagDueBy: TDateTime;
  5813.     procedure Set_FlagDueBy(Param1: TDateTime);
  5814.     function  Get_FlagRequest: WideString;
  5815.     procedure Set_FlagRequest(const Param1: WideString);
  5816.     function  Get_FlagStatus: OlFlagStatus;
  5817.     procedure Set_FlagStatus(Param1: OlFlagStatus);
  5818.     function  Get_OriginatorDeliveryReportRequested: WordBool;
  5819.     procedure Set_OriginatorDeliveryReportRequested(Param1: WordBool);
  5820.     function  Get_ReadReceiptRequested: WordBool;
  5821.     procedure Set_ReadReceiptRequested(Param1: WordBool);
  5822.     function  Get_ReceivedByEntryID: WideString;
  5823.     function  Get_ReceivedByName: WideString;
  5824.     function  Get_ReceivedOnBehalfOfEntryID: WideString;
  5825.     function  Get_ReceivedOnBehalfOfName: WideString;
  5826.     function  Get_ReceivedTime: TDateTime;
  5827.     function  Get_RecipientReassignmentProhibited: WordBool;
  5828.     procedure Set_RecipientReassignmentProhibited(Param1: WordBool);
  5829.     function  Get_Recipients: Recipients;
  5830.     function  Get_ReminderOverrideDefault: WordBool;
  5831.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  5832.     function  Get_ReminderPlaySound: WordBool;
  5833.     procedure Set_ReminderPlaySound(Param1: WordBool);
  5834.     function  Get_ReminderSet: WordBool;
  5835.     procedure Set_ReminderSet(Param1: WordBool);
  5836.     function  Get_ReminderSoundFile: WideString;
  5837.     procedure Set_ReminderSoundFile(const Param1: WideString);
  5838.     function  Get_ReminderTime: TDateTime;
  5839.     procedure Set_ReminderTime(Param1: TDateTime);
  5840.     function  Get_RemoteStatus: OlRemoteStatus;
  5841.     function  Get_ReplyRecipientNames: WideString;
  5842.     function  Get_ReplyRecipients: Recipients;
  5843.     function  Get_SaveSentMessageFolder: MAPIFolder;
  5844.     procedure Set_SaveSentMessageFolder(const Param1: MAPIFolder);
  5845.     function  Get_SenderName: WideString;
  5846.     function  Get_SentOn: TDateTime;
  5847.     function  Get_SentOnBehalfOfName: WideString;
  5848.     procedure Set_SentOnBehalfOfName(const Param1: WideString);
  5849.     function  Get_To_: WideString;
  5850.     procedure Set_To_(const Param1: WideString);
  5851.     function  Get_VotingOptions: WideString;
  5852.     procedure Set_VotingOptions(const Param1: WideString);
  5853.     function  Get_VotingResponse: WideString;
  5854.     procedure Set_VotingResponse(const Param1: WideString);
  5855.   public
  5856.     property DefaultInterface: _DMailItem read GetDefaultInterface;
  5857.   published
  5858.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  5859.     property Body: WideString read Get_Body write Set_Body;
  5860.     property Categories: WideString read Get_Categories write Set_Categories;
  5861.     property Companies: WideString read Get_Companies write Set_Companies;
  5862.     property Importance: OlImportance read Get_Importance write Set_Importance;
  5863.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  5864.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  5865.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  5866.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  5867.     property Subject: WideString read Get_Subject write Set_Subject;
  5868.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  5869.     property AlternateRecipientAllowed: WordBool read Get_AlternateRecipientAllowed write Set_AlternateRecipientAllowed;
  5870.     property AutoForwarded: WordBool read Get_AutoForwarded write Set_AutoForwarded;
  5871.     property BCC: WideString read Get_BCC write Set_BCC;
  5872.     property CC: WideString read Get_CC write Set_CC;
  5873.     property DeferredDeliveryTime: TDateTime read Get_DeferredDeliveryTime write Set_DeferredDeliveryTime;
  5874.     property DeleteAfterSubmit: WordBool read Get_DeleteAfterSubmit write Set_DeleteAfterSubmit;
  5875.     property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime;
  5876.     property FlagDueBy: TDateTime read Get_FlagDueBy write Set_FlagDueBy;
  5877.     property FlagRequest: WideString read Get_FlagRequest write Set_FlagRequest;
  5878.     property FlagStatus: OlFlagStatus read Get_FlagStatus write Set_FlagStatus;
  5879.     property OriginatorDeliveryReportRequested: WordBool read Get_OriginatorDeliveryReportRequested write Set_OriginatorDeliveryReportRequested;
  5880.     property ReadReceiptRequested: WordBool read Get_ReadReceiptRequested write Set_ReadReceiptRequested;
  5881.     property RecipientReassignmentProhibited: WordBool read Get_RecipientReassignmentProhibited write Set_RecipientReassignmentProhibited;
  5882.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  5883.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  5884.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  5885.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  5886.     property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime;
  5887.     property SentOnBehalfOfName: WideString read Get_SentOnBehalfOfName write Set_SentOnBehalfOfName;
  5888.     property To_: WideString read Get_To_ write Set_To_;
  5889.     property VotingOptions: WideString read Get_VotingOptions write Set_VotingOptions;
  5890.     property VotingResponse: WideString read Get_VotingResponse write Set_VotingResponse;
  5891.   end;
  5892. {$ENDIF}
  5893.  
  5894.  
  5895. // *********************************************************************//
  5896. // The Class Co_MeetingCanceledItem provides a Create and CreateRemote method to          
  5897. // create instances of the default interface _DMeetingCanceledItem exposed by              
  5898. // the CoClass _MeetingCanceledItem. The functions are intended to be used by             
  5899. // clients wishing to automate the CoClass objects exposed by the         
  5900. // server of this typelibrary.                                            
  5901. // *********************************************************************//
  5902.   Co_MeetingCanceledItem = class
  5903.     class function Create: _DMeetingCanceledItem;
  5904.     class function CreateRemote(const MachineName: string): _DMeetingCanceledItem;
  5905.   end;
  5906.  
  5907. // *********************************************************************//
  5908. // The Class Co_MeetingRequestAcceptedItem provides a Create and CreateRemote method to          
  5909. // create instances of the default interface _DMeetingRequestAcceptedItem exposed by              
  5910. // the CoClass _MeetingRequestAcceptedItem. The functions are intended to be used by             
  5911. // clients wishing to automate the CoClass objects exposed by the         
  5912. // server of this typelibrary.                                            
  5913. // *********************************************************************//
  5914.   Co_MeetingRequestAcceptedItem = class
  5915.     class function Create: _DMeetingRequestAcceptedItem;
  5916.     class function CreateRemote(const MachineName: string): _DMeetingRequestAcceptedItem;
  5917.   end;
  5918.  
  5919. // *********************************************************************//
  5920. // The Class Co_MeetingRequestDeclinedItem provides a Create and CreateRemote method to          
  5921. // create instances of the default interface _DMeetingRequestDeclinedItem exposed by              
  5922. // the CoClass _MeetingRequestDeclinedItem. The functions are intended to be used by             
  5923. // clients wishing to automate the CoClass objects exposed by the         
  5924. // server of this typelibrary.                                            
  5925. // *********************************************************************//
  5926.   Co_MeetingRequestDeclinedItem = class
  5927.     class function Create: _DMeetingRequestDeclinedItem;
  5928.     class function CreateRemote(const MachineName: string): _DMeetingRequestDeclinedItem;
  5929.   end;
  5930.  
  5931. // *********************************************************************//
  5932. // The Class CoMeetingRequestItem provides a Create and CreateRemote method to          
  5933. // create instances of the default interface _DMeetingRequestItem exposed by              
  5934. // the CoClass MeetingRequestItem. The functions are intended to be used by             
  5935. // clients wishing to automate the CoClass objects exposed by the         
  5936. // server of this typelibrary.                                            
  5937. // *********************************************************************//
  5938.   CoMeetingRequestItem = class
  5939.     class function Create: _DMeetingRequestItem;
  5940.     class function CreateRemote(const MachineName: string): _DMeetingRequestItem;
  5941.   end;
  5942.  
  5943.   TMeetingRequestItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  5944.   TMeetingRequestItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  5945.   TMeetingRequestItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  5946.   TMeetingRequestItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  5947.                                                                var Response: OleVariant) of object;
  5948.   TMeetingRequestItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5949.   TMeetingRequestItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  5950.  
  5951.  
  5952. // *********************************************************************//
  5953. // OLE Server Proxy class declaration
  5954. // Server Object    : TMeetingRequestItem
  5955. // Help String      : 
  5956. // Default Interface: _DMeetingRequestItem
  5957. // Def. Intf. DISP? : Yes
  5958. // Event   Interface: _DItemEvents
  5959. // TypeFlags        : (2) CanCreate
  5960. // *********************************************************************//
  5961. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5962.   TMeetingRequestItemProperties= class;
  5963. {$ENDIF}
  5964.   TMeetingRequestItem = class(TOleServer)
  5965.   private
  5966.     FOnRead: TNotifyEvent;
  5967.     FOnWrite: TNotifyEvent;
  5968.     FOnOpen: TNotifyEvent;
  5969.     FOnClose: TNotifyEvent;
  5970.     FOnSend: TNotifyEvent;
  5971.     FOnReply: TMeetingRequestItemReply;
  5972.     FOnReplyAll: TMeetingRequestItemReplyAll;
  5973.     FOnForward: TMeetingRequestItemForward;
  5974.     FOnCustomAction: TMeetingRequestItemCustomAction;
  5975.     FOnCustomPropertyChange: TMeetingRequestItemCustomPropertyChange;
  5976.     FOnPropertyChange: TMeetingRequestItemPropertyChange;
  5977.     FIntf:        _DMeetingRequestItem;
  5978. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  5979.     FProps:       TMeetingRequestItemProperties;
  5980.     function      GetServerProperties: TMeetingRequestItemProperties;
  5981. {$ENDIF}
  5982.     function      GetDefaultInterface: _DMeetingRequestItem;
  5983.   protected
  5984.     procedure InitServerData; override;
  5985.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  5986.     function  Get_Actions: Actions;
  5987.     function  Get_Application: OutlookApplication;
  5988.     function  Get_Attachments: Attachments;
  5989.     function  Get_BillingInformation: WideString;
  5990.     procedure Set_BillingInformation(const Param1: WideString);
  5991.     function  Get_Body: WideString;
  5992.     procedure Set_Body(const Param1: WideString);
  5993.     function  Get_Categories: WideString;
  5994.     procedure Set_Categories(const Param1: WideString);
  5995.     function  Get_Companies: WideString;
  5996.     procedure Set_Companies(const Param1: WideString);
  5997.     function  Get_CreationTime: TDateTime;
  5998.     function  Get_EntryID: WideString;
  5999.     function  Get_FormDescription: FormDescription;
  6000.     function  Get_GetInspector: Inspector;
  6001.     function  Get_Importance: OlImportance;
  6002.     procedure Set_Importance(Param1: OlImportance);
  6003.     function  Get_LastModificationTime: TDateTime;
  6004.     function  Get_MessageClass: WideString;
  6005.     procedure Set_MessageClass(const Param1: WideString);
  6006.     function  Get_Mileage: WideString;
  6007.     procedure Set_Mileage(const Param1: WideString);
  6008.     function  Get_NoAging: WordBool;
  6009.     procedure Set_NoAging(Param1: WordBool);
  6010.     function  Get_OutlookInternalVersion: WideString;
  6011.     function  Get_OutlookVersion: WideString;
  6012.     function  Get_Parent: IDispatch;
  6013.     function  Get_Saved: WordBool;
  6014.     function  Get_Sensitivity: OlSensitivity;
  6015.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6016.     function  Get_Size: Integer;
  6017.     function  Get_Subject: WideString;
  6018.     procedure Set_Subject(const Param1: WideString);
  6019.     function  Get_UnRead: WordBool;
  6020.     procedure Set_UnRead(Param1: WordBool);
  6021.     function  Get_UserProperties: UserProperties;
  6022.   public
  6023.     constructor Create(AOwner: TComponent); override;
  6024.     destructor  Destroy; override;
  6025.     procedure Connect; override;
  6026.     procedure ConnectTo(svrIntf: _DMeetingRequestItem);
  6027.     procedure Disconnect; override;
  6028.     procedure Close(SaveMode: OlInspectorClose);
  6029.     function  Copy: IDispatch;
  6030.     procedure Delete;
  6031.     procedure Display(Modal: OleVariant);
  6032.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  6033.     procedure Save;
  6034.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  6035.     procedure PrintOut;
  6036.     function  GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem;
  6037.     property  DefaultInterface: _DMeetingRequestItem read GetDefaultInterface;
  6038.     property Actions: Actions read Get_Actions;
  6039.     property Application: OutlookApplication read Get_Application;
  6040.     property Attachments: Attachments read Get_Attachments;
  6041.     property CreationTime: TDateTime read Get_CreationTime;
  6042.     property EntryID: WideString read Get_EntryID;
  6043.     property FormDescription: FormDescription read Get_FormDescription;
  6044.     property GetInspector: Inspector read Get_GetInspector;
  6045.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  6046.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  6047.     property OutlookVersion: WideString read Get_OutlookVersion;
  6048.     property Parent: IDispatch read Get_Parent;
  6049.     property Saved: WordBool read Get_Saved;
  6050.     property Size: Integer read Get_Size;
  6051.     property UserProperties: UserProperties read Get_UserProperties;
  6052.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6053.     property Body: WideString read Get_Body write Set_Body;
  6054.     property Categories: WideString read Get_Categories write Set_Categories;
  6055.     property Companies: WideString read Get_Companies write Set_Companies;
  6056.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6057.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6058.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6059.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6060.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6061.     property Subject: WideString read Get_Subject write Set_Subject;
  6062.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6063.   published
  6064. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6065.     property Server: TMeetingRequestItemProperties read GetServerProperties;
  6066. {$ENDIF}
  6067.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  6068.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  6069.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6070.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6071.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  6072.     property OnReply: TMeetingRequestItemReply read FOnReply write FOnReply;
  6073.     property OnReplyAll: TMeetingRequestItemReplyAll read FOnReplyAll write FOnReplyAll;
  6074.     property OnForward: TMeetingRequestItemForward read FOnForward write FOnForward;
  6075.     property OnCustomAction: TMeetingRequestItemCustomAction read FOnCustomAction write FOnCustomAction;
  6076.     property OnCustomPropertyChange: TMeetingRequestItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  6077.     property OnPropertyChange: TMeetingRequestItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  6078.   end;
  6079.  
  6080. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6081. // *********************************************************************//
  6082. // OLE Server Properties Proxy Class
  6083. // Server Object    : TMeetingRequestItem
  6084. // (This object is used by the IDE's Property Inspector to allow editing
  6085. //  of the properties of this server)
  6086. // *********************************************************************//
  6087.  TMeetingRequestItemProperties = class(TPersistent)
  6088.   private
  6089.     FServer:    TMeetingRequestItem;
  6090.     function    GetDefaultInterface: _DMeetingRequestItem;
  6091.     constructor Create(AServer: TMeetingRequestItem);
  6092.   protected
  6093.     function  Get_Actions: Actions;
  6094.     function  Get_Application: OutlookApplication;
  6095.     function  Get_Attachments: Attachments;
  6096.     function  Get_BillingInformation: WideString;
  6097.     procedure Set_BillingInformation(const Param1: WideString);
  6098.     function  Get_Body: WideString;
  6099.     procedure Set_Body(const Param1: WideString);
  6100.     function  Get_Categories: WideString;
  6101.     procedure Set_Categories(const Param1: WideString);
  6102.     function  Get_Companies: WideString;
  6103.     procedure Set_Companies(const Param1: WideString);
  6104.     function  Get_CreationTime: TDateTime;
  6105.     function  Get_EntryID: WideString;
  6106.     function  Get_FormDescription: FormDescription;
  6107.     function  Get_GetInspector: Inspector;
  6108.     function  Get_Importance: OlImportance;
  6109.     procedure Set_Importance(Param1: OlImportance);
  6110.     function  Get_LastModificationTime: TDateTime;
  6111.     function  Get_MessageClass: WideString;
  6112.     procedure Set_MessageClass(const Param1: WideString);
  6113.     function  Get_Mileage: WideString;
  6114.     procedure Set_Mileage(const Param1: WideString);
  6115.     function  Get_NoAging: WordBool;
  6116.     procedure Set_NoAging(Param1: WordBool);
  6117.     function  Get_OutlookInternalVersion: WideString;
  6118.     function  Get_OutlookVersion: WideString;
  6119.     function  Get_Parent: IDispatch;
  6120.     function  Get_Saved: WordBool;
  6121.     function  Get_Sensitivity: OlSensitivity;
  6122.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6123.     function  Get_Size: Integer;
  6124.     function  Get_Subject: WideString;
  6125.     procedure Set_Subject(const Param1: WideString);
  6126.     function  Get_UnRead: WordBool;
  6127.     procedure Set_UnRead(Param1: WordBool);
  6128.     function  Get_UserProperties: UserProperties;
  6129.   public
  6130.     property DefaultInterface: _DMeetingRequestItem read GetDefaultInterface;
  6131.   published
  6132.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6133.     property Body: WideString read Get_Body write Set_Body;
  6134.     property Categories: WideString read Get_Categories write Set_Categories;
  6135.     property Companies: WideString read Get_Companies write Set_Companies;
  6136.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6137.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6138.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6139.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6140.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6141.     property Subject: WideString read Get_Subject write Set_Subject;
  6142.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6143.   end;
  6144. {$ENDIF}
  6145.  
  6146.  
  6147. // *********************************************************************//
  6148. // The Class Co_MeetingRequestTentativeItem provides a Create and CreateRemote method to          
  6149. // create instances of the default interface _DMeetingRequestTentativeItem exposed by              
  6150. // the CoClass _MeetingRequestTentativeItem. The functions are intended to be used by             
  6151. // clients wishing to automate the CoClass objects exposed by the         
  6152. // server of this typelibrary.                                            
  6153. // *********************************************************************//
  6154.   Co_MeetingRequestTentativeItem = class
  6155.     class function Create: _DMeetingRequestTentativeItem;
  6156.     class function CreateRemote(const MachineName: string): _DMeetingRequestTentativeItem;
  6157.   end;
  6158.  
  6159. // *********************************************************************//
  6160. // The Class CoNoteItem provides a Create and CreateRemote method to          
  6161. // create instances of the default interface _DNoteItem exposed by              
  6162. // the CoClass NoteItem. The functions are intended to be used by             
  6163. // clients wishing to automate the CoClass objects exposed by the         
  6164. // server of this typelibrary.                                            
  6165. // *********************************************************************//
  6166.   CoNoteItem = class
  6167.     class function Create: _DNoteItem;
  6168.     class function CreateRemote(const MachineName: string): _DNoteItem;
  6169.   end;
  6170.  
  6171.   TNoteItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  6172.   TNoteItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  6173.   TNoteItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  6174.   TNoteItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;var Response: OleVariant) of object;
  6175.   TNoteItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6176.   TNoteItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6177.  
  6178.  
  6179. // *********************************************************************//
  6180. // OLE Server Proxy class declaration
  6181. // Server Object    : TNoteItem
  6182. // Help String      : 
  6183. // Default Interface: _DNoteItem
  6184. // Def. Intf. DISP? : Yes
  6185. // Event   Interface: _DItemEvents
  6186. // TypeFlags        : (2) CanCreate
  6187. // *********************************************************************//
  6188. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6189.   TNoteItemProperties= class;
  6190. {$ENDIF}
  6191.   TNoteItem = class(TOleServer)
  6192.   private
  6193.     FOnRead: TNotifyEvent;
  6194.     FOnWrite: TNotifyEvent;
  6195.     FOnOpen: TNotifyEvent;
  6196.     FOnClose: TNotifyEvent;
  6197.     FOnSend: TNotifyEvent;
  6198.     FOnReply: TNoteItemReply;
  6199.     FOnReplyAll: TNoteItemReplyAll;
  6200.     FOnForward: TNoteItemForward;
  6201.     FOnCustomAction: TNoteItemCustomAction;
  6202.     FOnCustomPropertyChange: TNoteItemCustomPropertyChange;
  6203.     FOnPropertyChange: TNoteItemPropertyChange;
  6204.     FIntf:        _DNoteItem;
  6205. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6206.     FProps:       TNoteItemProperties;
  6207.     function      GetServerProperties: TNoteItemProperties;
  6208. {$ENDIF}
  6209.     function      GetDefaultInterface: _DNoteItem;
  6210.   protected
  6211.     procedure InitServerData; override;
  6212.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  6213.     function  Get_Application: OutlookApplication;
  6214.     function  Get_Body: WideString;
  6215.     procedure Set_Body(const Param1: WideString);
  6216.     function  Get_Categories: WideString;
  6217.     procedure Set_Categories(const Param1: WideString);
  6218.     function  Get_Color: OlNoteColor;
  6219.     procedure Set_Color(Param1: OlNoteColor);
  6220.     function  Get_CreationTime: TDateTime;
  6221.     function  Get_EntryID: WideString;
  6222.     function  Get_GetInspector: Inspector;
  6223.     function  Get_Height: Integer;
  6224.     procedure Set_Height(Param1: Integer);
  6225.     function  Get_LastModificationTime: TDateTime;
  6226.     function  Get_Left: Integer;
  6227.     procedure Set_Left(Param1: Integer);
  6228.     function  Get_MessageClass: WideString;
  6229.     procedure Set_MessageClass(const Param1: WideString);
  6230.     function  Get_Parent: MAPIFolder;
  6231.     function  Get_Saved: WordBool;
  6232.     function  Get_Size: Integer;
  6233.     function  Get_Subject: WideString;
  6234.     function  Get_Top: Integer;
  6235.     procedure Set_Top(Param1: Integer);
  6236.     function  Get_Width: Integer;
  6237.     procedure Set_Width(Param1: Integer);
  6238.   public
  6239.     constructor Create(AOwner: TComponent); override;
  6240.     destructor  Destroy; override;
  6241.     procedure Connect; override;
  6242.     procedure ConnectTo(svrIntf: _DNoteItem);
  6243.     procedure Disconnect; override;
  6244.     procedure Close(SaveMode: OlInspectorClose);
  6245.     function  Copy: IDispatch;
  6246.     procedure Delete;
  6247.     procedure Display(Modal: OleVariant);
  6248.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  6249.     procedure Save;
  6250.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  6251.     procedure PrintOut;
  6252.     property  DefaultInterface: _DNoteItem read GetDefaultInterface;
  6253.     property Application: OutlookApplication read Get_Application;
  6254.     property CreationTime: TDateTime read Get_CreationTime;
  6255.     property EntryID: WideString read Get_EntryID;
  6256.     property GetInspector: Inspector read Get_GetInspector;
  6257.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  6258.     property Parent: MAPIFolder read Get_Parent;
  6259.     property Saved: WordBool read Get_Saved;
  6260.     property Size: Integer read Get_Size;
  6261.     property Subject: WideString read Get_Subject;
  6262.     property Body: WideString read Get_Body write Set_Body;
  6263.     property Categories: WideString read Get_Categories write Set_Categories;
  6264.     property Color: OlNoteColor read Get_Color write Set_Color;
  6265.     property Height: Integer read Get_Height write Set_Height;
  6266.     property Left: Integer read Get_Left write Set_Left;
  6267.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6268.     property Top: Integer read Get_Top write Set_Top;
  6269.     property Width: Integer read Get_Width write Set_Width;
  6270.   published
  6271. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6272.     property Server: TNoteItemProperties read GetServerProperties;
  6273. {$ENDIF}
  6274.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  6275.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  6276.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6277.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6278.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  6279.     property OnReply: TNoteItemReply read FOnReply write FOnReply;
  6280.     property OnReplyAll: TNoteItemReplyAll read FOnReplyAll write FOnReplyAll;
  6281.     property OnForward: TNoteItemForward read FOnForward write FOnForward;
  6282.     property OnCustomAction: TNoteItemCustomAction read FOnCustomAction write FOnCustomAction;
  6283.     property OnCustomPropertyChange: TNoteItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  6284.     property OnPropertyChange: TNoteItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  6285.   end;
  6286.  
  6287. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6288. // *********************************************************************//
  6289. // OLE Server Properties Proxy Class
  6290. // Server Object    : TNoteItem
  6291. // (This object is used by the IDE's Property Inspector to allow editing
  6292. //  of the properties of this server)
  6293. // *********************************************************************//
  6294.  TNoteItemProperties = class(TPersistent)
  6295.   private
  6296.     FServer:    TNoteItem;
  6297.     function    GetDefaultInterface: _DNoteItem;
  6298.     constructor Create(AServer: TNoteItem);
  6299.   protected
  6300.     function  Get_Application: OutlookApplication;
  6301.     function  Get_Body: WideString;
  6302.     procedure Set_Body(const Param1: WideString);
  6303.     function  Get_Categories: WideString;
  6304.     procedure Set_Categories(const Param1: WideString);
  6305.     function  Get_Color: OlNoteColor;
  6306.     procedure Set_Color(Param1: OlNoteColor);
  6307.     function  Get_CreationTime: TDateTime;
  6308.     function  Get_EntryID: WideString;
  6309.     function  Get_GetInspector: Inspector;
  6310.     function  Get_Height: Integer;
  6311.     procedure Set_Height(Param1: Integer);
  6312.     function  Get_LastModificationTime: TDateTime;
  6313.     function  Get_Left: Integer;
  6314.     procedure Set_Left(Param1: Integer);
  6315.     function  Get_MessageClass: WideString;
  6316.     procedure Set_MessageClass(const Param1: WideString);
  6317.     function  Get_Parent: MAPIFolder;
  6318.     function  Get_Saved: WordBool;
  6319.     function  Get_Size: Integer;
  6320.     function  Get_Subject: WideString;
  6321.     function  Get_Top: Integer;
  6322.     procedure Set_Top(Param1: Integer);
  6323.     function  Get_Width: Integer;
  6324.     procedure Set_Width(Param1: Integer);
  6325.   public
  6326.     property DefaultInterface: _DNoteItem read GetDefaultInterface;
  6327.   published
  6328.     property Body: WideString read Get_Body write Set_Body;
  6329.     property Categories: WideString read Get_Categories write Set_Categories;
  6330.     property Color: OlNoteColor read Get_Color write Set_Color;
  6331.     property Height: Integer read Get_Height write Set_Height;
  6332.     property Left: Integer read Get_Left write Set_Left;
  6333.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6334.     property Top: Integer read Get_Top write Set_Top;
  6335.     property Width: Integer read Get_Width write Set_Width;
  6336.   end;
  6337. {$ENDIF}
  6338.  
  6339.  
  6340. // *********************************************************************//
  6341. // The Class Co_OfficeDocumentItem provides a Create and CreateRemote method to          
  6342. // create instances of the default interface _DOfficeDocumentItem exposed by              
  6343. // the CoClass _OfficeDocumentItem. The functions are intended to be used by             
  6344. // clients wishing to automate the CoClass objects exposed by the         
  6345. // server of this typelibrary.                                            
  6346. // *********************************************************************//
  6347.   Co_OfficeDocumentItem = class
  6348.     class function Create: _DOfficeDocumentItem;
  6349.     class function CreateRemote(const MachineName: string): _DOfficeDocumentItem;
  6350.   end;
  6351.  
  6352. // *********************************************************************//
  6353. // The Class CoPostItem provides a Create and CreateRemote method to          
  6354. // create instances of the default interface _DPostItem exposed by              
  6355. // the CoClass PostItem. The functions are intended to be used by             
  6356. // clients wishing to automate the CoClass objects exposed by the         
  6357. // server of this typelibrary.                                            
  6358. // *********************************************************************//
  6359.   CoPostItem = class
  6360.     class function Create: _DPostItem;
  6361.     class function CreateRemote(const MachineName: string): _DPostItem;
  6362.   end;
  6363.  
  6364.   TPostItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  6365.   TPostItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  6366.   TPostItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  6367.   TPostItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;var Response: OleVariant) of object;
  6368.   TPostItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6369.   TPostItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6370.  
  6371.  
  6372. // *********************************************************************//
  6373. // OLE Server Proxy class declaration
  6374. // Server Object    : TPostItem
  6375. // Help String      : 
  6376. // Default Interface: _DPostItem
  6377. // Def. Intf. DISP? : Yes
  6378. // Event   Interface: _DItemEvents
  6379. // TypeFlags        : (2) CanCreate
  6380. // *********************************************************************//
  6381. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6382.   TPostItemProperties= class;
  6383. {$ENDIF}
  6384.   TPostItem = class(TOleServer)
  6385.   private
  6386.     FOnRead: TNotifyEvent;
  6387.     FOnWrite: TNotifyEvent;
  6388.     FOnOpen: TNotifyEvent;
  6389.     FOnClose: TNotifyEvent;
  6390.     FOnSend: TNotifyEvent;
  6391.     FOnReply: TPostItemReply;
  6392.     FOnReplyAll: TPostItemReplyAll;
  6393.     FOnForward: TPostItemForward;
  6394.     FOnCustomAction: TPostItemCustomAction;
  6395.     FOnCustomPropertyChange: TPostItemCustomPropertyChange;
  6396.     FOnPropertyChange: TPostItemPropertyChange;
  6397.     FIntf:        _DPostItem;
  6398. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6399.     FProps:       TPostItemProperties;
  6400.     function      GetServerProperties: TPostItemProperties;
  6401. {$ENDIF}
  6402.     function      GetDefaultInterface: _DPostItem;
  6403.   protected
  6404.     procedure InitServerData; override;
  6405.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  6406.     function  Get_Actions: Actions;
  6407.     function  Get_Application: OutlookApplication;
  6408.     function  Get_Attachments: Attachments;
  6409.     function  Get_BillingInformation: WideString;
  6410.     procedure Set_BillingInformation(const Param1: WideString);
  6411.     function  Get_Body: WideString;
  6412.     procedure Set_Body(const Param1: WideString);
  6413.     function  Get_Categories: WideString;
  6414.     procedure Set_Categories(const Param1: WideString);
  6415.     function  Get_Companies: WideString;
  6416.     procedure Set_Companies(const Param1: WideString);
  6417.     function  Get_CreationTime: TDateTime;
  6418.     function  Get_EntryID: WideString;
  6419.     function  Get_FormDescription: FormDescription;
  6420.     function  Get_GetInspector: Inspector;
  6421.     function  Get_Importance: OlImportance;
  6422.     procedure Set_Importance(Param1: OlImportance);
  6423.     function  Get_LastModificationTime: TDateTime;
  6424.     function  Get_MessageClass: WideString;
  6425.     procedure Set_MessageClass(const Param1: WideString);
  6426.     function  Get_Mileage: WideString;
  6427.     procedure Set_Mileage(const Param1: WideString);
  6428.     function  Get_NoAging: WordBool;
  6429.     procedure Set_NoAging(Param1: WordBool);
  6430.     function  Get_OutlookInternalVersion: WideString;
  6431.     function  Get_OutlookVersion: WideString;
  6432.     function  Get_Parent: IDispatch;
  6433.     function  Get_Saved: WordBool;
  6434.     function  Get_Sensitivity: OlSensitivity;
  6435.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6436.     function  Get_Size: Integer;
  6437.     function  Get_Subject: WideString;
  6438.     procedure Set_Subject(const Param1: WideString);
  6439.     function  Get_UnRead: WordBool;
  6440.     procedure Set_UnRead(Param1: WordBool);
  6441.     function  Get_UserProperties: UserProperties;
  6442.     function  Get_ConversationIndex: WideString;
  6443.     function  Get_ConversationTopic: WideString;
  6444.     function  Get_ExpiryTime: TDateTime;
  6445.     procedure Set_ExpiryTime(Param1: TDateTime);
  6446.     function  Get_ReceivedTime: TDateTime;
  6447.     function  Get_SenderName: WideString;
  6448.     function  Get_SentOn: TDateTime;
  6449.   public
  6450.     constructor Create(AOwner: TComponent); override;
  6451.     destructor  Destroy; override;
  6452.     procedure Connect; override;
  6453.     procedure ConnectTo(svrIntf: _DPostItem);
  6454.     procedure Disconnect; override;
  6455.     procedure Close(SaveMode: OlInspectorClose);
  6456.     function  Copy: IDispatch;
  6457.     procedure Delete;
  6458.     procedure Display(Modal: OleVariant);
  6459.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  6460.     procedure Save;
  6461.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  6462.     procedure PrintOut;
  6463.     procedure ClearConversationIndex;
  6464.     function  Forward: MailItem;
  6465.     procedure Post;
  6466.     function  Reply: MailItem;
  6467.     property  DefaultInterface: _DPostItem read GetDefaultInterface;
  6468.     property Actions: Actions read Get_Actions;
  6469.     property Application: OutlookApplication read Get_Application;
  6470.     property Attachments: Attachments read Get_Attachments;
  6471.     property CreationTime: TDateTime read Get_CreationTime;
  6472.     property EntryID: WideString read Get_EntryID;
  6473.     property FormDescription: FormDescription read Get_FormDescription;
  6474.     property GetInspector: Inspector read Get_GetInspector;
  6475.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  6476.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  6477.     property OutlookVersion: WideString read Get_OutlookVersion;
  6478.     property Parent: IDispatch read Get_Parent;
  6479.     property Saved: WordBool read Get_Saved;
  6480.     property Size: Integer read Get_Size;
  6481.     property UserProperties: UserProperties read Get_UserProperties;
  6482.     property ConversationIndex: WideString read Get_ConversationIndex;
  6483.     property ConversationTopic: WideString read Get_ConversationTopic;
  6484.     property ReceivedTime: TDateTime read Get_ReceivedTime;
  6485.     property SenderName: WideString read Get_SenderName;
  6486.     property SentOn: TDateTime read Get_SentOn;
  6487.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6488.     property Body: WideString read Get_Body write Set_Body;
  6489.     property Categories: WideString read Get_Categories write Set_Categories;
  6490.     property Companies: WideString read Get_Companies write Set_Companies;
  6491.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6492.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6493.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6494.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6495.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6496.     property Subject: WideString read Get_Subject write Set_Subject;
  6497.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6498.     property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime;
  6499.   published
  6500. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6501.     property Server: TPostItemProperties read GetServerProperties;
  6502. {$ENDIF}
  6503.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  6504.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  6505.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6506.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6507.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  6508.     property OnReply: TPostItemReply read FOnReply write FOnReply;
  6509.     property OnReplyAll: TPostItemReplyAll read FOnReplyAll write FOnReplyAll;
  6510.     property OnForward: TPostItemForward read FOnForward write FOnForward;
  6511.     property OnCustomAction: TPostItemCustomAction read FOnCustomAction write FOnCustomAction;
  6512.     property OnCustomPropertyChange: TPostItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  6513.     property OnPropertyChange: TPostItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  6514.   end;
  6515.  
  6516. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6517. // *********************************************************************//
  6518. // OLE Server Properties Proxy Class
  6519. // Server Object    : TPostItem
  6520. // (This object is used by the IDE's Property Inspector to allow editing
  6521. //  of the properties of this server)
  6522. // *********************************************************************//
  6523.  TPostItemProperties = class(TPersistent)
  6524.   private
  6525.     FServer:    TPostItem;
  6526.     function    GetDefaultInterface: _DPostItem;
  6527.     constructor Create(AServer: TPostItem);
  6528.   protected
  6529.     function  Get_Actions: Actions;
  6530.     function  Get_Application: OutlookApplication;
  6531.     function  Get_Attachments: Attachments;
  6532.     function  Get_BillingInformation: WideString;
  6533.     procedure Set_BillingInformation(const Param1: WideString);
  6534.     function  Get_Body: WideString;
  6535.     procedure Set_Body(const Param1: WideString);
  6536.     function  Get_Categories: WideString;
  6537.     procedure Set_Categories(const Param1: WideString);
  6538.     function  Get_Companies: WideString;
  6539.     procedure Set_Companies(const Param1: WideString);
  6540.     function  Get_CreationTime: TDateTime;
  6541.     function  Get_EntryID: WideString;
  6542.     function  Get_FormDescription: FormDescription;
  6543.     function  Get_GetInspector: Inspector;
  6544.     function  Get_Importance: OlImportance;
  6545.     procedure Set_Importance(Param1: OlImportance);
  6546.     function  Get_LastModificationTime: TDateTime;
  6547.     function  Get_MessageClass: WideString;
  6548.     procedure Set_MessageClass(const Param1: WideString);
  6549.     function  Get_Mileage: WideString;
  6550.     procedure Set_Mileage(const Param1: WideString);
  6551.     function  Get_NoAging: WordBool;
  6552.     procedure Set_NoAging(Param1: WordBool);
  6553.     function  Get_OutlookInternalVersion: WideString;
  6554.     function  Get_OutlookVersion: WideString;
  6555.     function  Get_Parent: IDispatch;
  6556.     function  Get_Saved: WordBool;
  6557.     function  Get_Sensitivity: OlSensitivity;
  6558.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6559.     function  Get_Size: Integer;
  6560.     function  Get_Subject: WideString;
  6561.     procedure Set_Subject(const Param1: WideString);
  6562.     function  Get_UnRead: WordBool;
  6563.     procedure Set_UnRead(Param1: WordBool);
  6564.     function  Get_UserProperties: UserProperties;
  6565.     function  Get_ConversationIndex: WideString;
  6566.     function  Get_ConversationTopic: WideString;
  6567.     function  Get_ExpiryTime: TDateTime;
  6568.     procedure Set_ExpiryTime(Param1: TDateTime);
  6569.     function  Get_ReceivedTime: TDateTime;
  6570.     function  Get_SenderName: WideString;
  6571.     function  Get_SentOn: TDateTime;
  6572.   public
  6573.     property DefaultInterface: _DPostItem read GetDefaultInterface;
  6574.   published
  6575.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6576.     property Body: WideString read Get_Body write Set_Body;
  6577.     property Categories: WideString read Get_Categories write Set_Categories;
  6578.     property Companies: WideString read Get_Companies write Set_Companies;
  6579.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6580.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6581.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6582.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6583.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6584.     property Subject: WideString read Get_Subject write Set_Subject;
  6585.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6586.     property ExpiryTime: TDateTime read Get_ExpiryTime write Set_ExpiryTime;
  6587.   end;
  6588. {$ENDIF}
  6589.  
  6590.  
  6591. // *********************************************************************//
  6592. // The Class CoRemoteItem provides a Create and CreateRemote method to          
  6593. // create instances of the default interface _DRemoteItem exposed by              
  6594. // the CoClass RemoteItem. The functions are intended to be used by             
  6595. // clients wishing to automate the CoClass objects exposed by the         
  6596. // server of this typelibrary.                                            
  6597. // *********************************************************************//
  6598.   CoRemoteItem = class
  6599.     class function Create: _DRemoteItem;
  6600.     class function CreateRemote(const MachineName: string): _DRemoteItem;
  6601.   end;
  6602.  
  6603.   TRemoteItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  6604.   TRemoteItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  6605.   TRemoteItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  6606.   TRemoteItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  6607.                                                        var Response: OleVariant) of object;
  6608.   TRemoteItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6609.   TRemoteItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6610.  
  6611.  
  6612. // *********************************************************************//
  6613. // OLE Server Proxy class declaration
  6614. // Server Object    : TRemoteItem
  6615. // Help String      : 
  6616. // Default Interface: _DRemoteItem
  6617. // Def. Intf. DISP? : Yes
  6618. // Event   Interface: _DItemEvents
  6619. // TypeFlags        : (2) CanCreate
  6620. // *********************************************************************//
  6621. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6622.   TRemoteItemProperties= class;
  6623. {$ENDIF}
  6624.   TRemoteItem = class(TOleServer)
  6625.   private
  6626.     FOnRead: TNotifyEvent;
  6627.     FOnWrite: TNotifyEvent;
  6628.     FOnOpen: TNotifyEvent;
  6629.     FOnClose: TNotifyEvent;
  6630.     FOnSend: TNotifyEvent;
  6631.     FOnReply: TRemoteItemReply;
  6632.     FOnReplyAll: TRemoteItemReplyAll;
  6633.     FOnForward: TRemoteItemForward;
  6634.     FOnCustomAction: TRemoteItemCustomAction;
  6635.     FOnCustomPropertyChange: TRemoteItemCustomPropertyChange;
  6636.     FOnPropertyChange: TRemoteItemPropertyChange;
  6637.     FIntf:        _DRemoteItem;
  6638. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6639.     FProps:       TRemoteItemProperties;
  6640.     function      GetServerProperties: TRemoteItemProperties;
  6641. {$ENDIF}
  6642.     function      GetDefaultInterface: _DRemoteItem;
  6643.   protected
  6644.     procedure InitServerData; override;
  6645.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  6646.     function  Get_Actions: Actions;
  6647.     function  Get_Application: OutlookApplication;
  6648.     function  Get_Attachments: Attachments;
  6649.     function  Get_BillingInformation: WideString;
  6650.     procedure Set_BillingInformation(const Param1: WideString);
  6651.     function  Get_Body: WideString;
  6652.     procedure Set_Body(const Param1: WideString);
  6653.     function  Get_Categories: WideString;
  6654.     procedure Set_Categories(const Param1: WideString);
  6655.     function  Get_Companies: WideString;
  6656.     procedure Set_Companies(const Param1: WideString);
  6657.     function  Get_CreationTime: TDateTime;
  6658.     function  Get_EntryID: WideString;
  6659.     function  Get_FormDescription: FormDescription;
  6660.     function  Get_GetInspector: Inspector;
  6661.     function  Get_Importance: OlImportance;
  6662.     procedure Set_Importance(Param1: OlImportance);
  6663.     function  Get_LastModificationTime: TDateTime;
  6664.     function  Get_MessageClass: WideString;
  6665.     procedure Set_MessageClass(const Param1: WideString);
  6666.     function  Get_Mileage: WideString;
  6667.     procedure Set_Mileage(const Param1: WideString);
  6668.     function  Get_NoAging: WordBool;
  6669.     procedure Set_NoAging(Param1: WordBool);
  6670.     function  Get_OutlookInternalVersion: WideString;
  6671.     function  Get_OutlookVersion: WideString;
  6672.     function  Get_Parent: IDispatch;
  6673.     function  Get_Saved: WordBool;
  6674.     function  Get_Sensitivity: OlSensitivity;
  6675.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6676.     function  Get_Size: Integer;
  6677.     function  Get_Subject: WideString;
  6678.     procedure Set_Subject(const Param1: WideString);
  6679.     function  Get_UnRead: WordBool;
  6680.     procedure Set_UnRead(Param1: WordBool);
  6681.     function  Get_UserProperties: UserProperties;
  6682.     function  Get_HasAttachment: WordBool;
  6683.     function  Get_RemoteMessageClass: WideString;
  6684.     function  Get_TransferSize: Integer;
  6685.     function  Get_TransferTime: Integer;
  6686.   public
  6687.     constructor Create(AOwner: TComponent); override;
  6688.     destructor  Destroy; override;
  6689.     procedure Connect; override;
  6690.     procedure ConnectTo(svrIntf: _DRemoteItem);
  6691.     procedure Disconnect; override;
  6692.     procedure Close(SaveMode: OlInspectorClose);
  6693.     function  Copy: IDispatch;
  6694.     procedure Delete;
  6695.     procedure Display(Modal: OleVariant);
  6696.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  6697.     procedure Save;
  6698.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  6699.     procedure PrintOut;
  6700.     property  DefaultInterface: _DRemoteItem read GetDefaultInterface;
  6701.     property Actions: Actions read Get_Actions;
  6702.     property Application: OutlookApplication read Get_Application;
  6703.     property Attachments: Attachments read Get_Attachments;
  6704.     property CreationTime: TDateTime read Get_CreationTime;
  6705.     property EntryID: WideString read Get_EntryID;
  6706.     property FormDescription: FormDescription read Get_FormDescription;
  6707.     property GetInspector: Inspector read Get_GetInspector;
  6708.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  6709.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  6710.     property OutlookVersion: WideString read Get_OutlookVersion;
  6711.     property Parent: IDispatch read Get_Parent;
  6712.     property Saved: WordBool read Get_Saved;
  6713.     property Size: Integer read Get_Size;
  6714.     property UserProperties: UserProperties read Get_UserProperties;
  6715.     property HasAttachment: WordBool read Get_HasAttachment;
  6716.     property RemoteMessageClass: WideString read Get_RemoteMessageClass;
  6717.     property TransferSize: Integer read Get_TransferSize;
  6718.     property TransferTime: Integer read Get_TransferTime;
  6719.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6720.     property Body: WideString read Get_Body write Set_Body;
  6721.     property Categories: WideString read Get_Categories write Set_Categories;
  6722.     property Companies: WideString read Get_Companies write Set_Companies;
  6723.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6724.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6725.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6726.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6727.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6728.     property Subject: WideString read Get_Subject write Set_Subject;
  6729.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6730.   published
  6731. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6732.     property Server: TRemoteItemProperties read GetServerProperties;
  6733. {$ENDIF}
  6734.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  6735.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  6736.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6737.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6738.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  6739.     property OnReply: TRemoteItemReply read FOnReply write FOnReply;
  6740.     property OnReplyAll: TRemoteItemReplyAll read FOnReplyAll write FOnReplyAll;
  6741.     property OnForward: TRemoteItemForward read FOnForward write FOnForward;
  6742.     property OnCustomAction: TRemoteItemCustomAction read FOnCustomAction write FOnCustomAction;
  6743.     property OnCustomPropertyChange: TRemoteItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  6744.     property OnPropertyChange: TRemoteItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  6745.   end;
  6746.  
  6747. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6748. // *********************************************************************//
  6749. // OLE Server Properties Proxy Class
  6750. // Server Object    : TRemoteItem
  6751. // (This object is used by the IDE's Property Inspector to allow editing
  6752. //  of the properties of this server)
  6753. // *********************************************************************//
  6754.  TRemoteItemProperties = class(TPersistent)
  6755.   private
  6756.     FServer:    TRemoteItem;
  6757.     function    GetDefaultInterface: _DRemoteItem;
  6758.     constructor Create(AServer: TRemoteItem);
  6759.   protected
  6760.     function  Get_Actions: Actions;
  6761.     function  Get_Application: OutlookApplication;
  6762.     function  Get_Attachments: Attachments;
  6763.     function  Get_BillingInformation: WideString;
  6764.     procedure Set_BillingInformation(const Param1: WideString);
  6765.     function  Get_Body: WideString;
  6766.     procedure Set_Body(const Param1: WideString);
  6767.     function  Get_Categories: WideString;
  6768.     procedure Set_Categories(const Param1: WideString);
  6769.     function  Get_Companies: WideString;
  6770.     procedure Set_Companies(const Param1: WideString);
  6771.     function  Get_CreationTime: TDateTime;
  6772.     function  Get_EntryID: WideString;
  6773.     function  Get_FormDescription: FormDescription;
  6774.     function  Get_GetInspector: Inspector;
  6775.     function  Get_Importance: OlImportance;
  6776.     procedure Set_Importance(Param1: OlImportance);
  6777.     function  Get_LastModificationTime: TDateTime;
  6778.     function  Get_MessageClass: WideString;
  6779.     procedure Set_MessageClass(const Param1: WideString);
  6780.     function  Get_Mileage: WideString;
  6781.     procedure Set_Mileage(const Param1: WideString);
  6782.     function  Get_NoAging: WordBool;
  6783.     procedure Set_NoAging(Param1: WordBool);
  6784.     function  Get_OutlookInternalVersion: WideString;
  6785.     function  Get_OutlookVersion: WideString;
  6786.     function  Get_Parent: IDispatch;
  6787.     function  Get_Saved: WordBool;
  6788.     function  Get_Sensitivity: OlSensitivity;
  6789.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6790.     function  Get_Size: Integer;
  6791.     function  Get_Subject: WideString;
  6792.     procedure Set_Subject(const Param1: WideString);
  6793.     function  Get_UnRead: WordBool;
  6794.     procedure Set_UnRead(Param1: WordBool);
  6795.     function  Get_UserProperties: UserProperties;
  6796.     function  Get_HasAttachment: WordBool;
  6797.     function  Get_RemoteMessageClass: WideString;
  6798.     function  Get_TransferSize: Integer;
  6799.     function  Get_TransferTime: Integer;
  6800.   public
  6801.     property DefaultInterface: _DRemoteItem read GetDefaultInterface;
  6802.   published
  6803.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6804.     property Body: WideString read Get_Body write Set_Body;
  6805.     property Categories: WideString read Get_Categories write Set_Categories;
  6806.     property Companies: WideString read Get_Companies write Set_Companies;
  6807.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6808.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6809.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6810.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6811.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6812.     property Subject: WideString read Get_Subject write Set_Subject;
  6813.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6814.   end;
  6815. {$ENDIF}
  6816.  
  6817.  
  6818. // *********************************************************************//
  6819. // The Class CoReportItem provides a Create and CreateRemote method to          
  6820. // create instances of the default interface _DReportItem exposed by              
  6821. // the CoClass ReportItem. The functions are intended to be used by             
  6822. // clients wishing to automate the CoClass objects exposed by the         
  6823. // server of this typelibrary.                                            
  6824. // *********************************************************************//
  6825.   CoReportItem = class
  6826.     class function Create: _DReportItem;
  6827.     class function CreateRemote(const MachineName: string): _DReportItem;
  6828.   end;
  6829.  
  6830.   TReportItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  6831.   TReportItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  6832.   TReportItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  6833.   TReportItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  6834.                                                        var Response: OleVariant) of object;
  6835.   TReportItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6836.   TReportItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  6837.  
  6838.  
  6839. // *********************************************************************//
  6840. // OLE Server Proxy class declaration
  6841. // Server Object    : TReportItem
  6842. // Help String      : 
  6843. // Default Interface: _DReportItem
  6844. // Def. Intf. DISP? : Yes
  6845. // Event   Interface: _DItemEvents
  6846. // TypeFlags        : (2) CanCreate
  6847. // *********************************************************************//
  6848. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6849.   TReportItemProperties= class;
  6850. {$ENDIF}
  6851.   TReportItem = class(TOleServer)
  6852.   private
  6853.     FOnRead: TNotifyEvent;
  6854.     FOnWrite: TNotifyEvent;
  6855.     FOnOpen: TNotifyEvent;
  6856.     FOnClose: TNotifyEvent;
  6857.     FOnSend: TNotifyEvent;
  6858.     FOnReply: TReportItemReply;
  6859.     FOnReplyAll: TReportItemReplyAll;
  6860.     FOnForward: TReportItemForward;
  6861.     FOnCustomAction: TReportItemCustomAction;
  6862.     FOnCustomPropertyChange: TReportItemCustomPropertyChange;
  6863.     FOnPropertyChange: TReportItemPropertyChange;
  6864.     FIntf:        _DReportItem;
  6865. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6866.     FProps:       TReportItemProperties;
  6867.     function      GetServerProperties: TReportItemProperties;
  6868. {$ENDIF}
  6869.     function      GetDefaultInterface: _DReportItem;
  6870.   protected
  6871.     procedure InitServerData; override;
  6872.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  6873.     function  Get_Actions: Actions;
  6874.     function  Get_Application: OutlookApplication;
  6875.     function  Get_Attachments: Attachments;
  6876.     function  Get_BillingInformation: WideString;
  6877.     procedure Set_BillingInformation(const Param1: WideString);
  6878.     function  Get_Body: WideString;
  6879.     procedure Set_Body(const Param1: WideString);
  6880.     function  Get_Categories: WideString;
  6881.     procedure Set_Categories(const Param1: WideString);
  6882.     function  Get_Companies: WideString;
  6883.     procedure Set_Companies(const Param1: WideString);
  6884.     function  Get_CreationTime: TDateTime;
  6885.     function  Get_EntryID: WideString;
  6886.     function  Get_FormDescription: FormDescription;
  6887.     function  Get_GetInspector: Inspector;
  6888.     function  Get_Importance: OlImportance;
  6889.     procedure Set_Importance(Param1: OlImportance);
  6890.     function  Get_LastModificationTime: TDateTime;
  6891.     function  Get_MessageClass: WideString;
  6892.     procedure Set_MessageClass(const Param1: WideString);
  6893.     function  Get_Mileage: WideString;
  6894.     procedure Set_Mileage(const Param1: WideString);
  6895.     function  Get_NoAging: WordBool;
  6896.     procedure Set_NoAging(Param1: WordBool);
  6897.     function  Get_OutlookInternalVersion: WideString;
  6898.     function  Get_OutlookVersion: WideString;
  6899.     function  Get_Parent: IDispatch;
  6900.     function  Get_Saved: WordBool;
  6901.     function  Get_Sensitivity: OlSensitivity;
  6902.     procedure Set_Sensitivity(Param1: OlSensitivity);
  6903.     function  Get_Size: Integer;
  6904.     function  Get_Subject: WideString;
  6905.     procedure Set_Subject(const Param1: WideString);
  6906.     function  Get_UnRead: WordBool;
  6907.     procedure Set_UnRead(Param1: WordBool);
  6908.     function  Get_UserProperties: UserProperties;
  6909.   public
  6910.     constructor Create(AOwner: TComponent); override;
  6911.     destructor  Destroy; override;
  6912.     procedure Connect; override;
  6913.     procedure ConnectTo(svrIntf: _DReportItem);
  6914.     procedure Disconnect; override;
  6915.     procedure Close(SaveMode: OlInspectorClose);
  6916.     function  Copy: IDispatch;
  6917.     procedure Delete;
  6918.     procedure Display(Modal: OleVariant);
  6919.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  6920.     procedure Save;
  6921.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  6922.     procedure PrintOut;
  6923.     property  DefaultInterface: _DReportItem read GetDefaultInterface;
  6924.     property Actions: Actions read Get_Actions;
  6925.     property Application: OutlookApplication read Get_Application;
  6926.     property Attachments: Attachments read Get_Attachments;
  6927.     property CreationTime: TDateTime read Get_CreationTime;
  6928.     property EntryID: WideString read Get_EntryID;
  6929.     property FormDescription: FormDescription read Get_FormDescription;
  6930.     property GetInspector: Inspector read Get_GetInspector;
  6931.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  6932.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  6933.     property OutlookVersion: WideString read Get_OutlookVersion;
  6934.     property Parent: IDispatch read Get_Parent;
  6935.     property Saved: WordBool read Get_Saved;
  6936.     property Size: Integer read Get_Size;
  6937.     property UserProperties: UserProperties read Get_UserProperties;
  6938.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  6939.     property Body: WideString read Get_Body write Set_Body;
  6940.     property Categories: WideString read Get_Categories write Set_Categories;
  6941.     property Companies: WideString read Get_Companies write Set_Companies;
  6942.     property Importance: OlImportance read Get_Importance write Set_Importance;
  6943.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  6944.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  6945.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  6946.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  6947.     property Subject: WideString read Get_Subject write Set_Subject;
  6948.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  6949.   published
  6950. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6951.     property Server: TReportItemProperties read GetServerProperties;
  6952. {$ENDIF}
  6953.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  6954.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  6955.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  6956.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  6957.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  6958.     property OnReply: TReportItemReply read FOnReply write FOnReply;
  6959.     property OnReplyAll: TReportItemReplyAll read FOnReplyAll write FOnReplyAll;
  6960.     property OnForward: TReportItemForward read FOnForward write FOnForward;
  6961.     property OnCustomAction: TReportItemCustomAction read FOnCustomAction write FOnCustomAction;
  6962.     property OnCustomPropertyChange: TReportItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  6963.     property OnPropertyChange: TReportItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  6964.   end;
  6965.  
  6966. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  6967. // *********************************************************************//
  6968. // OLE Server Properties Proxy Class
  6969. // Server Object    : TReportItem
  6970. // (This object is used by the IDE's Property Inspector to allow editing
  6971. //  of the properties of this server)
  6972. // *********************************************************************//
  6973.  TReportItemProperties = class(TPersistent)
  6974.   private
  6975.     FServer:    TReportItem;
  6976.     function    GetDefaultInterface: _DReportItem;
  6977.     constructor Create(AServer: TReportItem);
  6978.   protected
  6979.     function  Get_Actions: Actions;
  6980.     function  Get_Application: OutlookApplication;
  6981.     function  Get_Attachments: Attachments;
  6982.     function  Get_BillingInformation: WideString;
  6983.     procedure Set_BillingInformation(const Param1: WideString);
  6984.     function  Get_Body: WideString;
  6985.     procedure Set_Body(const Param1: WideString);
  6986.     function  Get_Categories: WideString;
  6987.     procedure Set_Categories(const Param1: WideString);
  6988.     function  Get_Companies: WideString;
  6989.     procedure Set_Companies(const Param1: WideString);
  6990.     function  Get_CreationTime: TDateTime;
  6991.     function  Get_EntryID: WideString;
  6992.     function  Get_FormDescription: FormDescription;
  6993.     function  Get_GetInspector: Inspector;
  6994.     function  Get_Importance: OlImportance;
  6995.     procedure Set_Importance(Param1: OlImportance);
  6996.     function  Get_LastModificationTime: TDateTime;
  6997.     function  Get_MessageClass: WideString;
  6998.     procedure Set_MessageClass(const Param1: WideString);
  6999.     function  Get_Mileage: WideString;
  7000.     procedure Set_Mileage(const Param1: WideString);
  7001.     function  Get_NoAging: WordBool;
  7002.     procedure Set_NoAging(Param1: WordBool);
  7003.     function  Get_OutlookInternalVersion: WideString;
  7004.     function  Get_OutlookVersion: WideString;
  7005.     function  Get_Parent: IDispatch;
  7006.     function  Get_Saved: WordBool;
  7007.     function  Get_Sensitivity: OlSensitivity;
  7008.     procedure Set_Sensitivity(Param1: OlSensitivity);
  7009.     function  Get_Size: Integer;
  7010.     function  Get_Subject: WideString;
  7011.     procedure Set_Subject(const Param1: WideString);
  7012.     function  Get_UnRead: WordBool;
  7013.     procedure Set_UnRead(Param1: WordBool);
  7014.     function  Get_UserProperties: UserProperties;
  7015.   public
  7016.     property DefaultInterface: _DReportItem read GetDefaultInterface;
  7017.   published
  7018.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  7019.     property Body: WideString read Get_Body write Set_Body;
  7020.     property Categories: WideString read Get_Categories write Set_Categories;
  7021.     property Companies: WideString read Get_Companies write Set_Companies;
  7022.     property Importance: OlImportance read Get_Importance write Set_Importance;
  7023.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  7024.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  7025.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  7026.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  7027.     property Subject: WideString read Get_Subject write Set_Subject;
  7028.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  7029.   end;
  7030. {$ENDIF}
  7031.  
  7032.  
  7033. // *********************************************************************//
  7034. // The Class CoTaskItem provides a Create and CreateRemote method to          
  7035. // create instances of the default interface _DTaskItem exposed by              
  7036. // the CoClass TaskItem. The functions are intended to be used by             
  7037. // clients wishing to automate the CoClass objects exposed by the         
  7038. // server of this typelibrary.                                            
  7039. // *********************************************************************//
  7040.   CoTaskItem = class
  7041.     class function Create: _DTaskItem;
  7042.     class function CreateRemote(const MachineName: string): _DTaskItem;
  7043.   end;
  7044.  
  7045.   TTaskItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  7046.   TTaskItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  7047.   TTaskItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  7048.   TTaskItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;var Response: OleVariant) of object;
  7049.   TTaskItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  7050.   TTaskItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  7051.  
  7052.  
  7053. // *********************************************************************//
  7054. // OLE Server Proxy class declaration
  7055. // Server Object    : TTaskItem
  7056. // Help String      : 
  7057. // Default Interface: _DTaskItem
  7058. // Def. Intf. DISP? : Yes
  7059. // Event   Interface: _DItemEvents
  7060. // TypeFlags        : (2) CanCreate
  7061. // *********************************************************************//
  7062. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7063.   TTaskItemProperties= class;
  7064. {$ENDIF}
  7065.   TTaskItem = class(TOleServer)
  7066.   private
  7067.     FOnRead: TNotifyEvent;
  7068.     FOnWrite: TNotifyEvent;
  7069.     FOnOpen: TNotifyEvent;
  7070.     FOnClose: TNotifyEvent;
  7071.     FOnSend: TNotifyEvent;
  7072.     FOnReply: TTaskItemReply;
  7073.     FOnReplyAll: TTaskItemReplyAll;
  7074.     FOnForward: TTaskItemForward;
  7075.     FOnCustomAction: TTaskItemCustomAction;
  7076.     FOnCustomPropertyChange: TTaskItemCustomPropertyChange;
  7077.     FOnPropertyChange: TTaskItemPropertyChange;
  7078.     FIntf:        _DTaskItem;
  7079. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7080.     FProps:       TTaskItemProperties;
  7081.     function      GetServerProperties: TTaskItemProperties;
  7082. {$ENDIF}
  7083.     function      GetDefaultInterface: _DTaskItem;
  7084.   protected
  7085.     procedure InitServerData; override;
  7086.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  7087.     function  Get_Actions: Actions;
  7088.     function  Get_Application: OutlookApplication;
  7089.     function  Get_Attachments: Attachments;
  7090.     function  Get_BillingInformation: WideString;
  7091.     procedure Set_BillingInformation(const Param1: WideString);
  7092.     function  Get_Body: WideString;
  7093.     procedure Set_Body(const Param1: WideString);
  7094.     function  Get_Categories: WideString;
  7095.     procedure Set_Categories(const Param1: WideString);
  7096.     function  Get_Companies: WideString;
  7097.     procedure Set_Companies(const Param1: WideString);
  7098.     function  Get_CreationTime: TDateTime;
  7099.     function  Get_EntryID: WideString;
  7100.     function  Get_FormDescription: FormDescription;
  7101.     function  Get_GetInspector: Inspector;
  7102.     function  Get_Importance: OlImportance;
  7103.     procedure Set_Importance(Param1: OlImportance);
  7104.     function  Get_LastModificationTime: TDateTime;
  7105.     function  Get_MessageClass: WideString;
  7106.     procedure Set_MessageClass(const Param1: WideString);
  7107.     function  Get_Mileage: WideString;
  7108.     procedure Set_Mileage(const Param1: WideString);
  7109.     function  Get_NoAging: WordBool;
  7110.     procedure Set_NoAging(Param1: WordBool);
  7111.     function  Get_OutlookInternalVersion: WideString;
  7112.     function  Get_OutlookVersion: WideString;
  7113.     function  Get_Parent: IDispatch;
  7114.     function  Get_Saved: WordBool;
  7115.     function  Get_Sensitivity: OlSensitivity;
  7116.     procedure Set_Sensitivity(Param1: OlSensitivity);
  7117.     function  Get_Size: Integer;
  7118.     function  Get_Subject: WideString;
  7119.     procedure Set_Subject(const Param1: WideString);
  7120.     function  Get_UnRead: WordBool;
  7121.     procedure Set_UnRead(Param1: WordBool);
  7122.     function  Get_UserProperties: UserProperties;
  7123.     function  Get_ActualWork: Integer;
  7124.     procedure Set_ActualWork(Param1: Integer);
  7125.     function  Get_CardData: WideString;
  7126.     procedure Set_CardData(const Param1: WideString);
  7127.     function  Get_Complete: WordBool;
  7128.     procedure Set_Complete(Param1: WordBool);
  7129.     function  Get_Contacts: WideString;
  7130.     procedure Set_Contacts(const Param1: WideString);
  7131.     function  Get_DateCompleted: TDateTime;
  7132.     procedure Set_DateCompleted(Param1: TDateTime);
  7133.     function  Get_DelegationState: OlTaskDelegationState;
  7134.     function  Get_Delegator: WideString;
  7135.     function  Get_DueDate: TDateTime;
  7136.     procedure Set_DueDate(Param1: TDateTime);
  7137.     function  Get_IsRecurring: WordBool;
  7138.     function  Get_Ordinal: Integer;
  7139.     procedure Set_Ordinal(Param1: Integer);
  7140.     function  Get_Owner: WideString;
  7141.     procedure Set_Owner(const Param1: WideString);
  7142.     function  Get_Ownership: OlTaskOwnership;
  7143.     function  Get_PercentComplete: Integer;
  7144.     procedure Set_PercentComplete(Param1: Integer);
  7145.     function  Get_Recipients: Recipients;
  7146.     function  Get_ReminderOverrideDefault: WordBool;
  7147.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  7148.     function  Get_ReminderPlaySound: WordBool;
  7149.     procedure Set_ReminderPlaySound(Param1: WordBool);
  7150.     function  Get_ReminderSet: WordBool;
  7151.     procedure Set_ReminderSet(Param1: WordBool);
  7152.     function  Get_ReminderSoundFile: WideString;
  7153.     procedure Set_ReminderSoundFile(const Param1: WideString);
  7154.     function  Get_ReminderTime: TDateTime;
  7155.     procedure Set_ReminderTime(Param1: TDateTime);
  7156.     function  Get_ResponseState: OlTaskResponse;
  7157.     function  Get_Role: WideString;
  7158.     procedure Set_Role(const Param1: WideString);
  7159.     function  Get_SchedulePlusPriority: WideString;
  7160.     procedure Set_SchedulePlusPriority(const Param1: WideString);
  7161.     function  Get_StartDate: TDateTime;
  7162.     procedure Set_StartDate(Param1: TDateTime);
  7163.     function  Get_Status: OlTaskStatus;
  7164.     procedure Set_Status(Param1: OlTaskStatus);
  7165.     function  Get_StatusOnCompletionRecipients: WideString;
  7166.     procedure Set_StatusOnCompletionRecipients(const Param1: WideString);
  7167.     function  Get_StatusUpdateRecipients: WideString;
  7168.     procedure Set_StatusUpdateRecipients(const Param1: WideString);
  7169.     function  Get_TeamTask: WordBool;
  7170.     procedure Set_TeamTask(Param1: WordBool);
  7171.     function  Get_TotalWork: Integer;
  7172.     procedure Set_TotalWork(Param1: Integer);
  7173.   public
  7174.     constructor Create(AOwner: TComponent); override;
  7175.     destructor  Destroy; override;
  7176.     procedure Connect; override;
  7177.     procedure ConnectTo(svrIntf: _DTaskItem);
  7178.     procedure Disconnect; override;
  7179.     procedure Close(SaveMode: OlInspectorClose);
  7180.     function  Copy: IDispatch;
  7181.     procedure Delete;
  7182.     procedure Display(Modal: OleVariant);
  7183.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  7184.     procedure Save;
  7185.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  7186.     procedure PrintOut;
  7187.     function  Assign_: TaskItem;
  7188.     procedure CancelResponseState;
  7189.     procedure ClearRecurrencePattern;
  7190.     procedure GetRecurrencePattern;
  7191.     procedure MarkComplete;
  7192.     function  Respond(Response: OlTaskResponse; fNoUI: OleVariant; fAdditionalTextDialog: OleVariant): TaskItem;
  7193.     procedure Send;
  7194.     function  SkipRecurrence: WordBool;
  7195.     function  StatusReport: IDispatch;
  7196.     property  DefaultInterface: _DTaskItem read GetDefaultInterface;
  7197.     property Actions: Actions read Get_Actions;
  7198.     property Application: OutlookApplication read Get_Application;
  7199.     property Attachments: Attachments read Get_Attachments;
  7200.     property CreationTime: TDateTime read Get_CreationTime;
  7201.     property EntryID: WideString read Get_EntryID;
  7202.     property FormDescription: FormDescription read Get_FormDescription;
  7203.     property GetInspector: Inspector read Get_GetInspector;
  7204.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  7205.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  7206.     property OutlookVersion: WideString read Get_OutlookVersion;
  7207.     property Parent: IDispatch read Get_Parent;
  7208.     property Saved: WordBool read Get_Saved;
  7209.     property Size: Integer read Get_Size;
  7210.     property UserProperties: UserProperties read Get_UserProperties;
  7211.     property DelegationState: OlTaskDelegationState read Get_DelegationState;
  7212.     property Delegator: WideString read Get_Delegator;
  7213.     property IsRecurring: WordBool read Get_IsRecurring;
  7214.     property Ownership: OlTaskOwnership read Get_Ownership;
  7215.     property Recipients: Recipients read Get_Recipients;
  7216.     property ResponseState: OlTaskResponse read Get_ResponseState;
  7217.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  7218.     property Body: WideString read Get_Body write Set_Body;
  7219.     property Categories: WideString read Get_Categories write Set_Categories;
  7220.     property Companies: WideString read Get_Companies write Set_Companies;
  7221.     property Importance: OlImportance read Get_Importance write Set_Importance;
  7222.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  7223.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  7224.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  7225.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  7226.     property Subject: WideString read Get_Subject write Set_Subject;
  7227.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  7228.     property ActualWork: Integer read Get_ActualWork write Set_ActualWork;
  7229.     property CardData: WideString read Get_CardData write Set_CardData;
  7230.     property Complete: WordBool read Get_Complete write Set_Complete;
  7231.     property Contacts: WideString read Get_Contacts write Set_Contacts;
  7232.     property DateCompleted: TDateTime read Get_DateCompleted write Set_DateCompleted;
  7233.     property DueDate: TDateTime read Get_DueDate write Set_DueDate;
  7234.     property Ordinal: Integer read Get_Ordinal write Set_Ordinal;
  7235.     property Owner: WideString read Get_Owner write Set_Owner;
  7236.     property PercentComplete: Integer read Get_PercentComplete write Set_PercentComplete;
  7237.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  7238.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  7239.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  7240.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  7241.     property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime;
  7242.     property Role: WideString read Get_Role write Set_Role;
  7243.     property SchedulePlusPriority: WideString read Get_SchedulePlusPriority write Set_SchedulePlusPriority;
  7244.     property StartDate: TDateTime read Get_StartDate write Set_StartDate;
  7245.     property Status: OlTaskStatus read Get_Status write Set_Status;
  7246.     property StatusOnCompletionRecipients: WideString read Get_StatusOnCompletionRecipients write Set_StatusOnCompletionRecipients;
  7247.     property StatusUpdateRecipients: WideString read Get_StatusUpdateRecipients write Set_StatusUpdateRecipients;
  7248.     property TeamTask: WordBool read Get_TeamTask write Set_TeamTask;
  7249.     property TotalWork: Integer read Get_TotalWork write Set_TotalWork;
  7250.   published
  7251. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7252.     property Server: TTaskItemProperties read GetServerProperties;
  7253. {$ENDIF}
  7254.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  7255.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  7256.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  7257.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  7258.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  7259.     property OnReply: TTaskItemReply read FOnReply write FOnReply;
  7260.     property OnReplyAll: TTaskItemReplyAll read FOnReplyAll write FOnReplyAll;
  7261.     property OnForward: TTaskItemForward read FOnForward write FOnForward;
  7262.     property OnCustomAction: TTaskItemCustomAction read FOnCustomAction write FOnCustomAction;
  7263.     property OnCustomPropertyChange: TTaskItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  7264.     property OnPropertyChange: TTaskItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  7265.   end;
  7266.  
  7267. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7268. // *********************************************************************//
  7269. // OLE Server Properties Proxy Class
  7270. // Server Object    : TTaskItem
  7271. // (This object is used by the IDE's Property Inspector to allow editing
  7272. //  of the properties of this server)
  7273. // *********************************************************************//
  7274.  TTaskItemProperties = class(TPersistent)
  7275.   private
  7276.     FServer:    TTaskItem;
  7277.     function    GetDefaultInterface: _DTaskItem;
  7278.     constructor Create(AServer: TTaskItem);
  7279.   protected
  7280.     function  Get_Actions: Actions;
  7281.     function  Get_Application: OutlookApplication;
  7282.     function  Get_Attachments: Attachments;
  7283.     function  Get_BillingInformation: WideString;
  7284.     procedure Set_BillingInformation(const Param1: WideString);
  7285.     function  Get_Body: WideString;
  7286.     procedure Set_Body(const Param1: WideString);
  7287.     function  Get_Categories: WideString;
  7288.     procedure Set_Categories(const Param1: WideString);
  7289.     function  Get_Companies: WideString;
  7290.     procedure Set_Companies(const Param1: WideString);
  7291.     function  Get_CreationTime: TDateTime;
  7292.     function  Get_EntryID: WideString;
  7293.     function  Get_FormDescription: FormDescription;
  7294.     function  Get_GetInspector: Inspector;
  7295.     function  Get_Importance: OlImportance;
  7296.     procedure Set_Importance(Param1: OlImportance);
  7297.     function  Get_LastModificationTime: TDateTime;
  7298.     function  Get_MessageClass: WideString;
  7299.     procedure Set_MessageClass(const Param1: WideString);
  7300.     function  Get_Mileage: WideString;
  7301.     procedure Set_Mileage(const Param1: WideString);
  7302.     function  Get_NoAging: WordBool;
  7303.     procedure Set_NoAging(Param1: WordBool);
  7304.     function  Get_OutlookInternalVersion: WideString;
  7305.     function  Get_OutlookVersion: WideString;
  7306.     function  Get_Parent: IDispatch;
  7307.     function  Get_Saved: WordBool;
  7308.     function  Get_Sensitivity: OlSensitivity;
  7309.     procedure Set_Sensitivity(Param1: OlSensitivity);
  7310.     function  Get_Size: Integer;
  7311.     function  Get_Subject: WideString;
  7312.     procedure Set_Subject(const Param1: WideString);
  7313.     function  Get_UnRead: WordBool;
  7314.     procedure Set_UnRead(Param1: WordBool);
  7315.     function  Get_UserProperties: UserProperties;
  7316.     function  Get_ActualWork: Integer;
  7317.     procedure Set_ActualWork(Param1: Integer);
  7318.     function  Get_CardData: WideString;
  7319.     procedure Set_CardData(const Param1: WideString);
  7320.     function  Get_Complete: WordBool;
  7321.     procedure Set_Complete(Param1: WordBool);
  7322.     function  Get_Contacts: WideString;
  7323.     procedure Set_Contacts(const Param1: WideString);
  7324.     function  Get_DateCompleted: TDateTime;
  7325.     procedure Set_DateCompleted(Param1: TDateTime);
  7326.     function  Get_DelegationState: OlTaskDelegationState;
  7327.     function  Get_Delegator: WideString;
  7328.     function  Get_DueDate: TDateTime;
  7329.     procedure Set_DueDate(Param1: TDateTime);
  7330.     function  Get_IsRecurring: WordBool;
  7331.     function  Get_Ordinal: Integer;
  7332.     procedure Set_Ordinal(Param1: Integer);
  7333.     function  Get_Owner: WideString;
  7334.     procedure Set_Owner(const Param1: WideString);
  7335.     function  Get_Ownership: OlTaskOwnership;
  7336.     function  Get_PercentComplete: Integer;
  7337.     procedure Set_PercentComplete(Param1: Integer);
  7338.     function  Get_Recipients: Recipients;
  7339.     function  Get_ReminderOverrideDefault: WordBool;
  7340.     procedure Set_ReminderOverrideDefault(Param1: WordBool);
  7341.     function  Get_ReminderPlaySound: WordBool;
  7342.     procedure Set_ReminderPlaySound(Param1: WordBool);
  7343.     function  Get_ReminderSet: WordBool;
  7344.     procedure Set_ReminderSet(Param1: WordBool);
  7345.     function  Get_ReminderSoundFile: WideString;
  7346.     procedure Set_ReminderSoundFile(const Param1: WideString);
  7347.     function  Get_ReminderTime: TDateTime;
  7348.     procedure Set_ReminderTime(Param1: TDateTime);
  7349.     function  Get_ResponseState: OlTaskResponse;
  7350.     function  Get_Role: WideString;
  7351.     procedure Set_Role(const Param1: WideString);
  7352.     function  Get_SchedulePlusPriority: WideString;
  7353.     procedure Set_SchedulePlusPriority(const Param1: WideString);
  7354.     function  Get_StartDate: TDateTime;
  7355.     procedure Set_StartDate(Param1: TDateTime);
  7356.     function  Get_Status: OlTaskStatus;
  7357.     procedure Set_Status(Param1: OlTaskStatus);
  7358.     function  Get_StatusOnCompletionRecipients: WideString;
  7359.     procedure Set_StatusOnCompletionRecipients(const Param1: WideString);
  7360.     function  Get_StatusUpdateRecipients: WideString;
  7361.     procedure Set_StatusUpdateRecipients(const Param1: WideString);
  7362.     function  Get_TeamTask: WordBool;
  7363.     procedure Set_TeamTask(Param1: WordBool);
  7364.     function  Get_TotalWork: Integer;
  7365.     procedure Set_TotalWork(Param1: Integer);
  7366.   public
  7367.     property DefaultInterface: _DTaskItem read GetDefaultInterface;
  7368.   published
  7369.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  7370.     property Body: WideString read Get_Body write Set_Body;
  7371.     property Categories: WideString read Get_Categories write Set_Categories;
  7372.     property Companies: WideString read Get_Companies write Set_Companies;
  7373.     property Importance: OlImportance read Get_Importance write Set_Importance;
  7374.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  7375.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  7376.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  7377.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  7378.     property Subject: WideString read Get_Subject write Set_Subject;
  7379.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  7380.     property ActualWork: Integer read Get_ActualWork write Set_ActualWork;
  7381.     property CardData: WideString read Get_CardData write Set_CardData;
  7382.     property Complete: WordBool read Get_Complete write Set_Complete;
  7383.     property Contacts: WideString read Get_Contacts write Set_Contacts;
  7384.     property DateCompleted: TDateTime read Get_DateCompleted write Set_DateCompleted;
  7385.     property DueDate: TDateTime read Get_DueDate write Set_DueDate;
  7386.     property Ordinal: Integer read Get_Ordinal write Set_Ordinal;
  7387.     property Owner: WideString read Get_Owner write Set_Owner;
  7388.     property PercentComplete: Integer read Get_PercentComplete write Set_PercentComplete;
  7389.     property ReminderOverrideDefault: WordBool read Get_ReminderOverrideDefault write Set_ReminderOverrideDefault;
  7390.     property ReminderPlaySound: WordBool read Get_ReminderPlaySound write Set_ReminderPlaySound;
  7391.     property ReminderSet: WordBool read Get_ReminderSet write Set_ReminderSet;
  7392.     property ReminderSoundFile: WideString read Get_ReminderSoundFile write Set_ReminderSoundFile;
  7393.     property ReminderTime: TDateTime read Get_ReminderTime write Set_ReminderTime;
  7394.     property Role: WideString read Get_Role write Set_Role;
  7395.     property SchedulePlusPriority: WideString read Get_SchedulePlusPriority write Set_SchedulePlusPriority;
  7396.     property StartDate: TDateTime read Get_StartDate write Set_StartDate;
  7397.     property Status: OlTaskStatus read Get_Status write Set_Status;
  7398.     property StatusOnCompletionRecipients: WideString read Get_StatusOnCompletionRecipients write Set_StatusOnCompletionRecipients;
  7399.     property StatusUpdateRecipients: WideString read Get_StatusUpdateRecipients write Set_StatusUpdateRecipients;
  7400.     property TeamTask: WordBool read Get_TeamTask write Set_TeamTask;
  7401.     property TotalWork: Integer read Get_TotalWork write Set_TotalWork;
  7402.   end;
  7403. {$ENDIF}
  7404.  
  7405.  
  7406. // *********************************************************************//
  7407. // The Class Co_TaskRequestAcceptItem provides a Create and CreateRemote method to          
  7408. // create instances of the default interface _DTaskRequestAcceptItem exposed by              
  7409. // the CoClass _TaskRequestAcceptItem. The functions are intended to be used by             
  7410. // clients wishing to automate the CoClass objects exposed by the         
  7411. // server of this typelibrary.                                            
  7412. // *********************************************************************//
  7413.   Co_TaskRequestAcceptItem = class
  7414.     class function Create: _DTaskRequestAcceptItem;
  7415.     class function CreateRemote(const MachineName: string): _DTaskRequestAcceptItem;
  7416.   end;
  7417.  
  7418. // *********************************************************************//
  7419. // The Class Co_TaskRequestDeclineItem provides a Create and CreateRemote method to          
  7420. // create instances of the default interface _DTaskRequestDeclineItem exposed by              
  7421. // the CoClass _TaskRequestDeclineItem. The functions are intended to be used by             
  7422. // clients wishing to automate the CoClass objects exposed by the         
  7423. // server of this typelibrary.                                            
  7424. // *********************************************************************//
  7425.   Co_TaskRequestDeclineItem = class
  7426.     class function Create: _DTaskRequestDeclineItem;
  7427.     class function CreateRemote(const MachineName: string): _DTaskRequestDeclineItem;
  7428.   end;
  7429.  
  7430. // *********************************************************************//
  7431. // The Class CoTaskRequestItem provides a Create and CreateRemote method to          
  7432. // create instances of the default interface _DTaskRequestItem exposed by              
  7433. // the CoClass TaskRequestItem. The functions are intended to be used by             
  7434. // clients wishing to automate the CoClass objects exposed by the         
  7435. // server of this typelibrary.                                            
  7436. // *********************************************************************//
  7437.   CoTaskRequestItem = class
  7438.     class function Create: _DTaskRequestItem;
  7439.     class function CreateRemote(const MachineName: string): _DTaskRequestItem;
  7440.   end;
  7441.  
  7442.   TTaskRequestItemReply = procedure(Sender: TObject; var Response: OleVariant) of object;
  7443.   TTaskRequestItemReplyAll = procedure(Sender: TObject; var Response: OleVariant) of object;
  7444.   TTaskRequestItemForward = procedure(Sender: TObject; var Forward: OleVariant) of object;
  7445.   TTaskRequestItemCustomAction = procedure(Sender: TObject; var Action: OleVariant;
  7446.                                                             var Response: OleVariant) of object;
  7447.   TTaskRequestItemCustomPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  7448.   TTaskRequestItemPropertyChange = procedure(Sender: TObject; var Name: OleVariant) of object;
  7449.  
  7450.  
  7451. // *********************************************************************//
  7452. // OLE Server Proxy class declaration
  7453. // Server Object    : TTaskRequestItem
  7454. // Help String      : 
  7455. // Default Interface: _DTaskRequestItem
  7456. // Def. Intf. DISP? : Yes
  7457. // Event   Interface: _DItemEvents
  7458. // TypeFlags        : (2) CanCreate
  7459. // *********************************************************************//
  7460. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7461.   TTaskRequestItemProperties= class;
  7462. {$ENDIF}
  7463.   TTaskRequestItem = class(TOleServer)
  7464.   private
  7465.     FOnRead: TNotifyEvent;
  7466.     FOnWrite: TNotifyEvent;
  7467.     FOnOpen: TNotifyEvent;
  7468.     FOnClose: TNotifyEvent;
  7469.     FOnSend: TNotifyEvent;
  7470.     FOnReply: TTaskRequestItemReply;
  7471.     FOnReplyAll: TTaskRequestItemReplyAll;
  7472.     FOnForward: TTaskRequestItemForward;
  7473.     FOnCustomAction: TTaskRequestItemCustomAction;
  7474.     FOnCustomPropertyChange: TTaskRequestItemCustomPropertyChange;
  7475.     FOnPropertyChange: TTaskRequestItemPropertyChange;
  7476.     FIntf:        _DTaskRequestItem;
  7477. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7478.     FProps:       TTaskRequestItemProperties;
  7479.     function      GetServerProperties: TTaskRequestItemProperties;
  7480. {$ENDIF}
  7481.     function      GetDefaultInterface: _DTaskRequestItem;
  7482.   protected
  7483.     procedure InitServerData; override;
  7484.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  7485.     function  Get_Actions: Actions;
  7486.     function  Get_Application: OutlookApplication;
  7487.     function  Get_Attachments: Attachments;
  7488.     function  Get_BillingInformation: WideString;
  7489.     procedure Set_BillingInformation(const Param1: WideString);
  7490.     function  Get_Body: WideString;
  7491.     procedure Set_Body(const Param1: WideString);
  7492.     function  Get_Categories: WideString;
  7493.     procedure Set_Categories(const Param1: WideString);
  7494.     function  Get_Companies: WideString;
  7495.     procedure Set_Companies(const Param1: WideString);
  7496.     function  Get_CreationTime: TDateTime;
  7497.     function  Get_EntryID: WideString;
  7498.     function  Get_FormDescription: FormDescription;
  7499.     function  Get_GetInspector: Inspector;
  7500.     function  Get_Importance: OlImportance;
  7501.     procedure Set_Importance(Param1: OlImportance);
  7502.     function  Get_LastModificationTime: TDateTime;
  7503.     function  Get_MessageClass: WideString;
  7504.     procedure Set_MessageClass(const Param1: WideString);
  7505.     function  Get_Mileage: WideString;
  7506.     procedure Set_Mileage(const Param1: WideString);
  7507.     function  Get_NoAging: WordBool;
  7508.     procedure Set_NoAging(Param1: WordBool);
  7509.     function  Get_OutlookInternalVersion: WideString;
  7510.     function  Get_OutlookVersion: WideString;
  7511.     function  Get_Parent: IDispatch;
  7512.     function  Get_Saved: WordBool;
  7513.     function  Get_Sensitivity: OlSensitivity;
  7514.     procedure Set_Sensitivity(Param1: OlSensitivity);
  7515.     function  Get_Size: Integer;
  7516.     function  Get_Subject: WideString;
  7517.     procedure Set_Subject(const Param1: WideString);
  7518.     function  Get_UnRead: WordBool;
  7519.     procedure Set_UnRead(Param1: WordBool);
  7520.     function  Get_UserProperties: UserProperties;
  7521.   public
  7522.     constructor Create(AOwner: TComponent); override;
  7523.     destructor  Destroy; override;
  7524.     procedure Connect; override;
  7525.     procedure ConnectTo(svrIntf: _DTaskRequestItem);
  7526.     procedure Disconnect; override;
  7527.     procedure Close(SaveMode: OlInspectorClose);
  7528.     function  Copy: IDispatch;
  7529.     procedure Delete;
  7530.     procedure Display(Modal: OleVariant);
  7531.     function  Move(const DestFldr: MAPIFolder): IDispatch;
  7532.     procedure Save;
  7533.     procedure SaveAs(const Path: WideString; Type_: OleVariant);
  7534.     procedure PrintOut;
  7535.     function  GetAssociatedTask(AddToTaskList: WordBool): TaskItem;
  7536.     property  DefaultInterface: _DTaskRequestItem read GetDefaultInterface;
  7537.     property Actions: Actions read Get_Actions;
  7538.     property Application: OutlookApplication read Get_Application;
  7539.     property Attachments: Attachments read Get_Attachments;
  7540.     property CreationTime: TDateTime read Get_CreationTime;
  7541.     property EntryID: WideString read Get_EntryID;
  7542.     property FormDescription: FormDescription read Get_FormDescription;
  7543.     property GetInspector: Inspector read Get_GetInspector;
  7544.     property LastModificationTime: TDateTime read Get_LastModificationTime;
  7545.     property OutlookInternalVersion: WideString read Get_OutlookInternalVersion;
  7546.     property OutlookVersion: WideString read Get_OutlookVersion;
  7547.     property Parent: IDispatch read Get_Parent;
  7548.     property Saved: WordBool read Get_Saved;
  7549.     property Size: Integer read Get_Size;
  7550.     property UserProperties: UserProperties read Get_UserProperties;
  7551.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  7552.     property Body: WideString read Get_Body write Set_Body;
  7553.     property Categories: WideString read Get_Categories write Set_Categories;
  7554.     property Companies: WideString read Get_Companies write Set_Companies;
  7555.     property Importance: OlImportance read Get_Importance write Set_Importance;
  7556.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  7557.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  7558.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  7559.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  7560.     property Subject: WideString read Get_Subject write Set_Subject;
  7561.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  7562.   published
  7563. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7564.     property Server: TTaskRequestItemProperties read GetServerProperties;
  7565. {$ENDIF}
  7566.     property OnRead: TNotifyEvent read FOnRead write FOnRead;
  7567.     property OnWrite: TNotifyEvent read FOnWrite write FOnWrite;
  7568.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  7569.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  7570.     property OnSend: TNotifyEvent read FOnSend write FOnSend;
  7571.     property OnReply: TTaskRequestItemReply read FOnReply write FOnReply;
  7572.     property OnReplyAll: TTaskRequestItemReplyAll read FOnReplyAll write FOnReplyAll;
  7573.     property OnForward: TTaskRequestItemForward read FOnForward write FOnForward;
  7574.     property OnCustomAction: TTaskRequestItemCustomAction read FOnCustomAction write FOnCustomAction;
  7575.     property OnCustomPropertyChange: TTaskRequestItemCustomPropertyChange read FOnCustomPropertyChange write FOnCustomPropertyChange;
  7576.     property OnPropertyChange: TTaskRequestItemPropertyChange read FOnPropertyChange write FOnPropertyChange;
  7577.   end;
  7578.  
  7579. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7580. // *********************************************************************//
  7581. // OLE Server Properties Proxy Class
  7582. // Server Object    : TTaskRequestItem
  7583. // (This object is used by the IDE's Property Inspector to allow editing
  7584. //  of the properties of this server)
  7585. // *********************************************************************//
  7586.  TTaskRequestItemProperties = class(TPersistent)
  7587.   private
  7588.     FServer:    TTaskRequestItem;
  7589.     function    GetDefaultInterface: _DTaskRequestItem;
  7590.     constructor Create(AServer: TTaskRequestItem);
  7591.   protected
  7592.     function  Get_Actions: Actions;
  7593.     function  Get_Application: OutlookApplication;
  7594.     function  Get_Attachments: Attachments;
  7595.     function  Get_BillingInformation: WideString;
  7596.     procedure Set_BillingInformation(const Param1: WideString);
  7597.     function  Get_Body: WideString;
  7598.     procedure Set_Body(const Param1: WideString);
  7599.     function  Get_Categories: WideString;
  7600.     procedure Set_Categories(const Param1: WideString);
  7601.     function  Get_Companies: WideString;
  7602.     procedure Set_Companies(const Param1: WideString);
  7603.     function  Get_CreationTime: TDateTime;
  7604.     function  Get_EntryID: WideString;
  7605.     function  Get_FormDescription: FormDescription;
  7606.     function  Get_GetInspector: Inspector;
  7607.     function  Get_Importance: OlImportance;
  7608.     procedure Set_Importance(Param1: OlImportance);
  7609.     function  Get_LastModificationTime: TDateTime;
  7610.     function  Get_MessageClass: WideString;
  7611.     procedure Set_MessageClass(const Param1: WideString);
  7612.     function  Get_Mileage: WideString;
  7613.     procedure Set_Mileage(const Param1: WideString);
  7614.     function  Get_NoAging: WordBool;
  7615.     procedure Set_NoAging(Param1: WordBool);
  7616.     function  Get_OutlookInternalVersion: WideString;
  7617.     function  Get_OutlookVersion: WideString;
  7618.     function  Get_Parent: IDispatch;
  7619.     function  Get_Saved: WordBool;
  7620.     function  Get_Sensitivity: OlSensitivity;
  7621.     procedure Set_Sensitivity(Param1: OlSensitivity);
  7622.     function  Get_Size: Integer;
  7623.     function  Get_Subject: WideString;
  7624.     procedure Set_Subject(const Param1: WideString);
  7625.     function  Get_UnRead: WordBool;
  7626.     procedure Set_UnRead(Param1: WordBool);
  7627.     function  Get_UserProperties: UserProperties;
  7628.   public
  7629.     property DefaultInterface: _DTaskRequestItem read GetDefaultInterface;
  7630.   published
  7631.     property BillingInformation: WideString read Get_BillingInformation write Set_BillingInformation;
  7632.     property Body: WideString read Get_Body write Set_Body;
  7633.     property Categories: WideString read Get_Categories write Set_Categories;
  7634.     property Companies: WideString read Get_Companies write Set_Companies;
  7635.     property Importance: OlImportance read Get_Importance write Set_Importance;
  7636.     property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
  7637.     property Mileage: WideString read Get_Mileage write Set_Mileage;
  7638.     property NoAging: WordBool read Get_NoAging write Set_NoAging;
  7639.     property Sensitivity: OlSensitivity read Get_Sensitivity write Set_Sensitivity;
  7640.     property Subject: WideString read Get_Subject write Set_Subject;
  7641.     property UnRead: WordBool read Get_UnRead write Set_UnRead;
  7642.   end;
  7643. {$ENDIF}
  7644.  
  7645.  
  7646. // *********************************************************************//
  7647. // The Class Co_TaskRequestUpdateItem provides a Create and CreateRemote method to          
  7648. // create instances of the default interface _DTaskRequestUpdateItem exposed by              
  7649. // the CoClass _TaskRequestUpdateItem. The functions are intended to be used by             
  7650. // clients wishing to automate the CoClass objects exposed by the         
  7651. // server of this typelibrary.                                            
  7652. // *********************************************************************//
  7653.   Co_TaskRequestUpdateItem = class
  7654.     class function Create: _DTaskRequestUpdateItem;
  7655.     class function CreateRemote(const MachineName: string): _DTaskRequestUpdateItem;
  7656.   end;
  7657.  
  7658. procedure Register;
  7659.  
  7660. implementation
  7661.  
  7662. uses ComObj;
  7663.  
  7664. class function CoOutlookApplication.Create: _DApplication;
  7665. begin
  7666.   Result := CreateComObject(CLASS_OutlookApplication) as _DApplication;
  7667. end;
  7668.  
  7669. class function CoOutlookApplication.CreateRemote(const MachineName: string): _DApplication;
  7670. begin
  7671.   Result := CreateRemoteComObject(MachineName, CLASS_OutlookApplication) as _DApplication;
  7672. end;
  7673.  
  7674. procedure TOutlookApplication.InitServerData;
  7675. const
  7676.   CServerData: TServerData = (
  7677.     ClassID:   '{0006F033-0000-0000-C000-000000000046}';
  7678.     IntfIID:   '{00063001-0000-0000-C000-000000000046}';
  7679.     EventIID:  '';
  7680.     LicenseKey: nil;
  7681.     Version: 500);
  7682. begin
  7683.   ServerData := @CServerData;
  7684. end;
  7685.  
  7686. procedure TOutlookApplication.Connect;
  7687. var
  7688.   punk: IUnknown;
  7689. begin
  7690.   if FIntf = nil then
  7691.   begin
  7692.     punk := GetServer;
  7693.     Fintf:= punk as _DApplication;
  7694.   end;
  7695. end;
  7696.  
  7697. procedure TOutlookApplication.ConnectTo(svrIntf: _DApplication);
  7698. begin
  7699.   Disconnect;
  7700.   FIntf := svrIntf;
  7701. end;
  7702.  
  7703. procedure TOutlookApplication.DisConnect;
  7704. begin
  7705.   if Fintf <> nil then
  7706.   begin
  7707.     if FAutoQuit then
  7708.       Quit();
  7709.     FIntf := nil;
  7710.   end;
  7711. end;
  7712.  
  7713. function TOutlookApplication.GetDefaultInterface: _DApplication;
  7714. begin
  7715.   if FIntf = nil then
  7716.     Connect;
  7717.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7718.   Result := FIntf;
  7719. end;
  7720.  
  7721. constructor TOutlookApplication.Create(AOwner: TComponent);
  7722. begin
  7723.   inherited Create(AOwner);
  7724. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7725.   FProps := TOutlookApplicationProperties.Create(Self);
  7726. {$ENDIF}
  7727. end;
  7728.  
  7729. destructor TOutlookApplication.Destroy;
  7730. begin
  7731. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7732.   FProps.Free;
  7733. {$ENDIF}
  7734.   inherited Destroy;
  7735. end;
  7736.  
  7737. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7738. function TOutlookApplication.GetServerProperties: TOutlookApplicationProperties;
  7739. begin
  7740.   Result := FProps;
  7741. end;
  7742. {$ENDIF}
  7743.  
  7744. function  TOutlookApplication.Get_Assistant: Assistant;
  7745. begin
  7746.   Result := DefaultInterface.Assistant;
  7747. end;
  7748.  
  7749. function  TOutlookApplication.ActiveExplorer: Explorer;
  7750. begin
  7751.   Result := DefaultInterface.ActiveExplorer;
  7752. end;
  7753.  
  7754. function  TOutlookApplication.ActiveInspector: Inspector;
  7755. begin
  7756.   Result := DefaultInterface.ActiveInspector;
  7757. end;
  7758.  
  7759. function  TOutlookApplication.CreateItem(ItemType: OlItems): IDispatch;
  7760. begin
  7761.   Result := DefaultInterface.CreateItem(ItemType);
  7762. end;
  7763.  
  7764. function  TOutlookApplication.CreateItemFromTemplate(const TemplatePath: WideString; 
  7765.                                                      InFolder: OleVariant): IDispatch;
  7766. begin
  7767.   Result := DefaultInterface.CreateItemFromTemplate(TemplatePath, InFolder);
  7768. end;
  7769.  
  7770. function  TOutlookApplication.CreateObject(const ObjectName: WideString): IDispatch;
  7771. begin
  7772.   Result := DefaultInterface.CreateObject(ObjectName);
  7773. end;
  7774.  
  7775. function  TOutlookApplication.GetNamespace(const Type_: WideString): NameSpace;
  7776. begin
  7777.   Result := DefaultInterface.GetNamespace(Type_);
  7778. end;
  7779.  
  7780. procedure TOutlookApplication.Quit;
  7781. begin
  7782.   DefaultInterface.Quit;
  7783. end;
  7784.  
  7785. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7786. constructor TOutlookApplicationProperties.Create(AServer: TOutlookApplication);
  7787. begin
  7788.   inherited Create;
  7789.   FServer := AServer;
  7790. end;
  7791.  
  7792. function TOutlookApplicationProperties.GetDefaultInterface: _DApplication;
  7793. begin
  7794.   Result := FServer.DefaultInterface;
  7795. end;
  7796.  
  7797. function  TOutlookApplicationProperties.Get_Assistant: Assistant;
  7798. begin
  7799.   Result := DefaultInterface.Assistant;
  7800. end;
  7801.  
  7802. {$ENDIF}
  7803.  
  7804. class function CoAppointmentItem.Create: _DAppointmentItem;
  7805. begin
  7806.   Result := CreateComObject(CLASS_AppointmentItem) as _DAppointmentItem;
  7807. end;
  7808.  
  7809. class function CoAppointmentItem.CreateRemote(const MachineName: string): _DAppointmentItem;
  7810. begin
  7811.   Result := CreateRemoteComObject(MachineName, CLASS_AppointmentItem) as _DAppointmentItem;
  7812. end;
  7813.  
  7814. procedure TAppointmentItem.InitServerData;
  7815. const
  7816.   CServerData: TServerData = (
  7817.     ClassID:   '{00061030-0000-0000-C000-000000000046}';
  7818.     IntfIID:   '{00063033-0000-0000-C000-000000000046}';
  7819.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  7820.     LicenseKey: nil;
  7821.     Version: 500);
  7822. begin
  7823.   ServerData := @CServerData;
  7824. end;
  7825.  
  7826. procedure TAppointmentItem.Connect;
  7827. var
  7828.   punk: IUnknown;
  7829. begin
  7830.   if FIntf = nil then
  7831.   begin
  7832.     punk := GetServer;
  7833.     ConnectEvents(punk);
  7834.     Fintf:= punk as _DAppointmentItem;
  7835.   end;
  7836. end;
  7837.  
  7838. procedure TAppointmentItem.ConnectTo(svrIntf: _DAppointmentItem);
  7839. begin
  7840.   Disconnect;
  7841.   FIntf := svrIntf;
  7842.   ConnectEvents(FIntf);
  7843. end;
  7844.  
  7845. procedure TAppointmentItem.DisConnect;
  7846. begin
  7847.   if Fintf <> nil then
  7848.   begin
  7849.     DisconnectEvents(FIntf);
  7850.     FIntf := nil;
  7851.   end;
  7852. end;
  7853.  
  7854. function TAppointmentItem.GetDefaultInterface: _DAppointmentItem;
  7855. begin
  7856.   if FIntf = nil then
  7857.     Connect;
  7858.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  7859.   Result := FIntf;
  7860. end;
  7861.  
  7862. constructor TAppointmentItem.Create(AOwner: TComponent);
  7863. begin
  7864.   inherited Create(AOwner);
  7865. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7866.   FProps := TAppointmentItemProperties.Create(Self);
  7867. {$ENDIF}
  7868. end;
  7869.  
  7870. destructor TAppointmentItem.Destroy;
  7871. begin
  7872. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7873.   FProps.Free;
  7874. {$ENDIF}
  7875.   inherited Destroy;
  7876. end;
  7877.  
  7878. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  7879. function TAppointmentItem.GetServerProperties: TAppointmentItemProperties;
  7880. begin
  7881.   Result := FProps;
  7882. end;
  7883. {$ENDIF}
  7884.  
  7885. procedure TAppointmentItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  7886. begin
  7887.   case DispID of
  7888.     -1: Exit;  // DISPID_UNKNOWN
  7889.    61441: if Assigned(FOnRead) then
  7890.             FOnRead(Self);
  7891.    61442: if Assigned(FOnWrite) then
  7892.             FOnWrite(Self);
  7893.    61443: if Assigned(FOnOpen) then
  7894.             FOnOpen(Self);
  7895.    61444: if Assigned(FOnClose) then
  7896.             FOnClose(Self);
  7897.    61445: if Assigned(FOnSend) then
  7898.             FOnSend(Self);
  7899.    62566: if Assigned(FOnReply) then
  7900.             FOnReply(Self, Params[0] (*const IDispatch*));
  7901.    62567: if Assigned(FOnReplyAll) then
  7902.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  7903.    62568: if Assigned(FOnForward) then
  7904.             FOnForward(Self, Params[0] (*const IDispatch*));
  7905.    61446: if Assigned(FOnCustomAction) then
  7906.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  7907.    61448: if Assigned(FOnCustomPropertyChange) then
  7908.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  7909.    61449: if Assigned(FOnPropertyChange) then
  7910.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  7911.   end; {case DispID}
  7912. end;
  7913.  
  7914. function  TAppointmentItem.Get_Actions: Actions;
  7915. begin
  7916.   Result := DefaultInterface.Actions;
  7917. end;
  7918.  
  7919. function  TAppointmentItem.Get_Application: OutlookApplication;
  7920. begin
  7921.   Result := DefaultInterface.Application;
  7922. end;
  7923.  
  7924. function  TAppointmentItem.Get_Attachments: Attachments;
  7925. begin
  7926.   Result := DefaultInterface.Attachments;
  7927. end;
  7928.  
  7929. function  TAppointmentItem.Get_BillingInformation: WideString;
  7930. begin
  7931.   Result := DefaultInterface.BillingInformation;
  7932. end;
  7933.  
  7934. procedure TAppointmentItem.Set_BillingInformation(const Param1: WideString);
  7935. begin
  7936.   DefaultInterface.BillingInformation := Param1;
  7937. end;
  7938.  
  7939. function  TAppointmentItem.Get_Body: WideString;
  7940. begin
  7941.   Result := DefaultInterface.Body;
  7942. end;
  7943.  
  7944. procedure TAppointmentItem.Set_Body(const Param1: WideString);
  7945. begin
  7946.   DefaultInterface.Body := Param1;
  7947. end;
  7948.  
  7949. function  TAppointmentItem.Get_Categories: WideString;
  7950. begin
  7951.   Result := DefaultInterface.Categories;
  7952. end;
  7953.  
  7954. procedure TAppointmentItem.Set_Categories(const Param1: WideString);
  7955. begin
  7956.   DefaultInterface.Categories := Param1;
  7957. end;
  7958.  
  7959. function  TAppointmentItem.Get_Companies: WideString;
  7960. begin
  7961.   Result := DefaultInterface.Companies;
  7962. end;
  7963.  
  7964. procedure TAppointmentItem.Set_Companies(const Param1: WideString);
  7965. begin
  7966.   DefaultInterface.Companies := Param1;
  7967. end;
  7968.  
  7969. function  TAppointmentItem.Get_CreationTime: TDateTime;
  7970. begin
  7971.   Result := DefaultInterface.CreationTime;
  7972. end;
  7973.  
  7974. function  TAppointmentItem.Get_EntryID: WideString;
  7975. begin
  7976.   Result := DefaultInterface.EntryID;
  7977. end;
  7978.  
  7979. function  TAppointmentItem.Get_FormDescription: FormDescription;
  7980. begin
  7981.   Result := DefaultInterface.FormDescription;
  7982. end;
  7983.  
  7984. function  TAppointmentItem.Get_GetInspector: Inspector;
  7985. begin
  7986.   Result := DefaultInterface.GetInspector;
  7987. end;
  7988.  
  7989. function  TAppointmentItem.Get_Importance: OlImportance;
  7990. begin
  7991.   Result := DefaultInterface.Importance;
  7992. end;
  7993.  
  7994. procedure TAppointmentItem.Set_Importance(Param1: OlImportance);
  7995. begin
  7996.   DefaultInterface.Importance := Param1;
  7997. end;
  7998.  
  7999. function  TAppointmentItem.Get_LastModificationTime: TDateTime;
  8000. begin
  8001.   Result := DefaultInterface.LastModificationTime;
  8002. end;
  8003.  
  8004. function  TAppointmentItem.Get_MessageClass: WideString;
  8005. begin
  8006.   Result := DefaultInterface.MessageClass;
  8007. end;
  8008.  
  8009. procedure TAppointmentItem.Set_MessageClass(const Param1: WideString);
  8010. begin
  8011.   DefaultInterface.MessageClass := Param1;
  8012. end;
  8013.  
  8014. function  TAppointmentItem.Get_Mileage: WideString;
  8015. begin
  8016.   Result := DefaultInterface.Mileage;
  8017. end;
  8018.  
  8019. procedure TAppointmentItem.Set_Mileage(const Param1: WideString);
  8020. begin
  8021.   DefaultInterface.Mileage := Param1;
  8022. end;
  8023.  
  8024. function  TAppointmentItem.Get_NoAging: WordBool;
  8025. begin
  8026.   Result := DefaultInterface.NoAging;
  8027. end;
  8028.  
  8029. procedure TAppointmentItem.Set_NoAging(Param1: WordBool);
  8030. begin
  8031.   DefaultInterface.NoAging := Param1;
  8032. end;
  8033.  
  8034. function  TAppointmentItem.Get_OutlookInternalVersion: WideString;
  8035. begin
  8036.   Result := DefaultInterface.OutlookInternalVersion;
  8037. end;
  8038.  
  8039. function  TAppointmentItem.Get_OutlookVersion: WideString;
  8040. begin
  8041.   Result := DefaultInterface.OutlookVersion;
  8042. end;
  8043.  
  8044. function  TAppointmentItem.Get_Parent: IDispatch;
  8045. begin
  8046.   Result := DefaultInterface.Parent;
  8047. end;
  8048.  
  8049. function  TAppointmentItem.Get_Saved: WordBool;
  8050. begin
  8051.   Result := DefaultInterface.Saved;
  8052. end;
  8053.  
  8054. function  TAppointmentItem.Get_Sensitivity: OlSensitivity;
  8055. begin
  8056.   Result := DefaultInterface.Sensitivity;
  8057. end;
  8058.  
  8059. procedure TAppointmentItem.Set_Sensitivity(Param1: OlSensitivity);
  8060. begin
  8061.   DefaultInterface.Sensitivity := Param1;
  8062. end;
  8063.  
  8064. function  TAppointmentItem.Get_Size: Integer;
  8065. begin
  8066.   Result := DefaultInterface.Size;
  8067. end;
  8068.  
  8069. function  TAppointmentItem.Get_Subject: WideString;
  8070. begin
  8071.   Result := DefaultInterface.Subject;
  8072. end;
  8073.  
  8074. procedure TAppointmentItem.Set_Subject(const Param1: WideString);
  8075. begin
  8076.   DefaultInterface.Subject := Param1;
  8077. end;
  8078.  
  8079. function  TAppointmentItem.Get_UnRead: WordBool;
  8080. begin
  8081.   Result := DefaultInterface.UnRead;
  8082. end;
  8083.  
  8084. procedure TAppointmentItem.Set_UnRead(Param1: WordBool);
  8085. begin
  8086.   DefaultInterface.UnRead := Param1;
  8087. end;
  8088.  
  8089. function  TAppointmentItem.Get_UserProperties: UserProperties;
  8090. begin
  8091.   Result := DefaultInterface.UserProperties;
  8092. end;
  8093.  
  8094. function  TAppointmentItem.Get_AllDayEvent: WordBool;
  8095. begin
  8096.   Result := DefaultInterface.AllDayEvent;
  8097. end;
  8098.  
  8099. procedure TAppointmentItem.Set_AllDayEvent(Param1: WordBool);
  8100. begin
  8101.   DefaultInterface.AllDayEvent := Param1;
  8102. end;
  8103.  
  8104. function  TAppointmentItem.Get_BusyStatus: OlBusyStatus;
  8105. begin
  8106.   Result := DefaultInterface.BusyStatus;
  8107. end;
  8108.  
  8109. procedure TAppointmentItem.Set_BusyStatus(Param1: OlBusyStatus);
  8110. begin
  8111.   DefaultInterface.BusyStatus := Param1;
  8112. end;
  8113.  
  8114. function  TAppointmentItem.Get_Duration: Integer;
  8115. begin
  8116.   Result := DefaultInterface.Duration;
  8117. end;
  8118.  
  8119. procedure TAppointmentItem.Set_Duration(Param1: Integer);
  8120. begin
  8121.   DefaultInterface.Duration := Param1;
  8122. end;
  8123.  
  8124. function  TAppointmentItem.Get_End_: TDateTime;
  8125. begin
  8126.   Result := DefaultInterface.End_;
  8127. end;
  8128.  
  8129. procedure TAppointmentItem.Set_End_(Param1: TDateTime);
  8130. begin
  8131.   DefaultInterface.End_ := Param1;
  8132. end;
  8133.  
  8134. function  TAppointmentItem.Get_IsRecurring: WordBool;
  8135. begin
  8136.   Result := DefaultInterface.IsRecurring;
  8137. end;
  8138.  
  8139. function  TAppointmentItem.Get_Location: WideString;
  8140. begin
  8141.   Result := DefaultInterface.Location;
  8142. end;
  8143.  
  8144. procedure TAppointmentItem.Set_Location(const Param1: WideString);
  8145. begin
  8146.   DefaultInterface.Location := Param1;
  8147. end;
  8148.  
  8149. function  TAppointmentItem.Get_MeetingStatus: OlMeetingStatus;
  8150. begin
  8151.   Result := DefaultInterface.MeetingStatus;
  8152. end;
  8153.  
  8154. procedure TAppointmentItem.Set_MeetingStatus(Param1: OlMeetingStatus);
  8155. begin
  8156.   DefaultInterface.MeetingStatus := Param1;
  8157. end;
  8158.  
  8159. function  TAppointmentItem.Get_OptionalAttendees: WideString;
  8160. begin
  8161.   Result := DefaultInterface.OptionalAttendees;
  8162. end;
  8163.  
  8164. procedure TAppointmentItem.Set_OptionalAttendees(const Param1: WideString);
  8165. begin
  8166.   DefaultInterface.OptionalAttendees := Param1;
  8167. end;
  8168.  
  8169. function  TAppointmentItem.Get_Organizer: WideString;
  8170. begin
  8171.   Result := DefaultInterface.Organizer;
  8172. end;
  8173.  
  8174. function  TAppointmentItem.Get_Recipients: Recipients;
  8175. begin
  8176.   Result := DefaultInterface.Recipients;
  8177. end;
  8178.  
  8179. function  TAppointmentItem.Get_ReminderMinutesBeforeStart: Integer;
  8180. begin
  8181.   Result := DefaultInterface.ReminderMinutesBeforeStart;
  8182. end;
  8183.  
  8184. procedure TAppointmentItem.Set_ReminderMinutesBeforeStart(Param1: Integer);
  8185. begin
  8186.   DefaultInterface.ReminderMinutesBeforeStart := Param1;
  8187. end;
  8188.  
  8189. function  TAppointmentItem.Get_ReminderOverrideDefault: WordBool;
  8190. begin
  8191.   Result := DefaultInterface.ReminderOverrideDefault;
  8192. end;
  8193.  
  8194. procedure TAppointmentItem.Set_ReminderOverrideDefault(Param1: WordBool);
  8195. begin
  8196.   DefaultInterface.ReminderOverrideDefault := Param1;
  8197. end;
  8198.  
  8199. function  TAppointmentItem.Get_ReminderPlaySound: WordBool;
  8200. begin
  8201.   Result := DefaultInterface.ReminderPlaySound;
  8202. end;
  8203.  
  8204. procedure TAppointmentItem.Set_ReminderPlaySound(Param1: WordBool);
  8205. begin
  8206.   DefaultInterface.ReminderPlaySound := Param1;
  8207. end;
  8208.  
  8209. function  TAppointmentItem.Get_ReminderSet: WordBool;
  8210. begin
  8211.   Result := DefaultInterface.ReminderSet;
  8212. end;
  8213.  
  8214. procedure TAppointmentItem.Set_ReminderSet(Param1: WordBool);
  8215. begin
  8216.   DefaultInterface.ReminderSet := Param1;
  8217. end;
  8218.  
  8219. function  TAppointmentItem.Get_ReminderSoundFile: WideString;
  8220. begin
  8221.   Result := DefaultInterface.ReminderSoundFile;
  8222. end;
  8223.  
  8224. procedure TAppointmentItem.Set_ReminderSoundFile(const Param1: WideString);
  8225. begin
  8226.   DefaultInterface.ReminderSoundFile := Param1;
  8227. end;
  8228.  
  8229. function  TAppointmentItem.Get_ReplyTime: TDateTime;
  8230. begin
  8231.   Result := DefaultInterface.ReplyTime;
  8232. end;
  8233.  
  8234. procedure TAppointmentItem.Set_ReplyTime(Param1: TDateTime);
  8235. begin
  8236.   DefaultInterface.ReplyTime := Param1;
  8237. end;
  8238.  
  8239. function  TAppointmentItem.Get_RequiredAttendees: WideString;
  8240. begin
  8241.   Result := DefaultInterface.RequiredAttendees;
  8242. end;
  8243.  
  8244. procedure TAppointmentItem.Set_RequiredAttendees(const Param1: WideString);
  8245. begin
  8246.   DefaultInterface.RequiredAttendees := Param1;
  8247. end;
  8248.  
  8249. function  TAppointmentItem.Get_Resources: WideString;
  8250. begin
  8251.   Result := DefaultInterface.Resources;
  8252. end;
  8253.  
  8254. procedure TAppointmentItem.Set_Resources(const Param1: WideString);
  8255. begin
  8256.   DefaultInterface.Resources := Param1;
  8257. end;
  8258.  
  8259. function  TAppointmentItem.Get_ResponseRequested: WordBool;
  8260. begin
  8261.   Result := DefaultInterface.ResponseRequested;
  8262. end;
  8263.  
  8264. procedure TAppointmentItem.Set_ResponseRequested(Param1: WordBool);
  8265. begin
  8266.   DefaultInterface.ResponseRequested := Param1;
  8267. end;
  8268.  
  8269. function  TAppointmentItem.Get_ResponseStatus: OlResponseStatus;
  8270. begin
  8271.   Result := DefaultInterface.ResponseStatus;
  8272. end;
  8273.  
  8274. function  TAppointmentItem.Get_Start: TDateTime;
  8275. begin
  8276.   Result := DefaultInterface.Start;
  8277. end;
  8278.  
  8279. procedure TAppointmentItem.Set_Start(Param1: TDateTime);
  8280. begin
  8281.   DefaultInterface.Start := Param1;
  8282. end;
  8283.  
  8284. procedure TAppointmentItem.Close(SaveMode: OlInspectorClose);
  8285. begin
  8286.   DefaultInterface.Close(SaveMode);
  8287. end;
  8288.  
  8289. function  TAppointmentItem.Copy: IDispatch;
  8290. begin
  8291.   Result := DefaultInterface.Copy;
  8292. end;
  8293.  
  8294. procedure TAppointmentItem.Delete;
  8295. begin
  8296.   DefaultInterface.Delete;
  8297. end;
  8298.  
  8299. procedure TAppointmentItem.Display(Modal: OleVariant);
  8300. begin
  8301.   DefaultInterface.Display(Modal);
  8302. end;
  8303.  
  8304. function  TAppointmentItem.Move(const DestFldr: MAPIFolder): IDispatch;
  8305. begin
  8306.   Result := DefaultInterface.Move(DestFldr);
  8307. end;
  8308.  
  8309. procedure TAppointmentItem.Save;
  8310. begin
  8311.   DefaultInterface.Save;
  8312. end;
  8313.  
  8314. procedure TAppointmentItem.SaveAs(const Path: WideString; Type_: OleVariant);
  8315. begin
  8316.   DefaultInterface.SaveAs(Path, Type_);
  8317. end;
  8318.  
  8319. procedure TAppointmentItem.PrintOut;
  8320. begin
  8321.   DefaultInterface.PrintOut;
  8322. end;
  8323.  
  8324. procedure TAppointmentItem.ClearRecurrencePattern;
  8325. begin
  8326.   DefaultInterface.ClearRecurrencePattern;
  8327. end;
  8328.  
  8329. function  TAppointmentItem.GetRecurrencePattern: RecurrencePattern;
  8330. begin
  8331.   Result := DefaultInterface.GetRecurrencePattern;
  8332. end;
  8333.  
  8334. function  TAppointmentItem.Respond(Response: OlMeetingResponse; fNoUI: OleVariant; 
  8335.                                    fAdditionalTextDialog: OleVariant): IDispatch;
  8336. begin
  8337.   Result := DefaultInterface.Respond(Response, fNoUI, fAdditionalTextDialog);
  8338. end;
  8339.  
  8340. procedure TAppointmentItem.Send;
  8341. begin
  8342.   DefaultInterface.Send;
  8343. end;
  8344.  
  8345. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8346. constructor TAppointmentItemProperties.Create(AServer: TAppointmentItem);
  8347. begin
  8348.   inherited Create;
  8349.   FServer := AServer;
  8350. end;
  8351.  
  8352. function TAppointmentItemProperties.GetDefaultInterface: _DAppointmentItem;
  8353. begin
  8354.   Result := FServer.DefaultInterface;
  8355. end;
  8356.  
  8357. function  TAppointmentItemProperties.Get_Actions: Actions;
  8358. begin
  8359.   Result := DefaultInterface.Actions;
  8360. end;
  8361.  
  8362. function  TAppointmentItemProperties.Get_Application: OutlookApplication;
  8363. begin
  8364.   Result := DefaultInterface.Application;
  8365. end;
  8366.  
  8367. function  TAppointmentItemProperties.Get_Attachments: Attachments;
  8368. begin
  8369.   Result := DefaultInterface.Attachments;
  8370. end;
  8371.  
  8372. function  TAppointmentItemProperties.Get_BillingInformation: WideString;
  8373. begin
  8374.   Result := DefaultInterface.BillingInformation;
  8375. end;
  8376.  
  8377. procedure TAppointmentItemProperties.Set_BillingInformation(const Param1: WideString);
  8378. begin
  8379.   DefaultInterface.BillingInformation := Param1;
  8380. end;
  8381.  
  8382. function  TAppointmentItemProperties.Get_Body: WideString;
  8383. begin
  8384.   Result := DefaultInterface.Body;
  8385. end;
  8386.  
  8387. procedure TAppointmentItemProperties.Set_Body(const Param1: WideString);
  8388. begin
  8389.   DefaultInterface.Body := Param1;
  8390. end;
  8391.  
  8392. function  TAppointmentItemProperties.Get_Categories: WideString;
  8393. begin
  8394.   Result := DefaultInterface.Categories;
  8395. end;
  8396.  
  8397. procedure TAppointmentItemProperties.Set_Categories(const Param1: WideString);
  8398. begin
  8399.   DefaultInterface.Categories := Param1;
  8400. end;
  8401.  
  8402. function  TAppointmentItemProperties.Get_Companies: WideString;
  8403. begin
  8404.   Result := DefaultInterface.Companies;
  8405. end;
  8406.  
  8407. procedure TAppointmentItemProperties.Set_Companies(const Param1: WideString);
  8408. begin
  8409.   DefaultInterface.Companies := Param1;
  8410. end;
  8411.  
  8412. function  TAppointmentItemProperties.Get_CreationTime: TDateTime;
  8413. begin
  8414.   Result := DefaultInterface.CreationTime;
  8415. end;
  8416.  
  8417. function  TAppointmentItemProperties.Get_EntryID: WideString;
  8418. begin
  8419.   Result := DefaultInterface.EntryID;
  8420. end;
  8421.  
  8422. function  TAppointmentItemProperties.Get_FormDescription: FormDescription;
  8423. begin
  8424.   Result := DefaultInterface.FormDescription;
  8425. end;
  8426.  
  8427. function  TAppointmentItemProperties.Get_GetInspector: Inspector;
  8428. begin
  8429.   Result := DefaultInterface.GetInspector;
  8430. end;
  8431.  
  8432. function  TAppointmentItemProperties.Get_Importance: OlImportance;
  8433. begin
  8434.   Result := DefaultInterface.Importance;
  8435. end;
  8436.  
  8437. procedure TAppointmentItemProperties.Set_Importance(Param1: OlImportance);
  8438. begin
  8439.   DefaultInterface.Importance := Param1;
  8440. end;
  8441.  
  8442. function  TAppointmentItemProperties.Get_LastModificationTime: TDateTime;
  8443. begin
  8444.   Result := DefaultInterface.LastModificationTime;
  8445. end;
  8446.  
  8447. function  TAppointmentItemProperties.Get_MessageClass: WideString;
  8448. begin
  8449.   Result := DefaultInterface.MessageClass;
  8450. end;
  8451.  
  8452. procedure TAppointmentItemProperties.Set_MessageClass(const Param1: WideString);
  8453. begin
  8454.   DefaultInterface.MessageClass := Param1;
  8455. end;
  8456.  
  8457. function  TAppointmentItemProperties.Get_Mileage: WideString;
  8458. begin
  8459.   Result := DefaultInterface.Mileage;
  8460. end;
  8461.  
  8462. procedure TAppointmentItemProperties.Set_Mileage(const Param1: WideString);
  8463. begin
  8464.   DefaultInterface.Mileage := Param1;
  8465. end;
  8466.  
  8467. function  TAppointmentItemProperties.Get_NoAging: WordBool;
  8468. begin
  8469.   Result := DefaultInterface.NoAging;
  8470. end;
  8471.  
  8472. procedure TAppointmentItemProperties.Set_NoAging(Param1: WordBool);
  8473. begin
  8474.   DefaultInterface.NoAging := Param1;
  8475. end;
  8476.  
  8477. function  TAppointmentItemProperties.Get_OutlookInternalVersion: WideString;
  8478. begin
  8479.   Result := DefaultInterface.OutlookInternalVersion;
  8480. end;
  8481.  
  8482. function  TAppointmentItemProperties.Get_OutlookVersion: WideString;
  8483. begin
  8484.   Result := DefaultInterface.OutlookVersion;
  8485. end;
  8486.  
  8487. function  TAppointmentItemProperties.Get_Parent: IDispatch;
  8488. begin
  8489.   Result := DefaultInterface.Parent;
  8490. end;
  8491.  
  8492. function  TAppointmentItemProperties.Get_Saved: WordBool;
  8493. begin
  8494.   Result := DefaultInterface.Saved;
  8495. end;
  8496.  
  8497. function  TAppointmentItemProperties.Get_Sensitivity: OlSensitivity;
  8498. begin
  8499.   Result := DefaultInterface.Sensitivity;
  8500. end;
  8501.  
  8502. procedure TAppointmentItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  8503. begin
  8504.   DefaultInterface.Sensitivity := Param1;
  8505. end;
  8506.  
  8507. function  TAppointmentItemProperties.Get_Size: Integer;
  8508. begin
  8509.   Result := DefaultInterface.Size;
  8510. end;
  8511.  
  8512. function  TAppointmentItemProperties.Get_Subject: WideString;
  8513. begin
  8514.   Result := DefaultInterface.Subject;
  8515. end;
  8516.  
  8517. procedure TAppointmentItemProperties.Set_Subject(const Param1: WideString);
  8518. begin
  8519.   DefaultInterface.Subject := Param1;
  8520. end;
  8521.  
  8522. function  TAppointmentItemProperties.Get_UnRead: WordBool;
  8523. begin
  8524.   Result := DefaultInterface.UnRead;
  8525. end;
  8526.  
  8527. procedure TAppointmentItemProperties.Set_UnRead(Param1: WordBool);
  8528. begin
  8529.   DefaultInterface.UnRead := Param1;
  8530. end;
  8531.  
  8532. function  TAppointmentItemProperties.Get_UserProperties: UserProperties;
  8533. begin
  8534.   Result := DefaultInterface.UserProperties;
  8535. end;
  8536.  
  8537. function  TAppointmentItemProperties.Get_AllDayEvent: WordBool;
  8538. begin
  8539.   Result := DefaultInterface.AllDayEvent;
  8540. end;
  8541.  
  8542. procedure TAppointmentItemProperties.Set_AllDayEvent(Param1: WordBool);
  8543. begin
  8544.   DefaultInterface.AllDayEvent := Param1;
  8545. end;
  8546.  
  8547. function  TAppointmentItemProperties.Get_BusyStatus: OlBusyStatus;
  8548. begin
  8549.   Result := DefaultInterface.BusyStatus;
  8550. end;
  8551.  
  8552. procedure TAppointmentItemProperties.Set_BusyStatus(Param1: OlBusyStatus);
  8553. begin
  8554.   DefaultInterface.BusyStatus := Param1;
  8555. end;
  8556.  
  8557. function  TAppointmentItemProperties.Get_Duration: Integer;
  8558. begin
  8559.   Result := DefaultInterface.Duration;
  8560. end;
  8561.  
  8562. procedure TAppointmentItemProperties.Set_Duration(Param1: Integer);
  8563. begin
  8564.   DefaultInterface.Duration := Param1;
  8565. end;
  8566.  
  8567. function  TAppointmentItemProperties.Get_End_: TDateTime;
  8568. begin
  8569.   Result := DefaultInterface.End_;
  8570. end;
  8571.  
  8572. procedure TAppointmentItemProperties.Set_End_(Param1: TDateTime);
  8573. begin
  8574.   DefaultInterface.End_ := Param1;
  8575. end;
  8576.  
  8577. function  TAppointmentItemProperties.Get_IsRecurring: WordBool;
  8578. begin
  8579.   Result := DefaultInterface.IsRecurring;
  8580. end;
  8581.  
  8582. function  TAppointmentItemProperties.Get_Location: WideString;
  8583. begin
  8584.   Result := DefaultInterface.Location;
  8585. end;
  8586.  
  8587. procedure TAppointmentItemProperties.Set_Location(const Param1: WideString);
  8588. begin
  8589.   DefaultInterface.Location := Param1;
  8590. end;
  8591.  
  8592. function  TAppointmentItemProperties.Get_MeetingStatus: OlMeetingStatus;
  8593. begin
  8594.   Result := DefaultInterface.MeetingStatus;
  8595. end;
  8596.  
  8597. procedure TAppointmentItemProperties.Set_MeetingStatus(Param1: OlMeetingStatus);
  8598. begin
  8599.   DefaultInterface.MeetingStatus := Param1;
  8600. end;
  8601.  
  8602. function  TAppointmentItemProperties.Get_OptionalAttendees: WideString;
  8603. begin
  8604.   Result := DefaultInterface.OptionalAttendees;
  8605. end;
  8606.  
  8607. procedure TAppointmentItemProperties.Set_OptionalAttendees(const Param1: WideString);
  8608. begin
  8609.   DefaultInterface.OptionalAttendees := Param1;
  8610. end;
  8611.  
  8612. function  TAppointmentItemProperties.Get_Organizer: WideString;
  8613. begin
  8614.   Result := DefaultInterface.Organizer;
  8615. end;
  8616.  
  8617. function  TAppointmentItemProperties.Get_Recipients: Recipients;
  8618. begin
  8619.   Result := DefaultInterface.Recipients;
  8620. end;
  8621.  
  8622. function  TAppointmentItemProperties.Get_ReminderMinutesBeforeStart: Integer;
  8623. begin
  8624.   Result := DefaultInterface.ReminderMinutesBeforeStart;
  8625. end;
  8626.  
  8627. procedure TAppointmentItemProperties.Set_ReminderMinutesBeforeStart(Param1: Integer);
  8628. begin
  8629.   DefaultInterface.ReminderMinutesBeforeStart := Param1;
  8630. end;
  8631.  
  8632. function  TAppointmentItemProperties.Get_ReminderOverrideDefault: WordBool;
  8633. begin
  8634.   Result := DefaultInterface.ReminderOverrideDefault;
  8635. end;
  8636.  
  8637. procedure TAppointmentItemProperties.Set_ReminderOverrideDefault(Param1: WordBool);
  8638. begin
  8639.   DefaultInterface.ReminderOverrideDefault := Param1;
  8640. end;
  8641.  
  8642. function  TAppointmentItemProperties.Get_ReminderPlaySound: WordBool;
  8643. begin
  8644.   Result := DefaultInterface.ReminderPlaySound;
  8645. end;
  8646.  
  8647. procedure TAppointmentItemProperties.Set_ReminderPlaySound(Param1: WordBool);
  8648. begin
  8649.   DefaultInterface.ReminderPlaySound := Param1;
  8650. end;
  8651.  
  8652. function  TAppointmentItemProperties.Get_ReminderSet: WordBool;
  8653. begin
  8654.   Result := DefaultInterface.ReminderSet;
  8655. end;
  8656.  
  8657. procedure TAppointmentItemProperties.Set_ReminderSet(Param1: WordBool);
  8658. begin
  8659.   DefaultInterface.ReminderSet := Param1;
  8660. end;
  8661.  
  8662. function  TAppointmentItemProperties.Get_ReminderSoundFile: WideString;
  8663. begin
  8664.   Result := DefaultInterface.ReminderSoundFile;
  8665. end;
  8666.  
  8667. procedure TAppointmentItemProperties.Set_ReminderSoundFile(const Param1: WideString);
  8668. begin
  8669.   DefaultInterface.ReminderSoundFile := Param1;
  8670. end;
  8671.  
  8672. function  TAppointmentItemProperties.Get_ReplyTime: TDateTime;
  8673. begin
  8674.   Result := DefaultInterface.ReplyTime;
  8675. end;
  8676.  
  8677. procedure TAppointmentItemProperties.Set_ReplyTime(Param1: TDateTime);
  8678. begin
  8679.   DefaultInterface.ReplyTime := Param1;
  8680. end;
  8681.  
  8682. function  TAppointmentItemProperties.Get_RequiredAttendees: WideString;
  8683. begin
  8684.   Result := DefaultInterface.RequiredAttendees;
  8685. end;
  8686.  
  8687. procedure TAppointmentItemProperties.Set_RequiredAttendees(const Param1: WideString);
  8688. begin
  8689.   DefaultInterface.RequiredAttendees := Param1;
  8690. end;
  8691.  
  8692. function  TAppointmentItemProperties.Get_Resources: WideString;
  8693. begin
  8694.   Result := DefaultInterface.Resources;
  8695. end;
  8696.  
  8697. procedure TAppointmentItemProperties.Set_Resources(const Param1: WideString);
  8698. begin
  8699.   DefaultInterface.Resources := Param1;
  8700. end;
  8701.  
  8702. function  TAppointmentItemProperties.Get_ResponseRequested: WordBool;
  8703. begin
  8704.   Result := DefaultInterface.ResponseRequested;
  8705. end;
  8706.  
  8707. procedure TAppointmentItemProperties.Set_ResponseRequested(Param1: WordBool);
  8708. begin
  8709.   DefaultInterface.ResponseRequested := Param1;
  8710. end;
  8711.  
  8712. function  TAppointmentItemProperties.Get_ResponseStatus: OlResponseStatus;
  8713. begin
  8714.   Result := DefaultInterface.ResponseStatus;
  8715. end;
  8716.  
  8717. function  TAppointmentItemProperties.Get_Start: TDateTime;
  8718. begin
  8719.   Result := DefaultInterface.Start;
  8720. end;
  8721.  
  8722. procedure TAppointmentItemProperties.Set_Start(Param1: TDateTime);
  8723. begin
  8724.   DefaultInterface.Start := Param1;
  8725. end;
  8726.  
  8727. {$ENDIF}
  8728.  
  8729. class function CoContactItem.Create: _DContactItem;
  8730. begin
  8731.   Result := CreateComObject(CLASS_ContactItem) as _DContactItem;
  8732. end;
  8733.  
  8734. class function CoContactItem.CreateRemote(const MachineName: string): _DContactItem;
  8735. begin
  8736.   Result := CreateRemoteComObject(MachineName, CLASS_ContactItem) as _DContactItem;
  8737. end;
  8738.  
  8739. procedure TContactItem.InitServerData;
  8740. const
  8741.   CServerData: TServerData = (
  8742.     ClassID:   '{00061031-0000-0000-C000-000000000046}';
  8743.     IntfIID:   '{00063021-0000-0000-C000-000000000046}';
  8744.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  8745.     LicenseKey: nil;
  8746.     Version: 500);
  8747. begin
  8748.   ServerData := @CServerData;
  8749. end;
  8750.  
  8751. procedure TContactItem.Connect;
  8752. var
  8753.   punk: IUnknown;
  8754. begin
  8755.   if FIntf = nil then
  8756.   begin
  8757.     punk := GetServer;
  8758.     ConnectEvents(punk);
  8759.     Fintf:= punk as _DContactItem;
  8760.   end;
  8761. end;
  8762.  
  8763. procedure TContactItem.ConnectTo(svrIntf: _DContactItem);
  8764. begin
  8765.   Disconnect;
  8766.   FIntf := svrIntf;
  8767.   ConnectEvents(FIntf);
  8768. end;
  8769.  
  8770. procedure TContactItem.DisConnect;
  8771. begin
  8772.   if Fintf <> nil then
  8773.   begin
  8774.     DisconnectEvents(FIntf);
  8775.     FIntf := nil;
  8776.   end;
  8777. end;
  8778.  
  8779. function TContactItem.GetDefaultInterface: _DContactItem;
  8780. begin
  8781.   if FIntf = nil then
  8782.     Connect;
  8783.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  8784.   Result := FIntf;
  8785. end;
  8786.  
  8787. constructor TContactItem.Create(AOwner: TComponent);
  8788. begin
  8789.   inherited Create(AOwner);
  8790. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8791.   FProps := TContactItemProperties.Create(Self);
  8792. {$ENDIF}
  8793. end;
  8794.  
  8795. destructor TContactItem.Destroy;
  8796. begin
  8797. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8798.   FProps.Free;
  8799. {$ENDIF}
  8800.   inherited Destroy;
  8801. end;
  8802.  
  8803. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  8804. function TContactItem.GetServerProperties: TContactItemProperties;
  8805. begin
  8806.   Result := FProps;
  8807. end;
  8808. {$ENDIF}
  8809.  
  8810. procedure TContactItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  8811. begin
  8812.   case DispID of
  8813.     -1: Exit;  // DISPID_UNKNOWN
  8814.    61441: if Assigned(FOnRead) then
  8815.             FOnRead(Self);
  8816.    61442: if Assigned(FOnWrite) then
  8817.             FOnWrite(Self);
  8818.    61443: if Assigned(FOnOpen) then
  8819.             FOnOpen(Self);
  8820.    61444: if Assigned(FOnClose) then
  8821.             FOnClose(Self);
  8822.    61445: if Assigned(FOnSend) then
  8823.             FOnSend(Self);
  8824.    62566: if Assigned(FOnReply) then
  8825.             FOnReply(Self, Params[0] (*const IDispatch*));
  8826.    62567: if Assigned(FOnReplyAll) then
  8827.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  8828.    62568: if Assigned(FOnForward) then
  8829.             FOnForward(Self, Params[0] (*const IDispatch*));
  8830.    61446: if Assigned(FOnCustomAction) then
  8831.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  8832.    61448: if Assigned(FOnCustomPropertyChange) then
  8833.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  8834.    61449: if Assigned(FOnPropertyChange) then
  8835.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  8836.   end; {case DispID}
  8837. end;
  8838.  
  8839. function  TContactItem.Get_Actions: Actions;
  8840. begin
  8841.   Result := DefaultInterface.Actions;
  8842. end;
  8843.  
  8844. function  TContactItem.Get_Application: OutlookApplication;
  8845. begin
  8846.   Result := DefaultInterface.Application;
  8847. end;
  8848.  
  8849. function  TContactItem.Get_Attachments: Attachments;
  8850. begin
  8851.   Result := DefaultInterface.Attachments;
  8852. end;
  8853.  
  8854. function  TContactItem.Get_BillingInformation: WideString;
  8855. begin
  8856.   Result := DefaultInterface.BillingInformation;
  8857. end;
  8858.  
  8859. procedure TContactItem.Set_BillingInformation(const Param1: WideString);
  8860. begin
  8861.   DefaultInterface.BillingInformation := Param1;
  8862. end;
  8863.  
  8864. function  TContactItem.Get_Body: WideString;
  8865. begin
  8866.   Result := DefaultInterface.Body;
  8867. end;
  8868.  
  8869. procedure TContactItem.Set_Body(const Param1: WideString);
  8870. begin
  8871.   DefaultInterface.Body := Param1;
  8872. end;
  8873.  
  8874. function  TContactItem.Get_Categories: WideString;
  8875. begin
  8876.   Result := DefaultInterface.Categories;
  8877. end;
  8878.  
  8879. procedure TContactItem.Set_Categories(const Param1: WideString);
  8880. begin
  8881.   DefaultInterface.Categories := Param1;
  8882. end;
  8883.  
  8884. function  TContactItem.Get_Companies: WideString;
  8885. begin
  8886.   Result := DefaultInterface.Companies;
  8887. end;
  8888.  
  8889. procedure TContactItem.Set_Companies(const Param1: WideString);
  8890. begin
  8891.   DefaultInterface.Companies := Param1;
  8892. end;
  8893.  
  8894. function  TContactItem.Get_CreationTime: TDateTime;
  8895. begin
  8896.   Result := DefaultInterface.CreationTime;
  8897. end;
  8898.  
  8899. function  TContactItem.Get_EntryID: WideString;
  8900. begin
  8901.   Result := DefaultInterface.EntryID;
  8902. end;
  8903.  
  8904. function  TContactItem.Get_FormDescription: FormDescription;
  8905. begin
  8906.   Result := DefaultInterface.FormDescription;
  8907. end;
  8908.  
  8909. function  TContactItem.Get_GetInspector: Inspector;
  8910. begin
  8911.   Result := DefaultInterface.GetInspector;
  8912. end;
  8913.  
  8914. function  TContactItem.Get_Importance: OlImportance;
  8915. begin
  8916.   Result := DefaultInterface.Importance;
  8917. end;
  8918.  
  8919. procedure TContactItem.Set_Importance(Param1: OlImportance);
  8920. begin
  8921.   DefaultInterface.Importance := Param1;
  8922. end;
  8923.  
  8924. function  TContactItem.Get_LastModificationTime: TDateTime;
  8925. begin
  8926.   Result := DefaultInterface.LastModificationTime;
  8927. end;
  8928.  
  8929. function  TContactItem.Get_MessageClass: WideString;
  8930. begin
  8931.   Result := DefaultInterface.MessageClass;
  8932. end;
  8933.  
  8934. procedure TContactItem.Set_MessageClass(const Param1: WideString);
  8935. begin
  8936.   DefaultInterface.MessageClass := Param1;
  8937. end;
  8938.  
  8939. function  TContactItem.Get_Mileage: WideString;
  8940. begin
  8941.   Result := DefaultInterface.Mileage;
  8942. end;
  8943.  
  8944. procedure TContactItem.Set_Mileage(const Param1: WideString);
  8945. begin
  8946.   DefaultInterface.Mileage := Param1;
  8947. end;
  8948.  
  8949. function  TContactItem.Get_NoAging: WordBool;
  8950. begin
  8951.   Result := DefaultInterface.NoAging;
  8952. end;
  8953.  
  8954. procedure TContactItem.Set_NoAging(Param1: WordBool);
  8955. begin
  8956.   DefaultInterface.NoAging := Param1;
  8957. end;
  8958.  
  8959. function  TContactItem.Get_OutlookInternalVersion: WideString;
  8960. begin
  8961.   Result := DefaultInterface.OutlookInternalVersion;
  8962. end;
  8963.  
  8964. function  TContactItem.Get_OutlookVersion: WideString;
  8965. begin
  8966.   Result := DefaultInterface.OutlookVersion;
  8967. end;
  8968.  
  8969. function  TContactItem.Get_Parent: IDispatch;
  8970. begin
  8971.   Result := DefaultInterface.Parent;
  8972. end;
  8973.  
  8974. function  TContactItem.Get_Saved: WordBool;
  8975. begin
  8976.   Result := DefaultInterface.Saved;
  8977. end;
  8978.  
  8979. function  TContactItem.Get_Sensitivity: OlSensitivity;
  8980. begin
  8981.   Result := DefaultInterface.Sensitivity;
  8982. end;
  8983.  
  8984. procedure TContactItem.Set_Sensitivity(Param1: OlSensitivity);
  8985. begin
  8986.   DefaultInterface.Sensitivity := Param1;
  8987. end;
  8988.  
  8989. function  TContactItem.Get_Size: Integer;
  8990. begin
  8991.   Result := DefaultInterface.Size;
  8992. end;
  8993.  
  8994. function  TContactItem.Get_Subject: WideString;
  8995. begin
  8996.   Result := DefaultInterface.Subject;
  8997. end;
  8998.  
  8999. procedure TContactItem.Set_Subject(const Param1: WideString);
  9000. begin
  9001.   DefaultInterface.Subject := Param1;
  9002. end;
  9003.  
  9004. function  TContactItem.Get_UnRead: WordBool;
  9005. begin
  9006.   Result := DefaultInterface.UnRead;
  9007. end;
  9008.  
  9009. procedure TContactItem.Set_UnRead(Param1: WordBool);
  9010. begin
  9011.   DefaultInterface.UnRead := Param1;
  9012. end;
  9013.  
  9014. function  TContactItem.Get_UserProperties: UserProperties;
  9015. begin
  9016.   Result := DefaultInterface.UserProperties;
  9017. end;
  9018.  
  9019. function  TContactItem.Get_Account: WideString;
  9020. begin
  9021.   Result := DefaultInterface.Account;
  9022. end;
  9023.  
  9024. procedure TContactItem.Set_Account(const Param1: WideString);
  9025. begin
  9026.   DefaultInterface.Account := Param1;
  9027. end;
  9028.  
  9029. function  TContactItem.Get_Anniversary: TDateTime;
  9030. begin
  9031.   Result := DefaultInterface.Anniversary;
  9032. end;
  9033.  
  9034. procedure TContactItem.Set_Anniversary(Param1: TDateTime);
  9035. begin
  9036.   DefaultInterface.Anniversary := Param1;
  9037. end;
  9038.  
  9039. function  TContactItem.Get_AssistantName: WideString;
  9040. begin
  9041.   Result := DefaultInterface.AssistantName;
  9042. end;
  9043.  
  9044. procedure TContactItem.Set_AssistantName(const Param1: WideString);
  9045. begin
  9046.   DefaultInterface.AssistantName := Param1;
  9047. end;
  9048.  
  9049. function  TContactItem.Get_AssistantTelephoneNumber: WideString;
  9050. begin
  9051.   Result := DefaultInterface.AssistantTelephoneNumber;
  9052. end;
  9053.  
  9054. procedure TContactItem.Set_AssistantTelephoneNumber(const Param1: WideString);
  9055. begin
  9056.   DefaultInterface.AssistantTelephoneNumber := Param1;
  9057. end;
  9058.  
  9059. function  TContactItem.Get_Birthday: TDateTime;
  9060. begin
  9061.   Result := DefaultInterface.Birthday;
  9062. end;
  9063.  
  9064. procedure TContactItem.Set_Birthday(Param1: TDateTime);
  9065. begin
  9066.   DefaultInterface.Birthday := Param1;
  9067. end;
  9068.  
  9069. function  TContactItem.Get_Business2TelephoneNumber: WideString;
  9070. begin
  9071.   Result := DefaultInterface.Business2TelephoneNumber;
  9072. end;
  9073.  
  9074. procedure TContactItem.Set_Business2TelephoneNumber(const Param1: WideString);
  9075. begin
  9076.   DefaultInterface.Business2TelephoneNumber := Param1;
  9077. end;
  9078.  
  9079. function  TContactItem.Get_BusinessAddress: WideString;
  9080. begin
  9081.   Result := DefaultInterface.BusinessAddress;
  9082. end;
  9083.  
  9084. procedure TContactItem.Set_BusinessAddress(const Param1: WideString);
  9085. begin
  9086.   DefaultInterface.BusinessAddress := Param1;
  9087. end;
  9088.  
  9089. function  TContactItem.Get_BusinessAddressCity: WideString;
  9090. begin
  9091.   Result := DefaultInterface.BusinessAddressCity;
  9092. end;
  9093.  
  9094. procedure TContactItem.Set_BusinessAddressCity(const Param1: WideString);
  9095. begin
  9096.   DefaultInterface.BusinessAddressCity := Param1;
  9097. end;
  9098.  
  9099. function  TContactItem.Get_BusinessAddressCountry: WideString;
  9100. begin
  9101.   Result := DefaultInterface.BusinessAddressCountry;
  9102. end;
  9103.  
  9104. procedure TContactItem.Set_BusinessAddressCountry(const Param1: WideString);
  9105. begin
  9106.   DefaultInterface.BusinessAddressCountry := Param1;
  9107. end;
  9108.  
  9109. function  TContactItem.Get_BusinessAddressPostalCode: WideString;
  9110. begin
  9111.   Result := DefaultInterface.BusinessAddressPostalCode;
  9112. end;
  9113.  
  9114. procedure TContactItem.Set_BusinessAddressPostalCode(const Param1: WideString);
  9115. begin
  9116.   DefaultInterface.BusinessAddressPostalCode := Param1;
  9117. end;
  9118.  
  9119. function  TContactItem.Get_BusinessAddressPostOfficeBox: WideString;
  9120. begin
  9121.   Result := DefaultInterface.BusinessAddressPostOfficeBox;
  9122. end;
  9123.  
  9124. procedure TContactItem.Set_BusinessAddressPostOfficeBox(const Param1: WideString);
  9125. begin
  9126.   DefaultInterface.BusinessAddressPostOfficeBox := Param1;
  9127. end;
  9128.  
  9129. function  TContactItem.Get_BusinessAddressState: WideString;
  9130. begin
  9131.   Result := DefaultInterface.BusinessAddressState;
  9132. end;
  9133.  
  9134. procedure TContactItem.Set_BusinessAddressState(const Param1: WideString);
  9135. begin
  9136.   DefaultInterface.BusinessAddressState := Param1;
  9137. end;
  9138.  
  9139. function  TContactItem.Get_BusinessAddressStreet: WideString;
  9140. begin
  9141.   Result := DefaultInterface.BusinessAddressStreet;
  9142. end;
  9143.  
  9144. procedure TContactItem.Set_BusinessAddressStreet(const Param1: WideString);
  9145. begin
  9146.   DefaultInterface.BusinessAddressStreet := Param1;
  9147. end;
  9148.  
  9149. function  TContactItem.Get_BusinessFaxNumber: WideString;
  9150. begin
  9151.   Result := DefaultInterface.BusinessFaxNumber;
  9152. end;
  9153.  
  9154. procedure TContactItem.Set_BusinessFaxNumber(const Param1: WideString);
  9155. begin
  9156.   DefaultInterface.BusinessFaxNumber := Param1;
  9157. end;
  9158.  
  9159. function  TContactItem.Get_BusinessHomePage: WideString;
  9160. begin
  9161.   Result := DefaultInterface.BusinessHomePage;
  9162. end;
  9163.  
  9164. procedure TContactItem.Set_BusinessHomePage(const Param1: WideString);
  9165. begin
  9166.   DefaultInterface.BusinessHomePage := Param1;
  9167. end;
  9168.  
  9169. function  TContactItem.Get_BusinessTelephoneNumber: WideString;
  9170. begin
  9171.   Result := DefaultInterface.BusinessTelephoneNumber;
  9172. end;
  9173.  
  9174. procedure TContactItem.Set_BusinessTelephoneNumber(const Param1: WideString);
  9175. begin
  9176.   DefaultInterface.BusinessTelephoneNumber := Param1;
  9177. end;
  9178.  
  9179. function  TContactItem.Get_CallbackTelephoneNumber: WideString;
  9180. begin
  9181.   Result := DefaultInterface.CallbackTelephoneNumber;
  9182. end;
  9183.  
  9184. procedure TContactItem.Set_CallbackTelephoneNumber(const Param1: WideString);
  9185. begin
  9186.   DefaultInterface.CallbackTelephoneNumber := Param1;
  9187. end;
  9188.  
  9189. function  TContactItem.Get_CarTelephoneNumber: WideString;
  9190. begin
  9191.   Result := DefaultInterface.CarTelephoneNumber;
  9192. end;
  9193.  
  9194. procedure TContactItem.Set_CarTelephoneNumber(const Param1: WideString);
  9195. begin
  9196.   DefaultInterface.CarTelephoneNumber := Param1;
  9197. end;
  9198.  
  9199. function  TContactItem.Get_Children: WideString;
  9200. begin
  9201.   Result := DefaultInterface.Children;
  9202. end;
  9203.  
  9204. procedure TContactItem.Set_Children(const Param1: WideString);
  9205. begin
  9206.   DefaultInterface.Children := Param1;
  9207. end;
  9208.  
  9209. function  TContactItem.Get_CompanyAndFullName: WideString;
  9210. begin
  9211.   Result := DefaultInterface.CompanyAndFullName;
  9212. end;
  9213.  
  9214. function  TContactItem.Get_CompanyMainTelephoneNumber: WideString;
  9215. begin
  9216.   Result := DefaultInterface.CompanyMainTelephoneNumber;
  9217. end;
  9218.  
  9219. procedure TContactItem.Set_CompanyMainTelephoneNumber(const Param1: WideString);
  9220. begin
  9221.   DefaultInterface.CompanyMainTelephoneNumber := Param1;
  9222. end;
  9223.  
  9224. function  TContactItem.Get_CompanyName: WideString;
  9225. begin
  9226.   Result := DefaultInterface.CompanyName;
  9227. end;
  9228.  
  9229. procedure TContactItem.Set_CompanyName(const Param1: WideString);
  9230. begin
  9231.   DefaultInterface.CompanyName := Param1;
  9232. end;
  9233.  
  9234. function  TContactItem.Get_ComputerNetworkName: WideString;
  9235. begin
  9236.   Result := DefaultInterface.ComputerNetworkName;
  9237. end;
  9238.  
  9239. procedure TContactItem.Set_ComputerNetworkName(const Param1: WideString);
  9240. begin
  9241.   DefaultInterface.ComputerNetworkName := Param1;
  9242. end;
  9243.  
  9244. function  TContactItem.Get_CustomerID: WideString;
  9245. begin
  9246.   Result := DefaultInterface.CustomerID;
  9247. end;
  9248.  
  9249. procedure TContactItem.Set_CustomerID(const Param1: WideString);
  9250. begin
  9251.   DefaultInterface.CustomerID := Param1;
  9252. end;
  9253.  
  9254. function  TContactItem.Get_Department: WideString;
  9255. begin
  9256.   Result := DefaultInterface.Department;
  9257. end;
  9258.  
  9259. procedure TContactItem.Set_Department(const Param1: WideString);
  9260. begin
  9261.   DefaultInterface.Department := Param1;
  9262. end;
  9263.  
  9264. function  TContactItem.Get_Email1Address: WideString;
  9265. begin
  9266.   Result := DefaultInterface.Email1Address;
  9267. end;
  9268.  
  9269. procedure TContactItem.Set_Email1Address(const Param1: WideString);
  9270. begin
  9271.   DefaultInterface.Email1Address := Param1;
  9272. end;
  9273.  
  9274. function  TContactItem.Get_Email1AddressType: WideString;
  9275. begin
  9276.   Result := DefaultInterface.Email1AddressType;
  9277. end;
  9278.  
  9279. procedure TContactItem.Set_Email1AddressType(const Param1: WideString);
  9280. begin
  9281.   DefaultInterface.Email1AddressType := Param1;
  9282. end;
  9283.  
  9284. function  TContactItem.Get_Email1DisplayName: WideString;
  9285. begin
  9286.   Result := DefaultInterface.Email1DisplayName;
  9287. end;
  9288.  
  9289. function  TContactItem.Get_Email1EntryID: WideString;
  9290. begin
  9291.   Result := DefaultInterface.Email1EntryID;
  9292. end;
  9293.  
  9294. function  TContactItem.Get_Email2Address: WideString;
  9295. begin
  9296.   Result := DefaultInterface.Email2Address;
  9297. end;
  9298.  
  9299. procedure TContactItem.Set_Email2Address(const Param1: WideString);
  9300. begin
  9301.   DefaultInterface.Email2Address := Param1;
  9302. end;
  9303.  
  9304. function  TContactItem.Get_Email2AddressType: WideString;
  9305. begin
  9306.   Result := DefaultInterface.Email2AddressType;
  9307. end;
  9308.  
  9309. procedure TContactItem.Set_Email2AddressType(const Param1: WideString);
  9310. begin
  9311.   DefaultInterface.Email2AddressType := Param1;
  9312. end;
  9313.  
  9314. function  TContactItem.Get_Email2DisplayName: WideString;
  9315. begin
  9316.   Result := DefaultInterface.Email2DisplayName;
  9317. end;
  9318.  
  9319. function  TContactItem.Get_Email2EntryID: WideString;
  9320. begin
  9321.   Result := DefaultInterface.Email2EntryID;
  9322. end;
  9323.  
  9324. function  TContactItem.Get_Email3Address: WideString;
  9325. begin
  9326.   Result := DefaultInterface.Email3Address;
  9327. end;
  9328.  
  9329. procedure TContactItem.Set_Email3Address(const Param1: WideString);
  9330. begin
  9331.   DefaultInterface.Email3Address := Param1;
  9332. end;
  9333.  
  9334. function  TContactItem.Get_Email3AddressType: WideString;
  9335. begin
  9336.   Result := DefaultInterface.Email3AddressType;
  9337. end;
  9338.  
  9339. procedure TContactItem.Set_Email3AddressType(const Param1: WideString);
  9340. begin
  9341.   DefaultInterface.Email3AddressType := Param1;
  9342. end;
  9343.  
  9344. function  TContactItem.Get_Email3DisplayName: WideString;
  9345. begin
  9346.   Result := DefaultInterface.Email3DisplayName;
  9347. end;
  9348.  
  9349. function  TContactItem.Get_Email3EntryID: WideString;
  9350. begin
  9351.   Result := DefaultInterface.Email3EntryID;
  9352. end;
  9353.  
  9354. function  TContactItem.Get_FileAs: WideString;
  9355. begin
  9356.   Result := DefaultInterface.FileAs;
  9357. end;
  9358.  
  9359. procedure TContactItem.Set_FileAs(const Param1: WideString);
  9360. begin
  9361.   DefaultInterface.FileAs := Param1;
  9362. end;
  9363.  
  9364. function  TContactItem.Get_FirstName: WideString;
  9365. begin
  9366.   Result := DefaultInterface.FirstName;
  9367. end;
  9368.  
  9369. procedure TContactItem.Set_FirstName(const Param1: WideString);
  9370. begin
  9371.   DefaultInterface.FirstName := Param1;
  9372. end;
  9373.  
  9374. function  TContactItem.Get_FTPSite: WideString;
  9375. begin
  9376.   Result := DefaultInterface.FTPSite;
  9377. end;
  9378.  
  9379. procedure TContactItem.Set_FTPSite(const Param1: WideString);
  9380. begin
  9381.   DefaultInterface.FTPSite := Param1;
  9382. end;
  9383.  
  9384. function  TContactItem.Get_FullName: WideString;
  9385. begin
  9386.   Result := DefaultInterface.FullName;
  9387. end;
  9388.  
  9389. procedure TContactItem.Set_FullName(const Param1: WideString);
  9390. begin
  9391.   DefaultInterface.FullName := Param1;
  9392. end;
  9393.  
  9394. function  TContactItem.Get_FullNameAndCompany: WideString;
  9395. begin
  9396.   Result := DefaultInterface.FullNameAndCompany;
  9397. end;
  9398.  
  9399. function  TContactItem.Get_Gender: OlGender;
  9400. begin
  9401.   Result := DefaultInterface.Gender;
  9402. end;
  9403.  
  9404. procedure TContactItem.Set_Gender(Param1: OlGender);
  9405. begin
  9406.   DefaultInterface.Gender := Param1;
  9407. end;
  9408.  
  9409. function  TContactItem.Get_GovernmentIDNumber: WideString;
  9410. begin
  9411.   Result := DefaultInterface.GovernmentIDNumber;
  9412. end;
  9413.  
  9414. procedure TContactItem.Set_GovernmentIDNumber(const Param1: WideString);
  9415. begin
  9416.   DefaultInterface.GovernmentIDNumber := Param1;
  9417. end;
  9418.  
  9419. function  TContactItem.Get_Hobby: WideString;
  9420. begin
  9421.   Result := DefaultInterface.Hobby;
  9422. end;
  9423.  
  9424. procedure TContactItem.Set_Hobby(const Param1: WideString);
  9425. begin
  9426.   DefaultInterface.Hobby := Param1;
  9427. end;
  9428.  
  9429. function  TContactItem.Get_Home2TelephoneNumber: WideString;
  9430. begin
  9431.   Result := DefaultInterface.Home2TelephoneNumber;
  9432. end;
  9433.  
  9434. procedure TContactItem.Set_Home2TelephoneNumber(const Param1: WideString);
  9435. begin
  9436.   DefaultInterface.Home2TelephoneNumber := Param1;
  9437. end;
  9438.  
  9439. function  TContactItem.Get_HomeAddress: WideString;
  9440. begin
  9441.   Result := DefaultInterface.HomeAddress;
  9442. end;
  9443.  
  9444. procedure TContactItem.Set_HomeAddress(const Param1: WideString);
  9445. begin
  9446.   DefaultInterface.HomeAddress := Param1;
  9447. end;
  9448.  
  9449. function  TContactItem.Get_HomeAddressCity: WideString;
  9450. begin
  9451.   Result := DefaultInterface.HomeAddressCity;
  9452. end;
  9453.  
  9454. procedure TContactItem.Set_HomeAddressCity(const Param1: WideString);
  9455. begin
  9456.   DefaultInterface.HomeAddressCity := Param1;
  9457. end;
  9458.  
  9459. function  TContactItem.Get_HomeAddressCountry: WideString;
  9460. begin
  9461.   Result := DefaultInterface.HomeAddressCountry;
  9462. end;
  9463.  
  9464. procedure TContactItem.Set_HomeAddressCountry(const Param1: WideString);
  9465. begin
  9466.   DefaultInterface.HomeAddressCountry := Param1;
  9467. end;
  9468.  
  9469. function  TContactItem.Get_HomeAddressPostalCode: WideString;
  9470. begin
  9471.   Result := DefaultInterface.HomeAddressPostalCode;
  9472. end;
  9473.  
  9474. procedure TContactItem.Set_HomeAddressPostalCode(const Param1: WideString);
  9475. begin
  9476.   DefaultInterface.HomeAddressPostalCode := Param1;
  9477. end;
  9478.  
  9479. function  TContactItem.Get_HomeAddressPostOfficeBox: WideString;
  9480. begin
  9481.   Result := DefaultInterface.HomeAddressPostOfficeBox;
  9482. end;
  9483.  
  9484. procedure TContactItem.Set_HomeAddressPostOfficeBox(const Param1: WideString);
  9485. begin
  9486.   DefaultInterface.HomeAddressPostOfficeBox := Param1;
  9487. end;
  9488.  
  9489. function  TContactItem.Get_HomeAddressState: WideString;
  9490. begin
  9491.   Result := DefaultInterface.HomeAddressState;
  9492. end;
  9493.  
  9494. procedure TContactItem.Set_HomeAddressState(const Param1: WideString);
  9495. begin
  9496.   DefaultInterface.HomeAddressState := Param1;
  9497. end;
  9498.  
  9499. function  TContactItem.Get_HomeAddressStreet: WideString;
  9500. begin
  9501.   Result := DefaultInterface.HomeAddressStreet;
  9502. end;
  9503.  
  9504. procedure TContactItem.Set_HomeAddressStreet(const Param1: WideString);
  9505. begin
  9506.   DefaultInterface.HomeAddressStreet := Param1;
  9507. end;
  9508.  
  9509. function  TContactItem.Get_HomeFaxNumber: WideString;
  9510. begin
  9511.   Result := DefaultInterface.HomeFaxNumber;
  9512. end;
  9513.  
  9514. procedure TContactItem.Set_HomeFaxNumber(const Param1: WideString);
  9515. begin
  9516.   DefaultInterface.HomeFaxNumber := Param1;
  9517. end;
  9518.  
  9519. function  TContactItem.Get_HomeTelephoneNumber: WideString;
  9520. begin
  9521.   Result := DefaultInterface.HomeTelephoneNumber;
  9522. end;
  9523.  
  9524. procedure TContactItem.Set_HomeTelephoneNumber(const Param1: WideString);
  9525. begin
  9526.   DefaultInterface.HomeTelephoneNumber := Param1;
  9527. end;
  9528.  
  9529. function  TContactItem.Get_Initials: WideString;
  9530. begin
  9531.   Result := DefaultInterface.Initials;
  9532. end;
  9533.  
  9534. procedure TContactItem.Set_Initials(const Param1: WideString);
  9535. begin
  9536.   DefaultInterface.Initials := Param1;
  9537. end;
  9538.  
  9539. function  TContactItem.Get_ISDNNumber: WideString;
  9540. begin
  9541.   Result := DefaultInterface.ISDNNumber;
  9542. end;
  9543.  
  9544. procedure TContactItem.Set_ISDNNumber(const Param1: WideString);
  9545. begin
  9546.   DefaultInterface.ISDNNumber := Param1;
  9547. end;
  9548.  
  9549. function  TContactItem.Get_JobTitle: WideString;
  9550. begin
  9551.   Result := DefaultInterface.JobTitle;
  9552. end;
  9553.  
  9554. procedure TContactItem.Set_JobTitle(const Param1: WideString);
  9555. begin
  9556.   DefaultInterface.JobTitle := Param1;
  9557. end;
  9558.  
  9559. function  TContactItem.Get_Journal: WordBool;
  9560. begin
  9561.   Result := DefaultInterface.Journal;
  9562. end;
  9563.  
  9564. procedure TContactItem.Set_Journal(Param1: WordBool);
  9565. begin
  9566.   DefaultInterface.Journal := Param1;
  9567. end;
  9568.  
  9569. function  TContactItem.Get_Language: WideString;
  9570. begin
  9571.   Result := DefaultInterface.Language;
  9572. end;
  9573.  
  9574. procedure TContactItem.Set_Language(const Param1: WideString);
  9575. begin
  9576.   DefaultInterface.Language := Param1;
  9577. end;
  9578.  
  9579. function  TContactItem.Get_LastName: WideString;
  9580. begin
  9581.   Result := DefaultInterface.LastName;
  9582. end;
  9583.  
  9584. procedure TContactItem.Set_LastName(const Param1: WideString);
  9585. begin
  9586.   DefaultInterface.LastName := Param1;
  9587. end;
  9588.  
  9589. function  TContactItem.Get_LastNameAndFirstName: WideString;
  9590. begin
  9591.   Result := DefaultInterface.LastNameAndFirstName;
  9592. end;
  9593.  
  9594. function  TContactItem.Get_MailingAddress: WideString;
  9595. begin
  9596.   Result := DefaultInterface.MailingAddress;
  9597. end;
  9598.  
  9599. procedure TContactItem.Set_MailingAddress(const Param1: WideString);
  9600. begin
  9601.   DefaultInterface.MailingAddress := Param1;
  9602. end;
  9603.  
  9604. function  TContactItem.Get_MailingAddressCity: WideString;
  9605. begin
  9606.   Result := DefaultInterface.MailingAddressCity;
  9607. end;
  9608.  
  9609. procedure TContactItem.Set_MailingAddressCity(const Param1: WideString);
  9610. begin
  9611.   DefaultInterface.MailingAddressCity := Param1;
  9612. end;
  9613.  
  9614. function  TContactItem.Get_MailingAddressCountry: WideString;
  9615. begin
  9616.   Result := DefaultInterface.MailingAddressCountry;
  9617. end;
  9618.  
  9619. procedure TContactItem.Set_MailingAddressCountry(const Param1: WideString);
  9620. begin
  9621.   DefaultInterface.MailingAddressCountry := Param1;
  9622. end;
  9623.  
  9624. function  TContactItem.Get_MailingAddressPostalCode: WideString;
  9625. begin
  9626.   Result := DefaultInterface.MailingAddressPostalCode;
  9627. end;
  9628.  
  9629. procedure TContactItem.Set_MailingAddressPostalCode(const Param1: WideString);
  9630. begin
  9631.   DefaultInterface.MailingAddressPostalCode := Param1;
  9632. end;
  9633.  
  9634. function  TContactItem.Get_MailingAddressPostOfficeBox: WideString;
  9635. begin
  9636.   Result := DefaultInterface.MailingAddressPostOfficeBox;
  9637. end;
  9638.  
  9639. procedure TContactItem.Set_MailingAddressPostOfficeBox(const Param1: WideString);
  9640. begin
  9641.   DefaultInterface.MailingAddressPostOfficeBox := Param1;
  9642. end;
  9643.  
  9644. function  TContactItem.Get_MailingAddressState: WideString;
  9645. begin
  9646.   Result := DefaultInterface.MailingAddressState;
  9647. end;
  9648.  
  9649. procedure TContactItem.Set_MailingAddressState(const Param1: WideString);
  9650. begin
  9651.   DefaultInterface.MailingAddressState := Param1;
  9652. end;
  9653.  
  9654. function  TContactItem.Get_MailingAddressStreet: WideString;
  9655. begin
  9656.   Result := DefaultInterface.MailingAddressStreet;
  9657. end;
  9658.  
  9659. procedure TContactItem.Set_MailingAddressStreet(const Param1: WideString);
  9660. begin
  9661.   DefaultInterface.MailingAddressStreet := Param1;
  9662. end;
  9663.  
  9664. function  TContactItem.Get_ManagerName: WideString;
  9665. begin
  9666.   Result := DefaultInterface.ManagerName;
  9667. end;
  9668.  
  9669. procedure TContactItem.Set_ManagerName(const Param1: WideString);
  9670. begin
  9671.   DefaultInterface.ManagerName := Param1;
  9672. end;
  9673.  
  9674. function  TContactItem.Get_MiddleName: WideString;
  9675. begin
  9676.   Result := DefaultInterface.MiddleName;
  9677. end;
  9678.  
  9679. procedure TContactItem.Set_MiddleName(const Param1: WideString);
  9680. begin
  9681.   DefaultInterface.MiddleName := Param1;
  9682. end;
  9683.  
  9684. function  TContactItem.Get_MobileTelephoneNumber: WideString;
  9685. begin
  9686.   Result := DefaultInterface.MobileTelephoneNumber;
  9687. end;
  9688.  
  9689. procedure TContactItem.Set_MobileTelephoneNumber(const Param1: WideString);
  9690. begin
  9691.   DefaultInterface.MobileTelephoneNumber := Param1;
  9692. end;
  9693.  
  9694. function  TContactItem.Get_NickName: WideString;
  9695. begin
  9696.   Result := DefaultInterface.NickName;
  9697. end;
  9698.  
  9699. procedure TContactItem.Set_NickName(const Param1: WideString);
  9700. begin
  9701.   DefaultInterface.NickName := Param1;
  9702. end;
  9703.  
  9704. function  TContactItem.Get_OfficeLocation: WideString;
  9705. begin
  9706.   Result := DefaultInterface.OfficeLocation;
  9707. end;
  9708.  
  9709. procedure TContactItem.Set_OfficeLocation(const Param1: WideString);
  9710. begin
  9711.   DefaultInterface.OfficeLocation := Param1;
  9712. end;
  9713.  
  9714. function  TContactItem.Get_OrganizationalIDNumber: WideString;
  9715. begin
  9716.   Result := DefaultInterface.OrganizationalIDNumber;
  9717. end;
  9718.  
  9719. procedure TContactItem.Set_OrganizationalIDNumber(const Param1: WideString);
  9720. begin
  9721.   DefaultInterface.OrganizationalIDNumber := Param1;
  9722. end;
  9723.  
  9724. function  TContactItem.Get_OtherAddress: WideString;
  9725. begin
  9726.   Result := DefaultInterface.OtherAddress;
  9727. end;
  9728.  
  9729. procedure TContactItem.Set_OtherAddress(const Param1: WideString);
  9730. begin
  9731.   DefaultInterface.OtherAddress := Param1;
  9732. end;
  9733.  
  9734. function  TContactItem.Get_OtherAddressCity: WideString;
  9735. begin
  9736.   Result := DefaultInterface.OtherAddressCity;
  9737. end;
  9738.  
  9739. procedure TContactItem.Set_OtherAddressCity(const Param1: WideString);
  9740. begin
  9741.   DefaultInterface.OtherAddressCity := Param1;
  9742. end;
  9743.  
  9744. function  TContactItem.Get_OtherAddressCountry: WideString;
  9745. begin
  9746.   Result := DefaultInterface.OtherAddressCountry;
  9747. end;
  9748.  
  9749. procedure TContactItem.Set_OtherAddressCountry(const Param1: WideString);
  9750. begin
  9751.   DefaultInterface.OtherAddressCountry := Param1;
  9752. end;
  9753.  
  9754. function  TContactItem.Get_OtherAddressPostalCode: WideString;
  9755. begin
  9756.   Result := DefaultInterface.OtherAddressPostalCode;
  9757. end;
  9758.  
  9759. procedure TContactItem.Set_OtherAddressPostalCode(const Param1: WideString);
  9760. begin
  9761.   DefaultInterface.OtherAddressPostalCode := Param1;
  9762. end;
  9763.  
  9764. function  TContactItem.Get_OtherAddressPostOfficeBox: WideString;
  9765. begin
  9766.   Result := DefaultInterface.OtherAddressPostOfficeBox;
  9767. end;
  9768.  
  9769. procedure TContactItem.Set_OtherAddressPostOfficeBox(const Param1: WideString);
  9770. begin
  9771.   DefaultInterface.OtherAddressPostOfficeBox := Param1;
  9772. end;
  9773.  
  9774. function  TContactItem.Get_OtherAddressState: WideString;
  9775. begin
  9776.   Result := DefaultInterface.OtherAddressState;
  9777. end;
  9778.  
  9779. procedure TContactItem.Set_OtherAddressState(const Param1: WideString);
  9780. begin
  9781.   DefaultInterface.OtherAddressState := Param1;
  9782. end;
  9783.  
  9784. function  TContactItem.Get_OtherAddressStreet: WideString;
  9785. begin
  9786.   Result := DefaultInterface.OtherAddressStreet;
  9787. end;
  9788.  
  9789. procedure TContactItem.Set_OtherAddressStreet(const Param1: WideString);
  9790. begin
  9791.   DefaultInterface.OtherAddressStreet := Param1;
  9792. end;
  9793.  
  9794. function  TContactItem.Get_OtherFaxNumber: WideString;
  9795. begin
  9796.   Result := DefaultInterface.OtherFaxNumber;
  9797. end;
  9798.  
  9799. procedure TContactItem.Set_OtherFaxNumber(const Param1: WideString);
  9800. begin
  9801.   DefaultInterface.OtherFaxNumber := Param1;
  9802. end;
  9803.  
  9804. function  TContactItem.Get_OtherTelephoneNumber: WideString;
  9805. begin
  9806.   Result := DefaultInterface.OtherTelephoneNumber;
  9807. end;
  9808.  
  9809. procedure TContactItem.Set_OtherTelephoneNumber(const Param1: WideString);
  9810. begin
  9811.   DefaultInterface.OtherTelephoneNumber := Param1;
  9812. end;
  9813.  
  9814. function  TContactItem.Get_PagerNumber: WideString;
  9815. begin
  9816.   Result := DefaultInterface.PagerNumber;
  9817. end;
  9818.  
  9819. procedure TContactItem.Set_PagerNumber(const Param1: WideString);
  9820. begin
  9821.   DefaultInterface.PagerNumber := Param1;
  9822. end;
  9823.  
  9824. function  TContactItem.Get_PersonalHomePage: WideString;
  9825. begin
  9826.   Result := DefaultInterface.PersonalHomePage;
  9827. end;
  9828.  
  9829. procedure TContactItem.Set_PersonalHomePage(const Param1: WideString);
  9830. begin
  9831.   DefaultInterface.PersonalHomePage := Param1;
  9832. end;
  9833.  
  9834. function  TContactItem.Get_PrimaryTelephoneNumber: WideString;
  9835. begin
  9836.   Result := DefaultInterface.PrimaryTelephoneNumber;
  9837. end;
  9838.  
  9839. procedure TContactItem.Set_PrimaryTelephoneNumber(const Param1: WideString);
  9840. begin
  9841.   DefaultInterface.PrimaryTelephoneNumber := Param1;
  9842. end;
  9843.  
  9844. function  TContactItem.Get_Profession: WideString;
  9845. begin
  9846.   Result := DefaultInterface.Profession;
  9847. end;
  9848.  
  9849. procedure TContactItem.Set_Profession(const Param1: WideString);
  9850. begin
  9851.   DefaultInterface.Profession := Param1;
  9852. end;
  9853.  
  9854. function  TContactItem.Get_RadioTelephoneNumber: WideString;
  9855. begin
  9856.   Result := DefaultInterface.RadioTelephoneNumber;
  9857. end;
  9858.  
  9859. procedure TContactItem.Set_RadioTelephoneNumber(const Param1: WideString);
  9860. begin
  9861.   DefaultInterface.RadioTelephoneNumber := Param1;
  9862. end;
  9863.  
  9864. function  TContactItem.Get_ReferredBy: WideString;
  9865. begin
  9866.   Result := DefaultInterface.ReferredBy;
  9867. end;
  9868.  
  9869. procedure TContactItem.Set_ReferredBy(const Param1: WideString);
  9870. begin
  9871.   DefaultInterface.ReferredBy := Param1;
  9872. end;
  9873.  
  9874. function  TContactItem.Get_SelectedMailingAddress: OlMailingAddress;
  9875. begin
  9876.   Result := DefaultInterface.SelectedMailingAddress;
  9877. end;
  9878.  
  9879. procedure TContactItem.Set_SelectedMailingAddress(Param1: OlMailingAddress);
  9880. begin
  9881.   DefaultInterface.SelectedMailingAddress := Param1;
  9882. end;
  9883.  
  9884. function  TContactItem.Get_Spouse: WideString;
  9885. begin
  9886.   Result := DefaultInterface.Spouse;
  9887. end;
  9888.  
  9889. procedure TContactItem.Set_Spouse(const Param1: WideString);
  9890. begin
  9891.   DefaultInterface.Spouse := Param1;
  9892. end;
  9893.  
  9894. function  TContactItem.Get_Suffix: WideString;
  9895. begin
  9896.   Result := DefaultInterface.Suffix;
  9897. end;
  9898.  
  9899. procedure TContactItem.Set_Suffix(const Param1: WideString);
  9900. begin
  9901.   DefaultInterface.Suffix := Param1;
  9902. end;
  9903.  
  9904. function  TContactItem.Get_TelexNumber: WideString;
  9905. begin
  9906.   Result := DefaultInterface.TelexNumber;
  9907. end;
  9908.  
  9909. procedure TContactItem.Set_TelexNumber(const Param1: WideString);
  9910. begin
  9911.   DefaultInterface.TelexNumber := Param1;
  9912. end;
  9913.  
  9914. function  TContactItem.Get_Title: WideString;
  9915. begin
  9916.   Result := DefaultInterface.Title;
  9917. end;
  9918.  
  9919. procedure TContactItem.Set_Title(const Param1: WideString);
  9920. begin
  9921.   DefaultInterface.Title := Param1;
  9922. end;
  9923.  
  9924. function  TContactItem.Get_TTYTDDTelephoneNumber: WideString;
  9925. begin
  9926.   Result := DefaultInterface.TTYTDDTelephoneNumber;
  9927. end;
  9928.  
  9929. procedure TContactItem.Set_TTYTDDTelephoneNumber(const Param1: WideString);
  9930. begin
  9931.   DefaultInterface.TTYTDDTelephoneNumber := Param1;
  9932. end;
  9933.  
  9934. function  TContactItem.Get_User1: WideString;
  9935. begin
  9936.   Result := DefaultInterface.User1;
  9937. end;
  9938.  
  9939. procedure TContactItem.Set_User1(const Param1: WideString);
  9940. begin
  9941.   DefaultInterface.User1 := Param1;
  9942. end;
  9943.  
  9944. function  TContactItem.Get_User2: WideString;
  9945. begin
  9946.   Result := DefaultInterface.User2;
  9947. end;
  9948.  
  9949. procedure TContactItem.Set_User2(const Param1: WideString);
  9950. begin
  9951.   DefaultInterface.User2 := Param1;
  9952. end;
  9953.  
  9954. function  TContactItem.Get_User3: WideString;
  9955. begin
  9956.   Result := DefaultInterface.User3;
  9957. end;
  9958.  
  9959. procedure TContactItem.Set_User3(const Param1: WideString);
  9960. begin
  9961.   DefaultInterface.User3 := Param1;
  9962. end;
  9963.  
  9964. function  TContactItem.Get_User4: WideString;
  9965. begin
  9966.   Result := DefaultInterface.User4;
  9967. end;
  9968.  
  9969. procedure TContactItem.Set_User4(const Param1: WideString);
  9970. begin
  9971.   DefaultInterface.User4 := Param1;
  9972. end;
  9973.  
  9974. function  TContactItem.Get_UserCertificate: WideString;
  9975. begin
  9976.   Result := DefaultInterface.UserCertificate;
  9977. end;
  9978.  
  9979. procedure TContactItem.Set_UserCertificate(const Param1: WideString);
  9980. begin
  9981.   DefaultInterface.UserCertificate := Param1;
  9982. end;
  9983.  
  9984. function  TContactItem.Get_WebPage: WideString;
  9985. begin
  9986.   Result := DefaultInterface.WebPage;
  9987. end;
  9988.  
  9989. procedure TContactItem.Set_WebPage(const Param1: WideString);
  9990. begin
  9991.   DefaultInterface.WebPage := Param1;
  9992. end;
  9993.  
  9994. function  TContactItem.Get_YomiCompanyName: WideString;
  9995. begin
  9996.   Result := DefaultInterface.YomiCompanyName;
  9997. end;
  9998.  
  9999. procedure TContactItem.Set_YomiCompanyName(const Param1: WideString);
  10000. begin
  10001.   DefaultInterface.YomiCompanyName := Param1;
  10002. end;
  10003.  
  10004. function  TContactItem.Get_YomiFirstName: WideString;
  10005. begin
  10006.   Result := DefaultInterface.YomiFirstName;
  10007. end;
  10008.  
  10009. procedure TContactItem.Set_YomiFirstName(const Param1: WideString);
  10010. begin
  10011.   DefaultInterface.YomiFirstName := Param1;
  10012. end;
  10013.  
  10014. function  TContactItem.Get_YomiLastName: WideString;
  10015. begin
  10016.   Result := DefaultInterface.YomiLastName;
  10017. end;
  10018.  
  10019. procedure TContactItem.Set_YomiLastName(const Param1: WideString);
  10020. begin
  10021.   DefaultInterface.YomiLastName := Param1;
  10022. end;
  10023.  
  10024. procedure TContactItem.Close(SaveMode: OlInspectorClose);
  10025. begin
  10026.   DefaultInterface.Close(SaveMode);
  10027. end;
  10028.  
  10029. function  TContactItem.Copy: IDispatch;
  10030. begin
  10031.   Result := DefaultInterface.Copy;
  10032. end;
  10033.  
  10034. procedure TContactItem.Delete;
  10035. begin
  10036.   DefaultInterface.Delete;
  10037. end;
  10038.  
  10039. procedure TContactItem.Display(Modal: OleVariant);
  10040. begin
  10041.   DefaultInterface.Display(Modal);
  10042. end;
  10043.  
  10044. function  TContactItem.Move(const DestFldr: MAPIFolder): IDispatch;
  10045. begin
  10046.   Result := DefaultInterface.Move(DestFldr);
  10047. end;
  10048.  
  10049. procedure TContactItem.Save;
  10050. begin
  10051.   DefaultInterface.Save;
  10052. end;
  10053.  
  10054. procedure TContactItem.SaveAs(const Path: WideString; Type_: OleVariant);
  10055. begin
  10056.   DefaultInterface.SaveAs(Path, Type_);
  10057. end;
  10058.  
  10059. procedure TContactItem.PrintOut;
  10060. begin
  10061.   DefaultInterface.PrintOut;
  10062. end;
  10063.  
  10064. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  10065. constructor TContactItemProperties.Create(AServer: TContactItem);
  10066. begin
  10067.   inherited Create;
  10068.   FServer := AServer;
  10069. end;
  10070.  
  10071. function TContactItemProperties.GetDefaultInterface: _DContactItem;
  10072. begin
  10073.   Result := FServer.DefaultInterface;
  10074. end;
  10075.  
  10076. function  TContactItemProperties.Get_Actions: Actions;
  10077. begin
  10078.   Result := DefaultInterface.Actions;
  10079. end;
  10080.  
  10081. function  TContactItemProperties.Get_Application: OutlookApplication;
  10082. begin
  10083.   Result := DefaultInterface.Application;
  10084. end;
  10085.  
  10086. function  TContactItemProperties.Get_Attachments: Attachments;
  10087. begin
  10088.   Result := DefaultInterface.Attachments;
  10089. end;
  10090.  
  10091. function  TContactItemProperties.Get_BillingInformation: WideString;
  10092. begin
  10093.   Result := DefaultInterface.BillingInformation;
  10094. end;
  10095.  
  10096. procedure TContactItemProperties.Set_BillingInformation(const Param1: WideString);
  10097. begin
  10098.   DefaultInterface.BillingInformation := Param1;
  10099. end;
  10100.  
  10101. function  TContactItemProperties.Get_Body: WideString;
  10102. begin
  10103.   Result := DefaultInterface.Body;
  10104. end;
  10105.  
  10106. procedure TContactItemProperties.Set_Body(const Param1: WideString);
  10107. begin
  10108.   DefaultInterface.Body := Param1;
  10109. end;
  10110.  
  10111. function  TContactItemProperties.Get_Categories: WideString;
  10112. begin
  10113.   Result := DefaultInterface.Categories;
  10114. end;
  10115.  
  10116. procedure TContactItemProperties.Set_Categories(const Param1: WideString);
  10117. begin
  10118.   DefaultInterface.Categories := Param1;
  10119. end;
  10120.  
  10121. function  TContactItemProperties.Get_Companies: WideString;
  10122. begin
  10123.   Result := DefaultInterface.Companies;
  10124. end;
  10125.  
  10126. procedure TContactItemProperties.Set_Companies(const Param1: WideString);
  10127. begin
  10128.   DefaultInterface.Companies := Param1;
  10129. end;
  10130.  
  10131. function  TContactItemProperties.Get_CreationTime: TDateTime;
  10132. begin
  10133.   Result := DefaultInterface.CreationTime;
  10134. end;
  10135.  
  10136. function  TContactItemProperties.Get_EntryID: WideString;
  10137. begin
  10138.   Result := DefaultInterface.EntryID;
  10139. end;
  10140.  
  10141. function  TContactItemProperties.Get_FormDescription: FormDescription;
  10142. begin
  10143.   Result := DefaultInterface.FormDescription;
  10144. end;
  10145.  
  10146. function  TContactItemProperties.Get_GetInspector: Inspector;
  10147. begin
  10148.   Result := DefaultInterface.GetInspector;
  10149. end;
  10150.  
  10151. function  TContactItemProperties.Get_Importance: OlImportance;
  10152. begin
  10153.   Result := DefaultInterface.Importance;
  10154. end;
  10155.  
  10156. procedure TContactItemProperties.Set_Importance(Param1: OlImportance);
  10157. begin
  10158.   DefaultInterface.Importance := Param1;
  10159. end;
  10160.  
  10161. function  TContactItemProperties.Get_LastModificationTime: TDateTime;
  10162. begin
  10163.   Result := DefaultInterface.LastModificationTime;
  10164. end;
  10165.  
  10166. function  TContactItemProperties.Get_MessageClass: WideString;
  10167. begin
  10168.   Result := DefaultInterface.MessageClass;
  10169. end;
  10170.  
  10171. procedure TContactItemProperties.Set_MessageClass(const Param1: WideString);
  10172. begin
  10173.   DefaultInterface.MessageClass := Param1;
  10174. end;
  10175.  
  10176. function  TContactItemProperties.Get_Mileage: WideString;
  10177. begin
  10178.   Result := DefaultInterface.Mileage;
  10179. end;
  10180.  
  10181. procedure TContactItemProperties.Set_Mileage(const Param1: WideString);
  10182. begin
  10183.   DefaultInterface.Mileage := Param1;
  10184. end;
  10185.  
  10186. function  TContactItemProperties.Get_NoAging: WordBool;
  10187. begin
  10188.   Result := DefaultInterface.NoAging;
  10189. end;
  10190.  
  10191. procedure TContactItemProperties.Set_NoAging(Param1: WordBool);
  10192. begin
  10193.   DefaultInterface.NoAging := Param1;
  10194. end;
  10195.  
  10196. function  TContactItemProperties.Get_OutlookInternalVersion: WideString;
  10197. begin
  10198.   Result := DefaultInterface.OutlookInternalVersion;
  10199. end;
  10200.  
  10201. function  TContactItemProperties.Get_OutlookVersion: WideString;
  10202. begin
  10203.   Result := DefaultInterface.OutlookVersion;
  10204. end;
  10205.  
  10206. function  TContactItemProperties.Get_Parent: IDispatch;
  10207. begin
  10208.   Result := DefaultInterface.Parent;
  10209. end;
  10210.  
  10211. function  TContactItemProperties.Get_Saved: WordBool;
  10212. begin
  10213.   Result := DefaultInterface.Saved;
  10214. end;
  10215.  
  10216. function  TContactItemProperties.Get_Sensitivity: OlSensitivity;
  10217. begin
  10218.   Result := DefaultInterface.Sensitivity;
  10219. end;
  10220.  
  10221. procedure TContactItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  10222. begin
  10223.   DefaultInterface.Sensitivity := Param1;
  10224. end;
  10225.  
  10226. function  TContactItemProperties.Get_Size: Integer;
  10227. begin
  10228.   Result := DefaultInterface.Size;
  10229. end;
  10230.  
  10231. function  TContactItemProperties.Get_Subject: WideString;
  10232. begin
  10233.   Result := DefaultInterface.Subject;
  10234. end;
  10235.  
  10236. procedure TContactItemProperties.Set_Subject(const Param1: WideString);
  10237. begin
  10238.   DefaultInterface.Subject := Param1;
  10239. end;
  10240.  
  10241. function  TContactItemProperties.Get_UnRead: WordBool;
  10242. begin
  10243.   Result := DefaultInterface.UnRead;
  10244. end;
  10245.  
  10246. procedure TContactItemProperties.Set_UnRead(Param1: WordBool);
  10247. begin
  10248.   DefaultInterface.UnRead := Param1;
  10249. end;
  10250.  
  10251. function  TContactItemProperties.Get_UserProperties: UserProperties;
  10252. begin
  10253.   Result := DefaultInterface.UserProperties;
  10254. end;
  10255.  
  10256. function  TContactItemProperties.Get_Account: WideString;
  10257. begin
  10258.   Result := DefaultInterface.Account;
  10259. end;
  10260.  
  10261. procedure TContactItemProperties.Set_Account(const Param1: WideString);
  10262. begin
  10263.   DefaultInterface.Account := Param1;
  10264. end;
  10265.  
  10266. function  TContactItemProperties.Get_Anniversary: TDateTime;
  10267. begin
  10268.   Result := DefaultInterface.Anniversary;
  10269. end;
  10270.  
  10271. procedure TContactItemProperties.Set_Anniversary(Param1: TDateTime);
  10272. begin
  10273.   DefaultInterface.Anniversary := Param1;
  10274. end;
  10275.  
  10276. function  TContactItemProperties.Get_AssistantName: WideString;
  10277. begin
  10278.   Result := DefaultInterface.AssistantName;
  10279. end;
  10280.  
  10281. procedure TContactItemProperties.Set_AssistantName(const Param1: WideString);
  10282. begin
  10283.   DefaultInterface.AssistantName := Param1;
  10284. end;
  10285.  
  10286. function  TContactItemProperties.Get_AssistantTelephoneNumber: WideString;
  10287. begin
  10288.   Result := DefaultInterface.AssistantTelephoneNumber;
  10289. end;
  10290.  
  10291. procedure TContactItemProperties.Set_AssistantTelephoneNumber(const Param1: WideString);
  10292. begin
  10293.   DefaultInterface.AssistantTelephoneNumber := Param1;
  10294. end;
  10295.  
  10296. function  TContactItemProperties.Get_Birthday: TDateTime;
  10297. begin
  10298.   Result := DefaultInterface.Birthday;
  10299. end;
  10300.  
  10301. procedure TContactItemProperties.Set_Birthday(Param1: TDateTime);
  10302. begin
  10303.   DefaultInterface.Birthday := Param1;
  10304. end;
  10305.  
  10306. function  TContactItemProperties.Get_Business2TelephoneNumber: WideString;
  10307. begin
  10308.   Result := DefaultInterface.Business2TelephoneNumber;
  10309. end;
  10310.  
  10311. procedure TContactItemProperties.Set_Business2TelephoneNumber(const Param1: WideString);
  10312. begin
  10313.   DefaultInterface.Business2TelephoneNumber := Param1;
  10314. end;
  10315.  
  10316. function  TContactItemProperties.Get_BusinessAddress: WideString;
  10317. begin
  10318.   Result := DefaultInterface.BusinessAddress;
  10319. end;
  10320.  
  10321. procedure TContactItemProperties.Set_BusinessAddress(const Param1: WideString);
  10322. begin
  10323.   DefaultInterface.BusinessAddress := Param1;
  10324. end;
  10325.  
  10326. function  TContactItemProperties.Get_BusinessAddressCity: WideString;
  10327. begin
  10328.   Result := DefaultInterface.BusinessAddressCity;
  10329. end;
  10330.  
  10331. procedure TContactItemProperties.Set_BusinessAddressCity(const Param1: WideString);
  10332. begin
  10333.   DefaultInterface.BusinessAddressCity := Param1;
  10334. end;
  10335.  
  10336. function  TContactItemProperties.Get_BusinessAddressCountry: WideString;
  10337. begin
  10338.   Result := DefaultInterface.BusinessAddressCountry;
  10339. end;
  10340.  
  10341. procedure TContactItemProperties.Set_BusinessAddressCountry(const Param1: WideString);
  10342. begin
  10343.   DefaultInterface.BusinessAddressCountry := Param1;
  10344. end;
  10345.  
  10346. function  TContactItemProperties.Get_BusinessAddressPostalCode: WideString;
  10347. begin
  10348.   Result := DefaultInterface.BusinessAddressPostalCode;
  10349. end;
  10350.  
  10351. procedure TContactItemProperties.Set_BusinessAddressPostalCode(const Param1: WideString);
  10352. begin
  10353.   DefaultInterface.BusinessAddressPostalCode := Param1;
  10354. end;
  10355.  
  10356. function  TContactItemProperties.Get_BusinessAddressPostOfficeBox: WideString;
  10357. begin
  10358.   Result := DefaultInterface.BusinessAddressPostOfficeBox;
  10359. end;
  10360.  
  10361. procedure TContactItemProperties.Set_BusinessAddressPostOfficeBox(const Param1: WideString);
  10362. begin
  10363.   DefaultInterface.BusinessAddressPostOfficeBox := Param1;
  10364. end;
  10365.  
  10366. function  TContactItemProperties.Get_BusinessAddressState: WideString;
  10367. begin
  10368.   Result := DefaultInterface.BusinessAddressState;
  10369. end;
  10370.  
  10371. procedure TContactItemProperties.Set_BusinessAddressState(const Param1: WideString);
  10372. begin
  10373.   DefaultInterface.BusinessAddressState := Param1;
  10374. end;
  10375.  
  10376. function  TContactItemProperties.Get_BusinessAddressStreet: WideString;
  10377. begin
  10378.   Result := DefaultInterface.BusinessAddressStreet;
  10379. end;
  10380.  
  10381. procedure TContactItemProperties.Set_BusinessAddressStreet(const Param1: WideString);
  10382. begin
  10383.   DefaultInterface.BusinessAddressStreet := Param1;
  10384. end;
  10385.  
  10386. function  TContactItemProperties.Get_BusinessFaxNumber: WideString;
  10387. begin
  10388.   Result := DefaultInterface.BusinessFaxNumber;
  10389. end;
  10390.  
  10391. procedure TContactItemProperties.Set_BusinessFaxNumber(const Param1: WideString);
  10392. begin
  10393.   DefaultInterface.BusinessFaxNumber := Param1;
  10394. end;
  10395.  
  10396. function  TContactItemProperties.Get_BusinessHomePage: WideString;
  10397. begin
  10398.   Result := DefaultInterface.BusinessHomePage;
  10399. end;
  10400.  
  10401. procedure TContactItemProperties.Set_BusinessHomePage(const Param1: WideString);
  10402. begin
  10403.   DefaultInterface.BusinessHomePage := Param1;
  10404. end;
  10405.  
  10406. function  TContactItemProperties.Get_BusinessTelephoneNumber: WideString;
  10407. begin
  10408.   Result := DefaultInterface.BusinessTelephoneNumber;
  10409. end;
  10410.  
  10411. procedure TContactItemProperties.Set_BusinessTelephoneNumber(const Param1: WideString);
  10412. begin
  10413.   DefaultInterface.BusinessTelephoneNumber := Param1;
  10414. end;
  10415.  
  10416. function  TContactItemProperties.Get_CallbackTelephoneNumber: WideString;
  10417. begin
  10418.   Result := DefaultInterface.CallbackTelephoneNumber;
  10419. end;
  10420.  
  10421. procedure TContactItemProperties.Set_CallbackTelephoneNumber(const Param1: WideString);
  10422. begin
  10423.   DefaultInterface.CallbackTelephoneNumber := Param1;
  10424. end;
  10425.  
  10426. function  TContactItemProperties.Get_CarTelephoneNumber: WideString;
  10427. begin
  10428.   Result := DefaultInterface.CarTelephoneNumber;
  10429. end;
  10430.  
  10431. procedure TContactItemProperties.Set_CarTelephoneNumber(const Param1: WideString);
  10432. begin
  10433.   DefaultInterface.CarTelephoneNumber := Param1;
  10434. end;
  10435.  
  10436. function  TContactItemProperties.Get_Children: WideString;
  10437. begin
  10438.   Result := DefaultInterface.Children;
  10439. end;
  10440.  
  10441. procedure TContactItemProperties.Set_Children(const Param1: WideString);
  10442. begin
  10443.   DefaultInterface.Children := Param1;
  10444. end;
  10445.  
  10446. function  TContactItemProperties.Get_CompanyAndFullName: WideString;
  10447. begin
  10448.   Result := DefaultInterface.CompanyAndFullName;
  10449. end;
  10450.  
  10451. function  TContactItemProperties.Get_CompanyMainTelephoneNumber: WideString;
  10452. begin
  10453.   Result := DefaultInterface.CompanyMainTelephoneNumber;
  10454. end;
  10455.  
  10456. procedure TContactItemProperties.Set_CompanyMainTelephoneNumber(const Param1: WideString);
  10457. begin
  10458.   DefaultInterface.CompanyMainTelephoneNumber := Param1;
  10459. end;
  10460.  
  10461. function  TContactItemProperties.Get_CompanyName: WideString;
  10462. begin
  10463.   Result := DefaultInterface.CompanyName;
  10464. end;
  10465.  
  10466. procedure TContactItemProperties.Set_CompanyName(const Param1: WideString);
  10467. begin
  10468.   DefaultInterface.CompanyName := Param1;
  10469. end;
  10470.  
  10471. function  TContactItemProperties.Get_ComputerNetworkName: WideString;
  10472. begin
  10473.   Result := DefaultInterface.ComputerNetworkName;
  10474. end;
  10475.  
  10476. procedure TContactItemProperties.Set_ComputerNetworkName(const Param1: WideString);
  10477. begin
  10478.   DefaultInterface.ComputerNetworkName := Param1;
  10479. end;
  10480.  
  10481. function  TContactItemProperties.Get_CustomerID: WideString;
  10482. begin
  10483.   Result := DefaultInterface.CustomerID;
  10484. end;
  10485.  
  10486. procedure TContactItemProperties.Set_CustomerID(const Param1: WideString);
  10487. begin
  10488.   DefaultInterface.CustomerID := Param1;
  10489. end;
  10490.  
  10491. function  TContactItemProperties.Get_Department: WideString;
  10492. begin
  10493.   Result := DefaultInterface.Department;
  10494. end;
  10495.  
  10496. procedure TContactItemProperties.Set_Department(const Param1: WideString);
  10497. begin
  10498.   DefaultInterface.Department := Param1;
  10499. end;
  10500.  
  10501. function  TContactItemProperties.Get_Email1Address: WideString;
  10502. begin
  10503.   Result := DefaultInterface.Email1Address;
  10504. end;
  10505.  
  10506. procedure TContactItemProperties.Set_Email1Address(const Param1: WideString);
  10507. begin
  10508.   DefaultInterface.Email1Address := Param1;
  10509. end;
  10510.  
  10511. function  TContactItemProperties.Get_Email1AddressType: WideString;
  10512. begin
  10513.   Result := DefaultInterface.Email1AddressType;
  10514. end;
  10515.  
  10516. procedure TContactItemProperties.Set_Email1AddressType(const Param1: WideString);
  10517. begin
  10518.   DefaultInterface.Email1AddressType := Param1;
  10519. end;
  10520.  
  10521. function  TContactItemProperties.Get_Email1DisplayName: WideString;
  10522. begin
  10523.   Result := DefaultInterface.Email1DisplayName;
  10524. end;
  10525.  
  10526. function  TContactItemProperties.Get_Email1EntryID: WideString;
  10527. begin
  10528.   Result := DefaultInterface.Email1EntryID;
  10529. end;
  10530.  
  10531. function  TContactItemProperties.Get_Email2Address: WideString;
  10532. begin
  10533.   Result := DefaultInterface.Email2Address;
  10534. end;
  10535.  
  10536. procedure TContactItemProperties.Set_Email2Address(const Param1: WideString);
  10537. begin
  10538.   DefaultInterface.Email2Address := Param1;
  10539. end;
  10540.  
  10541. function  TContactItemProperties.Get_Email2AddressType: WideString;
  10542. begin
  10543.   Result := DefaultInterface.Email2AddressType;
  10544. end;
  10545.  
  10546. procedure TContactItemProperties.Set_Email2AddressType(const Param1: WideString);
  10547. begin
  10548.   DefaultInterface.Email2AddressType := Param1;
  10549. end;
  10550.  
  10551. function  TContactItemProperties.Get_Email2DisplayName: WideString;
  10552. begin
  10553.   Result := DefaultInterface.Email2DisplayName;
  10554. end;
  10555.  
  10556. function  TContactItemProperties.Get_Email2EntryID: WideString;
  10557. begin
  10558.   Result := DefaultInterface.Email2EntryID;
  10559. end;
  10560.  
  10561. function  TContactItemProperties.Get_Email3Address: WideString;
  10562. begin
  10563.   Result := DefaultInterface.Email3Address;
  10564. end;
  10565.  
  10566. procedure TContactItemProperties.Set_Email3Address(const Param1: WideString);
  10567. begin
  10568.   DefaultInterface.Email3Address := Param1;
  10569. end;
  10570.  
  10571. function  TContactItemProperties.Get_Email3AddressType: WideString;
  10572. begin
  10573.   Result := DefaultInterface.Email3AddressType;
  10574. end;
  10575.  
  10576. procedure TContactItemProperties.Set_Email3AddressType(const Param1: WideString);
  10577. begin
  10578.   DefaultInterface.Email3AddressType := Param1;
  10579. end;
  10580.  
  10581. function  TContactItemProperties.Get_Email3DisplayName: WideString;
  10582. begin
  10583.   Result := DefaultInterface.Email3DisplayName;
  10584. end;
  10585.  
  10586. function  TContactItemProperties.Get_Email3EntryID: WideString;
  10587. begin
  10588.   Result := DefaultInterface.Email3EntryID;
  10589. end;
  10590.  
  10591. function  TContactItemProperties.Get_FileAs: WideString;
  10592. begin
  10593.   Result := DefaultInterface.FileAs;
  10594. end;
  10595.  
  10596. procedure TContactItemProperties.Set_FileAs(const Param1: WideString);
  10597. begin
  10598.   DefaultInterface.FileAs := Param1;
  10599. end;
  10600.  
  10601. function  TContactItemProperties.Get_FirstName: WideString;
  10602. begin
  10603.   Result := DefaultInterface.FirstName;
  10604. end;
  10605.  
  10606. procedure TContactItemProperties.Set_FirstName(const Param1: WideString);
  10607. begin
  10608.   DefaultInterface.FirstName := Param1;
  10609. end;
  10610.  
  10611. function  TContactItemProperties.Get_FTPSite: WideString;
  10612. begin
  10613.   Result := DefaultInterface.FTPSite;
  10614. end;
  10615.  
  10616. procedure TContactItemProperties.Set_FTPSite(const Param1: WideString);
  10617. begin
  10618.   DefaultInterface.FTPSite := Param1;
  10619. end;
  10620.  
  10621. function  TContactItemProperties.Get_FullName: WideString;
  10622. begin
  10623.   Result := DefaultInterface.FullName;
  10624. end;
  10625.  
  10626. procedure TContactItemProperties.Set_FullName(const Param1: WideString);
  10627. begin
  10628.   DefaultInterface.FullName := Param1;
  10629. end;
  10630.  
  10631. function  TContactItemProperties.Get_FullNameAndCompany: WideString;
  10632. begin
  10633.   Result := DefaultInterface.FullNameAndCompany;
  10634. end;
  10635.  
  10636. function  TContactItemProperties.Get_Gender: OlGender;
  10637. begin
  10638.   Result := DefaultInterface.Gender;
  10639. end;
  10640.  
  10641. procedure TContactItemProperties.Set_Gender(Param1: OlGender);
  10642. begin
  10643.   DefaultInterface.Gender := Param1;
  10644. end;
  10645.  
  10646. function  TContactItemProperties.Get_GovernmentIDNumber: WideString;
  10647. begin
  10648.   Result := DefaultInterface.GovernmentIDNumber;
  10649. end;
  10650.  
  10651. procedure TContactItemProperties.Set_GovernmentIDNumber(const Param1: WideString);
  10652. begin
  10653.   DefaultInterface.GovernmentIDNumber := Param1;
  10654. end;
  10655.  
  10656. function  TContactItemProperties.Get_Hobby: WideString;
  10657. begin
  10658.   Result := DefaultInterface.Hobby;
  10659. end;
  10660.  
  10661. procedure TContactItemProperties.Set_Hobby(const Param1: WideString);
  10662. begin
  10663.   DefaultInterface.Hobby := Param1;
  10664. end;
  10665.  
  10666. function  TContactItemProperties.Get_Home2TelephoneNumber: WideString;
  10667. begin
  10668.   Result := DefaultInterface.Home2TelephoneNumber;
  10669. end;
  10670.  
  10671. procedure TContactItemProperties.Set_Home2TelephoneNumber(const Param1: WideString);
  10672. begin
  10673.   DefaultInterface.Home2TelephoneNumber := Param1;
  10674. end;
  10675.  
  10676. function  TContactItemProperties.Get_HomeAddress: WideString;
  10677. begin
  10678.   Result := DefaultInterface.HomeAddress;
  10679. end;
  10680.  
  10681. procedure TContactItemProperties.Set_HomeAddress(const Param1: WideString);
  10682. begin
  10683.   DefaultInterface.HomeAddress := Param1;
  10684. end;
  10685.  
  10686. function  TContactItemProperties.Get_HomeAddressCity: WideString;
  10687. begin
  10688.   Result := DefaultInterface.HomeAddressCity;
  10689. end;
  10690.  
  10691. procedure TContactItemProperties.Set_HomeAddressCity(const Param1: WideString);
  10692. begin
  10693.   DefaultInterface.HomeAddressCity := Param1;
  10694. end;
  10695.  
  10696. function  TContactItemProperties.Get_HomeAddressCountry: WideString;
  10697. begin
  10698.   Result := DefaultInterface.HomeAddressCountry;
  10699. end;
  10700.  
  10701. procedure TContactItemProperties.Set_HomeAddressCountry(const Param1: WideString);
  10702. begin
  10703.   DefaultInterface.HomeAddressCountry := Param1;
  10704. end;
  10705.  
  10706. function  TContactItemProperties.Get_HomeAddressPostalCode: WideString;
  10707. begin
  10708.   Result := DefaultInterface.HomeAddressPostalCode;
  10709. end;
  10710.  
  10711. procedure TContactItemProperties.Set_HomeAddressPostalCode(const Param1: WideString);
  10712. begin
  10713.   DefaultInterface.HomeAddressPostalCode := Param1;
  10714. end;
  10715.  
  10716. function  TContactItemProperties.Get_HomeAddressPostOfficeBox: WideString;
  10717. begin
  10718.   Result := DefaultInterface.HomeAddressPostOfficeBox;
  10719. end;
  10720.  
  10721. procedure TContactItemProperties.Set_HomeAddressPostOfficeBox(const Param1: WideString);
  10722. begin
  10723.   DefaultInterface.HomeAddressPostOfficeBox := Param1;
  10724. end;
  10725.  
  10726. function  TContactItemProperties.Get_HomeAddressState: WideString;
  10727. begin
  10728.   Result := DefaultInterface.HomeAddressState;
  10729. end;
  10730.  
  10731. procedure TContactItemProperties.Set_HomeAddressState(const Param1: WideString);
  10732. begin
  10733.   DefaultInterface.HomeAddressState := Param1;
  10734. end;
  10735.  
  10736. function  TContactItemProperties.Get_HomeAddressStreet: WideString;
  10737. begin
  10738.   Result := DefaultInterface.HomeAddressStreet;
  10739. end;
  10740.  
  10741. procedure TContactItemProperties.Set_HomeAddressStreet(const Param1: WideString);
  10742. begin
  10743.   DefaultInterface.HomeAddressStreet := Param1;
  10744. end;
  10745.  
  10746. function  TContactItemProperties.Get_HomeFaxNumber: WideString;
  10747. begin
  10748.   Result := DefaultInterface.HomeFaxNumber;
  10749. end;
  10750.  
  10751. procedure TContactItemProperties.Set_HomeFaxNumber(const Param1: WideString);
  10752. begin
  10753.   DefaultInterface.HomeFaxNumber := Param1;
  10754. end;
  10755.  
  10756. function  TContactItemProperties.Get_HomeTelephoneNumber: WideString;
  10757. begin
  10758.   Result := DefaultInterface.HomeTelephoneNumber;
  10759. end;
  10760.  
  10761. procedure TContactItemProperties.Set_HomeTelephoneNumber(const Param1: WideString);
  10762. begin
  10763.   DefaultInterface.HomeTelephoneNumber := Param1;
  10764. end;
  10765.  
  10766. function  TContactItemProperties.Get_Initials: WideString;
  10767. begin
  10768.   Result := DefaultInterface.Initials;
  10769. end;
  10770.  
  10771. procedure TContactItemProperties.Set_Initials(const Param1: WideString);
  10772. begin
  10773.   DefaultInterface.Initials := Param1;
  10774. end;
  10775.  
  10776. function  TContactItemProperties.Get_ISDNNumber: WideString;
  10777. begin
  10778.   Result := DefaultInterface.ISDNNumber;
  10779. end;
  10780.  
  10781. procedure TContactItemProperties.Set_ISDNNumber(const Param1: WideString);
  10782. begin
  10783.   DefaultInterface.ISDNNumber := Param1;
  10784. end;
  10785.  
  10786. function  TContactItemProperties.Get_JobTitle: WideString;
  10787. begin
  10788.   Result := DefaultInterface.JobTitle;
  10789. end;
  10790.  
  10791. procedure TContactItemProperties.Set_JobTitle(const Param1: WideString);
  10792. begin
  10793.   DefaultInterface.JobTitle := Param1;
  10794. end;
  10795.  
  10796. function  TContactItemProperties.Get_Journal: WordBool;
  10797. begin
  10798.   Result := DefaultInterface.Journal;
  10799. end;
  10800.  
  10801. procedure TContactItemProperties.Set_Journal(Param1: WordBool);
  10802. begin
  10803.   DefaultInterface.Journal := Param1;
  10804. end;
  10805.  
  10806. function  TContactItemProperties.Get_Language: WideString;
  10807. begin
  10808.   Result := DefaultInterface.Language;
  10809. end;
  10810.  
  10811. procedure TContactItemProperties.Set_Language(const Param1: WideString);
  10812. begin
  10813.   DefaultInterface.Language := Param1;
  10814. end;
  10815.  
  10816. function  TContactItemProperties.Get_LastName: WideString;
  10817. begin
  10818.   Result := DefaultInterface.LastName;
  10819. end;
  10820.  
  10821. procedure TContactItemProperties.Set_LastName(const Param1: WideString);
  10822. begin
  10823.   DefaultInterface.LastName := Param1;
  10824. end;
  10825.  
  10826. function  TContactItemProperties.Get_LastNameAndFirstName: WideString;
  10827. begin
  10828.   Result := DefaultInterface.LastNameAndFirstName;
  10829. end;
  10830.  
  10831. function  TContactItemProperties.Get_MailingAddress: WideString;
  10832. begin
  10833.   Result := DefaultInterface.MailingAddress;
  10834. end;
  10835.  
  10836. procedure TContactItemProperties.Set_MailingAddress(const Param1: WideString);
  10837. begin
  10838.   DefaultInterface.MailingAddress := Param1;
  10839. end;
  10840.  
  10841. function  TContactItemProperties.Get_MailingAddressCity: WideString;
  10842. begin
  10843.   Result := DefaultInterface.MailingAddressCity;
  10844. end;
  10845.  
  10846. procedure TContactItemProperties.Set_MailingAddressCity(const Param1: WideString);
  10847. begin
  10848.   DefaultInterface.MailingAddressCity := Param1;
  10849. end;
  10850.  
  10851. function  TContactItemProperties.Get_MailingAddressCountry: WideString;
  10852. begin
  10853.   Result := DefaultInterface.MailingAddressCountry;
  10854. end;
  10855.  
  10856. procedure TContactItemProperties.Set_MailingAddressCountry(const Param1: WideString);
  10857. begin
  10858.   DefaultInterface.MailingAddressCountry := Param1;
  10859. end;
  10860.  
  10861. function  TContactItemProperties.Get_MailingAddressPostalCode: WideString;
  10862. begin
  10863.   Result := DefaultInterface.MailingAddressPostalCode;
  10864. end;
  10865.  
  10866. procedure TContactItemProperties.Set_MailingAddressPostalCode(const Param1: WideString);
  10867. begin
  10868.   DefaultInterface.MailingAddressPostalCode := Param1;
  10869. end;
  10870.  
  10871. function  TContactItemProperties.Get_MailingAddressPostOfficeBox: WideString;
  10872. begin
  10873.   Result := DefaultInterface.MailingAddressPostOfficeBox;
  10874. end;
  10875.  
  10876. procedure TContactItemProperties.Set_MailingAddressPostOfficeBox(const Param1: WideString);
  10877. begin
  10878.   DefaultInterface.MailingAddressPostOfficeBox := Param1;
  10879. end;
  10880.  
  10881. function  TContactItemProperties.Get_MailingAddressState: WideString;
  10882. begin
  10883.   Result := DefaultInterface.MailingAddressState;
  10884. end;
  10885.  
  10886. procedure TContactItemProperties.Set_MailingAddressState(const Param1: WideString);
  10887. begin
  10888.   DefaultInterface.MailingAddressState := Param1;
  10889. end;
  10890.  
  10891. function  TContactItemProperties.Get_MailingAddressStreet: WideString;
  10892. begin
  10893.   Result := DefaultInterface.MailingAddressStreet;
  10894. end;
  10895.  
  10896. procedure TContactItemProperties.Set_MailingAddressStreet(const Param1: WideString);
  10897. begin
  10898.   DefaultInterface.MailingAddressStreet := Param1;
  10899. end;
  10900.  
  10901. function  TContactItemProperties.Get_ManagerName: WideString;
  10902. begin
  10903.   Result := DefaultInterface.ManagerName;
  10904. end;
  10905.  
  10906. procedure TContactItemProperties.Set_ManagerName(const Param1: WideString);
  10907. begin
  10908.   DefaultInterface.ManagerName := Param1;
  10909. end;
  10910.  
  10911. function  TContactItemProperties.Get_MiddleName: WideString;
  10912. begin
  10913.   Result := DefaultInterface.MiddleName;
  10914. end;
  10915.  
  10916. procedure TContactItemProperties.Set_MiddleName(const Param1: WideString);
  10917. begin
  10918.   DefaultInterface.MiddleName := Param1;
  10919. end;
  10920.  
  10921. function  TContactItemProperties.Get_MobileTelephoneNumber: WideString;
  10922. begin
  10923.   Result := DefaultInterface.MobileTelephoneNumber;
  10924. end;
  10925.  
  10926. procedure TContactItemProperties.Set_MobileTelephoneNumber(const Param1: WideString);
  10927. begin
  10928.   DefaultInterface.MobileTelephoneNumber := Param1;
  10929. end;
  10930.  
  10931. function  TContactItemProperties.Get_NickName: WideString;
  10932. begin
  10933.   Result := DefaultInterface.NickName;
  10934. end;
  10935.  
  10936. procedure TContactItemProperties.Set_NickName(const Param1: WideString);
  10937. begin
  10938.   DefaultInterface.NickName := Param1;
  10939. end;
  10940.  
  10941. function  TContactItemProperties.Get_OfficeLocation: WideString;
  10942. begin
  10943.   Result := DefaultInterface.OfficeLocation;
  10944. end;
  10945.  
  10946. procedure TContactItemProperties.Set_OfficeLocation(const Param1: WideString);
  10947. begin
  10948.   DefaultInterface.OfficeLocation := Param1;
  10949. end;
  10950.  
  10951. function  TContactItemProperties.Get_OrganizationalIDNumber: WideString;
  10952. begin
  10953.   Result := DefaultInterface.OrganizationalIDNumber;
  10954. end;
  10955.  
  10956. procedure TContactItemProperties.Set_OrganizationalIDNumber(const Param1: WideString);
  10957. begin
  10958.   DefaultInterface.OrganizationalIDNumber := Param1;
  10959. end;
  10960.  
  10961. function  TContactItemProperties.Get_OtherAddress: WideString;
  10962. begin
  10963.   Result := DefaultInterface.OtherAddress;
  10964. end;
  10965.  
  10966. procedure TContactItemProperties.Set_OtherAddress(const Param1: WideString);
  10967. begin
  10968.   DefaultInterface.OtherAddress := Param1;
  10969. end;
  10970.  
  10971. function  TContactItemProperties.Get_OtherAddressCity: WideString;
  10972. begin
  10973.   Result := DefaultInterface.OtherAddressCity;
  10974. end;
  10975.  
  10976. procedure TContactItemProperties.Set_OtherAddressCity(const Param1: WideString);
  10977. begin
  10978.   DefaultInterface.OtherAddressCity := Param1;
  10979. end;
  10980.  
  10981. function  TContactItemProperties.Get_OtherAddressCountry: WideString;
  10982. begin
  10983.   Result := DefaultInterface.OtherAddressCountry;
  10984. end;
  10985.  
  10986. procedure TContactItemProperties.Set_OtherAddressCountry(const Param1: WideString);
  10987. begin
  10988.   DefaultInterface.OtherAddressCountry := Param1;
  10989. end;
  10990.  
  10991. function  TContactItemProperties.Get_OtherAddressPostalCode: WideString;
  10992. begin
  10993.   Result := DefaultInterface.OtherAddressPostalCode;
  10994. end;
  10995.  
  10996. procedure TContactItemProperties.Set_OtherAddressPostalCode(const Param1: WideString);
  10997. begin
  10998.   DefaultInterface.OtherAddressPostalCode := Param1;
  10999. end;
  11000.  
  11001. function  TContactItemProperties.Get_OtherAddressPostOfficeBox: WideString;
  11002. begin
  11003.   Result := DefaultInterface.OtherAddressPostOfficeBox;
  11004. end;
  11005.  
  11006. procedure TContactItemProperties.Set_OtherAddressPostOfficeBox(const Param1: WideString);
  11007. begin
  11008.   DefaultInterface.OtherAddressPostOfficeBox := Param1;
  11009. end;
  11010.  
  11011. function  TContactItemProperties.Get_OtherAddressState: WideString;
  11012. begin
  11013.   Result := DefaultInterface.OtherAddressState;
  11014. end;
  11015.  
  11016. procedure TContactItemProperties.Set_OtherAddressState(const Param1: WideString);
  11017. begin
  11018.   DefaultInterface.OtherAddressState := Param1;
  11019. end;
  11020.  
  11021. function  TContactItemProperties.Get_OtherAddressStreet: WideString;
  11022. begin
  11023.   Result := DefaultInterface.OtherAddressStreet;
  11024. end;
  11025.  
  11026. procedure TContactItemProperties.Set_OtherAddressStreet(const Param1: WideString);
  11027. begin
  11028.   DefaultInterface.OtherAddressStreet := Param1;
  11029. end;
  11030.  
  11031. function  TContactItemProperties.Get_OtherFaxNumber: WideString;
  11032. begin
  11033.   Result := DefaultInterface.OtherFaxNumber;
  11034. end;
  11035.  
  11036. procedure TContactItemProperties.Set_OtherFaxNumber(const Param1: WideString);
  11037. begin
  11038.   DefaultInterface.OtherFaxNumber := Param1;
  11039. end;
  11040.  
  11041. function  TContactItemProperties.Get_OtherTelephoneNumber: WideString;
  11042. begin
  11043.   Result := DefaultInterface.OtherTelephoneNumber;
  11044. end;
  11045.  
  11046. procedure TContactItemProperties.Set_OtherTelephoneNumber(const Param1: WideString);
  11047. begin
  11048.   DefaultInterface.OtherTelephoneNumber := Param1;
  11049. end;
  11050.  
  11051. function  TContactItemProperties.Get_PagerNumber: WideString;
  11052. begin
  11053.   Result := DefaultInterface.PagerNumber;
  11054. end;
  11055.  
  11056. procedure TContactItemProperties.Set_PagerNumber(const Param1: WideString);
  11057. begin
  11058.   DefaultInterface.PagerNumber := Param1;
  11059. end;
  11060.  
  11061. function  TContactItemProperties.Get_PersonalHomePage: WideString;
  11062. begin
  11063.   Result := DefaultInterface.PersonalHomePage;
  11064. end;
  11065.  
  11066. procedure TContactItemProperties.Set_PersonalHomePage(const Param1: WideString);
  11067. begin
  11068.   DefaultInterface.PersonalHomePage := Param1;
  11069. end;
  11070.  
  11071. function  TContactItemProperties.Get_PrimaryTelephoneNumber: WideString;
  11072. begin
  11073.   Result := DefaultInterface.PrimaryTelephoneNumber;
  11074. end;
  11075.  
  11076. procedure TContactItemProperties.Set_PrimaryTelephoneNumber(const Param1: WideString);
  11077. begin
  11078.   DefaultInterface.PrimaryTelephoneNumber := Param1;
  11079. end;
  11080.  
  11081. function  TContactItemProperties.Get_Profession: WideString;
  11082. begin
  11083.   Result := DefaultInterface.Profession;
  11084. end;
  11085.  
  11086. procedure TContactItemProperties.Set_Profession(const Param1: WideString);
  11087. begin
  11088.   DefaultInterface.Profession := Param1;
  11089. end;
  11090.  
  11091. function  TContactItemProperties.Get_RadioTelephoneNumber: WideString;
  11092. begin
  11093.   Result := DefaultInterface.RadioTelephoneNumber;
  11094. end;
  11095.  
  11096. procedure TContactItemProperties.Set_RadioTelephoneNumber(const Param1: WideString);
  11097. begin
  11098.   DefaultInterface.RadioTelephoneNumber := Param1;
  11099. end;
  11100.  
  11101. function  TContactItemProperties.Get_ReferredBy: WideString;
  11102. begin
  11103.   Result := DefaultInterface.ReferredBy;
  11104. end;
  11105.  
  11106. procedure TContactItemProperties.Set_ReferredBy(const Param1: WideString);
  11107. begin
  11108.   DefaultInterface.ReferredBy := Param1;
  11109. end;
  11110.  
  11111. function  TContactItemProperties.Get_SelectedMailingAddress: OlMailingAddress;
  11112. begin
  11113.   Result := DefaultInterface.SelectedMailingAddress;
  11114. end;
  11115.  
  11116. procedure TContactItemProperties.Set_SelectedMailingAddress(Param1: OlMailingAddress);
  11117. begin
  11118.   DefaultInterface.SelectedMailingAddress := Param1;
  11119. end;
  11120.  
  11121. function  TContactItemProperties.Get_Spouse: WideString;
  11122. begin
  11123.   Result := DefaultInterface.Spouse;
  11124. end;
  11125.  
  11126. procedure TContactItemProperties.Set_Spouse(const Param1: WideString);
  11127. begin
  11128.   DefaultInterface.Spouse := Param1;
  11129. end;
  11130.  
  11131. function  TContactItemProperties.Get_Suffix: WideString;
  11132. begin
  11133.   Result := DefaultInterface.Suffix;
  11134. end;
  11135.  
  11136. procedure TContactItemProperties.Set_Suffix(const Param1: WideString);
  11137. begin
  11138.   DefaultInterface.Suffix := Param1;
  11139. end;
  11140.  
  11141. function  TContactItemProperties.Get_TelexNumber: WideString;
  11142. begin
  11143.   Result := DefaultInterface.TelexNumber;
  11144. end;
  11145.  
  11146. procedure TContactItemProperties.Set_TelexNumber(const Param1: WideString);
  11147. begin
  11148.   DefaultInterface.TelexNumber := Param1;
  11149. end;
  11150.  
  11151. function  TContactItemProperties.Get_Title: WideString;
  11152. begin
  11153.   Result := DefaultInterface.Title;
  11154. end;
  11155.  
  11156. procedure TContactItemProperties.Set_Title(const Param1: WideString);
  11157. begin
  11158.   DefaultInterface.Title := Param1;
  11159. end;
  11160.  
  11161. function  TContactItemProperties.Get_TTYTDDTelephoneNumber: WideString;
  11162. begin
  11163.   Result := DefaultInterface.TTYTDDTelephoneNumber;
  11164. end;
  11165.  
  11166. procedure TContactItemProperties.Set_TTYTDDTelephoneNumber(const Param1: WideString);
  11167. begin
  11168.   DefaultInterface.TTYTDDTelephoneNumber := Param1;
  11169. end;
  11170.  
  11171. function  TContactItemProperties.Get_User1: WideString;
  11172. begin
  11173.   Result := DefaultInterface.User1;
  11174. end;
  11175.  
  11176. procedure TContactItemProperties.Set_User1(const Param1: WideString);
  11177. begin
  11178.   DefaultInterface.User1 := Param1;
  11179. end;
  11180.  
  11181. function  TContactItemProperties.Get_User2: WideString;
  11182. begin
  11183.   Result := DefaultInterface.User2;
  11184. end;
  11185.  
  11186. procedure TContactItemProperties.Set_User2(const Param1: WideString);
  11187. begin
  11188.   DefaultInterface.User2 := Param1;
  11189. end;
  11190.  
  11191. function  TContactItemProperties.Get_User3: WideString;
  11192. begin
  11193.   Result := DefaultInterface.User3;
  11194. end;
  11195.  
  11196. procedure TContactItemProperties.Set_User3(const Param1: WideString);
  11197. begin
  11198.   DefaultInterface.User3 := Param1;
  11199. end;
  11200.  
  11201. function  TContactItemProperties.Get_User4: WideString;
  11202. begin
  11203.   Result := DefaultInterface.User4;
  11204. end;
  11205.  
  11206. procedure TContactItemProperties.Set_User4(const Param1: WideString);
  11207. begin
  11208.   DefaultInterface.User4 := Param1;
  11209. end;
  11210.  
  11211. function  TContactItemProperties.Get_UserCertificate: WideString;
  11212. begin
  11213.   Result := DefaultInterface.UserCertificate;
  11214. end;
  11215.  
  11216. procedure TContactItemProperties.Set_UserCertificate(const Param1: WideString);
  11217. begin
  11218.   DefaultInterface.UserCertificate := Param1;
  11219. end;
  11220.  
  11221. function  TContactItemProperties.Get_WebPage: WideString;
  11222. begin
  11223.   Result := DefaultInterface.WebPage;
  11224. end;
  11225.  
  11226. procedure TContactItemProperties.Set_WebPage(const Param1: WideString);
  11227. begin
  11228.   DefaultInterface.WebPage := Param1;
  11229. end;
  11230.  
  11231. function  TContactItemProperties.Get_YomiCompanyName: WideString;
  11232. begin
  11233.   Result := DefaultInterface.YomiCompanyName;
  11234. end;
  11235.  
  11236. procedure TContactItemProperties.Set_YomiCompanyName(const Param1: WideString);
  11237. begin
  11238.   DefaultInterface.YomiCompanyName := Param1;
  11239. end;
  11240.  
  11241. function  TContactItemProperties.Get_YomiFirstName: WideString;
  11242. begin
  11243.   Result := DefaultInterface.YomiFirstName;
  11244. end;
  11245.  
  11246. procedure TContactItemProperties.Set_YomiFirstName(const Param1: WideString);
  11247. begin
  11248.   DefaultInterface.YomiFirstName := Param1;
  11249. end;
  11250.  
  11251. function  TContactItemProperties.Get_YomiLastName: WideString;
  11252. begin
  11253.   Result := DefaultInterface.YomiLastName;
  11254. end;
  11255.  
  11256. procedure TContactItemProperties.Set_YomiLastName(const Param1: WideString);
  11257. begin
  11258.   DefaultInterface.YomiLastName := Param1;
  11259. end;
  11260.  
  11261. {$ENDIF}
  11262.  
  11263. class function CoJournalItem.Create: _DJournalItem;
  11264. begin
  11265.   Result := CreateComObject(CLASS_JournalItem) as _DJournalItem;
  11266. end;
  11267.  
  11268. class function CoJournalItem.CreateRemote(const MachineName: string): _DJournalItem;
  11269. begin
  11270.   Result := CreateRemoteComObject(MachineName, CLASS_JournalItem) as _DJournalItem;
  11271. end;
  11272.  
  11273. procedure TJournalItem.InitServerData;
  11274. const
  11275.   CServerData: TServerData = (
  11276.     ClassID:   '{00061037-0000-0000-C000-000000000046}';
  11277.     IntfIID:   '{00063022-0000-0000-C000-000000000046}';
  11278.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  11279.     LicenseKey: nil;
  11280.     Version: 500);
  11281. begin
  11282.   ServerData := @CServerData;
  11283. end;
  11284.  
  11285. procedure TJournalItem.Connect;
  11286. var
  11287.   punk: IUnknown;
  11288. begin
  11289.   if FIntf = nil then
  11290.   begin
  11291.     punk := GetServer;
  11292.     ConnectEvents(punk);
  11293.     Fintf:= punk as _DJournalItem;
  11294.   end;
  11295. end;
  11296.  
  11297. procedure TJournalItem.ConnectTo(svrIntf: _DJournalItem);
  11298. begin
  11299.   Disconnect;
  11300.   FIntf := svrIntf;
  11301.   ConnectEvents(FIntf);
  11302. end;
  11303.  
  11304. procedure TJournalItem.DisConnect;
  11305. begin
  11306.   if Fintf <> nil then
  11307.   begin
  11308.     DisconnectEvents(FIntf);
  11309.     FIntf := nil;
  11310.   end;
  11311. end;
  11312.  
  11313. function TJournalItem.GetDefaultInterface: _DJournalItem;
  11314. begin
  11315.   if FIntf = nil then
  11316.     Connect;
  11317.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  11318.   Result := FIntf;
  11319. end;
  11320.  
  11321. constructor TJournalItem.Create(AOwner: TComponent);
  11322. begin
  11323.   inherited Create(AOwner);
  11324. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11325.   FProps := TJournalItemProperties.Create(Self);
  11326. {$ENDIF}
  11327. end;
  11328.  
  11329. destructor TJournalItem.Destroy;
  11330. begin
  11331. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11332.   FProps.Free;
  11333. {$ENDIF}
  11334.   inherited Destroy;
  11335. end;
  11336.  
  11337. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11338. function TJournalItem.GetServerProperties: TJournalItemProperties;
  11339. begin
  11340.   Result := FProps;
  11341. end;
  11342. {$ENDIF}
  11343.  
  11344. procedure TJournalItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  11345. begin
  11346.   case DispID of
  11347.     -1: Exit;  // DISPID_UNKNOWN
  11348.    61441: if Assigned(FOnRead) then
  11349.             FOnRead(Self);
  11350.    61442: if Assigned(FOnWrite) then
  11351.             FOnWrite(Self);
  11352.    61443: if Assigned(FOnOpen) then
  11353.             FOnOpen(Self);
  11354.    61444: if Assigned(FOnClose) then
  11355.             FOnClose(Self);
  11356.    61445: if Assigned(FOnSend) then
  11357.             FOnSend(Self);
  11358.    62566: if Assigned(FOnReply) then
  11359.             FOnReply(Self, Params[0] (*const IDispatch*));
  11360.    62567: if Assigned(FOnReplyAll) then
  11361.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  11362.    62568: if Assigned(FOnForward) then
  11363.             FOnForward(Self, Params[0] (*const IDispatch*));
  11364.    61446: if Assigned(FOnCustomAction) then
  11365.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  11366.    61448: if Assigned(FOnCustomPropertyChange) then
  11367.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  11368.    61449: if Assigned(FOnPropertyChange) then
  11369.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  11370.   end; {case DispID}
  11371. end;
  11372.  
  11373. function  TJournalItem.Get_Actions: Actions;
  11374. begin
  11375.   Result := DefaultInterface.Actions;
  11376. end;
  11377.  
  11378. function  TJournalItem.Get_Application: OutlookApplication;
  11379. begin
  11380.   Result := DefaultInterface.Application;
  11381. end;
  11382.  
  11383. function  TJournalItem.Get_Attachments: Attachments;
  11384. begin
  11385.   Result := DefaultInterface.Attachments;
  11386. end;
  11387.  
  11388. function  TJournalItem.Get_BillingInformation: WideString;
  11389. begin
  11390.   Result := DefaultInterface.BillingInformation;
  11391. end;
  11392.  
  11393. procedure TJournalItem.Set_BillingInformation(const Param1: WideString);
  11394. begin
  11395.   DefaultInterface.BillingInformation := Param1;
  11396. end;
  11397.  
  11398. function  TJournalItem.Get_Body: WideString;
  11399. begin
  11400.   Result := DefaultInterface.Body;
  11401. end;
  11402.  
  11403. procedure TJournalItem.Set_Body(const Param1: WideString);
  11404. begin
  11405.   DefaultInterface.Body := Param1;
  11406. end;
  11407.  
  11408. function  TJournalItem.Get_Categories: WideString;
  11409. begin
  11410.   Result := DefaultInterface.Categories;
  11411. end;
  11412.  
  11413. procedure TJournalItem.Set_Categories(const Param1: WideString);
  11414. begin
  11415.   DefaultInterface.Categories := Param1;
  11416. end;
  11417.  
  11418. function  TJournalItem.Get_Companies: WideString;
  11419. begin
  11420.   Result := DefaultInterface.Companies;
  11421. end;
  11422.  
  11423. procedure TJournalItem.Set_Companies(const Param1: WideString);
  11424. begin
  11425.   DefaultInterface.Companies := Param1;
  11426. end;
  11427.  
  11428. function  TJournalItem.Get_CreationTime: TDateTime;
  11429. begin
  11430.   Result := DefaultInterface.CreationTime;
  11431. end;
  11432.  
  11433. function  TJournalItem.Get_EntryID: WideString;
  11434. begin
  11435.   Result := DefaultInterface.EntryID;
  11436. end;
  11437.  
  11438. function  TJournalItem.Get_FormDescription: FormDescription;
  11439. begin
  11440.   Result := DefaultInterface.FormDescription;
  11441. end;
  11442.  
  11443. function  TJournalItem.Get_GetInspector: Inspector;
  11444. begin
  11445.   Result := DefaultInterface.GetInspector;
  11446. end;
  11447.  
  11448. function  TJournalItem.Get_Importance: OlImportance;
  11449. begin
  11450.   Result := DefaultInterface.Importance;
  11451. end;
  11452.  
  11453. procedure TJournalItem.Set_Importance(Param1: OlImportance);
  11454. begin
  11455.   DefaultInterface.Importance := Param1;
  11456. end;
  11457.  
  11458. function  TJournalItem.Get_LastModificationTime: TDateTime;
  11459. begin
  11460.   Result := DefaultInterface.LastModificationTime;
  11461. end;
  11462.  
  11463. function  TJournalItem.Get_MessageClass: WideString;
  11464. begin
  11465.   Result := DefaultInterface.MessageClass;
  11466. end;
  11467.  
  11468. procedure TJournalItem.Set_MessageClass(const Param1: WideString);
  11469. begin
  11470.   DefaultInterface.MessageClass := Param1;
  11471. end;
  11472.  
  11473. function  TJournalItem.Get_Mileage: WideString;
  11474. begin
  11475.   Result := DefaultInterface.Mileage;
  11476. end;
  11477.  
  11478. procedure TJournalItem.Set_Mileage(const Param1: WideString);
  11479. begin
  11480.   DefaultInterface.Mileage := Param1;
  11481. end;
  11482.  
  11483. function  TJournalItem.Get_NoAging: WordBool;
  11484. begin
  11485.   Result := DefaultInterface.NoAging;
  11486. end;
  11487.  
  11488. procedure TJournalItem.Set_NoAging(Param1: WordBool);
  11489. begin
  11490.   DefaultInterface.NoAging := Param1;
  11491. end;
  11492.  
  11493. function  TJournalItem.Get_OutlookInternalVersion: WideString;
  11494. begin
  11495.   Result := DefaultInterface.OutlookInternalVersion;
  11496. end;
  11497.  
  11498. function  TJournalItem.Get_OutlookVersion: WideString;
  11499. begin
  11500.   Result := DefaultInterface.OutlookVersion;
  11501. end;
  11502.  
  11503. function  TJournalItem.Get_Parent: IDispatch;
  11504. begin
  11505.   Result := DefaultInterface.Parent;
  11506. end;
  11507.  
  11508. function  TJournalItem.Get_Saved: WordBool;
  11509. begin
  11510.   Result := DefaultInterface.Saved;
  11511. end;
  11512.  
  11513. function  TJournalItem.Get_Sensitivity: OlSensitivity;
  11514. begin
  11515.   Result := DefaultInterface.Sensitivity;
  11516. end;
  11517.  
  11518. procedure TJournalItem.Set_Sensitivity(Param1: OlSensitivity);
  11519. begin
  11520.   DefaultInterface.Sensitivity := Param1;
  11521. end;
  11522.  
  11523. function  TJournalItem.Get_Size: Integer;
  11524. begin
  11525.   Result := DefaultInterface.Size;
  11526. end;
  11527.  
  11528. function  TJournalItem.Get_Subject: WideString;
  11529. begin
  11530.   Result := DefaultInterface.Subject;
  11531. end;
  11532.  
  11533. procedure TJournalItem.Set_Subject(const Param1: WideString);
  11534. begin
  11535.   DefaultInterface.Subject := Param1;
  11536. end;
  11537.  
  11538. function  TJournalItem.Get_UnRead: WordBool;
  11539. begin
  11540.   Result := DefaultInterface.UnRead;
  11541. end;
  11542.  
  11543. procedure TJournalItem.Set_UnRead(Param1: WordBool);
  11544. begin
  11545.   DefaultInterface.UnRead := Param1;
  11546. end;
  11547.  
  11548. function  TJournalItem.Get_UserProperties: UserProperties;
  11549. begin
  11550.   Result := DefaultInterface.UserProperties;
  11551. end;
  11552.  
  11553. function  TJournalItem.Get_ContactNames: WideString;
  11554. begin
  11555.   Result := DefaultInterface.ContactNames;
  11556. end;
  11557.  
  11558. procedure TJournalItem.Set_ContactNames(const Param1: WideString);
  11559. begin
  11560.   DefaultInterface.ContactNames := Param1;
  11561. end;
  11562.  
  11563. function  TJournalItem.Get_DocPosted: WordBool;
  11564. begin
  11565.   Result := DefaultInterface.DocPosted;
  11566. end;
  11567.  
  11568. procedure TJournalItem.Set_DocPosted(Param1: WordBool);
  11569. begin
  11570.   DefaultInterface.DocPosted := Param1;
  11571. end;
  11572.  
  11573. function  TJournalItem.Get_DocPrinted: WordBool;
  11574. begin
  11575.   Result := DefaultInterface.DocPrinted;
  11576. end;
  11577.  
  11578. procedure TJournalItem.Set_DocPrinted(Param1: WordBool);
  11579. begin
  11580.   DefaultInterface.DocPrinted := Param1;
  11581. end;
  11582.  
  11583. function  TJournalItem.Get_DocRouted: WordBool;
  11584. begin
  11585.   Result := DefaultInterface.DocRouted;
  11586. end;
  11587.  
  11588. procedure TJournalItem.Set_DocRouted(Param1: WordBool);
  11589. begin
  11590.   DefaultInterface.DocRouted := Param1;
  11591. end;
  11592.  
  11593. function  TJournalItem.Get_DocSaved: WordBool;
  11594. begin
  11595.   Result := DefaultInterface.DocSaved;
  11596. end;
  11597.  
  11598. procedure TJournalItem.Set_DocSaved(Param1: WordBool);
  11599. begin
  11600.   DefaultInterface.DocSaved := Param1;
  11601. end;
  11602.  
  11603. function  TJournalItem.Get_Duration: Integer;
  11604. begin
  11605.   Result := DefaultInterface.Duration;
  11606. end;
  11607.  
  11608. procedure TJournalItem.Set_Duration(Param1: Integer);
  11609. begin
  11610.   DefaultInterface.Duration := Param1;
  11611. end;
  11612.  
  11613. function  TJournalItem.Get_End_: TDateTime;
  11614. begin
  11615.   Result := DefaultInterface.End_;
  11616. end;
  11617.  
  11618. procedure TJournalItem.Set_End_(Param1: TDateTime);
  11619. begin
  11620.   DefaultInterface.End_ := Param1;
  11621. end;
  11622.  
  11623. function  TJournalItem.Get_Recipients: Recipients;
  11624. begin
  11625.   Result := DefaultInterface.Recipients;
  11626. end;
  11627.  
  11628. function  TJournalItem.Get_Start: TDateTime;
  11629. begin
  11630.   Result := DefaultInterface.Start;
  11631. end;
  11632.  
  11633. procedure TJournalItem.Set_Start(Param1: TDateTime);
  11634. begin
  11635.   DefaultInterface.Start := Param1;
  11636. end;
  11637.  
  11638. function  TJournalItem.Get_Type_: WideString;
  11639. begin
  11640.   Result := DefaultInterface.Type_;
  11641. end;
  11642.  
  11643. procedure TJournalItem.Set_Type_(const Param1: WideString);
  11644. begin
  11645.   DefaultInterface.Type_ := Param1;
  11646. end;
  11647.  
  11648. procedure TJournalItem.Close(SaveMode: OlInspectorClose);
  11649. begin
  11650.   DefaultInterface.Close(SaveMode);
  11651. end;
  11652.  
  11653. function  TJournalItem.Copy: IDispatch;
  11654. begin
  11655.   Result := DefaultInterface.Copy;
  11656. end;
  11657.  
  11658. procedure TJournalItem.Delete;
  11659. begin
  11660.   DefaultInterface.Delete;
  11661. end;
  11662.  
  11663. procedure TJournalItem.Display(Modal: OleVariant);
  11664. begin
  11665.   DefaultInterface.Display(Modal);
  11666. end;
  11667.  
  11668. function  TJournalItem.Move(const DestFldr: MAPIFolder): IDispatch;
  11669. begin
  11670.   Result := DefaultInterface.Move(DestFldr);
  11671. end;
  11672.  
  11673. procedure TJournalItem.Save;
  11674. begin
  11675.   DefaultInterface.Save;
  11676. end;
  11677.  
  11678. procedure TJournalItem.SaveAs(const Path: WideString; Type_: OleVariant);
  11679. begin
  11680.   DefaultInterface.SaveAs(Path, Type_);
  11681. end;
  11682.  
  11683. procedure TJournalItem.PrintOut;
  11684. begin
  11685.   DefaultInterface.PrintOut;
  11686. end;
  11687.  
  11688. function  TJournalItem.Forward: MailItem;
  11689. begin
  11690.   Result := DefaultInterface.Forward;
  11691. end;
  11692.  
  11693. function  TJournalItem.Reply: MailItem;
  11694. begin
  11695.   Result := DefaultInterface.Reply;
  11696. end;
  11697.  
  11698. function  TJournalItem.ReplyAll: MailItem;
  11699. begin
  11700.   Result := DefaultInterface.ReplyAll;
  11701. end;
  11702.  
  11703. procedure TJournalItem.StartTimer;
  11704. begin
  11705.   DefaultInterface.StartTimer;
  11706. end;
  11707.  
  11708. procedure TJournalItem.StopTimer;
  11709. begin
  11710.   DefaultInterface.StopTimer;
  11711. end;
  11712.  
  11713. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  11714. constructor TJournalItemProperties.Create(AServer: TJournalItem);
  11715. begin
  11716.   inherited Create;
  11717.   FServer := AServer;
  11718. end;
  11719.  
  11720. function TJournalItemProperties.GetDefaultInterface: _DJournalItem;
  11721. begin
  11722.   Result := FServer.DefaultInterface;
  11723. end;
  11724.  
  11725. function  TJournalItemProperties.Get_Actions: Actions;
  11726. begin
  11727.   Result := DefaultInterface.Actions;
  11728. end;
  11729.  
  11730. function  TJournalItemProperties.Get_Application: OutlookApplication;
  11731. begin
  11732.   Result := DefaultInterface.Application;
  11733. end;
  11734.  
  11735. function  TJournalItemProperties.Get_Attachments: Attachments;
  11736. begin
  11737.   Result := DefaultInterface.Attachments;
  11738. end;
  11739.  
  11740. function  TJournalItemProperties.Get_BillingInformation: WideString;
  11741. begin
  11742.   Result := DefaultInterface.BillingInformation;
  11743. end;
  11744.  
  11745. procedure TJournalItemProperties.Set_BillingInformation(const Param1: WideString);
  11746. begin
  11747.   DefaultInterface.BillingInformation := Param1;
  11748. end;
  11749.  
  11750. function  TJournalItemProperties.Get_Body: WideString;
  11751. begin
  11752.   Result := DefaultInterface.Body;
  11753. end;
  11754.  
  11755. procedure TJournalItemProperties.Set_Body(const Param1: WideString);
  11756. begin
  11757.   DefaultInterface.Body := Param1;
  11758. end;
  11759.  
  11760. function  TJournalItemProperties.Get_Categories: WideString;
  11761. begin
  11762.   Result := DefaultInterface.Categories;
  11763. end;
  11764.  
  11765. procedure TJournalItemProperties.Set_Categories(const Param1: WideString);
  11766. begin
  11767.   DefaultInterface.Categories := Param1;
  11768. end;
  11769.  
  11770. function  TJournalItemProperties.Get_Companies: WideString;
  11771. begin
  11772.   Result := DefaultInterface.Companies;
  11773. end;
  11774.  
  11775. procedure TJournalItemProperties.Set_Companies(const Param1: WideString);
  11776. begin
  11777.   DefaultInterface.Companies := Param1;
  11778. end;
  11779.  
  11780. function  TJournalItemProperties.Get_CreationTime: TDateTime;
  11781. begin
  11782.   Result := DefaultInterface.CreationTime;
  11783. end;
  11784.  
  11785. function  TJournalItemProperties.Get_EntryID: WideString;
  11786. begin
  11787.   Result := DefaultInterface.EntryID;
  11788. end;
  11789.  
  11790. function  TJournalItemProperties.Get_FormDescription: FormDescription;
  11791. begin
  11792.   Result := DefaultInterface.FormDescription;
  11793. end;
  11794.  
  11795. function  TJournalItemProperties.Get_GetInspector: Inspector;
  11796. begin
  11797.   Result := DefaultInterface.GetInspector;
  11798. end;
  11799.  
  11800. function  TJournalItemProperties.Get_Importance: OlImportance;
  11801. begin
  11802.   Result := DefaultInterface.Importance;
  11803. end;
  11804.  
  11805. procedure TJournalItemProperties.Set_Importance(Param1: OlImportance);
  11806. begin
  11807.   DefaultInterface.Importance := Param1;
  11808. end;
  11809.  
  11810. function  TJournalItemProperties.Get_LastModificationTime: TDateTime;
  11811. begin
  11812.   Result := DefaultInterface.LastModificationTime;
  11813. end;
  11814.  
  11815. function  TJournalItemProperties.Get_MessageClass: WideString;
  11816. begin
  11817.   Result := DefaultInterface.MessageClass;
  11818. end;
  11819.  
  11820. procedure TJournalItemProperties.Set_MessageClass(const Param1: WideString);
  11821. begin
  11822.   DefaultInterface.MessageClass := Param1;
  11823. end;
  11824.  
  11825. function  TJournalItemProperties.Get_Mileage: WideString;
  11826. begin
  11827.   Result := DefaultInterface.Mileage;
  11828. end;
  11829.  
  11830. procedure TJournalItemProperties.Set_Mileage(const Param1: WideString);
  11831. begin
  11832.   DefaultInterface.Mileage := Param1;
  11833. end;
  11834.  
  11835. function  TJournalItemProperties.Get_NoAging: WordBool;
  11836. begin
  11837.   Result := DefaultInterface.NoAging;
  11838. end;
  11839.  
  11840. procedure TJournalItemProperties.Set_NoAging(Param1: WordBool);
  11841. begin
  11842.   DefaultInterface.NoAging := Param1;
  11843. end;
  11844.  
  11845. function  TJournalItemProperties.Get_OutlookInternalVersion: WideString;
  11846. begin
  11847.   Result := DefaultInterface.OutlookInternalVersion;
  11848. end;
  11849.  
  11850. function  TJournalItemProperties.Get_OutlookVersion: WideString;
  11851. begin
  11852.   Result := DefaultInterface.OutlookVersion;
  11853. end;
  11854.  
  11855. function  TJournalItemProperties.Get_Parent: IDispatch;
  11856. begin
  11857.   Result := DefaultInterface.Parent;
  11858. end;
  11859.  
  11860. function  TJournalItemProperties.Get_Saved: WordBool;
  11861. begin
  11862.   Result := DefaultInterface.Saved;
  11863. end;
  11864.  
  11865. function  TJournalItemProperties.Get_Sensitivity: OlSensitivity;
  11866. begin
  11867.   Result := DefaultInterface.Sensitivity;
  11868. end;
  11869.  
  11870. procedure TJournalItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  11871. begin
  11872.   DefaultInterface.Sensitivity := Param1;
  11873. end;
  11874.  
  11875. function  TJournalItemProperties.Get_Size: Integer;
  11876. begin
  11877.   Result := DefaultInterface.Size;
  11878. end;
  11879.  
  11880. function  TJournalItemProperties.Get_Subject: WideString;
  11881. begin
  11882.   Result := DefaultInterface.Subject;
  11883. end;
  11884.  
  11885. procedure TJournalItemProperties.Set_Subject(const Param1: WideString);
  11886. begin
  11887.   DefaultInterface.Subject := Param1;
  11888. end;
  11889.  
  11890. function  TJournalItemProperties.Get_UnRead: WordBool;
  11891. begin
  11892.   Result := DefaultInterface.UnRead;
  11893. end;
  11894.  
  11895. procedure TJournalItemProperties.Set_UnRead(Param1: WordBool);
  11896. begin
  11897.   DefaultInterface.UnRead := Param1;
  11898. end;
  11899.  
  11900. function  TJournalItemProperties.Get_UserProperties: UserProperties;
  11901. begin
  11902.   Result := DefaultInterface.UserProperties;
  11903. end;
  11904.  
  11905. function  TJournalItemProperties.Get_ContactNames: WideString;
  11906. begin
  11907.   Result := DefaultInterface.ContactNames;
  11908. end;
  11909.  
  11910. procedure TJournalItemProperties.Set_ContactNames(const Param1: WideString);
  11911. begin
  11912.   DefaultInterface.ContactNames := Param1;
  11913. end;
  11914.  
  11915. function  TJournalItemProperties.Get_DocPosted: WordBool;
  11916. begin
  11917.   Result := DefaultInterface.DocPosted;
  11918. end;
  11919.  
  11920. procedure TJournalItemProperties.Set_DocPosted(Param1: WordBool);
  11921. begin
  11922.   DefaultInterface.DocPosted := Param1;
  11923. end;
  11924.  
  11925. function  TJournalItemProperties.Get_DocPrinted: WordBool;
  11926. begin
  11927.   Result := DefaultInterface.DocPrinted;
  11928. end;
  11929.  
  11930. procedure TJournalItemProperties.Set_DocPrinted(Param1: WordBool);
  11931. begin
  11932.   DefaultInterface.DocPrinted := Param1;
  11933. end;
  11934.  
  11935. function  TJournalItemProperties.Get_DocRouted: WordBool;
  11936. begin
  11937.   Result := DefaultInterface.DocRouted;
  11938. end;
  11939.  
  11940. procedure TJournalItemProperties.Set_DocRouted(Param1: WordBool);
  11941. begin
  11942.   DefaultInterface.DocRouted := Param1;
  11943. end;
  11944.  
  11945. function  TJournalItemProperties.Get_DocSaved: WordBool;
  11946. begin
  11947.   Result := DefaultInterface.DocSaved;
  11948. end;
  11949.  
  11950. procedure TJournalItemProperties.Set_DocSaved(Param1: WordBool);
  11951. begin
  11952.   DefaultInterface.DocSaved := Param1;
  11953. end;
  11954.  
  11955. function  TJournalItemProperties.Get_Duration: Integer;
  11956. begin
  11957.   Result := DefaultInterface.Duration;
  11958. end;
  11959.  
  11960. procedure TJournalItemProperties.Set_Duration(Param1: Integer);
  11961. begin
  11962.   DefaultInterface.Duration := Param1;
  11963. end;
  11964.  
  11965. function  TJournalItemProperties.Get_End_: TDateTime;
  11966. begin
  11967.   Result := DefaultInterface.End_;
  11968. end;
  11969.  
  11970. procedure TJournalItemProperties.Set_End_(Param1: TDateTime);
  11971. begin
  11972.   DefaultInterface.End_ := Param1;
  11973. end;
  11974.  
  11975. function  TJournalItemProperties.Get_Recipients: Recipients;
  11976. begin
  11977.   Result := DefaultInterface.Recipients;
  11978. end;
  11979.  
  11980. function  TJournalItemProperties.Get_Start: TDateTime;
  11981. begin
  11982.   Result := DefaultInterface.Start;
  11983. end;
  11984.  
  11985. procedure TJournalItemProperties.Set_Start(Param1: TDateTime);
  11986. begin
  11987.   DefaultInterface.Start := Param1;
  11988. end;
  11989.  
  11990. function  TJournalItemProperties.Get_Type_: WideString;
  11991. begin
  11992.   Result := DefaultInterface.Type_;
  11993. end;
  11994.  
  11995. procedure TJournalItemProperties.Set_Type_(const Param1: WideString);
  11996. begin
  11997.   DefaultInterface.Type_ := Param1;
  11998. end;
  11999.  
  12000. {$ENDIF}
  12001.  
  12002. class function CoMailItem.Create: _DMailItem;
  12003. begin
  12004.   Result := CreateComObject(CLASS_MailItem) as _DMailItem;
  12005. end;
  12006.  
  12007. class function CoMailItem.CreateRemote(const MachineName: string): _DMailItem;
  12008. begin
  12009.   Result := CreateRemoteComObject(MachineName, CLASS_MailItem) as _DMailItem;
  12010. end;
  12011.  
  12012. procedure TMailItem.InitServerData;
  12013. const
  12014.   CServerData: TServerData = (
  12015.     ClassID:   '{00061033-0000-0000-C000-000000000046}';
  12016.     IntfIID:   '{00063034-0000-0000-C000-000000000046}';
  12017.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  12018.     LicenseKey: nil;
  12019.     Version: 500);
  12020. begin
  12021.   ServerData := @CServerData;
  12022. end;
  12023.  
  12024. procedure TMailItem.Connect;
  12025. var
  12026.   punk: IUnknown;
  12027. begin
  12028.   if FIntf = nil then
  12029.   begin
  12030.     punk := GetServer;
  12031.     ConnectEvents(punk);
  12032.     Fintf:= punk as _DMailItem;
  12033.   end;
  12034. end;
  12035.  
  12036. procedure TMailItem.ConnectTo(svrIntf: _DMailItem);
  12037. begin
  12038.   Disconnect;
  12039.   FIntf := svrIntf;
  12040.   ConnectEvents(FIntf);
  12041. end;
  12042.  
  12043. procedure TMailItem.DisConnect;
  12044. begin
  12045.   if Fintf <> nil then
  12046.   begin
  12047.     DisconnectEvents(FIntf);
  12048.     FIntf := nil;
  12049.   end;
  12050. end;
  12051.  
  12052. function TMailItem.GetDefaultInterface: _DMailItem;
  12053. begin
  12054.   if FIntf = nil then
  12055.     Connect;
  12056.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  12057.   Result := FIntf;
  12058. end;
  12059.  
  12060. constructor TMailItem.Create(AOwner: TComponent);
  12061. begin
  12062.   inherited Create(AOwner);
  12063. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12064.   FProps := TMailItemProperties.Create(Self);
  12065. {$ENDIF}
  12066. end;
  12067.  
  12068. destructor TMailItem.Destroy;
  12069. begin
  12070. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12071.   FProps.Free;
  12072. {$ENDIF}
  12073.   inherited Destroy;
  12074. end;
  12075.  
  12076. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12077. function TMailItem.GetServerProperties: TMailItemProperties;
  12078. begin
  12079.   Result := FProps;
  12080. end;
  12081. {$ENDIF}
  12082.  
  12083. procedure TMailItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  12084. begin
  12085.   case DispID of
  12086.     -1: Exit;  // DISPID_UNKNOWN
  12087.    61441: if Assigned(FOnRead) then
  12088.             FOnRead(Self);
  12089.    61442: if Assigned(FOnWrite) then
  12090.             FOnWrite(Self);
  12091.    61443: if Assigned(FOnOpen) then
  12092.             FOnOpen(Self);
  12093.    61444: if Assigned(FOnClose) then
  12094.             FOnClose(Self);
  12095.    61445: if Assigned(FOnSend) then
  12096.             FOnSend(Self);
  12097.    62566: if Assigned(FOnReply) then
  12098.             FOnReply(Self, Params[0] (*const IDispatch*));
  12099.    62567: if Assigned(FOnReplyAll) then
  12100.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  12101.    62568: if Assigned(FOnForward) then
  12102.             FOnForward(Self, Params[0] (*const IDispatch*));
  12103.    61446: if Assigned(FOnCustomAction) then
  12104.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  12105.    61448: if Assigned(FOnCustomPropertyChange) then
  12106.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  12107.    61449: if Assigned(FOnPropertyChange) then
  12108.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  12109.   end; {case DispID}
  12110. end;
  12111.  
  12112. function  TMailItem.Get_Actions: Actions;
  12113. begin
  12114.   Result := DefaultInterface.Actions;
  12115. end;
  12116.  
  12117. function  TMailItem.Get_Application: OutlookApplication;
  12118. begin
  12119.   Result := DefaultInterface.Application;
  12120. end;
  12121.  
  12122. function  TMailItem.Get_Attachments: Attachments;
  12123. begin
  12124.   Result := DefaultInterface.Attachments;
  12125. end;
  12126.  
  12127. function  TMailItem.Get_BillingInformation: WideString;
  12128. begin
  12129.   Result := DefaultInterface.BillingInformation;
  12130. end;
  12131.  
  12132. procedure TMailItem.Set_BillingInformation(const Param1: WideString);
  12133. begin
  12134.   DefaultInterface.BillingInformation := Param1;
  12135. end;
  12136.  
  12137. function  TMailItem.Get_Body: WideString;
  12138. begin
  12139.   Result := DefaultInterface.Body;
  12140. end;
  12141.  
  12142. procedure TMailItem.Set_Body(const Param1: WideString);
  12143. begin
  12144.   DefaultInterface.Body := Param1;
  12145. end;
  12146.  
  12147. function  TMailItem.Get_Categories: WideString;
  12148. begin
  12149.   Result := DefaultInterface.Categories;
  12150. end;
  12151.  
  12152. procedure TMailItem.Set_Categories(const Param1: WideString);
  12153. begin
  12154.   DefaultInterface.Categories := Param1;
  12155. end;
  12156.  
  12157. function  TMailItem.Get_Companies: WideString;
  12158. begin
  12159.   Result := DefaultInterface.Companies;
  12160. end;
  12161.  
  12162. procedure TMailItem.Set_Companies(const Param1: WideString);
  12163. begin
  12164.   DefaultInterface.Companies := Param1;
  12165. end;
  12166.  
  12167. function  TMailItem.Get_CreationTime: TDateTime;
  12168. begin
  12169.   Result := DefaultInterface.CreationTime;
  12170. end;
  12171.  
  12172. function  TMailItem.Get_EntryID: WideString;
  12173. begin
  12174.   Result := DefaultInterface.EntryID;
  12175. end;
  12176.  
  12177. function  TMailItem.Get_FormDescription: FormDescription;
  12178. begin
  12179.   Result := DefaultInterface.FormDescription;
  12180. end;
  12181.  
  12182. function  TMailItem.Get_GetInspector: Inspector;
  12183. begin
  12184.   Result := DefaultInterface.GetInspector;
  12185. end;
  12186.  
  12187. function  TMailItem.Get_Importance: OlImportance;
  12188. begin
  12189.   Result := DefaultInterface.Importance;
  12190. end;
  12191.  
  12192. procedure TMailItem.Set_Importance(Param1: OlImportance);
  12193. begin
  12194.   DefaultInterface.Importance := Param1;
  12195. end;
  12196.  
  12197. function  TMailItem.Get_LastModificationTime: TDateTime;
  12198. begin
  12199.   Result := DefaultInterface.LastModificationTime;
  12200. end;
  12201.  
  12202. function  TMailItem.Get_MessageClass: WideString;
  12203. begin
  12204.   Result := DefaultInterface.MessageClass;
  12205. end;
  12206.  
  12207. procedure TMailItem.Set_MessageClass(const Param1: WideString);
  12208. begin
  12209.   DefaultInterface.MessageClass := Param1;
  12210. end;
  12211.  
  12212. function  TMailItem.Get_Mileage: WideString;
  12213. begin
  12214.   Result := DefaultInterface.Mileage;
  12215. end;
  12216.  
  12217. procedure TMailItem.Set_Mileage(const Param1: WideString);
  12218. begin
  12219.   DefaultInterface.Mileage := Param1;
  12220. end;
  12221.  
  12222. function  TMailItem.Get_NoAging: WordBool;
  12223. begin
  12224.   Result := DefaultInterface.NoAging;
  12225. end;
  12226.  
  12227. procedure TMailItem.Set_NoAging(Param1: WordBool);
  12228. begin
  12229.   DefaultInterface.NoAging := Param1;
  12230. end;
  12231.  
  12232. function  TMailItem.Get_OutlookInternalVersion: WideString;
  12233. begin
  12234.   Result := DefaultInterface.OutlookInternalVersion;
  12235. end;
  12236.  
  12237. function  TMailItem.Get_OutlookVersion: WideString;
  12238. begin
  12239.   Result := DefaultInterface.OutlookVersion;
  12240. end;
  12241.  
  12242. function  TMailItem.Get_Parent: IDispatch;
  12243. begin
  12244.   Result := DefaultInterface.Parent;
  12245. end;
  12246.  
  12247. function  TMailItem.Get_Saved: WordBool;
  12248. begin
  12249.   Result := DefaultInterface.Saved;
  12250. end;
  12251.  
  12252. function  TMailItem.Get_Sensitivity: OlSensitivity;
  12253. begin
  12254.   Result := DefaultInterface.Sensitivity;
  12255. end;
  12256.  
  12257. procedure TMailItem.Set_Sensitivity(Param1: OlSensitivity);
  12258. begin
  12259.   DefaultInterface.Sensitivity := Param1;
  12260. end;
  12261.  
  12262. function  TMailItem.Get_Size: Integer;
  12263. begin
  12264.   Result := DefaultInterface.Size;
  12265. end;
  12266.  
  12267. function  TMailItem.Get_Subject: WideString;
  12268. begin
  12269.   Result := DefaultInterface.Subject;
  12270. end;
  12271.  
  12272. procedure TMailItem.Set_Subject(const Param1: WideString);
  12273. begin
  12274.   DefaultInterface.Subject := Param1;
  12275. end;
  12276.  
  12277. function  TMailItem.Get_UnRead: WordBool;
  12278. begin
  12279.   Result := DefaultInterface.UnRead;
  12280. end;
  12281.  
  12282. procedure TMailItem.Set_UnRead(Param1: WordBool);
  12283. begin
  12284.   DefaultInterface.UnRead := Param1;
  12285. end;
  12286.  
  12287. function  TMailItem.Get_UserProperties: UserProperties;
  12288. begin
  12289.   Result := DefaultInterface.UserProperties;
  12290. end;
  12291.  
  12292. function  TMailItem.Get_AlternateRecipientAllowed: WordBool;
  12293. begin
  12294.   Result := DefaultInterface.AlternateRecipientAllowed;
  12295. end;
  12296.  
  12297. procedure TMailItem.Set_AlternateRecipientAllowed(Param1: WordBool);
  12298. begin
  12299.   DefaultInterface.AlternateRecipientAllowed := Param1;
  12300. end;
  12301.  
  12302. function  TMailItem.Get_AutoForwarded: WordBool;
  12303. begin
  12304.   Result := DefaultInterface.AutoForwarded;
  12305. end;
  12306.  
  12307. procedure TMailItem.Set_AutoForwarded(Param1: WordBool);
  12308. begin
  12309.   DefaultInterface.AutoForwarded := Param1;
  12310. end;
  12311.  
  12312. function  TMailItem.Get_BCC: WideString;
  12313. begin
  12314.   Result := DefaultInterface.BCC;
  12315. end;
  12316.  
  12317. procedure TMailItem.Set_BCC(const Param1: WideString);
  12318. begin
  12319.   DefaultInterface.BCC := Param1;
  12320. end;
  12321.  
  12322. function  TMailItem.Get_CC: WideString;
  12323. begin
  12324.   Result := DefaultInterface.CC;
  12325. end;
  12326.  
  12327. procedure TMailItem.Set_CC(const Param1: WideString);
  12328. begin
  12329.   DefaultInterface.CC := Param1;
  12330. end;
  12331.  
  12332. function  TMailItem.Get_ConversationIndex: WideString;
  12333. begin
  12334.   Result := DefaultInterface.ConversationIndex;
  12335. end;
  12336.  
  12337. function  TMailItem.Get_ConversationTopic: WideString;
  12338. begin
  12339.   Result := DefaultInterface.ConversationTopic;
  12340. end;
  12341.  
  12342. function  TMailItem.Get_DeferredDeliveryTime: TDateTime;
  12343. begin
  12344.   Result := DefaultInterface.DeferredDeliveryTime;
  12345. end;
  12346.  
  12347. procedure TMailItem.Set_DeferredDeliveryTime(Param1: TDateTime);
  12348. begin
  12349.   DefaultInterface.DeferredDeliveryTime := Param1;
  12350. end;
  12351.  
  12352. function  TMailItem.Get_DeleteAfterSubmit: WordBool;
  12353. begin
  12354.   Result := DefaultInterface.DeleteAfterSubmit;
  12355. end;
  12356.  
  12357. procedure TMailItem.Set_DeleteAfterSubmit(Param1: WordBool);
  12358. begin
  12359.   DefaultInterface.DeleteAfterSubmit := Param1;
  12360. end;
  12361.  
  12362. function  TMailItem.Get_ExpiryTime: TDateTime;
  12363. begin
  12364.   Result := DefaultInterface.ExpiryTime;
  12365. end;
  12366.  
  12367. procedure TMailItem.Set_ExpiryTime(Param1: TDateTime);
  12368. begin
  12369.   DefaultInterface.ExpiryTime := Param1;
  12370. end;
  12371.  
  12372. function  TMailItem.Get_FlagDueBy: TDateTime;
  12373. begin
  12374.   Result := DefaultInterface.FlagDueBy;
  12375. end;
  12376.  
  12377. procedure TMailItem.Set_FlagDueBy(Param1: TDateTime);
  12378. begin
  12379.   DefaultInterface.FlagDueBy := Param1;
  12380. end;
  12381.  
  12382. function  TMailItem.Get_FlagRequest: WideString;
  12383. begin
  12384.   Result := DefaultInterface.FlagRequest;
  12385. end;
  12386.  
  12387. procedure TMailItem.Set_FlagRequest(const Param1: WideString);
  12388. begin
  12389.   DefaultInterface.FlagRequest := Param1;
  12390. end;
  12391.  
  12392. function  TMailItem.Get_FlagStatus: OlFlagStatus;
  12393. begin
  12394.   Result := DefaultInterface.FlagStatus;
  12395. end;
  12396.  
  12397. procedure TMailItem.Set_FlagStatus(Param1: OlFlagStatus);
  12398. begin
  12399.   DefaultInterface.FlagStatus := Param1;
  12400. end;
  12401.  
  12402. function  TMailItem.Get_OriginatorDeliveryReportRequested: WordBool;
  12403. begin
  12404.   Result := DefaultInterface.OriginatorDeliveryReportRequested;
  12405. end;
  12406.  
  12407. procedure TMailItem.Set_OriginatorDeliveryReportRequested(Param1: WordBool);
  12408. begin
  12409.   DefaultInterface.OriginatorDeliveryReportRequested := Param1;
  12410. end;
  12411.  
  12412. function  TMailItem.Get_ReadReceiptRequested: WordBool;
  12413. begin
  12414.   Result := DefaultInterface.ReadReceiptRequested;
  12415. end;
  12416.  
  12417. procedure TMailItem.Set_ReadReceiptRequested(Param1: WordBool);
  12418. begin
  12419.   DefaultInterface.ReadReceiptRequested := Param1;
  12420. end;
  12421.  
  12422. function  TMailItem.Get_ReceivedByEntryID: WideString;
  12423. begin
  12424.   Result := DefaultInterface.ReceivedByEntryID;
  12425. end;
  12426.  
  12427. function  TMailItem.Get_ReceivedByName: WideString;
  12428. begin
  12429.   Result := DefaultInterface.ReceivedByName;
  12430. end;
  12431.  
  12432. function  TMailItem.Get_ReceivedOnBehalfOfEntryID: WideString;
  12433. begin
  12434.   Result := DefaultInterface.ReceivedOnBehalfOfEntryID;
  12435. end;
  12436.  
  12437. function  TMailItem.Get_ReceivedOnBehalfOfName: WideString;
  12438. begin
  12439.   Result := DefaultInterface.ReceivedOnBehalfOfName;
  12440. end;
  12441.  
  12442. function  TMailItem.Get_ReceivedTime: TDateTime;
  12443. begin
  12444.   Result := DefaultInterface.ReceivedTime;
  12445. end;
  12446.  
  12447. function  TMailItem.Get_RecipientReassignmentProhibited: WordBool;
  12448. begin
  12449.   Result := DefaultInterface.RecipientReassignmentProhibited;
  12450. end;
  12451.  
  12452. procedure TMailItem.Set_RecipientReassignmentProhibited(Param1: WordBool);
  12453. begin
  12454.   DefaultInterface.RecipientReassignmentProhibited := Param1;
  12455. end;
  12456.  
  12457. function  TMailItem.Get_Recipients: Recipients;
  12458. begin
  12459.   Result := DefaultInterface.Recipients;
  12460. end;
  12461.  
  12462. function  TMailItem.Get_ReminderOverrideDefault: WordBool;
  12463. begin
  12464.   Result := DefaultInterface.ReminderOverrideDefault;
  12465. end;
  12466.  
  12467. procedure TMailItem.Set_ReminderOverrideDefault(Param1: WordBool);
  12468. begin
  12469.   DefaultInterface.ReminderOverrideDefault := Param1;
  12470. end;
  12471.  
  12472. function  TMailItem.Get_ReminderPlaySound: WordBool;
  12473. begin
  12474.   Result := DefaultInterface.ReminderPlaySound;
  12475. end;
  12476.  
  12477. procedure TMailItem.Set_ReminderPlaySound(Param1: WordBool);
  12478. begin
  12479.   DefaultInterface.ReminderPlaySound := Param1;
  12480. end;
  12481.  
  12482. function  TMailItem.Get_ReminderSet: WordBool;
  12483. begin
  12484.   Result := DefaultInterface.ReminderSet;
  12485. end;
  12486.  
  12487. procedure TMailItem.Set_ReminderSet(Param1: WordBool);
  12488. begin
  12489.   DefaultInterface.ReminderSet := Param1;
  12490. end;
  12491.  
  12492. function  TMailItem.Get_ReminderSoundFile: WideString;
  12493. begin
  12494.   Result := DefaultInterface.ReminderSoundFile;
  12495. end;
  12496.  
  12497. procedure TMailItem.Set_ReminderSoundFile(const Param1: WideString);
  12498. begin
  12499.   DefaultInterface.ReminderSoundFile := Param1;
  12500. end;
  12501.  
  12502. function  TMailItem.Get_ReminderTime: TDateTime;
  12503. begin
  12504.   Result := DefaultInterface.ReminderTime;
  12505. end;
  12506.  
  12507. procedure TMailItem.Set_ReminderTime(Param1: TDateTime);
  12508. begin
  12509.   DefaultInterface.ReminderTime := Param1;
  12510. end;
  12511.  
  12512. function  TMailItem.Get_RemoteStatus: OlRemoteStatus;
  12513. begin
  12514.   Result := DefaultInterface.RemoteStatus;
  12515. end;
  12516.  
  12517. function  TMailItem.Get_ReplyRecipientNames: WideString;
  12518. begin
  12519.   Result := DefaultInterface.ReplyRecipientNames;
  12520. end;
  12521.  
  12522. function  TMailItem.Get_ReplyRecipients: Recipients;
  12523. begin
  12524.   Result := DefaultInterface.ReplyRecipients;
  12525. end;
  12526.  
  12527. function  TMailItem.Get_SaveSentMessageFolder: MAPIFolder;
  12528. begin
  12529.   Result := DefaultInterface.SaveSentMessageFolder;
  12530. end;
  12531.  
  12532. procedure TMailItem.Set_SaveSentMessageFolder(const Param1: MAPIFolder);
  12533. begin
  12534.   DefaultInterface.SaveSentMessageFolder := Param1;
  12535. end;
  12536.  
  12537. function  TMailItem.Get_SenderName: WideString;
  12538. begin
  12539.   Result := DefaultInterface.SenderName;
  12540. end;
  12541.  
  12542. function  TMailItem.Get_SentOn: TDateTime;
  12543. begin
  12544.   Result := DefaultInterface.SentOn;
  12545. end;
  12546.  
  12547. function  TMailItem.Get_SentOnBehalfOfName: WideString;
  12548. begin
  12549.   Result := DefaultInterface.SentOnBehalfOfName;
  12550. end;
  12551.  
  12552. procedure TMailItem.Set_SentOnBehalfOfName(const Param1: WideString);
  12553. begin
  12554.   DefaultInterface.SentOnBehalfOfName := Param1;
  12555. end;
  12556.  
  12557. function  TMailItem.Get_To_: WideString;
  12558. begin
  12559.   Result := DefaultInterface.To_;
  12560. end;
  12561.  
  12562. procedure TMailItem.Set_To_(const Param1: WideString);
  12563. begin
  12564.   DefaultInterface.To_ := Param1;
  12565. end;
  12566.  
  12567. function  TMailItem.Get_VotingOptions: WideString;
  12568. begin
  12569.   Result := DefaultInterface.VotingOptions;
  12570. end;
  12571.  
  12572. procedure TMailItem.Set_VotingOptions(const Param1: WideString);
  12573. begin
  12574.   DefaultInterface.VotingOptions := Param1;
  12575. end;
  12576.  
  12577. function  TMailItem.Get_VotingResponse: WideString;
  12578. begin
  12579.   Result := DefaultInterface.VotingResponse;
  12580. end;
  12581.  
  12582. procedure TMailItem.Set_VotingResponse(const Param1: WideString);
  12583. begin
  12584.   DefaultInterface.VotingResponse := Param1;
  12585. end;
  12586.  
  12587. procedure TMailItem.Close(SaveMode: OlInspectorClose);
  12588. begin
  12589.   DefaultInterface.Close(SaveMode);
  12590. end;
  12591.  
  12592. function  TMailItem.Copy: IDispatch;
  12593. begin
  12594.   Result := DefaultInterface.Copy;
  12595. end;
  12596.  
  12597. procedure TMailItem.Delete;
  12598. begin
  12599.   DefaultInterface.Delete;
  12600. end;
  12601.  
  12602. procedure TMailItem.Display(Modal: OleVariant);
  12603. begin
  12604.   DefaultInterface.Display(Modal);
  12605. end;
  12606.  
  12607. function  TMailItem.Move(const DestFldr: MAPIFolder): IDispatch;
  12608. begin
  12609.   Result := DefaultInterface.Move(DestFldr);
  12610. end;
  12611.  
  12612. procedure TMailItem.Save;
  12613. begin
  12614.   DefaultInterface.Save;
  12615. end;
  12616.  
  12617. procedure TMailItem.SaveAs(const Path: WideString; Type_: OleVariant);
  12618. begin
  12619.   DefaultInterface.SaveAs(Path, Type_);
  12620. end;
  12621.  
  12622. procedure TMailItem.PrintOut;
  12623. begin
  12624.   DefaultInterface.PrintOut;
  12625. end;
  12626.  
  12627. procedure TMailItem.ClearConversationIndex;
  12628. begin
  12629.   DefaultInterface.ClearConversationIndex;
  12630. end;
  12631.  
  12632. function  TMailItem.Forward: MailItem;
  12633. begin
  12634.   Result := DefaultInterface.Forward;
  12635. end;
  12636.  
  12637. function  TMailItem.Reply: MailItem;
  12638. begin
  12639.   Result := DefaultInterface.Reply;
  12640. end;
  12641.  
  12642. function  TMailItem.ReplyAll: MailItem;
  12643. begin
  12644.   Result := DefaultInterface.ReplyAll;
  12645. end;
  12646.  
  12647. procedure TMailItem.Send;
  12648. begin
  12649.   DefaultInterface.Send;
  12650. end;
  12651.  
  12652. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  12653. constructor TMailItemProperties.Create(AServer: TMailItem);
  12654. begin
  12655.   inherited Create;
  12656.   FServer := AServer;
  12657. end;
  12658.  
  12659. function TMailItemProperties.GetDefaultInterface: _DMailItem;
  12660. begin
  12661.   Result := FServer.DefaultInterface;
  12662. end;
  12663.  
  12664. function  TMailItemProperties.Get_Actions: Actions;
  12665. begin
  12666.   Result := DefaultInterface.Actions;
  12667. end;
  12668.  
  12669. function  TMailItemProperties.Get_Application: OutlookApplication;
  12670. begin
  12671.   Result := DefaultInterface.Application;
  12672. end;
  12673.  
  12674. function  TMailItemProperties.Get_Attachments: Attachments;
  12675. begin
  12676.   Result := DefaultInterface.Attachments;
  12677. end;
  12678.  
  12679. function  TMailItemProperties.Get_BillingInformation: WideString;
  12680. begin
  12681.   Result := DefaultInterface.BillingInformation;
  12682. end;
  12683.  
  12684. procedure TMailItemProperties.Set_BillingInformation(const Param1: WideString);
  12685. begin
  12686.   DefaultInterface.BillingInformation := Param1;
  12687. end;
  12688.  
  12689. function  TMailItemProperties.Get_Body: WideString;
  12690. begin
  12691.   Result := DefaultInterface.Body;
  12692. end;
  12693.  
  12694. procedure TMailItemProperties.Set_Body(const Param1: WideString);
  12695. begin
  12696.   DefaultInterface.Body := Param1;
  12697. end;
  12698.  
  12699. function  TMailItemProperties.Get_Categories: WideString;
  12700. begin
  12701.   Result := DefaultInterface.Categories;
  12702. end;
  12703.  
  12704. procedure TMailItemProperties.Set_Categories(const Param1: WideString);
  12705. begin
  12706.   DefaultInterface.Categories := Param1;
  12707. end;
  12708.  
  12709. function  TMailItemProperties.Get_Companies: WideString;
  12710. begin
  12711.   Result := DefaultInterface.Companies;
  12712. end;
  12713.  
  12714. procedure TMailItemProperties.Set_Companies(const Param1: WideString);
  12715. begin
  12716.   DefaultInterface.Companies := Param1;
  12717. end;
  12718.  
  12719. function  TMailItemProperties.Get_CreationTime: TDateTime;
  12720. begin
  12721.   Result := DefaultInterface.CreationTime;
  12722. end;
  12723.  
  12724. function  TMailItemProperties.Get_EntryID: WideString;
  12725. begin
  12726.   Result := DefaultInterface.EntryID;
  12727. end;
  12728.  
  12729. function  TMailItemProperties.Get_FormDescription: FormDescription;
  12730. begin
  12731.   Result := DefaultInterface.FormDescription;
  12732. end;
  12733.  
  12734. function  TMailItemProperties.Get_GetInspector: Inspector;
  12735. begin
  12736.   Result := DefaultInterface.GetInspector;
  12737. end;
  12738.  
  12739. function  TMailItemProperties.Get_Importance: OlImportance;
  12740. begin
  12741.   Result := DefaultInterface.Importance;
  12742. end;
  12743.  
  12744. procedure TMailItemProperties.Set_Importance(Param1: OlImportance);
  12745. begin
  12746.   DefaultInterface.Importance := Param1;
  12747. end;
  12748.  
  12749. function  TMailItemProperties.Get_LastModificationTime: TDateTime;
  12750. begin
  12751.   Result := DefaultInterface.LastModificationTime;
  12752. end;
  12753.  
  12754. function  TMailItemProperties.Get_MessageClass: WideString;
  12755. begin
  12756.   Result := DefaultInterface.MessageClass;
  12757. end;
  12758.  
  12759. procedure TMailItemProperties.Set_MessageClass(const Param1: WideString);
  12760. begin
  12761.   DefaultInterface.MessageClass := Param1;
  12762. end;
  12763.  
  12764. function  TMailItemProperties.Get_Mileage: WideString;
  12765. begin
  12766.   Result := DefaultInterface.Mileage;
  12767. end;
  12768.  
  12769. procedure TMailItemProperties.Set_Mileage(const Param1: WideString);
  12770. begin
  12771.   DefaultInterface.Mileage := Param1;
  12772. end;
  12773.  
  12774. function  TMailItemProperties.Get_NoAging: WordBool;
  12775. begin
  12776.   Result := DefaultInterface.NoAging;
  12777. end;
  12778.  
  12779. procedure TMailItemProperties.Set_NoAging(Param1: WordBool);
  12780. begin
  12781.   DefaultInterface.NoAging := Param1;
  12782. end;
  12783.  
  12784. function  TMailItemProperties.Get_OutlookInternalVersion: WideString;
  12785. begin
  12786.   Result := DefaultInterface.OutlookInternalVersion;
  12787. end;
  12788.  
  12789. function  TMailItemProperties.Get_OutlookVersion: WideString;
  12790. begin
  12791.   Result := DefaultInterface.OutlookVersion;
  12792. end;
  12793.  
  12794. function  TMailItemProperties.Get_Parent: IDispatch;
  12795. begin
  12796.   Result := DefaultInterface.Parent;
  12797. end;
  12798.  
  12799. function  TMailItemProperties.Get_Saved: WordBool;
  12800. begin
  12801.   Result := DefaultInterface.Saved;
  12802. end;
  12803.  
  12804. function  TMailItemProperties.Get_Sensitivity: OlSensitivity;
  12805. begin
  12806.   Result := DefaultInterface.Sensitivity;
  12807. end;
  12808.  
  12809. procedure TMailItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  12810. begin
  12811.   DefaultInterface.Sensitivity := Param1;
  12812. end;
  12813.  
  12814. function  TMailItemProperties.Get_Size: Integer;
  12815. begin
  12816.   Result := DefaultInterface.Size;
  12817. end;
  12818.  
  12819. function  TMailItemProperties.Get_Subject: WideString;
  12820. begin
  12821.   Result := DefaultInterface.Subject;
  12822. end;
  12823.  
  12824. procedure TMailItemProperties.Set_Subject(const Param1: WideString);
  12825. begin
  12826.   DefaultInterface.Subject := Param1;
  12827. end;
  12828.  
  12829. function  TMailItemProperties.Get_UnRead: WordBool;
  12830. begin
  12831.   Result := DefaultInterface.UnRead;
  12832. end;
  12833.  
  12834. procedure TMailItemProperties.Set_UnRead(Param1: WordBool);
  12835. begin
  12836.   DefaultInterface.UnRead := Param1;
  12837. end;
  12838.  
  12839. function  TMailItemProperties.Get_UserProperties: UserProperties;
  12840. begin
  12841.   Result := DefaultInterface.UserProperties;
  12842. end;
  12843.  
  12844. function  TMailItemProperties.Get_AlternateRecipientAllowed: WordBool;
  12845. begin
  12846.   Result := DefaultInterface.AlternateRecipientAllowed;
  12847. end;
  12848.  
  12849. procedure TMailItemProperties.Set_AlternateRecipientAllowed(Param1: WordBool);
  12850. begin
  12851.   DefaultInterface.AlternateRecipientAllowed := Param1;
  12852. end;
  12853.  
  12854. function  TMailItemProperties.Get_AutoForwarded: WordBool;
  12855. begin
  12856.   Result := DefaultInterface.AutoForwarded;
  12857. end;
  12858.  
  12859. procedure TMailItemProperties.Set_AutoForwarded(Param1: WordBool);
  12860. begin
  12861.   DefaultInterface.AutoForwarded := Param1;
  12862. end;
  12863.  
  12864. function  TMailItemProperties.Get_BCC: WideString;
  12865. begin
  12866.   Result := DefaultInterface.BCC;
  12867. end;
  12868.  
  12869. procedure TMailItemProperties.Set_BCC(const Param1: WideString);
  12870. begin
  12871.   DefaultInterface.BCC := Param1;
  12872. end;
  12873.  
  12874. function  TMailItemProperties.Get_CC: WideString;
  12875. begin
  12876.   Result := DefaultInterface.CC;
  12877. end;
  12878.  
  12879. procedure TMailItemProperties.Set_CC(const Param1: WideString);
  12880. begin
  12881.   DefaultInterface.CC := Param1;
  12882. end;
  12883.  
  12884. function  TMailItemProperties.Get_ConversationIndex: WideString;
  12885. begin
  12886.   Result := DefaultInterface.ConversationIndex;
  12887. end;
  12888.  
  12889. function  TMailItemProperties.Get_ConversationTopic: WideString;
  12890. begin
  12891.   Result := DefaultInterface.ConversationTopic;
  12892. end;
  12893.  
  12894. function  TMailItemProperties.Get_DeferredDeliveryTime: TDateTime;
  12895. begin
  12896.   Result := DefaultInterface.DeferredDeliveryTime;
  12897. end;
  12898.  
  12899. procedure TMailItemProperties.Set_DeferredDeliveryTime(Param1: TDateTime);
  12900. begin
  12901.   DefaultInterface.DeferredDeliveryTime := Param1;
  12902. end;
  12903.  
  12904. function  TMailItemProperties.Get_DeleteAfterSubmit: WordBool;
  12905. begin
  12906.   Result := DefaultInterface.DeleteAfterSubmit;
  12907. end;
  12908.  
  12909. procedure TMailItemProperties.Set_DeleteAfterSubmit(Param1: WordBool);
  12910. begin
  12911.   DefaultInterface.DeleteAfterSubmit := Param1;
  12912. end;
  12913.  
  12914. function  TMailItemProperties.Get_ExpiryTime: TDateTime;
  12915. begin
  12916.   Result := DefaultInterface.ExpiryTime;
  12917. end;
  12918.  
  12919. procedure TMailItemProperties.Set_ExpiryTime(Param1: TDateTime);
  12920. begin
  12921.   DefaultInterface.ExpiryTime := Param1;
  12922. end;
  12923.  
  12924. function  TMailItemProperties.Get_FlagDueBy: TDateTime;
  12925. begin
  12926.   Result := DefaultInterface.FlagDueBy;
  12927. end;
  12928.  
  12929. procedure TMailItemProperties.Set_FlagDueBy(Param1: TDateTime);
  12930. begin
  12931.   DefaultInterface.FlagDueBy := Param1;
  12932. end;
  12933.  
  12934. function  TMailItemProperties.Get_FlagRequest: WideString;
  12935. begin
  12936.   Result := DefaultInterface.FlagRequest;
  12937. end;
  12938.  
  12939. procedure TMailItemProperties.Set_FlagRequest(const Param1: WideString);
  12940. begin
  12941.   DefaultInterface.FlagRequest := Param1;
  12942. end;
  12943.  
  12944. function  TMailItemProperties.Get_FlagStatus: OlFlagStatus;
  12945. begin
  12946.   Result := DefaultInterface.FlagStatus;
  12947. end;
  12948.  
  12949. procedure TMailItemProperties.Set_FlagStatus(Param1: OlFlagStatus);
  12950. begin
  12951.   DefaultInterface.FlagStatus := Param1;
  12952. end;
  12953.  
  12954. function  TMailItemProperties.Get_OriginatorDeliveryReportRequested: WordBool;
  12955. begin
  12956.   Result := DefaultInterface.OriginatorDeliveryReportRequested;
  12957. end;
  12958.  
  12959. procedure TMailItemProperties.Set_OriginatorDeliveryReportRequested(Param1: WordBool);
  12960. begin
  12961.   DefaultInterface.OriginatorDeliveryReportRequested := Param1;
  12962. end;
  12963.  
  12964. function  TMailItemProperties.Get_ReadReceiptRequested: WordBool;
  12965. begin
  12966.   Result := DefaultInterface.ReadReceiptRequested;
  12967. end;
  12968.  
  12969. procedure TMailItemProperties.Set_ReadReceiptRequested(Param1: WordBool);
  12970. begin
  12971.   DefaultInterface.ReadReceiptRequested := Param1;
  12972. end;
  12973.  
  12974. function  TMailItemProperties.Get_ReceivedByEntryID: WideString;
  12975. begin
  12976.   Result := DefaultInterface.ReceivedByEntryID;
  12977. end;
  12978.  
  12979. function  TMailItemProperties.Get_ReceivedByName: WideString;
  12980. begin
  12981.   Result := DefaultInterface.ReceivedByName;
  12982. end;
  12983.  
  12984. function  TMailItemProperties.Get_ReceivedOnBehalfOfEntryID: WideString;
  12985. begin
  12986.   Result := DefaultInterface.ReceivedOnBehalfOfEntryID;
  12987. end;
  12988.  
  12989. function  TMailItemProperties.Get_ReceivedOnBehalfOfName: WideString;
  12990. begin
  12991.   Result := DefaultInterface.ReceivedOnBehalfOfName;
  12992. end;
  12993.  
  12994. function  TMailItemProperties.Get_ReceivedTime: TDateTime;
  12995. begin
  12996.   Result := DefaultInterface.ReceivedTime;
  12997. end;
  12998.  
  12999. function  TMailItemProperties.Get_RecipientReassignmentProhibited: WordBool;
  13000. begin
  13001.   Result := DefaultInterface.RecipientReassignmentProhibited;
  13002. end;
  13003.  
  13004. procedure TMailItemProperties.Set_RecipientReassignmentProhibited(Param1: WordBool);
  13005. begin
  13006.   DefaultInterface.RecipientReassignmentProhibited := Param1;
  13007. end;
  13008.  
  13009. function  TMailItemProperties.Get_Recipients: Recipients;
  13010. begin
  13011.   Result := DefaultInterface.Recipients;
  13012. end;
  13013.  
  13014. function  TMailItemProperties.Get_ReminderOverrideDefault: WordBool;
  13015. begin
  13016.   Result := DefaultInterface.ReminderOverrideDefault;
  13017. end;
  13018.  
  13019. procedure TMailItemProperties.Set_ReminderOverrideDefault(Param1: WordBool);
  13020. begin
  13021.   DefaultInterface.ReminderOverrideDefault := Param1;
  13022. end;
  13023.  
  13024. function  TMailItemProperties.Get_ReminderPlaySound: WordBool;
  13025. begin
  13026.   Result := DefaultInterface.ReminderPlaySound;
  13027. end;
  13028.  
  13029. procedure TMailItemProperties.Set_ReminderPlaySound(Param1: WordBool);
  13030. begin
  13031.   DefaultInterface.ReminderPlaySound := Param1;
  13032. end;
  13033.  
  13034. function  TMailItemProperties.Get_ReminderSet: WordBool;
  13035. begin
  13036.   Result := DefaultInterface.ReminderSet;
  13037. end;
  13038.  
  13039. procedure TMailItemProperties.Set_ReminderSet(Param1: WordBool);
  13040. begin
  13041.   DefaultInterface.ReminderSet := Param1;
  13042. end;
  13043.  
  13044. function  TMailItemProperties.Get_ReminderSoundFile: WideString;
  13045. begin
  13046.   Result := DefaultInterface.ReminderSoundFile;
  13047. end;
  13048.  
  13049. procedure TMailItemProperties.Set_ReminderSoundFile(const Param1: WideString);
  13050. begin
  13051.   DefaultInterface.ReminderSoundFile := Param1;
  13052. end;
  13053.  
  13054. function  TMailItemProperties.Get_ReminderTime: TDateTime;
  13055. begin
  13056.   Result := DefaultInterface.ReminderTime;
  13057. end;
  13058.  
  13059. procedure TMailItemProperties.Set_ReminderTime(Param1: TDateTime);
  13060. begin
  13061.   DefaultInterface.ReminderTime := Param1;
  13062. end;
  13063.  
  13064. function  TMailItemProperties.Get_RemoteStatus: OlRemoteStatus;
  13065. begin
  13066.   Result := DefaultInterface.RemoteStatus;
  13067. end;
  13068.  
  13069. function  TMailItemProperties.Get_ReplyRecipientNames: WideString;
  13070. begin
  13071.   Result := DefaultInterface.ReplyRecipientNames;
  13072. end;
  13073.  
  13074. function  TMailItemProperties.Get_ReplyRecipients: Recipients;
  13075. begin
  13076.   Result := DefaultInterface.ReplyRecipients;
  13077. end;
  13078.  
  13079. function  TMailItemProperties.Get_SaveSentMessageFolder: MAPIFolder;
  13080. begin
  13081.   Result := DefaultInterface.SaveSentMessageFolder;
  13082. end;
  13083.  
  13084. procedure TMailItemProperties.Set_SaveSentMessageFolder(const Param1: MAPIFolder);
  13085. begin
  13086.   DefaultInterface.SaveSentMessageFolder := Param1;
  13087. end;
  13088.  
  13089. function  TMailItemProperties.Get_SenderName: WideString;
  13090. begin
  13091.   Result := DefaultInterface.SenderName;
  13092. end;
  13093.  
  13094. function  TMailItemProperties.Get_SentOn: TDateTime;
  13095. begin
  13096.   Result := DefaultInterface.SentOn;
  13097. end;
  13098.  
  13099. function  TMailItemProperties.Get_SentOnBehalfOfName: WideString;
  13100. begin
  13101.   Result := DefaultInterface.SentOnBehalfOfName;
  13102. end;
  13103.  
  13104. procedure TMailItemProperties.Set_SentOnBehalfOfName(const Param1: WideString);
  13105. begin
  13106.   DefaultInterface.SentOnBehalfOfName := Param1;
  13107. end;
  13108.  
  13109. function  TMailItemProperties.Get_To_: WideString;
  13110. begin
  13111.   Result := DefaultInterface.To_;
  13112. end;
  13113.  
  13114. procedure TMailItemProperties.Set_To_(const Param1: WideString);
  13115. begin
  13116.   DefaultInterface.To_ := Param1;
  13117. end;
  13118.  
  13119. function  TMailItemProperties.Get_VotingOptions: WideString;
  13120. begin
  13121.   Result := DefaultInterface.VotingOptions;
  13122. end;
  13123.  
  13124. procedure TMailItemProperties.Set_VotingOptions(const Param1: WideString);
  13125. begin
  13126.   DefaultInterface.VotingOptions := Param1;
  13127. end;
  13128.  
  13129. function  TMailItemProperties.Get_VotingResponse: WideString;
  13130. begin
  13131.   Result := DefaultInterface.VotingResponse;
  13132. end;
  13133.  
  13134. procedure TMailItemProperties.Set_VotingResponse(const Param1: WideString);
  13135. begin
  13136.   DefaultInterface.VotingResponse := Param1;
  13137. end;
  13138.  
  13139. {$ENDIF}
  13140.  
  13141. class function Co_MeetingCanceledItem.Create: _DMeetingCanceledItem;
  13142. begin
  13143.   Result := CreateComObject(CLASS__MeetingCanceledItem) as _DMeetingCanceledItem;
  13144. end;
  13145.  
  13146. class function Co_MeetingCanceledItem.CreateRemote(const MachineName: string): _DMeetingCanceledItem;
  13147. begin
  13148.   Result := CreateRemoteComObject(MachineName, CLASS__MeetingCanceledItem) as _DMeetingCanceledItem;
  13149. end;
  13150.  
  13151. class function Co_MeetingRequestAcceptedItem.Create: _DMeetingRequestAcceptedItem;
  13152. begin
  13153.   Result := CreateComObject(CLASS__MeetingRequestAcceptedItem) as _DMeetingRequestAcceptedItem;
  13154. end;
  13155.  
  13156. class function Co_MeetingRequestAcceptedItem.CreateRemote(const MachineName: string): _DMeetingRequestAcceptedItem;
  13157. begin
  13158.   Result := CreateRemoteComObject(MachineName, CLASS__MeetingRequestAcceptedItem) as _DMeetingRequestAcceptedItem;
  13159. end;
  13160.  
  13161. class function Co_MeetingRequestDeclinedItem.Create: _DMeetingRequestDeclinedItem;
  13162. begin
  13163.   Result := CreateComObject(CLASS__MeetingRequestDeclinedItem) as _DMeetingRequestDeclinedItem;
  13164. end;
  13165.  
  13166. class function Co_MeetingRequestDeclinedItem.CreateRemote(const MachineName: string): _DMeetingRequestDeclinedItem;
  13167. begin
  13168.   Result := CreateRemoteComObject(MachineName, CLASS__MeetingRequestDeclinedItem) as _DMeetingRequestDeclinedItem;
  13169. end;
  13170.  
  13171. class function CoMeetingRequestItem.Create: _DMeetingRequestItem;
  13172. begin
  13173.   Result := CreateComObject(CLASS_MeetingRequestItem) as _DMeetingRequestItem;
  13174. end;
  13175.  
  13176. class function CoMeetingRequestItem.CreateRemote(const MachineName: string): _DMeetingRequestItem;
  13177. begin
  13178.   Result := CreateRemoteComObject(MachineName, CLASS_MeetingRequestItem) as _DMeetingRequestItem;
  13179. end;
  13180.  
  13181. procedure TMeetingRequestItem.InitServerData;
  13182. const
  13183.   CServerData: TServerData = (
  13184.     ClassID:   '{00061041-0000-0000-C000-000000000046}';
  13185.     IntfIID:   '{00063029-0000-0000-C000-000000000046}';
  13186.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  13187.     LicenseKey: nil;
  13188.     Version: 500);
  13189. begin
  13190.   ServerData := @CServerData;
  13191. end;
  13192.  
  13193. procedure TMeetingRequestItem.Connect;
  13194. var
  13195.   punk: IUnknown;
  13196. begin
  13197.   if FIntf = nil then
  13198.   begin
  13199.     punk := GetServer;
  13200.     ConnectEvents(punk);
  13201.     Fintf:= punk as _DMeetingRequestItem;
  13202.   end;
  13203. end;
  13204.  
  13205. procedure TMeetingRequestItem.ConnectTo(svrIntf: _DMeetingRequestItem);
  13206. begin
  13207.   Disconnect;
  13208.   FIntf := svrIntf;
  13209.   ConnectEvents(FIntf);
  13210. end;
  13211.  
  13212. procedure TMeetingRequestItem.DisConnect;
  13213. begin
  13214.   if Fintf <> nil then
  13215.   begin
  13216.     DisconnectEvents(FIntf);
  13217.     FIntf := nil;
  13218.   end;
  13219. end;
  13220.  
  13221. function TMeetingRequestItem.GetDefaultInterface: _DMeetingRequestItem;
  13222. begin
  13223.   if FIntf = nil then
  13224.     Connect;
  13225.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  13226.   Result := FIntf;
  13227. end;
  13228.  
  13229. constructor TMeetingRequestItem.Create(AOwner: TComponent);
  13230. begin
  13231.   inherited Create(AOwner);
  13232. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13233.   FProps := TMeetingRequestItemProperties.Create(Self);
  13234. {$ENDIF}
  13235. end;
  13236.  
  13237. destructor TMeetingRequestItem.Destroy;
  13238. begin
  13239. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13240.   FProps.Free;
  13241. {$ENDIF}
  13242.   inherited Destroy;
  13243. end;
  13244.  
  13245. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13246. function TMeetingRequestItem.GetServerProperties: TMeetingRequestItemProperties;
  13247. begin
  13248.   Result := FProps;
  13249. end;
  13250. {$ENDIF}
  13251.  
  13252. procedure TMeetingRequestItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  13253. begin
  13254.   case DispID of
  13255.     -1: Exit;  // DISPID_UNKNOWN
  13256.    61441: if Assigned(FOnRead) then
  13257.             FOnRead(Self);
  13258.    61442: if Assigned(FOnWrite) then
  13259.             FOnWrite(Self);
  13260.    61443: if Assigned(FOnOpen) then
  13261.             FOnOpen(Self);
  13262.    61444: if Assigned(FOnClose) then
  13263.             FOnClose(Self);
  13264.    61445: if Assigned(FOnSend) then
  13265.             FOnSend(Self);
  13266.    62566: if Assigned(FOnReply) then
  13267.             FOnReply(Self, Params[0] (*const IDispatch*));
  13268.    62567: if Assigned(FOnReplyAll) then
  13269.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  13270.    62568: if Assigned(FOnForward) then
  13271.             FOnForward(Self, Params[0] (*const IDispatch*));
  13272.    61446: if Assigned(FOnCustomAction) then
  13273.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  13274.    61448: if Assigned(FOnCustomPropertyChange) then
  13275.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  13276.    61449: if Assigned(FOnPropertyChange) then
  13277.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  13278.   end; {case DispID}
  13279. end;
  13280.  
  13281. function  TMeetingRequestItem.Get_Actions: Actions;
  13282. begin
  13283.   Result := DefaultInterface.Actions;
  13284. end;
  13285.  
  13286. function  TMeetingRequestItem.Get_Application: OutlookApplication;
  13287. begin
  13288.   Result := DefaultInterface.Application;
  13289. end;
  13290.  
  13291. function  TMeetingRequestItem.Get_Attachments: Attachments;
  13292. begin
  13293.   Result := DefaultInterface.Attachments;
  13294. end;
  13295.  
  13296. function  TMeetingRequestItem.Get_BillingInformation: WideString;
  13297. begin
  13298.   Result := DefaultInterface.BillingInformation;
  13299. end;
  13300.  
  13301. procedure TMeetingRequestItem.Set_BillingInformation(const Param1: WideString);
  13302. begin
  13303.   DefaultInterface.BillingInformation := Param1;
  13304. end;
  13305.  
  13306. function  TMeetingRequestItem.Get_Body: WideString;
  13307. begin
  13308.   Result := DefaultInterface.Body;
  13309. end;
  13310.  
  13311. procedure TMeetingRequestItem.Set_Body(const Param1: WideString);
  13312. begin
  13313.   DefaultInterface.Body := Param1;
  13314. end;
  13315.  
  13316. function  TMeetingRequestItem.Get_Categories: WideString;
  13317. begin
  13318.   Result := DefaultInterface.Categories;
  13319. end;
  13320.  
  13321. procedure TMeetingRequestItem.Set_Categories(const Param1: WideString);
  13322. begin
  13323.   DefaultInterface.Categories := Param1;
  13324. end;
  13325.  
  13326. function  TMeetingRequestItem.Get_Companies: WideString;
  13327. begin
  13328.   Result := DefaultInterface.Companies;
  13329. end;
  13330.  
  13331. procedure TMeetingRequestItem.Set_Companies(const Param1: WideString);
  13332. begin
  13333.   DefaultInterface.Companies := Param1;
  13334. end;
  13335.  
  13336. function  TMeetingRequestItem.Get_CreationTime: TDateTime;
  13337. begin
  13338.   Result := DefaultInterface.CreationTime;
  13339. end;
  13340.  
  13341. function  TMeetingRequestItem.Get_EntryID: WideString;
  13342. begin
  13343.   Result := DefaultInterface.EntryID;
  13344. end;
  13345.  
  13346. function  TMeetingRequestItem.Get_FormDescription: FormDescription;
  13347. begin
  13348.   Result := DefaultInterface.FormDescription;
  13349. end;
  13350.  
  13351. function  TMeetingRequestItem.Get_GetInspector: Inspector;
  13352. begin
  13353.   Result := DefaultInterface.GetInspector;
  13354. end;
  13355.  
  13356. function  TMeetingRequestItem.Get_Importance: OlImportance;
  13357. begin
  13358.   Result := DefaultInterface.Importance;
  13359. end;
  13360.  
  13361. procedure TMeetingRequestItem.Set_Importance(Param1: OlImportance);
  13362. begin
  13363.   DefaultInterface.Importance := Param1;
  13364. end;
  13365.  
  13366. function  TMeetingRequestItem.Get_LastModificationTime: TDateTime;
  13367. begin
  13368.   Result := DefaultInterface.LastModificationTime;
  13369. end;
  13370.  
  13371. function  TMeetingRequestItem.Get_MessageClass: WideString;
  13372. begin
  13373.   Result := DefaultInterface.MessageClass;
  13374. end;
  13375.  
  13376. procedure TMeetingRequestItem.Set_MessageClass(const Param1: WideString);
  13377. begin
  13378.   DefaultInterface.MessageClass := Param1;
  13379. end;
  13380.  
  13381. function  TMeetingRequestItem.Get_Mileage: WideString;
  13382. begin
  13383.   Result := DefaultInterface.Mileage;
  13384. end;
  13385.  
  13386. procedure TMeetingRequestItem.Set_Mileage(const Param1: WideString);
  13387. begin
  13388.   DefaultInterface.Mileage := Param1;
  13389. end;
  13390.  
  13391. function  TMeetingRequestItem.Get_NoAging: WordBool;
  13392. begin
  13393.   Result := DefaultInterface.NoAging;
  13394. end;
  13395.  
  13396. procedure TMeetingRequestItem.Set_NoAging(Param1: WordBool);
  13397. begin
  13398.   DefaultInterface.NoAging := Param1;
  13399. end;
  13400.  
  13401. function  TMeetingRequestItem.Get_OutlookInternalVersion: WideString;
  13402. begin
  13403.   Result := DefaultInterface.OutlookInternalVersion;
  13404. end;
  13405.  
  13406. function  TMeetingRequestItem.Get_OutlookVersion: WideString;
  13407. begin
  13408.   Result := DefaultInterface.OutlookVersion;
  13409. end;
  13410.  
  13411. function  TMeetingRequestItem.Get_Parent: IDispatch;
  13412. begin
  13413.   Result := DefaultInterface.Parent;
  13414. end;
  13415.  
  13416. function  TMeetingRequestItem.Get_Saved: WordBool;
  13417. begin
  13418.   Result := DefaultInterface.Saved;
  13419. end;
  13420.  
  13421. function  TMeetingRequestItem.Get_Sensitivity: OlSensitivity;
  13422. begin
  13423.   Result := DefaultInterface.Sensitivity;
  13424. end;
  13425.  
  13426. procedure TMeetingRequestItem.Set_Sensitivity(Param1: OlSensitivity);
  13427. begin
  13428.   DefaultInterface.Sensitivity := Param1;
  13429. end;
  13430.  
  13431. function  TMeetingRequestItem.Get_Size: Integer;
  13432. begin
  13433.   Result := DefaultInterface.Size;
  13434. end;
  13435.  
  13436. function  TMeetingRequestItem.Get_Subject: WideString;
  13437. begin
  13438.   Result := DefaultInterface.Subject;
  13439. end;
  13440.  
  13441. procedure TMeetingRequestItem.Set_Subject(const Param1: WideString);
  13442. begin
  13443.   DefaultInterface.Subject := Param1;
  13444. end;
  13445.  
  13446. function  TMeetingRequestItem.Get_UnRead: WordBool;
  13447. begin
  13448.   Result := DefaultInterface.UnRead;
  13449. end;
  13450.  
  13451. procedure TMeetingRequestItem.Set_UnRead(Param1: WordBool);
  13452. begin
  13453.   DefaultInterface.UnRead := Param1;
  13454. end;
  13455.  
  13456. function  TMeetingRequestItem.Get_UserProperties: UserProperties;
  13457. begin
  13458.   Result := DefaultInterface.UserProperties;
  13459. end;
  13460.  
  13461. procedure TMeetingRequestItem.Close(SaveMode: OlInspectorClose);
  13462. begin
  13463.   DefaultInterface.Close(SaveMode);
  13464. end;
  13465.  
  13466. function  TMeetingRequestItem.Copy: IDispatch;
  13467. begin
  13468.   Result := DefaultInterface.Copy;
  13469. end;
  13470.  
  13471. procedure TMeetingRequestItem.Delete;
  13472. begin
  13473.   DefaultInterface.Delete;
  13474. end;
  13475.  
  13476. procedure TMeetingRequestItem.Display(Modal: OleVariant);
  13477. begin
  13478.   DefaultInterface.Display(Modal);
  13479. end;
  13480.  
  13481. function  TMeetingRequestItem.Move(const DestFldr: MAPIFolder): IDispatch;
  13482. begin
  13483.   Result := DefaultInterface.Move(DestFldr);
  13484. end;
  13485.  
  13486. procedure TMeetingRequestItem.Save;
  13487. begin
  13488.   DefaultInterface.Save;
  13489. end;
  13490.  
  13491. procedure TMeetingRequestItem.SaveAs(const Path: WideString; Type_: OleVariant);
  13492. begin
  13493.   DefaultInterface.SaveAs(Path, Type_);
  13494. end;
  13495.  
  13496. procedure TMeetingRequestItem.PrintOut;
  13497. begin
  13498.   DefaultInterface.PrintOut;
  13499. end;
  13500.  
  13501. function  TMeetingRequestItem.GetAssociatedAppointment(AddToCalendar: WordBool): AppointmentItem;
  13502. begin
  13503.   Result := DefaultInterface.GetAssociatedAppointment(AddToCalendar);
  13504. end;
  13505.  
  13506. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13507. constructor TMeetingRequestItemProperties.Create(AServer: TMeetingRequestItem);
  13508. begin
  13509.   inherited Create;
  13510.   FServer := AServer;
  13511. end;
  13512.  
  13513. function TMeetingRequestItemProperties.GetDefaultInterface: _DMeetingRequestItem;
  13514. begin
  13515.   Result := FServer.DefaultInterface;
  13516. end;
  13517.  
  13518. function  TMeetingRequestItemProperties.Get_Actions: Actions;
  13519. begin
  13520.   Result := DefaultInterface.Actions;
  13521. end;
  13522.  
  13523. function  TMeetingRequestItemProperties.Get_Application: OutlookApplication;
  13524. begin
  13525.   Result := DefaultInterface.Application;
  13526. end;
  13527.  
  13528. function  TMeetingRequestItemProperties.Get_Attachments: Attachments;
  13529. begin
  13530.   Result := DefaultInterface.Attachments;
  13531. end;
  13532.  
  13533. function  TMeetingRequestItemProperties.Get_BillingInformation: WideString;
  13534. begin
  13535.   Result := DefaultInterface.BillingInformation;
  13536. end;
  13537.  
  13538. procedure TMeetingRequestItemProperties.Set_BillingInformation(const Param1: WideString);
  13539. begin
  13540.   DefaultInterface.BillingInformation := Param1;
  13541. end;
  13542.  
  13543. function  TMeetingRequestItemProperties.Get_Body: WideString;
  13544. begin
  13545.   Result := DefaultInterface.Body;
  13546. end;
  13547.  
  13548. procedure TMeetingRequestItemProperties.Set_Body(const Param1: WideString);
  13549. begin
  13550.   DefaultInterface.Body := Param1;
  13551. end;
  13552.  
  13553. function  TMeetingRequestItemProperties.Get_Categories: WideString;
  13554. begin
  13555.   Result := DefaultInterface.Categories;
  13556. end;
  13557.  
  13558. procedure TMeetingRequestItemProperties.Set_Categories(const Param1: WideString);
  13559. begin
  13560.   DefaultInterface.Categories := Param1;
  13561. end;
  13562.  
  13563. function  TMeetingRequestItemProperties.Get_Companies: WideString;
  13564. begin
  13565.   Result := DefaultInterface.Companies;
  13566. end;
  13567.  
  13568. procedure TMeetingRequestItemProperties.Set_Companies(const Param1: WideString);
  13569. begin
  13570.   DefaultInterface.Companies := Param1;
  13571. end;
  13572.  
  13573. function  TMeetingRequestItemProperties.Get_CreationTime: TDateTime;
  13574. begin
  13575.   Result := DefaultInterface.CreationTime;
  13576. end;
  13577.  
  13578. function  TMeetingRequestItemProperties.Get_EntryID: WideString;
  13579. begin
  13580.   Result := DefaultInterface.EntryID;
  13581. end;
  13582.  
  13583. function  TMeetingRequestItemProperties.Get_FormDescription: FormDescription;
  13584. begin
  13585.   Result := DefaultInterface.FormDescription;
  13586. end;
  13587.  
  13588. function  TMeetingRequestItemProperties.Get_GetInspector: Inspector;
  13589. begin
  13590.   Result := DefaultInterface.GetInspector;
  13591. end;
  13592.  
  13593. function  TMeetingRequestItemProperties.Get_Importance: OlImportance;
  13594. begin
  13595.   Result := DefaultInterface.Importance;
  13596. end;
  13597.  
  13598. procedure TMeetingRequestItemProperties.Set_Importance(Param1: OlImportance);
  13599. begin
  13600.   DefaultInterface.Importance := Param1;
  13601. end;
  13602.  
  13603. function  TMeetingRequestItemProperties.Get_LastModificationTime: TDateTime;
  13604. begin
  13605.   Result := DefaultInterface.LastModificationTime;
  13606. end;
  13607.  
  13608. function  TMeetingRequestItemProperties.Get_MessageClass: WideString;
  13609. begin
  13610.   Result := DefaultInterface.MessageClass;
  13611. end;
  13612.  
  13613. procedure TMeetingRequestItemProperties.Set_MessageClass(const Param1: WideString);
  13614. begin
  13615.   DefaultInterface.MessageClass := Param1;
  13616. end;
  13617.  
  13618. function  TMeetingRequestItemProperties.Get_Mileage: WideString;
  13619. begin
  13620.   Result := DefaultInterface.Mileage;
  13621. end;
  13622.  
  13623. procedure TMeetingRequestItemProperties.Set_Mileage(const Param1: WideString);
  13624. begin
  13625.   DefaultInterface.Mileage := Param1;
  13626. end;
  13627.  
  13628. function  TMeetingRequestItemProperties.Get_NoAging: WordBool;
  13629. begin
  13630.   Result := DefaultInterface.NoAging;
  13631. end;
  13632.  
  13633. procedure TMeetingRequestItemProperties.Set_NoAging(Param1: WordBool);
  13634. begin
  13635.   DefaultInterface.NoAging := Param1;
  13636. end;
  13637.  
  13638. function  TMeetingRequestItemProperties.Get_OutlookInternalVersion: WideString;
  13639. begin
  13640.   Result := DefaultInterface.OutlookInternalVersion;
  13641. end;
  13642.  
  13643. function  TMeetingRequestItemProperties.Get_OutlookVersion: WideString;
  13644. begin
  13645.   Result := DefaultInterface.OutlookVersion;
  13646. end;
  13647.  
  13648. function  TMeetingRequestItemProperties.Get_Parent: IDispatch;
  13649. begin
  13650.   Result := DefaultInterface.Parent;
  13651. end;
  13652.  
  13653. function  TMeetingRequestItemProperties.Get_Saved: WordBool;
  13654. begin
  13655.   Result := DefaultInterface.Saved;
  13656. end;
  13657.  
  13658. function  TMeetingRequestItemProperties.Get_Sensitivity: OlSensitivity;
  13659. begin
  13660.   Result := DefaultInterface.Sensitivity;
  13661. end;
  13662.  
  13663. procedure TMeetingRequestItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  13664. begin
  13665.   DefaultInterface.Sensitivity := Param1;
  13666. end;
  13667.  
  13668. function  TMeetingRequestItemProperties.Get_Size: Integer;
  13669. begin
  13670.   Result := DefaultInterface.Size;
  13671. end;
  13672.  
  13673. function  TMeetingRequestItemProperties.Get_Subject: WideString;
  13674. begin
  13675.   Result := DefaultInterface.Subject;
  13676. end;
  13677.  
  13678. procedure TMeetingRequestItemProperties.Set_Subject(const Param1: WideString);
  13679. begin
  13680.   DefaultInterface.Subject := Param1;
  13681. end;
  13682.  
  13683. function  TMeetingRequestItemProperties.Get_UnRead: WordBool;
  13684. begin
  13685.   Result := DefaultInterface.UnRead;
  13686. end;
  13687.  
  13688. procedure TMeetingRequestItemProperties.Set_UnRead(Param1: WordBool);
  13689. begin
  13690.   DefaultInterface.UnRead := Param1;
  13691. end;
  13692.  
  13693. function  TMeetingRequestItemProperties.Get_UserProperties: UserProperties;
  13694. begin
  13695.   Result := DefaultInterface.UserProperties;
  13696. end;
  13697.  
  13698. {$ENDIF}
  13699.  
  13700. class function Co_MeetingRequestTentativeItem.Create: _DMeetingRequestTentativeItem;
  13701. begin
  13702.   Result := CreateComObject(CLASS__MeetingRequestTentativeItem) as _DMeetingRequestTentativeItem;
  13703. end;
  13704.  
  13705. class function Co_MeetingRequestTentativeItem.CreateRemote(const MachineName: string): _DMeetingRequestTentativeItem;
  13706. begin
  13707.   Result := CreateRemoteComObject(MachineName, CLASS__MeetingRequestTentativeItem) as _DMeetingRequestTentativeItem;
  13708. end;
  13709.  
  13710. class function CoNoteItem.Create: _DNoteItem;
  13711. begin
  13712.   Result := CreateComObject(CLASS_NoteItem) as _DNoteItem;
  13713. end;
  13714.  
  13715. class function CoNoteItem.CreateRemote(const MachineName: string): _DNoteItem;
  13716. begin
  13717.   Result := CreateRemoteComObject(MachineName, CLASS_NoteItem) as _DNoteItem;
  13718. end;
  13719.  
  13720. procedure TNoteItem.InitServerData;
  13721. const
  13722.   CServerData: TServerData = (
  13723.     ClassID:   '{00061034-0000-0000-C000-000000000046}';
  13724.     IntfIID:   '{00063025-0000-0000-C000-000000000046}';
  13725.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  13726.     LicenseKey: nil;
  13727.     Version: 500);
  13728. begin
  13729.   ServerData := @CServerData;
  13730. end;
  13731.  
  13732. procedure TNoteItem.Connect;
  13733. var
  13734.   punk: IUnknown;
  13735. begin
  13736.   if FIntf = nil then
  13737.   begin
  13738.     punk := GetServer;
  13739.     ConnectEvents(punk);
  13740.     Fintf:= punk as _DNoteItem;
  13741.   end;
  13742. end;
  13743.  
  13744. procedure TNoteItem.ConnectTo(svrIntf: _DNoteItem);
  13745. begin
  13746.   Disconnect;
  13747.   FIntf := svrIntf;
  13748.   ConnectEvents(FIntf);
  13749. end;
  13750.  
  13751. procedure TNoteItem.DisConnect;
  13752. begin
  13753.   if Fintf <> nil then
  13754.   begin
  13755.     DisconnectEvents(FIntf);
  13756.     FIntf := nil;
  13757.   end;
  13758. end;
  13759.  
  13760. function TNoteItem.GetDefaultInterface: _DNoteItem;
  13761. begin
  13762.   if FIntf = nil then
  13763.     Connect;
  13764.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  13765.   Result := FIntf;
  13766. end;
  13767.  
  13768. constructor TNoteItem.Create(AOwner: TComponent);
  13769. begin
  13770.   inherited Create(AOwner);
  13771. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13772.   FProps := TNoteItemProperties.Create(Self);
  13773. {$ENDIF}
  13774. end;
  13775.  
  13776. destructor TNoteItem.Destroy;
  13777. begin
  13778. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13779.   FProps.Free;
  13780. {$ENDIF}
  13781.   inherited Destroy;
  13782. end;
  13783.  
  13784. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13785. function TNoteItem.GetServerProperties: TNoteItemProperties;
  13786. begin
  13787.   Result := FProps;
  13788. end;
  13789. {$ENDIF}
  13790.  
  13791. procedure TNoteItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  13792. begin
  13793.   case DispID of
  13794.     -1: Exit;  // DISPID_UNKNOWN
  13795.    61441: if Assigned(FOnRead) then
  13796.             FOnRead(Self);
  13797.    61442: if Assigned(FOnWrite) then
  13798.             FOnWrite(Self);
  13799.    61443: if Assigned(FOnOpen) then
  13800.             FOnOpen(Self);
  13801.    61444: if Assigned(FOnClose) then
  13802.             FOnClose(Self);
  13803.    61445: if Assigned(FOnSend) then
  13804.             FOnSend(Self);
  13805.    62566: if Assigned(FOnReply) then
  13806.             FOnReply(Self, Params[0] (*const IDispatch*));
  13807.    62567: if Assigned(FOnReplyAll) then
  13808.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  13809.    62568: if Assigned(FOnForward) then
  13810.             FOnForward(Self, Params[0] (*const IDispatch*));
  13811.    61446: if Assigned(FOnCustomAction) then
  13812.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  13813.    61448: if Assigned(FOnCustomPropertyChange) then
  13814.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  13815.    61449: if Assigned(FOnPropertyChange) then
  13816.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  13817.   end; {case DispID}
  13818. end;
  13819.  
  13820. function  TNoteItem.Get_Application: OutlookApplication;
  13821. begin
  13822.   Result := DefaultInterface.Application;
  13823. end;
  13824.  
  13825. function  TNoteItem.Get_Body: WideString;
  13826. begin
  13827.   Result := DefaultInterface.Body;
  13828. end;
  13829.  
  13830. procedure TNoteItem.Set_Body(const Param1: WideString);
  13831. begin
  13832.   DefaultInterface.Body := Param1;
  13833. end;
  13834.  
  13835. function  TNoteItem.Get_Categories: WideString;
  13836. begin
  13837.   Result := DefaultInterface.Categories;
  13838. end;
  13839.  
  13840. procedure TNoteItem.Set_Categories(const Param1: WideString);
  13841. begin
  13842.   DefaultInterface.Categories := Param1;
  13843. end;
  13844.  
  13845. function  TNoteItem.Get_Color: OlNoteColor;
  13846. begin
  13847.   Result := DefaultInterface.Color;
  13848. end;
  13849.  
  13850. procedure TNoteItem.Set_Color(Param1: OlNoteColor);
  13851. begin
  13852.   DefaultInterface.Color := Param1;
  13853. end;
  13854.  
  13855. function  TNoteItem.Get_CreationTime: TDateTime;
  13856. begin
  13857.   Result := DefaultInterface.CreationTime;
  13858. end;
  13859.  
  13860. function  TNoteItem.Get_EntryID: WideString;
  13861. begin
  13862.   Result := DefaultInterface.EntryID;
  13863. end;
  13864.  
  13865. function  TNoteItem.Get_GetInspector: Inspector;
  13866. begin
  13867.   Result := DefaultInterface.GetInspector;
  13868. end;
  13869.  
  13870. function  TNoteItem.Get_Height: Integer;
  13871. begin
  13872.   Result := DefaultInterface.Height;
  13873. end;
  13874.  
  13875. procedure TNoteItem.Set_Height(Param1: Integer);
  13876. begin
  13877.   DefaultInterface.Height := Param1;
  13878. end;
  13879.  
  13880. function  TNoteItem.Get_LastModificationTime: TDateTime;
  13881. begin
  13882.   Result := DefaultInterface.LastModificationTime;
  13883. end;
  13884.  
  13885. function  TNoteItem.Get_Left: Integer;
  13886. begin
  13887.   Result := DefaultInterface.Left;
  13888. end;
  13889.  
  13890. procedure TNoteItem.Set_Left(Param1: Integer);
  13891. begin
  13892.   DefaultInterface.Left := Param1;
  13893. end;
  13894.  
  13895. function  TNoteItem.Get_MessageClass: WideString;
  13896. begin
  13897.   Result := DefaultInterface.MessageClass;
  13898. end;
  13899.  
  13900. procedure TNoteItem.Set_MessageClass(const Param1: WideString);
  13901. begin
  13902.   DefaultInterface.MessageClass := Param1;
  13903. end;
  13904.  
  13905. function  TNoteItem.Get_Parent: MAPIFolder;
  13906. begin
  13907.   Result := DefaultInterface.Parent;
  13908. end;
  13909.  
  13910. function  TNoteItem.Get_Saved: WordBool;
  13911. begin
  13912.   Result := DefaultInterface.Saved;
  13913. end;
  13914.  
  13915. function  TNoteItem.Get_Size: Integer;
  13916. begin
  13917.   Result := DefaultInterface.Size;
  13918. end;
  13919.  
  13920. function  TNoteItem.Get_Subject: WideString;
  13921. begin
  13922.   Result := DefaultInterface.Subject;
  13923. end;
  13924.  
  13925. function  TNoteItem.Get_Top: Integer;
  13926. begin
  13927.   Result := DefaultInterface.Top;
  13928. end;
  13929.  
  13930. procedure TNoteItem.Set_Top(Param1: Integer);
  13931. begin
  13932.   DefaultInterface.Top := Param1;
  13933. end;
  13934.  
  13935. function  TNoteItem.Get_Width: Integer;
  13936. begin
  13937.   Result := DefaultInterface.Width;
  13938. end;
  13939.  
  13940. procedure TNoteItem.Set_Width(Param1: Integer);
  13941. begin
  13942.   DefaultInterface.Width := Param1;
  13943. end;
  13944.  
  13945. procedure TNoteItem.Close(SaveMode: OlInspectorClose);
  13946. begin
  13947.   DefaultInterface.Close(SaveMode);
  13948. end;
  13949.  
  13950. function  TNoteItem.Copy: IDispatch;
  13951. begin
  13952.   Result := DefaultInterface.Copy;
  13953. end;
  13954.  
  13955. procedure TNoteItem.Delete;
  13956. begin
  13957.   DefaultInterface.Delete;
  13958. end;
  13959.  
  13960. procedure TNoteItem.Display(Modal: OleVariant);
  13961. begin
  13962.   DefaultInterface.Display(Modal);
  13963. end;
  13964.  
  13965. function  TNoteItem.Move(const DestFldr: MAPIFolder): IDispatch;
  13966. begin
  13967.   Result := DefaultInterface.Move(DestFldr);
  13968. end;
  13969.  
  13970. procedure TNoteItem.Save;
  13971. begin
  13972.   DefaultInterface.Save;
  13973. end;
  13974.  
  13975. procedure TNoteItem.SaveAs(const Path: WideString; Type_: OleVariant);
  13976. begin
  13977.   DefaultInterface.SaveAs(Path, Type_);
  13978. end;
  13979.  
  13980. procedure TNoteItem.PrintOut;
  13981. begin
  13982.   DefaultInterface.PrintOut;
  13983. end;
  13984.  
  13985. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  13986. constructor TNoteItemProperties.Create(AServer: TNoteItem);
  13987. begin
  13988.   inherited Create;
  13989.   FServer := AServer;
  13990. end;
  13991.  
  13992. function TNoteItemProperties.GetDefaultInterface: _DNoteItem;
  13993. begin
  13994.   Result := FServer.DefaultInterface;
  13995. end;
  13996.  
  13997. function  TNoteItemProperties.Get_Application: OutlookApplication;
  13998. begin
  13999.   Result := DefaultInterface.Application;
  14000. end;
  14001.  
  14002. function  TNoteItemProperties.Get_Body: WideString;
  14003. begin
  14004.   Result := DefaultInterface.Body;
  14005. end;
  14006.  
  14007. procedure TNoteItemProperties.Set_Body(const Param1: WideString);
  14008. begin
  14009.   DefaultInterface.Body := Param1;
  14010. end;
  14011.  
  14012. function  TNoteItemProperties.Get_Categories: WideString;
  14013. begin
  14014.   Result := DefaultInterface.Categories;
  14015. end;
  14016.  
  14017. procedure TNoteItemProperties.Set_Categories(const Param1: WideString);
  14018. begin
  14019.   DefaultInterface.Categories := Param1;
  14020. end;
  14021.  
  14022. function  TNoteItemProperties.Get_Color: OlNoteColor;
  14023. begin
  14024.   Result := DefaultInterface.Color;
  14025. end;
  14026.  
  14027. procedure TNoteItemProperties.Set_Color(Param1: OlNoteColor);
  14028. begin
  14029.   DefaultInterface.Color := Param1;
  14030. end;
  14031.  
  14032. function  TNoteItemProperties.Get_CreationTime: TDateTime;
  14033. begin
  14034.   Result := DefaultInterface.CreationTime;
  14035. end;
  14036.  
  14037. function  TNoteItemProperties.Get_EntryID: WideString;
  14038. begin
  14039.   Result := DefaultInterface.EntryID;
  14040. end;
  14041.  
  14042. function  TNoteItemProperties.Get_GetInspector: Inspector;
  14043. begin
  14044.   Result := DefaultInterface.GetInspector;
  14045. end;
  14046.  
  14047. function  TNoteItemProperties.Get_Height: Integer;
  14048. begin
  14049.   Result := DefaultInterface.Height;
  14050. end;
  14051.  
  14052. procedure TNoteItemProperties.Set_Height(Param1: Integer);
  14053. begin
  14054.   DefaultInterface.Height := Param1;
  14055. end;
  14056.  
  14057. function  TNoteItemProperties.Get_LastModificationTime: TDateTime;
  14058. begin
  14059.   Result := DefaultInterface.LastModificationTime;
  14060. end;
  14061.  
  14062. function  TNoteItemProperties.Get_Left: Integer;
  14063. begin
  14064.   Result := DefaultInterface.Left;
  14065. end;
  14066.  
  14067. procedure TNoteItemProperties.Set_Left(Param1: Integer);
  14068. begin
  14069.   DefaultInterface.Left := Param1;
  14070. end;
  14071.  
  14072. function  TNoteItemProperties.Get_MessageClass: WideString;
  14073. begin
  14074.   Result := DefaultInterface.MessageClass;
  14075. end;
  14076.  
  14077. procedure TNoteItemProperties.Set_MessageClass(const Param1: WideString);
  14078. begin
  14079.   DefaultInterface.MessageClass := Param1;
  14080. end;
  14081.  
  14082. function  TNoteItemProperties.Get_Parent: MAPIFolder;
  14083. begin
  14084.   Result := DefaultInterface.Parent;
  14085. end;
  14086.  
  14087. function  TNoteItemProperties.Get_Saved: WordBool;
  14088. begin
  14089.   Result := DefaultInterface.Saved;
  14090. end;
  14091.  
  14092. function  TNoteItemProperties.Get_Size: Integer;
  14093. begin
  14094.   Result := DefaultInterface.Size;
  14095. end;
  14096.  
  14097. function  TNoteItemProperties.Get_Subject: WideString;
  14098. begin
  14099.   Result := DefaultInterface.Subject;
  14100. end;
  14101.  
  14102. function  TNoteItemProperties.Get_Top: Integer;
  14103. begin
  14104.   Result := DefaultInterface.Top;
  14105. end;
  14106.  
  14107. procedure TNoteItemProperties.Set_Top(Param1: Integer);
  14108. begin
  14109.   DefaultInterface.Top := Param1;
  14110. end;
  14111.  
  14112. function  TNoteItemProperties.Get_Width: Integer;
  14113. begin
  14114.   Result := DefaultInterface.Width;
  14115. end;
  14116.  
  14117. procedure TNoteItemProperties.Set_Width(Param1: Integer);
  14118. begin
  14119.   DefaultInterface.Width := Param1;
  14120. end;
  14121.  
  14122. {$ENDIF}
  14123.  
  14124. class function Co_OfficeDocumentItem.Create: _DOfficeDocumentItem;
  14125. begin
  14126.   Result := CreateComObject(CLASS__OfficeDocumentItem) as _DOfficeDocumentItem;
  14127. end;
  14128.  
  14129. class function Co_OfficeDocumentItem.CreateRemote(const MachineName: string): _DOfficeDocumentItem;
  14130. begin
  14131.   Result := CreateRemoteComObject(MachineName, CLASS__OfficeDocumentItem) as _DOfficeDocumentItem;
  14132. end;
  14133.  
  14134. class function CoPostItem.Create: _DPostItem;
  14135. begin
  14136.   Result := CreateComObject(CLASS_PostItem) as _DPostItem;
  14137. end;
  14138.  
  14139. class function CoPostItem.CreateRemote(const MachineName: string): _DPostItem;
  14140. begin
  14141.   Result := CreateRemoteComObject(MachineName, CLASS_PostItem) as _DPostItem;
  14142. end;
  14143.  
  14144. procedure TPostItem.InitServerData;
  14145. const
  14146.   CServerData: TServerData = (
  14147.     ClassID:   '{0006103A-0000-0000-C000-000000000046}';
  14148.     IntfIID:   '{00063024-0000-0000-C000-000000000046}';
  14149.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  14150.     LicenseKey: nil;
  14151.     Version: 500);
  14152. begin
  14153.   ServerData := @CServerData;
  14154. end;
  14155.  
  14156. procedure TPostItem.Connect;
  14157. var
  14158.   punk: IUnknown;
  14159. begin
  14160.   if FIntf = nil then
  14161.   begin
  14162.     punk := GetServer;
  14163.     ConnectEvents(punk);
  14164.     Fintf:= punk as _DPostItem;
  14165.   end;
  14166. end;
  14167.  
  14168. procedure TPostItem.ConnectTo(svrIntf: _DPostItem);
  14169. begin
  14170.   Disconnect;
  14171.   FIntf := svrIntf;
  14172.   ConnectEvents(FIntf);
  14173. end;
  14174.  
  14175. procedure TPostItem.DisConnect;
  14176. begin
  14177.   if Fintf <> nil then
  14178.   begin
  14179.     DisconnectEvents(FIntf);
  14180.     FIntf := nil;
  14181.   end;
  14182. end;
  14183.  
  14184. function TPostItem.GetDefaultInterface: _DPostItem;
  14185. begin
  14186.   if FIntf = nil then
  14187.     Connect;
  14188.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  14189.   Result := FIntf;
  14190. end;
  14191.  
  14192. constructor TPostItem.Create(AOwner: TComponent);
  14193. begin
  14194.   inherited Create(AOwner);
  14195. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14196.   FProps := TPostItemProperties.Create(Self);
  14197. {$ENDIF}
  14198. end;
  14199.  
  14200. destructor TPostItem.Destroy;
  14201. begin
  14202. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14203.   FProps.Free;
  14204. {$ENDIF}
  14205.   inherited Destroy;
  14206. end;
  14207.  
  14208. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14209. function TPostItem.GetServerProperties: TPostItemProperties;
  14210. begin
  14211.   Result := FProps;
  14212. end;
  14213. {$ENDIF}
  14214.  
  14215. procedure TPostItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  14216. begin
  14217.   case DispID of
  14218.     -1: Exit;  // DISPID_UNKNOWN
  14219.    61441: if Assigned(FOnRead) then
  14220.             FOnRead(Self);
  14221.    61442: if Assigned(FOnWrite) then
  14222.             FOnWrite(Self);
  14223.    61443: if Assigned(FOnOpen) then
  14224.             FOnOpen(Self);
  14225.    61444: if Assigned(FOnClose) then
  14226.             FOnClose(Self);
  14227.    61445: if Assigned(FOnSend) then
  14228.             FOnSend(Self);
  14229.    62566: if Assigned(FOnReply) then
  14230.             FOnReply(Self, Params[0] (*const IDispatch*));
  14231.    62567: if Assigned(FOnReplyAll) then
  14232.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  14233.    62568: if Assigned(FOnForward) then
  14234.             FOnForward(Self, Params[0] (*const IDispatch*));
  14235.    61446: if Assigned(FOnCustomAction) then
  14236.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  14237.    61448: if Assigned(FOnCustomPropertyChange) then
  14238.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  14239.    61449: if Assigned(FOnPropertyChange) then
  14240.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  14241.   end; {case DispID}
  14242. end;
  14243.  
  14244. function  TPostItem.Get_Actions: Actions;
  14245. begin
  14246.   Result := DefaultInterface.Actions;
  14247. end;
  14248.  
  14249. function  TPostItem.Get_Application: OutlookApplication;
  14250. begin
  14251.   Result := DefaultInterface.Application;
  14252. end;
  14253.  
  14254. function  TPostItem.Get_Attachments: Attachments;
  14255. begin
  14256.   Result := DefaultInterface.Attachments;
  14257. end;
  14258.  
  14259. function  TPostItem.Get_BillingInformation: WideString;
  14260. begin
  14261.   Result := DefaultInterface.BillingInformation;
  14262. end;
  14263.  
  14264. procedure TPostItem.Set_BillingInformation(const Param1: WideString);
  14265. begin
  14266.   DefaultInterface.BillingInformation := Param1;
  14267. end;
  14268.  
  14269. function  TPostItem.Get_Body: WideString;
  14270. begin
  14271.   Result := DefaultInterface.Body;
  14272. end;
  14273.  
  14274. procedure TPostItem.Set_Body(const Param1: WideString);
  14275. begin
  14276.   DefaultInterface.Body := Param1;
  14277. end;
  14278.  
  14279. function  TPostItem.Get_Categories: WideString;
  14280. begin
  14281.   Result := DefaultInterface.Categories;
  14282. end;
  14283.  
  14284. procedure TPostItem.Set_Categories(const Param1: WideString);
  14285. begin
  14286.   DefaultInterface.Categories := Param1;
  14287. end;
  14288.  
  14289. function  TPostItem.Get_Companies: WideString;
  14290. begin
  14291.   Result := DefaultInterface.Companies;
  14292. end;
  14293.  
  14294. procedure TPostItem.Set_Companies(const Param1: WideString);
  14295. begin
  14296.   DefaultInterface.Companies := Param1;
  14297. end;
  14298.  
  14299. function  TPostItem.Get_CreationTime: TDateTime;
  14300. begin
  14301.   Result := DefaultInterface.CreationTime;
  14302. end;
  14303.  
  14304. function  TPostItem.Get_EntryID: WideString;
  14305. begin
  14306.   Result := DefaultInterface.EntryID;
  14307. end;
  14308.  
  14309. function  TPostItem.Get_FormDescription: FormDescription;
  14310. begin
  14311.   Result := DefaultInterface.FormDescription;
  14312. end;
  14313.  
  14314. function  TPostItem.Get_GetInspector: Inspector;
  14315. begin
  14316.   Result := DefaultInterface.GetInspector;
  14317. end;
  14318.  
  14319. function  TPostItem.Get_Importance: OlImportance;
  14320. begin
  14321.   Result := DefaultInterface.Importance;
  14322. end;
  14323.  
  14324. procedure TPostItem.Set_Importance(Param1: OlImportance);
  14325. begin
  14326.   DefaultInterface.Importance := Param1;
  14327. end;
  14328.  
  14329. function  TPostItem.Get_LastModificationTime: TDateTime;
  14330. begin
  14331.   Result := DefaultInterface.LastModificationTime;
  14332. end;
  14333.  
  14334. function  TPostItem.Get_MessageClass: WideString;
  14335. begin
  14336.   Result := DefaultInterface.MessageClass;
  14337. end;
  14338.  
  14339. procedure TPostItem.Set_MessageClass(const Param1: WideString);
  14340. begin
  14341.   DefaultInterface.MessageClass := Param1;
  14342. end;
  14343.  
  14344. function  TPostItem.Get_Mileage: WideString;
  14345. begin
  14346.   Result := DefaultInterface.Mileage;
  14347. end;
  14348.  
  14349. procedure TPostItem.Set_Mileage(const Param1: WideString);
  14350. begin
  14351.   DefaultInterface.Mileage := Param1;
  14352. end;
  14353.  
  14354. function  TPostItem.Get_NoAging: WordBool;
  14355. begin
  14356.   Result := DefaultInterface.NoAging;
  14357. end;
  14358.  
  14359. procedure TPostItem.Set_NoAging(Param1: WordBool);
  14360. begin
  14361.   DefaultInterface.NoAging := Param1;
  14362. end;
  14363.  
  14364. function  TPostItem.Get_OutlookInternalVersion: WideString;
  14365. begin
  14366.   Result := DefaultInterface.OutlookInternalVersion;
  14367. end;
  14368.  
  14369. function  TPostItem.Get_OutlookVersion: WideString;
  14370. begin
  14371.   Result := DefaultInterface.OutlookVersion;
  14372. end;
  14373.  
  14374. function  TPostItem.Get_Parent: IDispatch;
  14375. begin
  14376.   Result := DefaultInterface.Parent;
  14377. end;
  14378.  
  14379. function  TPostItem.Get_Saved: WordBool;
  14380. begin
  14381.   Result := DefaultInterface.Saved;
  14382. end;
  14383.  
  14384. function  TPostItem.Get_Sensitivity: OlSensitivity;
  14385. begin
  14386.   Result := DefaultInterface.Sensitivity;
  14387. end;
  14388.  
  14389. procedure TPostItem.Set_Sensitivity(Param1: OlSensitivity);
  14390. begin
  14391.   DefaultInterface.Sensitivity := Param1;
  14392. end;
  14393.  
  14394. function  TPostItem.Get_Size: Integer;
  14395. begin
  14396.   Result := DefaultInterface.Size;
  14397. end;
  14398.  
  14399. function  TPostItem.Get_Subject: WideString;
  14400. begin
  14401.   Result := DefaultInterface.Subject;
  14402. end;
  14403.  
  14404. procedure TPostItem.Set_Subject(const Param1: WideString);
  14405. begin
  14406.   DefaultInterface.Subject := Param1;
  14407. end;
  14408.  
  14409. function  TPostItem.Get_UnRead: WordBool;
  14410. begin
  14411.   Result := DefaultInterface.UnRead;
  14412. end;
  14413.  
  14414. procedure TPostItem.Set_UnRead(Param1: WordBool);
  14415. begin
  14416.   DefaultInterface.UnRead := Param1;
  14417. end;
  14418.  
  14419. function  TPostItem.Get_UserProperties: UserProperties;
  14420. begin
  14421.   Result := DefaultInterface.UserProperties;
  14422. end;
  14423.  
  14424. function  TPostItem.Get_ConversationIndex: WideString;
  14425. begin
  14426.   Result := DefaultInterface.ConversationIndex;
  14427. end;
  14428.  
  14429. function  TPostItem.Get_ConversationTopic: WideString;
  14430. begin
  14431.   Result := DefaultInterface.ConversationTopic;
  14432. end;
  14433.  
  14434. function  TPostItem.Get_ExpiryTime: TDateTime;
  14435. begin
  14436.   Result := DefaultInterface.ExpiryTime;
  14437. end;
  14438.  
  14439. procedure TPostItem.Set_ExpiryTime(Param1: TDateTime);
  14440. begin
  14441.   DefaultInterface.ExpiryTime := Param1;
  14442. end;
  14443.  
  14444. function  TPostItem.Get_ReceivedTime: TDateTime;
  14445. begin
  14446.   Result := DefaultInterface.ReceivedTime;
  14447. end;
  14448.  
  14449. function  TPostItem.Get_SenderName: WideString;
  14450. begin
  14451.   Result := DefaultInterface.SenderName;
  14452. end;
  14453.  
  14454. function  TPostItem.Get_SentOn: TDateTime;
  14455. begin
  14456.   Result := DefaultInterface.SentOn;
  14457. end;
  14458.  
  14459. procedure TPostItem.Close(SaveMode: OlInspectorClose);
  14460. begin
  14461.   DefaultInterface.Close(SaveMode);
  14462. end;
  14463.  
  14464. function  TPostItem.Copy: IDispatch;
  14465. begin
  14466.   Result := DefaultInterface.Copy;
  14467. end;
  14468.  
  14469. procedure TPostItem.Delete;
  14470. begin
  14471.   DefaultInterface.Delete;
  14472. end;
  14473.  
  14474. procedure TPostItem.Display(Modal: OleVariant);
  14475. begin
  14476.   DefaultInterface.Display(Modal);
  14477. end;
  14478.  
  14479. function  TPostItem.Move(const DestFldr: MAPIFolder): IDispatch;
  14480. begin
  14481.   Result := DefaultInterface.Move(DestFldr);
  14482. end;
  14483.  
  14484. procedure TPostItem.Save;
  14485. begin
  14486.   DefaultInterface.Save;
  14487. end;
  14488.  
  14489. procedure TPostItem.SaveAs(const Path: WideString; Type_: OleVariant);
  14490. begin
  14491.   DefaultInterface.SaveAs(Path, Type_);
  14492. end;
  14493.  
  14494. procedure TPostItem.PrintOut;
  14495. begin
  14496.   DefaultInterface.PrintOut;
  14497. end;
  14498.  
  14499. procedure TPostItem.ClearConversationIndex;
  14500. begin
  14501.   DefaultInterface.ClearConversationIndex;
  14502. end;
  14503.  
  14504. function  TPostItem.Forward: MailItem;
  14505. begin
  14506.   Result := DefaultInterface.Forward;
  14507. end;
  14508.  
  14509. procedure TPostItem.Post;
  14510. begin
  14511.   DefaultInterface.Post;
  14512. end;
  14513.  
  14514. function  TPostItem.Reply: MailItem;
  14515. begin
  14516.   Result := DefaultInterface.Reply;
  14517. end;
  14518.  
  14519. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14520. constructor TPostItemProperties.Create(AServer: TPostItem);
  14521. begin
  14522.   inherited Create;
  14523.   FServer := AServer;
  14524. end;
  14525.  
  14526. function TPostItemProperties.GetDefaultInterface: _DPostItem;
  14527. begin
  14528.   Result := FServer.DefaultInterface;
  14529. end;
  14530.  
  14531. function  TPostItemProperties.Get_Actions: Actions;
  14532. begin
  14533.   Result := DefaultInterface.Actions;
  14534. end;
  14535.  
  14536. function  TPostItemProperties.Get_Application: OutlookApplication;
  14537. begin
  14538.   Result := DefaultInterface.Application;
  14539. end;
  14540.  
  14541. function  TPostItemProperties.Get_Attachments: Attachments;
  14542. begin
  14543.   Result := DefaultInterface.Attachments;
  14544. end;
  14545.  
  14546. function  TPostItemProperties.Get_BillingInformation: WideString;
  14547. begin
  14548.   Result := DefaultInterface.BillingInformation;
  14549. end;
  14550.  
  14551. procedure TPostItemProperties.Set_BillingInformation(const Param1: WideString);
  14552. begin
  14553.   DefaultInterface.BillingInformation := Param1;
  14554. end;
  14555.  
  14556. function  TPostItemProperties.Get_Body: WideString;
  14557. begin
  14558.   Result := DefaultInterface.Body;
  14559. end;
  14560.  
  14561. procedure TPostItemProperties.Set_Body(const Param1: WideString);
  14562. begin
  14563.   DefaultInterface.Body := Param1;
  14564. end;
  14565.  
  14566. function  TPostItemProperties.Get_Categories: WideString;
  14567. begin
  14568.   Result := DefaultInterface.Categories;
  14569. end;
  14570.  
  14571. procedure TPostItemProperties.Set_Categories(const Param1: WideString);
  14572. begin
  14573.   DefaultInterface.Categories := Param1;
  14574. end;
  14575.  
  14576. function  TPostItemProperties.Get_Companies: WideString;
  14577. begin
  14578.   Result := DefaultInterface.Companies;
  14579. end;
  14580.  
  14581. procedure TPostItemProperties.Set_Companies(const Param1: WideString);
  14582. begin
  14583.   DefaultInterface.Companies := Param1;
  14584. end;
  14585.  
  14586. function  TPostItemProperties.Get_CreationTime: TDateTime;
  14587. begin
  14588.   Result := DefaultInterface.CreationTime;
  14589. end;
  14590.  
  14591. function  TPostItemProperties.Get_EntryID: WideString;
  14592. begin
  14593.   Result := DefaultInterface.EntryID;
  14594. end;
  14595.  
  14596. function  TPostItemProperties.Get_FormDescription: FormDescription;
  14597. begin
  14598.   Result := DefaultInterface.FormDescription;
  14599. end;
  14600.  
  14601. function  TPostItemProperties.Get_GetInspector: Inspector;
  14602. begin
  14603.   Result := DefaultInterface.GetInspector;
  14604. end;
  14605.  
  14606. function  TPostItemProperties.Get_Importance: OlImportance;
  14607. begin
  14608.   Result := DefaultInterface.Importance;
  14609. end;
  14610.  
  14611. procedure TPostItemProperties.Set_Importance(Param1: OlImportance);
  14612. begin
  14613.   DefaultInterface.Importance := Param1;
  14614. end;
  14615.  
  14616. function  TPostItemProperties.Get_LastModificationTime: TDateTime;
  14617. begin
  14618.   Result := DefaultInterface.LastModificationTime;
  14619. end;
  14620.  
  14621. function  TPostItemProperties.Get_MessageClass: WideString;
  14622. begin
  14623.   Result := DefaultInterface.MessageClass;
  14624. end;
  14625.  
  14626. procedure TPostItemProperties.Set_MessageClass(const Param1: WideString);
  14627. begin
  14628.   DefaultInterface.MessageClass := Param1;
  14629. end;
  14630.  
  14631. function  TPostItemProperties.Get_Mileage: WideString;
  14632. begin
  14633.   Result := DefaultInterface.Mileage;
  14634. end;
  14635.  
  14636. procedure TPostItemProperties.Set_Mileage(const Param1: WideString);
  14637. begin
  14638.   DefaultInterface.Mileage := Param1;
  14639. end;
  14640.  
  14641. function  TPostItemProperties.Get_NoAging: WordBool;
  14642. begin
  14643.   Result := DefaultInterface.NoAging;
  14644. end;
  14645.  
  14646. procedure TPostItemProperties.Set_NoAging(Param1: WordBool);
  14647. begin
  14648.   DefaultInterface.NoAging := Param1;
  14649. end;
  14650.  
  14651. function  TPostItemProperties.Get_OutlookInternalVersion: WideString;
  14652. begin
  14653.   Result := DefaultInterface.OutlookInternalVersion;
  14654. end;
  14655.  
  14656. function  TPostItemProperties.Get_OutlookVersion: WideString;
  14657. begin
  14658.   Result := DefaultInterface.OutlookVersion;
  14659. end;
  14660.  
  14661. function  TPostItemProperties.Get_Parent: IDispatch;
  14662. begin
  14663.   Result := DefaultInterface.Parent;
  14664. end;
  14665.  
  14666. function  TPostItemProperties.Get_Saved: WordBool;
  14667. begin
  14668.   Result := DefaultInterface.Saved;
  14669. end;
  14670.  
  14671. function  TPostItemProperties.Get_Sensitivity: OlSensitivity;
  14672. begin
  14673.   Result := DefaultInterface.Sensitivity;
  14674. end;
  14675.  
  14676. procedure TPostItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  14677. begin
  14678.   DefaultInterface.Sensitivity := Param1;
  14679. end;
  14680.  
  14681. function  TPostItemProperties.Get_Size: Integer;
  14682. begin
  14683.   Result := DefaultInterface.Size;
  14684. end;
  14685.  
  14686. function  TPostItemProperties.Get_Subject: WideString;
  14687. begin
  14688.   Result := DefaultInterface.Subject;
  14689. end;
  14690.  
  14691. procedure TPostItemProperties.Set_Subject(const Param1: WideString);
  14692. begin
  14693.   DefaultInterface.Subject := Param1;
  14694. end;
  14695.  
  14696. function  TPostItemProperties.Get_UnRead: WordBool;
  14697. begin
  14698.   Result := DefaultInterface.UnRead;
  14699. end;
  14700.  
  14701. procedure TPostItemProperties.Set_UnRead(Param1: WordBool);
  14702. begin
  14703.   DefaultInterface.UnRead := Param1;
  14704. end;
  14705.  
  14706. function  TPostItemProperties.Get_UserProperties: UserProperties;
  14707. begin
  14708.   Result := DefaultInterface.UserProperties;
  14709. end;
  14710.  
  14711. function  TPostItemProperties.Get_ConversationIndex: WideString;
  14712. begin
  14713.   Result := DefaultInterface.ConversationIndex;
  14714. end;
  14715.  
  14716. function  TPostItemProperties.Get_ConversationTopic: WideString;
  14717. begin
  14718.   Result := DefaultInterface.ConversationTopic;
  14719. end;
  14720.  
  14721. function  TPostItemProperties.Get_ExpiryTime: TDateTime;
  14722. begin
  14723.   Result := DefaultInterface.ExpiryTime;
  14724. end;
  14725.  
  14726. procedure TPostItemProperties.Set_ExpiryTime(Param1: TDateTime);
  14727. begin
  14728.   DefaultInterface.ExpiryTime := Param1;
  14729. end;
  14730.  
  14731. function  TPostItemProperties.Get_ReceivedTime: TDateTime;
  14732. begin
  14733.   Result := DefaultInterface.ReceivedTime;
  14734. end;
  14735.  
  14736. function  TPostItemProperties.Get_SenderName: WideString;
  14737. begin
  14738.   Result := DefaultInterface.SenderName;
  14739. end;
  14740.  
  14741. function  TPostItemProperties.Get_SentOn: TDateTime;
  14742. begin
  14743.   Result := DefaultInterface.SentOn;
  14744. end;
  14745.  
  14746. {$ENDIF}
  14747.  
  14748. class function CoRemoteItem.Create: _DRemoteItem;
  14749. begin
  14750.   Result := CreateComObject(CLASS_RemoteItem) as _DRemoteItem;
  14751. end;
  14752.  
  14753. class function CoRemoteItem.CreateRemote(const MachineName: string): _DRemoteItem;
  14754. begin
  14755.   Result := CreateRemoteComObject(MachineName, CLASS_RemoteItem) as _DRemoteItem;
  14756. end;
  14757.  
  14758. procedure TRemoteItem.InitServerData;
  14759. const
  14760.   CServerData: TServerData = (
  14761.     ClassID:   '{00061060-0000-0000-C000-000000000046}';
  14762.     IntfIID:   '{00063023-0000-0000-C000-000000000046}';
  14763.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  14764.     LicenseKey: nil;
  14765.     Version: 500);
  14766. begin
  14767.   ServerData := @CServerData;
  14768. end;
  14769.  
  14770. procedure TRemoteItem.Connect;
  14771. var
  14772.   punk: IUnknown;
  14773. begin
  14774.   if FIntf = nil then
  14775.   begin
  14776.     punk := GetServer;
  14777.     ConnectEvents(punk);
  14778.     Fintf:= punk as _DRemoteItem;
  14779.   end;
  14780. end;
  14781.  
  14782. procedure TRemoteItem.ConnectTo(svrIntf: _DRemoteItem);
  14783. begin
  14784.   Disconnect;
  14785.   FIntf := svrIntf;
  14786.   ConnectEvents(FIntf);
  14787. end;
  14788.  
  14789. procedure TRemoteItem.DisConnect;
  14790. begin
  14791.   if Fintf <> nil then
  14792.   begin
  14793.     DisconnectEvents(FIntf);
  14794.     FIntf := nil;
  14795.   end;
  14796. end;
  14797.  
  14798. function TRemoteItem.GetDefaultInterface: _DRemoteItem;
  14799. begin
  14800.   if FIntf = nil then
  14801.     Connect;
  14802.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  14803.   Result := FIntf;
  14804. end;
  14805.  
  14806. constructor TRemoteItem.Create(AOwner: TComponent);
  14807. begin
  14808.   inherited Create(AOwner);
  14809. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14810.   FProps := TRemoteItemProperties.Create(Self);
  14811. {$ENDIF}
  14812. end;
  14813.  
  14814. destructor TRemoteItem.Destroy;
  14815. begin
  14816. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14817.   FProps.Free;
  14818. {$ENDIF}
  14819.   inherited Destroy;
  14820. end;
  14821.  
  14822. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  14823. function TRemoteItem.GetServerProperties: TRemoteItemProperties;
  14824. begin
  14825.   Result := FProps;
  14826. end;
  14827. {$ENDIF}
  14828.  
  14829. procedure TRemoteItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  14830. begin
  14831.   case DispID of
  14832.     -1: Exit;  // DISPID_UNKNOWN
  14833.    61441: if Assigned(FOnRead) then
  14834.             FOnRead(Self);
  14835.    61442: if Assigned(FOnWrite) then
  14836.             FOnWrite(Self);
  14837.    61443: if Assigned(FOnOpen) then
  14838.             FOnOpen(Self);
  14839.    61444: if Assigned(FOnClose) then
  14840.             FOnClose(Self);
  14841.    61445: if Assigned(FOnSend) then
  14842.             FOnSend(Self);
  14843.    62566: if Assigned(FOnReply) then
  14844.             FOnReply(Self, Params[0] (*const IDispatch*));
  14845.    62567: if Assigned(FOnReplyAll) then
  14846.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  14847.    62568: if Assigned(FOnForward) then
  14848.             FOnForward(Self, Params[0] (*const IDispatch*));
  14849.    61446: if Assigned(FOnCustomAction) then
  14850.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  14851.    61448: if Assigned(FOnCustomPropertyChange) then
  14852.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  14853.    61449: if Assigned(FOnPropertyChange) then
  14854.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  14855.   end; {case DispID}
  14856. end;
  14857.  
  14858. function  TRemoteItem.Get_Actions: Actions;
  14859. begin
  14860.   Result := DefaultInterface.Actions;
  14861. end;
  14862.  
  14863. function  TRemoteItem.Get_Application: OutlookApplication;
  14864. begin
  14865.   Result := DefaultInterface.Application;
  14866. end;
  14867.  
  14868. function  TRemoteItem.Get_Attachments: Attachments;
  14869. begin
  14870.   Result := DefaultInterface.Attachments;
  14871. end;
  14872.  
  14873. function  TRemoteItem.Get_BillingInformation: WideString;
  14874. begin
  14875.   Result := DefaultInterface.BillingInformation;
  14876. end;
  14877.  
  14878. procedure TRemoteItem.Set_BillingInformation(const Param1: WideString);
  14879. begin
  14880.   DefaultInterface.BillingInformation := Param1;
  14881. end;
  14882.  
  14883. function  TRemoteItem.Get_Body: WideString;
  14884. begin
  14885.   Result := DefaultInterface.Body;
  14886. end;
  14887.  
  14888. procedure TRemoteItem.Set_Body(const Param1: WideString);
  14889. begin
  14890.   DefaultInterface.Body := Param1;
  14891. end;
  14892.  
  14893. function  TRemoteItem.Get_Categories: WideString;
  14894. begin
  14895.   Result := DefaultInterface.Categories;
  14896. end;
  14897.  
  14898. procedure TRemoteItem.Set_Categories(const Param1: WideString);
  14899. begin
  14900.   DefaultInterface.Categories := Param1;
  14901. end;
  14902.  
  14903. function  TRemoteItem.Get_Companies: WideString;
  14904. begin
  14905.   Result := DefaultInterface.Companies;
  14906. end;
  14907.  
  14908. procedure TRemoteItem.Set_Companies(const Param1: WideString);
  14909. begin
  14910.   DefaultInterface.Companies := Param1;
  14911. end;
  14912.  
  14913. function  TRemoteItem.Get_CreationTime: TDateTime;
  14914. begin
  14915.   Result := DefaultInterface.CreationTime;
  14916. end;
  14917.  
  14918. function  TRemoteItem.Get_EntryID: WideString;
  14919. begin
  14920.   Result := DefaultInterface.EntryID;
  14921. end;
  14922.  
  14923. function  TRemoteItem.Get_FormDescription: FormDescription;
  14924. begin
  14925.   Result := DefaultInterface.FormDescription;
  14926. end;
  14927.  
  14928. function  TRemoteItem.Get_GetInspector: Inspector;
  14929. begin
  14930.   Result := DefaultInterface.GetInspector;
  14931. end;
  14932.  
  14933. function  TRemoteItem.Get_Importance: OlImportance;
  14934. begin
  14935.   Result := DefaultInterface.Importance;
  14936. end;
  14937.  
  14938. procedure TRemoteItem.Set_Importance(Param1: OlImportance);
  14939. begin
  14940.   DefaultInterface.Importance := Param1;
  14941. end;
  14942.  
  14943. function  TRemoteItem.Get_LastModificationTime: TDateTime;
  14944. begin
  14945.   Result := DefaultInterface.LastModificationTime;
  14946. end;
  14947.  
  14948. function  TRemoteItem.Get_MessageClass: WideString;
  14949. begin
  14950.   Result := DefaultInterface.MessageClass;
  14951. end;
  14952.  
  14953. procedure TRemoteItem.Set_MessageClass(const Param1: WideString);
  14954. begin
  14955.   DefaultInterface.MessageClass := Param1;
  14956. end;
  14957.  
  14958. function  TRemoteItem.Get_Mileage: WideString;
  14959. begin
  14960.   Result := DefaultInterface.Mileage;
  14961. end;
  14962.  
  14963. procedure TRemoteItem.Set_Mileage(const Param1: WideString);
  14964. begin
  14965.   DefaultInterface.Mileage := Param1;
  14966. end;
  14967.  
  14968. function  TRemoteItem.Get_NoAging: WordBool;
  14969. begin
  14970.   Result := DefaultInterface.NoAging;
  14971. end;
  14972.  
  14973. procedure TRemoteItem.Set_NoAging(Param1: WordBool);
  14974. begin
  14975.   DefaultInterface.NoAging := Param1;
  14976. end;
  14977.  
  14978. function  TRemoteItem.Get_OutlookInternalVersion: WideString;
  14979. begin
  14980.   Result := DefaultInterface.OutlookInternalVersion;
  14981. end;
  14982.  
  14983. function  TRemoteItem.Get_OutlookVersion: WideString;
  14984. begin
  14985.   Result := DefaultInterface.OutlookVersion;
  14986. end;
  14987.  
  14988. function  TRemoteItem.Get_Parent: IDispatch;
  14989. begin
  14990.   Result := DefaultInterface.Parent;
  14991. end;
  14992.  
  14993. function  TRemoteItem.Get_Saved: WordBool;
  14994. begin
  14995.   Result := DefaultInterface.Saved;
  14996. end;
  14997.  
  14998. function  TRemoteItem.Get_Sensitivity: OlSensitivity;
  14999. begin
  15000.   Result := DefaultInterface.Sensitivity;
  15001. end;
  15002.  
  15003. procedure TRemoteItem.Set_Sensitivity(Param1: OlSensitivity);
  15004. begin
  15005.   DefaultInterface.Sensitivity := Param1;
  15006. end;
  15007.  
  15008. function  TRemoteItem.Get_Size: Integer;
  15009. begin
  15010.   Result := DefaultInterface.Size;
  15011. end;
  15012.  
  15013. function  TRemoteItem.Get_Subject: WideString;
  15014. begin
  15015.   Result := DefaultInterface.Subject;
  15016. end;
  15017.  
  15018. procedure TRemoteItem.Set_Subject(const Param1: WideString);
  15019. begin
  15020.   DefaultInterface.Subject := Param1;
  15021. end;
  15022.  
  15023. function  TRemoteItem.Get_UnRead: WordBool;
  15024. begin
  15025.   Result := DefaultInterface.UnRead;
  15026. end;
  15027.  
  15028. procedure TRemoteItem.Set_UnRead(Param1: WordBool);
  15029. begin
  15030.   DefaultInterface.UnRead := Param1;
  15031. end;
  15032.  
  15033. function  TRemoteItem.Get_UserProperties: UserProperties;
  15034. begin
  15035.   Result := DefaultInterface.UserProperties;
  15036. end;
  15037.  
  15038. function  TRemoteItem.Get_HasAttachment: WordBool;
  15039. begin
  15040.   Result := DefaultInterface.HasAttachment;
  15041. end;
  15042.  
  15043. function  TRemoteItem.Get_RemoteMessageClass: WideString;
  15044. begin
  15045.   Result := DefaultInterface.RemoteMessageClass;
  15046. end;
  15047.  
  15048. function  TRemoteItem.Get_TransferSize: Integer;
  15049. begin
  15050.   Result := DefaultInterface.TransferSize;
  15051. end;
  15052.  
  15053. function  TRemoteItem.Get_TransferTime: Integer;
  15054. begin
  15055.   Result := DefaultInterface.TransferTime;
  15056. end;
  15057.  
  15058. procedure TRemoteItem.Close(SaveMode: OlInspectorClose);
  15059. begin
  15060.   DefaultInterface.Close(SaveMode);
  15061. end;
  15062.  
  15063. function  TRemoteItem.Copy: IDispatch;
  15064. begin
  15065.   Result := DefaultInterface.Copy;
  15066. end;
  15067.  
  15068. procedure TRemoteItem.Delete;
  15069. begin
  15070.   DefaultInterface.Delete;
  15071. end;
  15072.  
  15073. procedure TRemoteItem.Display(Modal: OleVariant);
  15074. begin
  15075.   DefaultInterface.Display(Modal);
  15076. end;
  15077.  
  15078. function  TRemoteItem.Move(const DestFldr: MAPIFolder): IDispatch;
  15079. begin
  15080.   Result := DefaultInterface.Move(DestFldr);
  15081. end;
  15082.  
  15083. procedure TRemoteItem.Save;
  15084. begin
  15085.   DefaultInterface.Save;
  15086. end;
  15087.  
  15088. procedure TRemoteItem.SaveAs(const Path: WideString; Type_: OleVariant);
  15089. begin
  15090.   DefaultInterface.SaveAs(Path, Type_);
  15091. end;
  15092.  
  15093. procedure TRemoteItem.PrintOut;
  15094. begin
  15095.   DefaultInterface.PrintOut;
  15096. end;
  15097.  
  15098. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15099. constructor TRemoteItemProperties.Create(AServer: TRemoteItem);
  15100. begin
  15101.   inherited Create;
  15102.   FServer := AServer;
  15103. end;
  15104.  
  15105. function TRemoteItemProperties.GetDefaultInterface: _DRemoteItem;
  15106. begin
  15107.   Result := FServer.DefaultInterface;
  15108. end;
  15109.  
  15110. function  TRemoteItemProperties.Get_Actions: Actions;
  15111. begin
  15112.   Result := DefaultInterface.Actions;
  15113. end;
  15114.  
  15115. function  TRemoteItemProperties.Get_Application: OutlookApplication;
  15116. begin
  15117.   Result := DefaultInterface.Application;
  15118. end;
  15119.  
  15120. function  TRemoteItemProperties.Get_Attachments: Attachments;
  15121. begin
  15122.   Result := DefaultInterface.Attachments;
  15123. end;
  15124.  
  15125. function  TRemoteItemProperties.Get_BillingInformation: WideString;
  15126. begin
  15127.   Result := DefaultInterface.BillingInformation;
  15128. end;
  15129.  
  15130. procedure TRemoteItemProperties.Set_BillingInformation(const Param1: WideString);
  15131. begin
  15132.   DefaultInterface.BillingInformation := Param1;
  15133. end;
  15134.  
  15135. function  TRemoteItemProperties.Get_Body: WideString;
  15136. begin
  15137.   Result := DefaultInterface.Body;
  15138. end;
  15139.  
  15140. procedure TRemoteItemProperties.Set_Body(const Param1: WideString);
  15141. begin
  15142.   DefaultInterface.Body := Param1;
  15143. end;
  15144.  
  15145. function  TRemoteItemProperties.Get_Categories: WideString;
  15146. begin
  15147.   Result := DefaultInterface.Categories;
  15148. end;
  15149.  
  15150. procedure TRemoteItemProperties.Set_Categories(const Param1: WideString);
  15151. begin
  15152.   DefaultInterface.Categories := Param1;
  15153. end;
  15154.  
  15155. function  TRemoteItemProperties.Get_Companies: WideString;
  15156. begin
  15157.   Result := DefaultInterface.Companies;
  15158. end;
  15159.  
  15160. procedure TRemoteItemProperties.Set_Companies(const Param1: WideString);
  15161. begin
  15162.   DefaultInterface.Companies := Param1;
  15163. end;
  15164.  
  15165. function  TRemoteItemProperties.Get_CreationTime: TDateTime;
  15166. begin
  15167.   Result := DefaultInterface.CreationTime;
  15168. end;
  15169.  
  15170. function  TRemoteItemProperties.Get_EntryID: WideString;
  15171. begin
  15172.   Result := DefaultInterface.EntryID;
  15173. end;
  15174.  
  15175. function  TRemoteItemProperties.Get_FormDescription: FormDescription;
  15176. begin
  15177.   Result := DefaultInterface.FormDescription;
  15178. end;
  15179.  
  15180. function  TRemoteItemProperties.Get_GetInspector: Inspector;
  15181. begin
  15182.   Result := DefaultInterface.GetInspector;
  15183. end;
  15184.  
  15185. function  TRemoteItemProperties.Get_Importance: OlImportance;
  15186. begin
  15187.   Result := DefaultInterface.Importance;
  15188. end;
  15189.  
  15190. procedure TRemoteItemProperties.Set_Importance(Param1: OlImportance);
  15191. begin
  15192.   DefaultInterface.Importance := Param1;
  15193. end;
  15194.  
  15195. function  TRemoteItemProperties.Get_LastModificationTime: TDateTime;
  15196. begin
  15197.   Result := DefaultInterface.LastModificationTime;
  15198. end;
  15199.  
  15200. function  TRemoteItemProperties.Get_MessageClass: WideString;
  15201. begin
  15202.   Result := DefaultInterface.MessageClass;
  15203. end;
  15204.  
  15205. procedure TRemoteItemProperties.Set_MessageClass(const Param1: WideString);
  15206. begin
  15207.   DefaultInterface.MessageClass := Param1;
  15208. end;
  15209.  
  15210. function  TRemoteItemProperties.Get_Mileage: WideString;
  15211. begin
  15212.   Result := DefaultInterface.Mileage;
  15213. end;
  15214.  
  15215. procedure TRemoteItemProperties.Set_Mileage(const Param1: WideString);
  15216. begin
  15217.   DefaultInterface.Mileage := Param1;
  15218. end;
  15219.  
  15220. function  TRemoteItemProperties.Get_NoAging: WordBool;
  15221. begin
  15222.   Result := DefaultInterface.NoAging;
  15223. end;
  15224.  
  15225. procedure TRemoteItemProperties.Set_NoAging(Param1: WordBool);
  15226. begin
  15227.   DefaultInterface.NoAging := Param1;
  15228. end;
  15229.  
  15230. function  TRemoteItemProperties.Get_OutlookInternalVersion: WideString;
  15231. begin
  15232.   Result := DefaultInterface.OutlookInternalVersion;
  15233. end;
  15234.  
  15235. function  TRemoteItemProperties.Get_OutlookVersion: WideString;
  15236. begin
  15237.   Result := DefaultInterface.OutlookVersion;
  15238. end;
  15239.  
  15240. function  TRemoteItemProperties.Get_Parent: IDispatch;
  15241. begin
  15242.   Result := DefaultInterface.Parent;
  15243. end;
  15244.  
  15245. function  TRemoteItemProperties.Get_Saved: WordBool;
  15246. begin
  15247.   Result := DefaultInterface.Saved;
  15248. end;
  15249.  
  15250. function  TRemoteItemProperties.Get_Sensitivity: OlSensitivity;
  15251. begin
  15252.   Result := DefaultInterface.Sensitivity;
  15253. end;
  15254.  
  15255. procedure TRemoteItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  15256. begin
  15257.   DefaultInterface.Sensitivity := Param1;
  15258. end;
  15259.  
  15260. function  TRemoteItemProperties.Get_Size: Integer;
  15261. begin
  15262.   Result := DefaultInterface.Size;
  15263. end;
  15264.  
  15265. function  TRemoteItemProperties.Get_Subject: WideString;
  15266. begin
  15267.   Result := DefaultInterface.Subject;
  15268. end;
  15269.  
  15270. procedure TRemoteItemProperties.Set_Subject(const Param1: WideString);
  15271. begin
  15272.   DefaultInterface.Subject := Param1;
  15273. end;
  15274.  
  15275. function  TRemoteItemProperties.Get_UnRead: WordBool;
  15276. begin
  15277.   Result := DefaultInterface.UnRead;
  15278. end;
  15279.  
  15280. procedure TRemoteItemProperties.Set_UnRead(Param1: WordBool);
  15281. begin
  15282.   DefaultInterface.UnRead := Param1;
  15283. end;
  15284.  
  15285. function  TRemoteItemProperties.Get_UserProperties: UserProperties;
  15286. begin
  15287.   Result := DefaultInterface.UserProperties;
  15288. end;
  15289.  
  15290. function  TRemoteItemProperties.Get_HasAttachment: WordBool;
  15291. begin
  15292.   Result := DefaultInterface.HasAttachment;
  15293. end;
  15294.  
  15295. function  TRemoteItemProperties.Get_RemoteMessageClass: WideString;
  15296. begin
  15297.   Result := DefaultInterface.RemoteMessageClass;
  15298. end;
  15299.  
  15300. function  TRemoteItemProperties.Get_TransferSize: Integer;
  15301. begin
  15302.   Result := DefaultInterface.TransferSize;
  15303. end;
  15304.  
  15305. function  TRemoteItemProperties.Get_TransferTime: Integer;
  15306. begin
  15307.   Result := DefaultInterface.TransferTime;
  15308. end;
  15309.  
  15310. {$ENDIF}
  15311.  
  15312. class function CoReportItem.Create: _DReportItem;
  15313. begin
  15314.   Result := CreateComObject(CLASS_ReportItem) as _DReportItem;
  15315. end;
  15316.  
  15317. class function CoReportItem.CreateRemote(const MachineName: string): _DReportItem;
  15318. begin
  15319.   Result := CreateRemoteComObject(MachineName, CLASS_ReportItem) as _DReportItem;
  15320. end;
  15321.  
  15322. procedure TReportItem.InitServerData;
  15323. const
  15324.   CServerData: TServerData = (
  15325.     ClassID:   '{00061035-0000-0000-C000-000000000046}';
  15326.     IntfIID:   '{00063026-0000-0000-C000-000000000046}';
  15327.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  15328.     LicenseKey: nil;
  15329.     Version: 500);
  15330. begin
  15331.   ServerData := @CServerData;
  15332. end;
  15333.  
  15334. procedure TReportItem.Connect;
  15335. var
  15336.   punk: IUnknown;
  15337. begin
  15338.   if FIntf = nil then
  15339.   begin
  15340.     punk := GetServer;
  15341.     ConnectEvents(punk);
  15342.     Fintf:= punk as _DReportItem;
  15343.   end;
  15344. end;
  15345.  
  15346. procedure TReportItem.ConnectTo(svrIntf: _DReportItem);
  15347. begin
  15348.   Disconnect;
  15349.   FIntf := svrIntf;
  15350.   ConnectEvents(FIntf);
  15351. end;
  15352.  
  15353. procedure TReportItem.DisConnect;
  15354. begin
  15355.   if Fintf <> nil then
  15356.   begin
  15357.     DisconnectEvents(FIntf);
  15358.     FIntf := nil;
  15359.   end;
  15360. end;
  15361.  
  15362. function TReportItem.GetDefaultInterface: _DReportItem;
  15363. begin
  15364.   if FIntf = nil then
  15365.     Connect;
  15366.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  15367.   Result := FIntf;
  15368. end;
  15369.  
  15370. constructor TReportItem.Create(AOwner: TComponent);
  15371. begin
  15372.   inherited Create(AOwner);
  15373. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15374.   FProps := TReportItemProperties.Create(Self);
  15375. {$ENDIF}
  15376. end;
  15377.  
  15378. destructor TReportItem.Destroy;
  15379. begin
  15380. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15381.   FProps.Free;
  15382. {$ENDIF}
  15383.   inherited Destroy;
  15384. end;
  15385.  
  15386. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15387. function TReportItem.GetServerProperties: TReportItemProperties;
  15388. begin
  15389.   Result := FProps;
  15390. end;
  15391. {$ENDIF}
  15392.  
  15393. procedure TReportItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  15394. begin
  15395.   case DispID of
  15396.     -1: Exit;  // DISPID_UNKNOWN
  15397.    61441: if Assigned(FOnRead) then
  15398.             FOnRead(Self);
  15399.    61442: if Assigned(FOnWrite) then
  15400.             FOnWrite(Self);
  15401.    61443: if Assigned(FOnOpen) then
  15402.             FOnOpen(Self);
  15403.    61444: if Assigned(FOnClose) then
  15404.             FOnClose(Self);
  15405.    61445: if Assigned(FOnSend) then
  15406.             FOnSend(Self);
  15407.    62566: if Assigned(FOnReply) then
  15408.             FOnReply(Self, Params[0] (*const IDispatch*));
  15409.    62567: if Assigned(FOnReplyAll) then
  15410.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  15411.    62568: if Assigned(FOnForward) then
  15412.             FOnForward(Self, Params[0] (*const IDispatch*));
  15413.    61446: if Assigned(FOnCustomAction) then
  15414.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  15415.    61448: if Assigned(FOnCustomPropertyChange) then
  15416.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  15417.    61449: if Assigned(FOnPropertyChange) then
  15418.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  15419.   end; {case DispID}
  15420. end;
  15421.  
  15422. function  TReportItem.Get_Actions: Actions;
  15423. begin
  15424.   Result := DefaultInterface.Actions;
  15425. end;
  15426.  
  15427. function  TReportItem.Get_Application: OutlookApplication;
  15428. begin
  15429.   Result := DefaultInterface.Application;
  15430. end;
  15431.  
  15432. function  TReportItem.Get_Attachments: Attachments;
  15433. begin
  15434.   Result := DefaultInterface.Attachments;
  15435. end;
  15436.  
  15437. function  TReportItem.Get_BillingInformation: WideString;
  15438. begin
  15439.   Result := DefaultInterface.BillingInformation;
  15440. end;
  15441.  
  15442. procedure TReportItem.Set_BillingInformation(const Param1: WideString);
  15443. begin
  15444.   DefaultInterface.BillingInformation := Param1;
  15445. end;
  15446.  
  15447. function  TReportItem.Get_Body: WideString;
  15448. begin
  15449.   Result := DefaultInterface.Body;
  15450. end;
  15451.  
  15452. procedure TReportItem.Set_Body(const Param1: WideString);
  15453. begin
  15454.   DefaultInterface.Body := Param1;
  15455. end;
  15456.  
  15457. function  TReportItem.Get_Categories: WideString;
  15458. begin
  15459.   Result := DefaultInterface.Categories;
  15460. end;
  15461.  
  15462. procedure TReportItem.Set_Categories(const Param1: WideString);
  15463. begin
  15464.   DefaultInterface.Categories := Param1;
  15465. end;
  15466.  
  15467. function  TReportItem.Get_Companies: WideString;
  15468. begin
  15469.   Result := DefaultInterface.Companies;
  15470. end;
  15471.  
  15472. procedure TReportItem.Set_Companies(const Param1: WideString);
  15473. begin
  15474.   DefaultInterface.Companies := Param1;
  15475. end;
  15476.  
  15477. function  TReportItem.Get_CreationTime: TDateTime;
  15478. begin
  15479.   Result := DefaultInterface.CreationTime;
  15480. end;
  15481.  
  15482. function  TReportItem.Get_EntryID: WideString;
  15483. begin
  15484.   Result := DefaultInterface.EntryID;
  15485. end;
  15486.  
  15487. function  TReportItem.Get_FormDescription: FormDescription;
  15488. begin
  15489.   Result := DefaultInterface.FormDescription;
  15490. end;
  15491.  
  15492. function  TReportItem.Get_GetInspector: Inspector;
  15493. begin
  15494.   Result := DefaultInterface.GetInspector;
  15495. end;
  15496.  
  15497. function  TReportItem.Get_Importance: OlImportance;
  15498. begin
  15499.   Result := DefaultInterface.Importance;
  15500. end;
  15501.  
  15502. procedure TReportItem.Set_Importance(Param1: OlImportance);
  15503. begin
  15504.   DefaultInterface.Importance := Param1;
  15505. end;
  15506.  
  15507. function  TReportItem.Get_LastModificationTime: TDateTime;
  15508. begin
  15509.   Result := DefaultInterface.LastModificationTime;
  15510. end;
  15511.  
  15512. function  TReportItem.Get_MessageClass: WideString;
  15513. begin
  15514.   Result := DefaultInterface.MessageClass;
  15515. end;
  15516.  
  15517. procedure TReportItem.Set_MessageClass(const Param1: WideString);
  15518. begin
  15519.   DefaultInterface.MessageClass := Param1;
  15520. end;
  15521.  
  15522. function  TReportItem.Get_Mileage: WideString;
  15523. begin
  15524.   Result := DefaultInterface.Mileage;
  15525. end;
  15526.  
  15527. procedure TReportItem.Set_Mileage(const Param1: WideString);
  15528. begin
  15529.   DefaultInterface.Mileage := Param1;
  15530. end;
  15531.  
  15532. function  TReportItem.Get_NoAging: WordBool;
  15533. begin
  15534.   Result := DefaultInterface.NoAging;
  15535. end;
  15536.  
  15537. procedure TReportItem.Set_NoAging(Param1: WordBool);
  15538. begin
  15539.   DefaultInterface.NoAging := Param1;
  15540. end;
  15541.  
  15542. function  TReportItem.Get_OutlookInternalVersion: WideString;
  15543. begin
  15544.   Result := DefaultInterface.OutlookInternalVersion;
  15545. end;
  15546.  
  15547. function  TReportItem.Get_OutlookVersion: WideString;
  15548. begin
  15549.   Result := DefaultInterface.OutlookVersion;
  15550. end;
  15551.  
  15552. function  TReportItem.Get_Parent: IDispatch;
  15553. begin
  15554.   Result := DefaultInterface.Parent;
  15555. end;
  15556.  
  15557. function  TReportItem.Get_Saved: WordBool;
  15558. begin
  15559.   Result := DefaultInterface.Saved;
  15560. end;
  15561.  
  15562. function  TReportItem.Get_Sensitivity: OlSensitivity;
  15563. begin
  15564.   Result := DefaultInterface.Sensitivity;
  15565. end;
  15566.  
  15567. procedure TReportItem.Set_Sensitivity(Param1: OlSensitivity);
  15568. begin
  15569.   DefaultInterface.Sensitivity := Param1;
  15570. end;
  15571.  
  15572. function  TReportItem.Get_Size: Integer;
  15573. begin
  15574.   Result := DefaultInterface.Size;
  15575. end;
  15576.  
  15577. function  TReportItem.Get_Subject: WideString;
  15578. begin
  15579.   Result := DefaultInterface.Subject;
  15580. end;
  15581.  
  15582. procedure TReportItem.Set_Subject(const Param1: WideString);
  15583. begin
  15584.   DefaultInterface.Subject := Param1;
  15585. end;
  15586.  
  15587. function  TReportItem.Get_UnRead: WordBool;
  15588. begin
  15589.   Result := DefaultInterface.UnRead;
  15590. end;
  15591.  
  15592. procedure TReportItem.Set_UnRead(Param1: WordBool);
  15593. begin
  15594.   DefaultInterface.UnRead := Param1;
  15595. end;
  15596.  
  15597. function  TReportItem.Get_UserProperties: UserProperties;
  15598. begin
  15599.   Result := DefaultInterface.UserProperties;
  15600. end;
  15601.  
  15602. procedure TReportItem.Close(SaveMode: OlInspectorClose);
  15603. begin
  15604.   DefaultInterface.Close(SaveMode);
  15605. end;
  15606.  
  15607. function  TReportItem.Copy: IDispatch;
  15608. begin
  15609.   Result := DefaultInterface.Copy;
  15610. end;
  15611.  
  15612. procedure TReportItem.Delete;
  15613. begin
  15614.   DefaultInterface.Delete;
  15615. end;
  15616.  
  15617. procedure TReportItem.Display(Modal: OleVariant);
  15618. begin
  15619.   DefaultInterface.Display(Modal);
  15620. end;
  15621.  
  15622. function  TReportItem.Move(const DestFldr: MAPIFolder): IDispatch;
  15623. begin
  15624.   Result := DefaultInterface.Move(DestFldr);
  15625. end;
  15626.  
  15627. procedure TReportItem.Save;
  15628. begin
  15629.   DefaultInterface.Save;
  15630. end;
  15631.  
  15632. procedure TReportItem.SaveAs(const Path: WideString; Type_: OleVariant);
  15633. begin
  15634.   DefaultInterface.SaveAs(Path, Type_);
  15635. end;
  15636.  
  15637. procedure TReportItem.PrintOut;
  15638. begin
  15639.   DefaultInterface.PrintOut;
  15640. end;
  15641.  
  15642. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15643. constructor TReportItemProperties.Create(AServer: TReportItem);
  15644. begin
  15645.   inherited Create;
  15646.   FServer := AServer;
  15647. end;
  15648.  
  15649. function TReportItemProperties.GetDefaultInterface: _DReportItem;
  15650. begin
  15651.   Result := FServer.DefaultInterface;
  15652. end;
  15653.  
  15654. function  TReportItemProperties.Get_Actions: Actions;
  15655. begin
  15656.   Result := DefaultInterface.Actions;
  15657. end;
  15658.  
  15659. function  TReportItemProperties.Get_Application: OutlookApplication;
  15660. begin
  15661.   Result := DefaultInterface.Application;
  15662. end;
  15663.  
  15664. function  TReportItemProperties.Get_Attachments: Attachments;
  15665. begin
  15666.   Result := DefaultInterface.Attachments;
  15667. end;
  15668.  
  15669. function  TReportItemProperties.Get_BillingInformation: WideString;
  15670. begin
  15671.   Result := DefaultInterface.BillingInformation;
  15672. end;
  15673.  
  15674. procedure TReportItemProperties.Set_BillingInformation(const Param1: WideString);
  15675. begin
  15676.   DefaultInterface.BillingInformation := Param1;
  15677. end;
  15678.  
  15679. function  TReportItemProperties.Get_Body: WideString;
  15680. begin
  15681.   Result := DefaultInterface.Body;
  15682. end;
  15683.  
  15684. procedure TReportItemProperties.Set_Body(const Param1: WideString);
  15685. begin
  15686.   DefaultInterface.Body := Param1;
  15687. end;
  15688.  
  15689. function  TReportItemProperties.Get_Categories: WideString;
  15690. begin
  15691.   Result := DefaultInterface.Categories;
  15692. end;
  15693.  
  15694. procedure TReportItemProperties.Set_Categories(const Param1: WideString);
  15695. begin
  15696.   DefaultInterface.Categories := Param1;
  15697. end;
  15698.  
  15699. function  TReportItemProperties.Get_Companies: WideString;
  15700. begin
  15701.   Result := DefaultInterface.Companies;
  15702. end;
  15703.  
  15704. procedure TReportItemProperties.Set_Companies(const Param1: WideString);
  15705. begin
  15706.   DefaultInterface.Companies := Param1;
  15707. end;
  15708.  
  15709. function  TReportItemProperties.Get_CreationTime: TDateTime;
  15710. begin
  15711.   Result := DefaultInterface.CreationTime;
  15712. end;
  15713.  
  15714. function  TReportItemProperties.Get_EntryID: WideString;
  15715. begin
  15716.   Result := DefaultInterface.EntryID;
  15717. end;
  15718.  
  15719. function  TReportItemProperties.Get_FormDescription: FormDescription;
  15720. begin
  15721.   Result := DefaultInterface.FormDescription;
  15722. end;
  15723.  
  15724. function  TReportItemProperties.Get_GetInspector: Inspector;
  15725. begin
  15726.   Result := DefaultInterface.GetInspector;
  15727. end;
  15728.  
  15729. function  TReportItemProperties.Get_Importance: OlImportance;
  15730. begin
  15731.   Result := DefaultInterface.Importance;
  15732. end;
  15733.  
  15734. procedure TReportItemProperties.Set_Importance(Param1: OlImportance);
  15735. begin
  15736.   DefaultInterface.Importance := Param1;
  15737. end;
  15738.  
  15739. function  TReportItemProperties.Get_LastModificationTime: TDateTime;
  15740. begin
  15741.   Result := DefaultInterface.LastModificationTime;
  15742. end;
  15743.  
  15744. function  TReportItemProperties.Get_MessageClass: WideString;
  15745. begin
  15746.   Result := DefaultInterface.MessageClass;
  15747. end;
  15748.  
  15749. procedure TReportItemProperties.Set_MessageClass(const Param1: WideString);
  15750. begin
  15751.   DefaultInterface.MessageClass := Param1;
  15752. end;
  15753.  
  15754. function  TReportItemProperties.Get_Mileage: WideString;
  15755. begin
  15756.   Result := DefaultInterface.Mileage;
  15757. end;
  15758.  
  15759. procedure TReportItemProperties.Set_Mileage(const Param1: WideString);
  15760. begin
  15761.   DefaultInterface.Mileage := Param1;
  15762. end;
  15763.  
  15764. function  TReportItemProperties.Get_NoAging: WordBool;
  15765. begin
  15766.   Result := DefaultInterface.NoAging;
  15767. end;
  15768.  
  15769. procedure TReportItemProperties.Set_NoAging(Param1: WordBool);
  15770. begin
  15771.   DefaultInterface.NoAging := Param1;
  15772. end;
  15773.  
  15774. function  TReportItemProperties.Get_OutlookInternalVersion: WideString;
  15775. begin
  15776.   Result := DefaultInterface.OutlookInternalVersion;
  15777. end;
  15778.  
  15779. function  TReportItemProperties.Get_OutlookVersion: WideString;
  15780. begin
  15781.   Result := DefaultInterface.OutlookVersion;
  15782. end;
  15783.  
  15784. function  TReportItemProperties.Get_Parent: IDispatch;
  15785. begin
  15786.   Result := DefaultInterface.Parent;
  15787. end;
  15788.  
  15789. function  TReportItemProperties.Get_Saved: WordBool;
  15790. begin
  15791.   Result := DefaultInterface.Saved;
  15792. end;
  15793.  
  15794. function  TReportItemProperties.Get_Sensitivity: OlSensitivity;
  15795. begin
  15796.   Result := DefaultInterface.Sensitivity;
  15797. end;
  15798.  
  15799. procedure TReportItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  15800. begin
  15801.   DefaultInterface.Sensitivity := Param1;
  15802. end;
  15803.  
  15804. function  TReportItemProperties.Get_Size: Integer;
  15805. begin
  15806.   Result := DefaultInterface.Size;
  15807. end;
  15808.  
  15809. function  TReportItemProperties.Get_Subject: WideString;
  15810. begin
  15811.   Result := DefaultInterface.Subject;
  15812. end;
  15813.  
  15814. procedure TReportItemProperties.Set_Subject(const Param1: WideString);
  15815. begin
  15816.   DefaultInterface.Subject := Param1;
  15817. end;
  15818.  
  15819. function  TReportItemProperties.Get_UnRead: WordBool;
  15820. begin
  15821.   Result := DefaultInterface.UnRead;
  15822. end;
  15823.  
  15824. procedure TReportItemProperties.Set_UnRead(Param1: WordBool);
  15825. begin
  15826.   DefaultInterface.UnRead := Param1;
  15827. end;
  15828.  
  15829. function  TReportItemProperties.Get_UserProperties: UserProperties;
  15830. begin
  15831.   Result := DefaultInterface.UserProperties;
  15832. end;
  15833.  
  15834. {$ENDIF}
  15835.  
  15836. class function CoTaskItem.Create: _DTaskItem;
  15837. begin
  15838.   Result := CreateComObject(CLASS_TaskItem) as _DTaskItem;
  15839. end;
  15840.  
  15841. class function CoTaskItem.CreateRemote(const MachineName: string): _DTaskItem;
  15842. begin
  15843.   Result := CreateRemoteComObject(MachineName, CLASS_TaskItem) as _DTaskItem;
  15844. end;
  15845.  
  15846. procedure TTaskItem.InitServerData;
  15847. const
  15848.   CServerData: TServerData = (
  15849.     ClassID:   '{00061032-0000-0000-C000-000000000046}';
  15850.     IntfIID:   '{00063035-0000-0000-C000-000000000046}';
  15851.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  15852.     LicenseKey: nil;
  15853.     Version: 500);
  15854. begin
  15855.   ServerData := @CServerData;
  15856. end;
  15857.  
  15858. procedure TTaskItem.Connect;
  15859. var
  15860.   punk: IUnknown;
  15861. begin
  15862.   if FIntf = nil then
  15863.   begin
  15864.     punk := GetServer;
  15865.     ConnectEvents(punk);
  15866.     Fintf:= punk as _DTaskItem;
  15867.   end;
  15868. end;
  15869.  
  15870. procedure TTaskItem.ConnectTo(svrIntf: _DTaskItem);
  15871. begin
  15872.   Disconnect;
  15873.   FIntf := svrIntf;
  15874.   ConnectEvents(FIntf);
  15875. end;
  15876.  
  15877. procedure TTaskItem.DisConnect;
  15878. begin
  15879.   if Fintf <> nil then
  15880.   begin
  15881.     DisconnectEvents(FIntf);
  15882.     FIntf := nil;
  15883.   end;
  15884. end;
  15885.  
  15886. function TTaskItem.GetDefaultInterface: _DTaskItem;
  15887. begin
  15888.   if FIntf = nil then
  15889.     Connect;
  15890.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  15891.   Result := FIntf;
  15892. end;
  15893.  
  15894. constructor TTaskItem.Create(AOwner: TComponent);
  15895. begin
  15896.   inherited Create(AOwner);
  15897. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15898.   FProps := TTaskItemProperties.Create(Self);
  15899. {$ENDIF}
  15900. end;
  15901.  
  15902. destructor TTaskItem.Destroy;
  15903. begin
  15904. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15905.   FProps.Free;
  15906. {$ENDIF}
  15907.   inherited Destroy;
  15908. end;
  15909.  
  15910. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  15911. function TTaskItem.GetServerProperties: TTaskItemProperties;
  15912. begin
  15913.   Result := FProps;
  15914. end;
  15915. {$ENDIF}
  15916.  
  15917. procedure TTaskItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  15918. begin
  15919.   case DispID of
  15920.     -1: Exit;  // DISPID_UNKNOWN
  15921.    61441: if Assigned(FOnRead) then
  15922.             FOnRead(Self);
  15923.    61442: if Assigned(FOnWrite) then
  15924.             FOnWrite(Self);
  15925.    61443: if Assigned(FOnOpen) then
  15926.             FOnOpen(Self);
  15927.    61444: if Assigned(FOnClose) then
  15928.             FOnClose(Self);
  15929.    61445: if Assigned(FOnSend) then
  15930.             FOnSend(Self);
  15931.    62566: if Assigned(FOnReply) then
  15932.             FOnReply(Self, Params[0] (*const IDispatch*));
  15933.    62567: if Assigned(FOnReplyAll) then
  15934.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  15935.    62568: if Assigned(FOnForward) then
  15936.             FOnForward(Self, Params[0] (*const IDispatch*));
  15937.    61446: if Assigned(FOnCustomAction) then
  15938.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  15939.    61448: if Assigned(FOnCustomPropertyChange) then
  15940.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  15941.    61449: if Assigned(FOnPropertyChange) then
  15942.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  15943.   end; {case DispID}
  15944. end;
  15945.  
  15946. function  TTaskItem.Get_Actions: Actions;
  15947. begin
  15948.   Result := DefaultInterface.Actions;
  15949. end;
  15950.  
  15951. function  TTaskItem.Get_Application: OutlookApplication;
  15952. begin
  15953.   Result := DefaultInterface.Application;
  15954. end;
  15955.  
  15956. function  TTaskItem.Get_Attachments: Attachments;
  15957. begin
  15958.   Result := DefaultInterface.Attachments;
  15959. end;
  15960.  
  15961. function  TTaskItem.Get_BillingInformation: WideString;
  15962. begin
  15963.   Result := DefaultInterface.BillingInformation;
  15964. end;
  15965.  
  15966. procedure TTaskItem.Set_BillingInformation(const Param1: WideString);
  15967. begin
  15968.   DefaultInterface.BillingInformation := Param1;
  15969. end;
  15970.  
  15971. function  TTaskItem.Get_Body: WideString;
  15972. begin
  15973.   Result := DefaultInterface.Body;
  15974. end;
  15975.  
  15976. procedure TTaskItem.Set_Body(const Param1: WideString);
  15977. begin
  15978.   DefaultInterface.Body := Param1;
  15979. end;
  15980.  
  15981. function  TTaskItem.Get_Categories: WideString;
  15982. begin
  15983.   Result := DefaultInterface.Categories;
  15984. end;
  15985.  
  15986. procedure TTaskItem.Set_Categories(const Param1: WideString);
  15987. begin
  15988.   DefaultInterface.Categories := Param1;
  15989. end;
  15990.  
  15991. function  TTaskItem.Get_Companies: WideString;
  15992. begin
  15993.   Result := DefaultInterface.Companies;
  15994. end;
  15995.  
  15996. procedure TTaskItem.Set_Companies(const Param1: WideString);
  15997. begin
  15998.   DefaultInterface.Companies := Param1;
  15999. end;
  16000.  
  16001. function  TTaskItem.Get_CreationTime: TDateTime;
  16002. begin
  16003.   Result := DefaultInterface.CreationTime;
  16004. end;
  16005.  
  16006. function  TTaskItem.Get_EntryID: WideString;
  16007. begin
  16008.   Result := DefaultInterface.EntryID;
  16009. end;
  16010.  
  16011. function  TTaskItem.Get_FormDescription: FormDescription;
  16012. begin
  16013.   Result := DefaultInterface.FormDescription;
  16014. end;
  16015.  
  16016. function  TTaskItem.Get_GetInspector: Inspector;
  16017. begin
  16018.   Result := DefaultInterface.GetInspector;
  16019. end;
  16020.  
  16021. function  TTaskItem.Get_Importance: OlImportance;
  16022. begin
  16023.   Result := DefaultInterface.Importance;
  16024. end;
  16025.  
  16026. procedure TTaskItem.Set_Importance(Param1: OlImportance);
  16027. begin
  16028.   DefaultInterface.Importance := Param1;
  16029. end;
  16030.  
  16031. function  TTaskItem.Get_LastModificationTime: TDateTime;
  16032. begin
  16033.   Result := DefaultInterface.LastModificationTime;
  16034. end;
  16035.  
  16036. function  TTaskItem.Get_MessageClass: WideString;
  16037. begin
  16038.   Result := DefaultInterface.MessageClass;
  16039. end;
  16040.  
  16041. procedure TTaskItem.Set_MessageClass(const Param1: WideString);
  16042. begin
  16043.   DefaultInterface.MessageClass := Param1;
  16044. end;
  16045.  
  16046. function  TTaskItem.Get_Mileage: WideString;
  16047. begin
  16048.   Result := DefaultInterface.Mileage;
  16049. end;
  16050.  
  16051. procedure TTaskItem.Set_Mileage(const Param1: WideString);
  16052. begin
  16053.   DefaultInterface.Mileage := Param1;
  16054. end;
  16055.  
  16056. function  TTaskItem.Get_NoAging: WordBool;
  16057. begin
  16058.   Result := DefaultInterface.NoAging;
  16059. end;
  16060.  
  16061. procedure TTaskItem.Set_NoAging(Param1: WordBool);
  16062. begin
  16063.   DefaultInterface.NoAging := Param1;
  16064. end;
  16065.  
  16066. function  TTaskItem.Get_OutlookInternalVersion: WideString;
  16067. begin
  16068.   Result := DefaultInterface.OutlookInternalVersion;
  16069. end;
  16070.  
  16071. function  TTaskItem.Get_OutlookVersion: WideString;
  16072. begin
  16073.   Result := DefaultInterface.OutlookVersion;
  16074. end;
  16075.  
  16076. function  TTaskItem.Get_Parent: IDispatch;
  16077. begin
  16078.   Result := DefaultInterface.Parent;
  16079. end;
  16080.  
  16081. function  TTaskItem.Get_Saved: WordBool;
  16082. begin
  16083.   Result := DefaultInterface.Saved;
  16084. end;
  16085.  
  16086. function  TTaskItem.Get_Sensitivity: OlSensitivity;
  16087. begin
  16088.   Result := DefaultInterface.Sensitivity;
  16089. end;
  16090.  
  16091. procedure TTaskItem.Set_Sensitivity(Param1: OlSensitivity);
  16092. begin
  16093.   DefaultInterface.Sensitivity := Param1;
  16094. end;
  16095.  
  16096. function  TTaskItem.Get_Size: Integer;
  16097. begin
  16098.   Result := DefaultInterface.Size;
  16099. end;
  16100.  
  16101. function  TTaskItem.Get_Subject: WideString;
  16102. begin
  16103.   Result := DefaultInterface.Subject;
  16104. end;
  16105.  
  16106. procedure TTaskItem.Set_Subject(const Param1: WideString);
  16107. begin
  16108.   DefaultInterface.Subject := Param1;
  16109. end;
  16110.  
  16111. function  TTaskItem.Get_UnRead: WordBool;
  16112. begin
  16113.   Result := DefaultInterface.UnRead;
  16114. end;
  16115.  
  16116. procedure TTaskItem.Set_UnRead(Param1: WordBool);
  16117. begin
  16118.   DefaultInterface.UnRead := Param1;
  16119. end;
  16120.  
  16121. function  TTaskItem.Get_UserProperties: UserProperties;
  16122. begin
  16123.   Result := DefaultInterface.UserProperties;
  16124. end;
  16125.  
  16126. function  TTaskItem.Get_ActualWork: Integer;
  16127. begin
  16128.   Result := DefaultInterface.ActualWork;
  16129. end;
  16130.  
  16131. procedure TTaskItem.Set_ActualWork(Param1: Integer);
  16132. begin
  16133.   DefaultInterface.ActualWork := Param1;
  16134. end;
  16135.  
  16136. function  TTaskItem.Get_CardData: WideString;
  16137. begin
  16138.   Result := DefaultInterface.CardData;
  16139. end;
  16140.  
  16141. procedure TTaskItem.Set_CardData(const Param1: WideString);
  16142. begin
  16143.   DefaultInterface.CardData := Param1;
  16144. end;
  16145.  
  16146. function  TTaskItem.Get_Complete: WordBool;
  16147. begin
  16148.   Result := DefaultInterface.Complete;
  16149. end;
  16150.  
  16151. procedure TTaskItem.Set_Complete(Param1: WordBool);
  16152. begin
  16153.   DefaultInterface.Complete := Param1;
  16154. end;
  16155.  
  16156. function  TTaskItem.Get_Contacts: WideString;
  16157. begin
  16158.   Result := DefaultInterface.Contacts;
  16159. end;
  16160.  
  16161. procedure TTaskItem.Set_Contacts(const Param1: WideString);
  16162. begin
  16163.   DefaultInterface.Contacts := Param1;
  16164. end;
  16165.  
  16166. function  TTaskItem.Get_DateCompleted: TDateTime;
  16167. begin
  16168.   Result := DefaultInterface.DateCompleted;
  16169. end;
  16170.  
  16171. procedure TTaskItem.Set_DateCompleted(Param1: TDateTime);
  16172. begin
  16173.   DefaultInterface.DateCompleted := Param1;
  16174. end;
  16175.  
  16176. function  TTaskItem.Get_DelegationState: OlTaskDelegationState;
  16177. begin
  16178.   Result := DefaultInterface.DelegationState;
  16179. end;
  16180.  
  16181. function  TTaskItem.Get_Delegator: WideString;
  16182. begin
  16183.   Result := DefaultInterface.Delegator;
  16184. end;
  16185.  
  16186. function  TTaskItem.Get_DueDate: TDateTime;
  16187. begin
  16188.   Result := DefaultInterface.DueDate;
  16189. end;
  16190.  
  16191. procedure TTaskItem.Set_DueDate(Param1: TDateTime);
  16192. begin
  16193.   DefaultInterface.DueDate := Param1;
  16194. end;
  16195.  
  16196. function  TTaskItem.Get_IsRecurring: WordBool;
  16197. begin
  16198.   Result := DefaultInterface.IsRecurring;
  16199. end;
  16200.  
  16201. function  TTaskItem.Get_Ordinal: Integer;
  16202. begin
  16203.   Result := DefaultInterface.Ordinal;
  16204. end;
  16205.  
  16206. procedure TTaskItem.Set_Ordinal(Param1: Integer);
  16207. begin
  16208.   DefaultInterface.Ordinal := Param1;
  16209. end;
  16210.  
  16211. function  TTaskItem.Get_Owner: WideString;
  16212. begin
  16213.   Result := DefaultInterface.Owner;
  16214. end;
  16215.  
  16216. procedure TTaskItem.Set_Owner(const Param1: WideString);
  16217. begin
  16218.   DefaultInterface.Owner := Param1;
  16219. end;
  16220.  
  16221. function  TTaskItem.Get_Ownership: OlTaskOwnership;
  16222. begin
  16223.   Result := DefaultInterface.Ownership;
  16224. end;
  16225.  
  16226. function  TTaskItem.Get_PercentComplete: Integer;
  16227. begin
  16228.   Result := DefaultInterface.PercentComplete;
  16229. end;
  16230.  
  16231. procedure TTaskItem.Set_PercentComplete(Param1: Integer);
  16232. begin
  16233.   DefaultInterface.PercentComplete := Param1;
  16234. end;
  16235.  
  16236. function  TTaskItem.Get_Recipients: Recipients;
  16237. begin
  16238.   Result := DefaultInterface.Recipients;
  16239. end;
  16240.  
  16241. function  TTaskItem.Get_ReminderOverrideDefault: WordBool;
  16242. begin
  16243.   Result := DefaultInterface.ReminderOverrideDefault;
  16244. end;
  16245.  
  16246. procedure TTaskItem.Set_ReminderOverrideDefault(Param1: WordBool);
  16247. begin
  16248.   DefaultInterface.ReminderOverrideDefault := Param1;
  16249. end;
  16250.  
  16251. function  TTaskItem.Get_ReminderPlaySound: WordBool;
  16252. begin
  16253.   Result := DefaultInterface.ReminderPlaySound;
  16254. end;
  16255.  
  16256. procedure TTaskItem.Set_ReminderPlaySound(Param1: WordBool);
  16257. begin
  16258.   DefaultInterface.ReminderPlaySound := Param1;
  16259. end;
  16260.  
  16261. function  TTaskItem.Get_ReminderSet: WordBool;
  16262. begin
  16263.   Result := DefaultInterface.ReminderSet;
  16264. end;
  16265.  
  16266. procedure TTaskItem.Set_ReminderSet(Param1: WordBool);
  16267. begin
  16268.   DefaultInterface.ReminderSet := Param1;
  16269. end;
  16270.  
  16271. function  TTaskItem.Get_ReminderSoundFile: WideString;
  16272. begin
  16273.   Result := DefaultInterface.ReminderSoundFile;
  16274. end;
  16275.  
  16276. procedure TTaskItem.Set_ReminderSoundFile(const Param1: WideString);
  16277. begin
  16278.   DefaultInterface.ReminderSoundFile := Param1;
  16279. end;
  16280.  
  16281. function  TTaskItem.Get_ReminderTime: TDateTime;
  16282. begin
  16283.   Result := DefaultInterface.ReminderTime;
  16284. end;
  16285.  
  16286. procedure TTaskItem.Set_ReminderTime(Param1: TDateTime);
  16287. begin
  16288.   DefaultInterface.ReminderTime := Param1;
  16289. end;
  16290.  
  16291. function  TTaskItem.Get_ResponseState: OlTaskResponse;
  16292. begin
  16293.   Result := DefaultInterface.ResponseState;
  16294. end;
  16295.  
  16296. function  TTaskItem.Get_Role: WideString;
  16297. begin
  16298.   Result := DefaultInterface.Role;
  16299. end;
  16300.  
  16301. procedure TTaskItem.Set_Role(const Param1: WideString);
  16302. begin
  16303.   DefaultInterface.Role := Param1;
  16304. end;
  16305.  
  16306. function  TTaskItem.Get_SchedulePlusPriority: WideString;
  16307. begin
  16308.   Result := DefaultInterface.SchedulePlusPriority;
  16309. end;
  16310.  
  16311. procedure TTaskItem.Set_SchedulePlusPriority(const Param1: WideString);
  16312. begin
  16313.   DefaultInterface.SchedulePlusPriority := Param1;
  16314. end;
  16315.  
  16316. function  TTaskItem.Get_StartDate: TDateTime;
  16317. begin
  16318.   Result := DefaultInterface.StartDate;
  16319. end;
  16320.  
  16321. procedure TTaskItem.Set_StartDate(Param1: TDateTime);
  16322. begin
  16323.   DefaultInterface.StartDate := Param1;
  16324. end;
  16325.  
  16326. function  TTaskItem.Get_Status: OlTaskStatus;
  16327. begin
  16328.   Result := DefaultInterface.Status;
  16329. end;
  16330.  
  16331. procedure TTaskItem.Set_Status(Param1: OlTaskStatus);
  16332. begin
  16333.   DefaultInterface.Status := Param1;
  16334. end;
  16335.  
  16336. function  TTaskItem.Get_StatusOnCompletionRecipients: WideString;
  16337. begin
  16338.   Result := DefaultInterface.StatusOnCompletionRecipients;
  16339. end;
  16340.  
  16341. procedure TTaskItem.Set_StatusOnCompletionRecipients(const Param1: WideString);
  16342. begin
  16343.   DefaultInterface.StatusOnCompletionRecipients := Param1;
  16344. end;
  16345.  
  16346. function  TTaskItem.Get_StatusUpdateRecipients: WideString;
  16347. begin
  16348.   Result := DefaultInterface.StatusUpdateRecipients;
  16349. end;
  16350.  
  16351. procedure TTaskItem.Set_StatusUpdateRecipients(const Param1: WideString);
  16352. begin
  16353.   DefaultInterface.StatusUpdateRecipients := Param1;
  16354. end;
  16355.  
  16356. function  TTaskItem.Get_TeamTask: WordBool;
  16357. begin
  16358.   Result := DefaultInterface.TeamTask;
  16359. end;
  16360.  
  16361. procedure TTaskItem.Set_TeamTask(Param1: WordBool);
  16362. begin
  16363.   DefaultInterface.TeamTask := Param1;
  16364. end;
  16365.  
  16366. function  TTaskItem.Get_TotalWork: Integer;
  16367. begin
  16368.   Result := DefaultInterface.TotalWork;
  16369. end;
  16370.  
  16371. procedure TTaskItem.Set_TotalWork(Param1: Integer);
  16372. begin
  16373.   DefaultInterface.TotalWork := Param1;
  16374. end;
  16375.  
  16376. procedure TTaskItem.Close(SaveMode: OlInspectorClose);
  16377. begin
  16378.   DefaultInterface.Close(SaveMode);
  16379. end;
  16380.  
  16381. function  TTaskItem.Copy: IDispatch;
  16382. begin
  16383.   Result := DefaultInterface.Copy;
  16384. end;
  16385.  
  16386. procedure TTaskItem.Delete;
  16387. begin
  16388.   DefaultInterface.Delete;
  16389. end;
  16390.  
  16391. procedure TTaskItem.Display(Modal: OleVariant);
  16392. begin
  16393.   DefaultInterface.Display(Modal);
  16394. end;
  16395.  
  16396. function  TTaskItem.Move(const DestFldr: MAPIFolder): IDispatch;
  16397. begin
  16398.   Result := DefaultInterface.Move(DestFldr);
  16399. end;
  16400.  
  16401. procedure TTaskItem.Save;
  16402. begin
  16403.   DefaultInterface.Save;
  16404. end;
  16405.  
  16406. procedure TTaskItem.SaveAs(const Path: WideString; Type_: OleVariant);
  16407. begin
  16408.   DefaultInterface.SaveAs(Path, Type_);
  16409. end;
  16410.  
  16411. procedure TTaskItem.PrintOut;
  16412. begin
  16413.   DefaultInterface.PrintOut;
  16414. end;
  16415.  
  16416. function  TTaskItem.Assign_: TaskItem;
  16417. begin
  16418.   Result := DefaultInterface.Assign_;
  16419. end;
  16420.  
  16421. procedure TTaskItem.CancelResponseState;
  16422. begin
  16423.   DefaultInterface.CancelResponseState;
  16424. end;
  16425.  
  16426. procedure TTaskItem.ClearRecurrencePattern;
  16427. begin
  16428.   DefaultInterface.ClearRecurrencePattern;
  16429. end;
  16430.  
  16431. procedure TTaskItem.GetRecurrencePattern;
  16432. begin
  16433.   DefaultInterface.GetRecurrencePattern;
  16434. end;
  16435.  
  16436. procedure TTaskItem.MarkComplete;
  16437. begin
  16438.   DefaultInterface.MarkComplete;
  16439. end;
  16440.  
  16441. function  TTaskItem.Respond(Response: OlTaskResponse; fNoUI: OleVariant; 
  16442.                             fAdditionalTextDialog: OleVariant): TaskItem;
  16443. begin
  16444.   Result := DefaultInterface.Respond(Response, fNoUI, fAdditionalTextDialog);
  16445. end;
  16446.  
  16447. procedure TTaskItem.Send;
  16448. begin
  16449.   DefaultInterface.Send;
  16450. end;
  16451.  
  16452. function  TTaskItem.SkipRecurrence: WordBool;
  16453. begin
  16454.   Result := DefaultInterface.SkipRecurrence;
  16455. end;
  16456.  
  16457. function  TTaskItem.StatusReport: IDispatch;
  16458. begin
  16459.   Result := DefaultInterface.StatusReport;
  16460. end;
  16461.  
  16462. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  16463. constructor TTaskItemProperties.Create(AServer: TTaskItem);
  16464. begin
  16465.   inherited Create;
  16466.   FServer := AServer;
  16467. end;
  16468.  
  16469. function TTaskItemProperties.GetDefaultInterface: _DTaskItem;
  16470. begin
  16471.   Result := FServer.DefaultInterface;
  16472. end;
  16473.  
  16474. function  TTaskItemProperties.Get_Actions: Actions;
  16475. begin
  16476.   Result := DefaultInterface.Actions;
  16477. end;
  16478.  
  16479. function  TTaskItemProperties.Get_Application: OutlookApplication;
  16480. begin
  16481.   Result := DefaultInterface.Application;
  16482. end;
  16483.  
  16484. function  TTaskItemProperties.Get_Attachments: Attachments;
  16485. begin
  16486.   Result := DefaultInterface.Attachments;
  16487. end;
  16488.  
  16489. function  TTaskItemProperties.Get_BillingInformation: WideString;
  16490. begin
  16491.   Result := DefaultInterface.BillingInformation;
  16492. end;
  16493.  
  16494. procedure TTaskItemProperties.Set_BillingInformation(const Param1: WideString);
  16495. begin
  16496.   DefaultInterface.BillingInformation := Param1;
  16497. end;
  16498.  
  16499. function  TTaskItemProperties.Get_Body: WideString;
  16500. begin
  16501.   Result := DefaultInterface.Body;
  16502. end;
  16503.  
  16504. procedure TTaskItemProperties.Set_Body(const Param1: WideString);
  16505. begin
  16506.   DefaultInterface.Body := Param1;
  16507. end;
  16508.  
  16509. function  TTaskItemProperties.Get_Categories: WideString;
  16510. begin
  16511.   Result := DefaultInterface.Categories;
  16512. end;
  16513.  
  16514. procedure TTaskItemProperties.Set_Categories(const Param1: WideString);
  16515. begin
  16516.   DefaultInterface.Categories := Param1;
  16517. end;
  16518.  
  16519. function  TTaskItemProperties.Get_Companies: WideString;
  16520. begin
  16521.   Result := DefaultInterface.Companies;
  16522. end;
  16523.  
  16524. procedure TTaskItemProperties.Set_Companies(const Param1: WideString);
  16525. begin
  16526.   DefaultInterface.Companies := Param1;
  16527. end;
  16528.  
  16529. function  TTaskItemProperties.Get_CreationTime: TDateTime;
  16530. begin
  16531.   Result := DefaultInterface.CreationTime;
  16532. end;
  16533.  
  16534. function  TTaskItemProperties.Get_EntryID: WideString;
  16535. begin
  16536.   Result := DefaultInterface.EntryID;
  16537. end;
  16538.  
  16539. function  TTaskItemProperties.Get_FormDescription: FormDescription;
  16540. begin
  16541.   Result := DefaultInterface.FormDescription;
  16542. end;
  16543.  
  16544. function  TTaskItemProperties.Get_GetInspector: Inspector;
  16545. begin
  16546.   Result := DefaultInterface.GetInspector;
  16547. end;
  16548.  
  16549. function  TTaskItemProperties.Get_Importance: OlImportance;
  16550. begin
  16551.   Result := DefaultInterface.Importance;
  16552. end;
  16553.  
  16554. procedure TTaskItemProperties.Set_Importance(Param1: OlImportance);
  16555. begin
  16556.   DefaultInterface.Importance := Param1;
  16557. end;
  16558.  
  16559. function  TTaskItemProperties.Get_LastModificationTime: TDateTime;
  16560. begin
  16561.   Result := DefaultInterface.LastModificationTime;
  16562. end;
  16563.  
  16564. function  TTaskItemProperties.Get_MessageClass: WideString;
  16565. begin
  16566.   Result := DefaultInterface.MessageClass;
  16567. end;
  16568.  
  16569. procedure TTaskItemProperties.Set_MessageClass(const Param1: WideString);
  16570. begin
  16571.   DefaultInterface.MessageClass := Param1;
  16572. end;
  16573.  
  16574. function  TTaskItemProperties.Get_Mileage: WideString;
  16575. begin
  16576.   Result := DefaultInterface.Mileage;
  16577. end;
  16578.  
  16579. procedure TTaskItemProperties.Set_Mileage(const Param1: WideString);
  16580. begin
  16581.   DefaultInterface.Mileage := Param1;
  16582. end;
  16583.  
  16584. function  TTaskItemProperties.Get_NoAging: WordBool;
  16585. begin
  16586.   Result := DefaultInterface.NoAging;
  16587. end;
  16588.  
  16589. procedure TTaskItemProperties.Set_NoAging(Param1: WordBool);
  16590. begin
  16591.   DefaultInterface.NoAging := Param1;
  16592. end;
  16593.  
  16594. function  TTaskItemProperties.Get_OutlookInternalVersion: WideString;
  16595. begin
  16596.   Result := DefaultInterface.OutlookInternalVersion;
  16597. end;
  16598.  
  16599. function  TTaskItemProperties.Get_OutlookVersion: WideString;
  16600. begin
  16601.   Result := DefaultInterface.OutlookVersion;
  16602. end;
  16603.  
  16604. function  TTaskItemProperties.Get_Parent: IDispatch;
  16605. begin
  16606.   Result := DefaultInterface.Parent;
  16607. end;
  16608.  
  16609. function  TTaskItemProperties.Get_Saved: WordBool;
  16610. begin
  16611.   Result := DefaultInterface.Saved;
  16612. end;
  16613.  
  16614. function  TTaskItemProperties.Get_Sensitivity: OlSensitivity;
  16615. begin
  16616.   Result := DefaultInterface.Sensitivity;
  16617. end;
  16618.  
  16619. procedure TTaskItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  16620. begin
  16621.   DefaultInterface.Sensitivity := Param1;
  16622. end;
  16623.  
  16624. function  TTaskItemProperties.Get_Size: Integer;
  16625. begin
  16626.   Result := DefaultInterface.Size;
  16627. end;
  16628.  
  16629. function  TTaskItemProperties.Get_Subject: WideString;
  16630. begin
  16631.   Result := DefaultInterface.Subject;
  16632. end;
  16633.  
  16634. procedure TTaskItemProperties.Set_Subject(const Param1: WideString);
  16635. begin
  16636.   DefaultInterface.Subject := Param1;
  16637. end;
  16638.  
  16639. function  TTaskItemProperties.Get_UnRead: WordBool;
  16640. begin
  16641.   Result := DefaultInterface.UnRead;
  16642. end;
  16643.  
  16644. procedure TTaskItemProperties.Set_UnRead(Param1: WordBool);
  16645. begin
  16646.   DefaultInterface.UnRead := Param1;
  16647. end;
  16648.  
  16649. function  TTaskItemProperties.Get_UserProperties: UserProperties;
  16650. begin
  16651.   Result := DefaultInterface.UserProperties;
  16652. end;
  16653.  
  16654. function  TTaskItemProperties.Get_ActualWork: Integer;
  16655. begin
  16656.   Result := DefaultInterface.ActualWork;
  16657. end;
  16658.  
  16659. procedure TTaskItemProperties.Set_ActualWork(Param1: Integer);
  16660. begin
  16661.   DefaultInterface.ActualWork := Param1;
  16662. end;
  16663.  
  16664. function  TTaskItemProperties.Get_CardData: WideString;
  16665. begin
  16666.   Result := DefaultInterface.CardData;
  16667. end;
  16668.  
  16669. procedure TTaskItemProperties.Set_CardData(const Param1: WideString);
  16670. begin
  16671.   DefaultInterface.CardData := Param1;
  16672. end;
  16673.  
  16674. function  TTaskItemProperties.Get_Complete: WordBool;
  16675. begin
  16676.   Result := DefaultInterface.Complete;
  16677. end;
  16678.  
  16679. procedure TTaskItemProperties.Set_Complete(Param1: WordBool);
  16680. begin
  16681.   DefaultInterface.Complete := Param1;
  16682. end;
  16683.  
  16684. function  TTaskItemProperties.Get_Contacts: WideString;
  16685. begin
  16686.   Result := DefaultInterface.Contacts;
  16687. end;
  16688.  
  16689. procedure TTaskItemProperties.Set_Contacts(const Param1: WideString);
  16690. begin
  16691.   DefaultInterface.Contacts := Param1;
  16692. end;
  16693.  
  16694. function  TTaskItemProperties.Get_DateCompleted: TDateTime;
  16695. begin
  16696.   Result := DefaultInterface.DateCompleted;
  16697. end;
  16698.  
  16699. procedure TTaskItemProperties.Set_DateCompleted(Param1: TDateTime);
  16700. begin
  16701.   DefaultInterface.DateCompleted := Param1;
  16702. end;
  16703.  
  16704. function  TTaskItemProperties.Get_DelegationState: OlTaskDelegationState;
  16705. begin
  16706.   Result := DefaultInterface.DelegationState;
  16707. end;
  16708.  
  16709. function  TTaskItemProperties.Get_Delegator: WideString;
  16710. begin
  16711.   Result := DefaultInterface.Delegator;
  16712. end;
  16713.  
  16714. function  TTaskItemProperties.Get_DueDate: TDateTime;
  16715. begin
  16716.   Result := DefaultInterface.DueDate;
  16717. end;
  16718.  
  16719. procedure TTaskItemProperties.Set_DueDate(Param1: TDateTime);
  16720. begin
  16721.   DefaultInterface.DueDate := Param1;
  16722. end;
  16723.  
  16724. function  TTaskItemProperties.Get_IsRecurring: WordBool;
  16725. begin
  16726.   Result := DefaultInterface.IsRecurring;
  16727. end;
  16728.  
  16729. function  TTaskItemProperties.Get_Ordinal: Integer;
  16730. begin
  16731.   Result := DefaultInterface.Ordinal;
  16732. end;
  16733.  
  16734. procedure TTaskItemProperties.Set_Ordinal(Param1: Integer);
  16735. begin
  16736.   DefaultInterface.Ordinal := Param1;
  16737. end;
  16738.  
  16739. function  TTaskItemProperties.Get_Owner: WideString;
  16740. begin
  16741.   Result := DefaultInterface.Owner;
  16742. end;
  16743.  
  16744. procedure TTaskItemProperties.Set_Owner(const Param1: WideString);
  16745. begin
  16746.   DefaultInterface.Owner := Param1;
  16747. end;
  16748.  
  16749. function  TTaskItemProperties.Get_Ownership: OlTaskOwnership;
  16750. begin
  16751.   Result := DefaultInterface.Ownership;
  16752. end;
  16753.  
  16754. function  TTaskItemProperties.Get_PercentComplete: Integer;
  16755. begin
  16756.   Result := DefaultInterface.PercentComplete;
  16757. end;
  16758.  
  16759. procedure TTaskItemProperties.Set_PercentComplete(Param1: Integer);
  16760. begin
  16761.   DefaultInterface.PercentComplete := Param1;
  16762. end;
  16763.  
  16764. function  TTaskItemProperties.Get_Recipients: Recipients;
  16765. begin
  16766.   Result := DefaultInterface.Recipients;
  16767. end;
  16768.  
  16769. function  TTaskItemProperties.Get_ReminderOverrideDefault: WordBool;
  16770. begin
  16771.   Result := DefaultInterface.ReminderOverrideDefault;
  16772. end;
  16773.  
  16774. procedure TTaskItemProperties.Set_ReminderOverrideDefault(Param1: WordBool);
  16775. begin
  16776.   DefaultInterface.ReminderOverrideDefault := Param1;
  16777. end;
  16778.  
  16779. function  TTaskItemProperties.Get_ReminderPlaySound: WordBool;
  16780. begin
  16781.   Result := DefaultInterface.ReminderPlaySound;
  16782. end;
  16783.  
  16784. procedure TTaskItemProperties.Set_ReminderPlaySound(Param1: WordBool);
  16785. begin
  16786.   DefaultInterface.ReminderPlaySound := Param1;
  16787. end;
  16788.  
  16789. function  TTaskItemProperties.Get_ReminderSet: WordBool;
  16790. begin
  16791.   Result := DefaultInterface.ReminderSet;
  16792. end;
  16793.  
  16794. procedure TTaskItemProperties.Set_ReminderSet(Param1: WordBool);
  16795. begin
  16796.   DefaultInterface.ReminderSet := Param1;
  16797. end;
  16798.  
  16799. function  TTaskItemProperties.Get_ReminderSoundFile: WideString;
  16800. begin
  16801.   Result := DefaultInterface.ReminderSoundFile;
  16802. end;
  16803.  
  16804. procedure TTaskItemProperties.Set_ReminderSoundFile(const Param1: WideString);
  16805. begin
  16806.   DefaultInterface.ReminderSoundFile := Param1;
  16807. end;
  16808.  
  16809. function  TTaskItemProperties.Get_ReminderTime: TDateTime;
  16810. begin
  16811.   Result := DefaultInterface.ReminderTime;
  16812. end;
  16813.  
  16814. procedure TTaskItemProperties.Set_ReminderTime(Param1: TDateTime);
  16815. begin
  16816.   DefaultInterface.ReminderTime := Param1;
  16817. end;
  16818.  
  16819. function  TTaskItemProperties.Get_ResponseState: OlTaskResponse;
  16820. begin
  16821.   Result := DefaultInterface.ResponseState;
  16822. end;
  16823.  
  16824. function  TTaskItemProperties.Get_Role: WideString;
  16825. begin
  16826.   Result := DefaultInterface.Role;
  16827. end;
  16828.  
  16829. procedure TTaskItemProperties.Set_Role(const Param1: WideString);
  16830. begin
  16831.   DefaultInterface.Role := Param1;
  16832. end;
  16833.  
  16834. function  TTaskItemProperties.Get_SchedulePlusPriority: WideString;
  16835. begin
  16836.   Result := DefaultInterface.SchedulePlusPriority;
  16837. end;
  16838.  
  16839. procedure TTaskItemProperties.Set_SchedulePlusPriority(const Param1: WideString);
  16840. begin
  16841.   DefaultInterface.SchedulePlusPriority := Param1;
  16842. end;
  16843.  
  16844. function  TTaskItemProperties.Get_StartDate: TDateTime;
  16845. begin
  16846.   Result := DefaultInterface.StartDate;
  16847. end;
  16848.  
  16849. procedure TTaskItemProperties.Set_StartDate(Param1: TDateTime);
  16850. begin
  16851.   DefaultInterface.StartDate := Param1;
  16852. end;
  16853.  
  16854. function  TTaskItemProperties.Get_Status: OlTaskStatus;
  16855. begin
  16856.   Result := DefaultInterface.Status;
  16857. end;
  16858.  
  16859. procedure TTaskItemProperties.Set_Status(Param1: OlTaskStatus);
  16860. begin
  16861.   DefaultInterface.Status := Param1;
  16862. end;
  16863.  
  16864. function  TTaskItemProperties.Get_StatusOnCompletionRecipients: WideString;
  16865. begin
  16866.   Result := DefaultInterface.StatusOnCompletionRecipients;
  16867. end;
  16868.  
  16869. procedure TTaskItemProperties.Set_StatusOnCompletionRecipients(const Param1: WideString);
  16870. begin
  16871.   DefaultInterface.StatusOnCompletionRecipients := Param1;
  16872. end;
  16873.  
  16874. function  TTaskItemProperties.Get_StatusUpdateRecipients: WideString;
  16875. begin
  16876.   Result := DefaultInterface.StatusUpdateRecipients;
  16877. end;
  16878.  
  16879. procedure TTaskItemProperties.Set_StatusUpdateRecipients(const Param1: WideString);
  16880. begin
  16881.   DefaultInterface.StatusUpdateRecipients := Param1;
  16882. end;
  16883.  
  16884. function  TTaskItemProperties.Get_TeamTask: WordBool;
  16885. begin
  16886.   Result := DefaultInterface.TeamTask;
  16887. end;
  16888.  
  16889. procedure TTaskItemProperties.Set_TeamTask(Param1: WordBool);
  16890. begin
  16891.   DefaultInterface.TeamTask := Param1;
  16892. end;
  16893.  
  16894. function  TTaskItemProperties.Get_TotalWork: Integer;
  16895. begin
  16896.   Result := DefaultInterface.TotalWork;
  16897. end;
  16898.  
  16899. procedure TTaskItemProperties.Set_TotalWork(Param1: Integer);
  16900. begin
  16901.   DefaultInterface.TotalWork := Param1;
  16902. end;
  16903.  
  16904. {$ENDIF}
  16905.  
  16906. class function Co_TaskRequestAcceptItem.Create: _DTaskRequestAcceptItem;
  16907. begin
  16908.   Result := CreateComObject(CLASS__TaskRequestAcceptItem) as _DTaskRequestAcceptItem;
  16909. end;
  16910.  
  16911. class function Co_TaskRequestAcceptItem.CreateRemote(const MachineName: string): _DTaskRequestAcceptItem;
  16912. begin
  16913.   Result := CreateRemoteComObject(MachineName, CLASS__TaskRequestAcceptItem) as _DTaskRequestAcceptItem;
  16914. end;
  16915.  
  16916. class function Co_TaskRequestDeclineItem.Create: _DTaskRequestDeclineItem;
  16917. begin
  16918.   Result := CreateComObject(CLASS__TaskRequestDeclineItem) as _DTaskRequestDeclineItem;
  16919. end;
  16920.  
  16921. class function Co_TaskRequestDeclineItem.CreateRemote(const MachineName: string): _DTaskRequestDeclineItem;
  16922. begin
  16923.   Result := CreateRemoteComObject(MachineName, CLASS__TaskRequestDeclineItem) as _DTaskRequestDeclineItem;
  16924. end;
  16925.  
  16926. class function CoTaskRequestItem.Create: _DTaskRequestItem;
  16927. begin
  16928.   Result := CreateComObject(CLASS_TaskRequestItem) as _DTaskRequestItem;
  16929. end;
  16930.  
  16931. class function CoTaskRequestItem.CreateRemote(const MachineName: string): _DTaskRequestItem;
  16932. begin
  16933.   Result := CreateRemoteComObject(MachineName, CLASS_TaskRequestItem) as _DTaskRequestItem;
  16934. end;
  16935.  
  16936. procedure TTaskRequestItem.InitServerData;
  16937. const
  16938.   CServerData: TServerData = (
  16939.     ClassID:   '{00061050-0000-0000-C000-000000000046}';
  16940.     IntfIID:   '{00063036-0000-0000-C000-000000000046}';
  16941.     EventIID:  '{0006303A-0000-0000-C000-000000000046}';
  16942.     LicenseKey: nil;
  16943.     Version: 500);
  16944. begin
  16945.   ServerData := @CServerData;
  16946. end;
  16947.  
  16948. procedure TTaskRequestItem.Connect;
  16949. var
  16950.   punk: IUnknown;
  16951. begin
  16952.   if FIntf = nil then
  16953.   begin
  16954.     punk := GetServer;
  16955.     ConnectEvents(punk);
  16956.     Fintf:= punk as _DTaskRequestItem;
  16957.   end;
  16958. end;
  16959.  
  16960. procedure TTaskRequestItem.ConnectTo(svrIntf: _DTaskRequestItem);
  16961. begin
  16962.   Disconnect;
  16963.   FIntf := svrIntf;
  16964.   ConnectEvents(FIntf);
  16965. end;
  16966.  
  16967. procedure TTaskRequestItem.DisConnect;
  16968. begin
  16969.   if Fintf <> nil then
  16970.   begin
  16971.     DisconnectEvents(FIntf);
  16972.     FIntf := nil;
  16973.   end;
  16974. end;
  16975.  
  16976. function TTaskRequestItem.GetDefaultInterface: _DTaskRequestItem;
  16977. begin
  16978.   if FIntf = nil then
  16979.     Connect;
  16980.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  16981.   Result := FIntf;
  16982. end;
  16983.  
  16984. constructor TTaskRequestItem.Create(AOwner: TComponent);
  16985. begin
  16986.   inherited Create(AOwner);
  16987. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  16988.   FProps := TTaskRequestItemProperties.Create(Self);
  16989. {$ENDIF}
  16990. end;
  16991.  
  16992. destructor TTaskRequestItem.Destroy;
  16993. begin
  16994. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  16995.   FProps.Free;
  16996. {$ENDIF}
  16997.   inherited Destroy;
  16998. end;
  16999.  
  17000. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17001. function TTaskRequestItem.GetServerProperties: TTaskRequestItemProperties;
  17002. begin
  17003.   Result := FProps;
  17004. end;
  17005. {$ENDIF}
  17006.  
  17007. procedure TTaskRequestItem.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  17008. begin
  17009.   case DispID of
  17010.     -1: Exit;  // DISPID_UNKNOWN
  17011.    61441: if Assigned(FOnRead) then
  17012.             FOnRead(Self);
  17013.    61442: if Assigned(FOnWrite) then
  17014.             FOnWrite(Self);
  17015.    61443: if Assigned(FOnOpen) then
  17016.             FOnOpen(Self);
  17017.    61444: if Assigned(FOnClose) then
  17018.             FOnClose(Self);
  17019.    61445: if Assigned(FOnSend) then
  17020.             FOnSend(Self);
  17021.    62566: if Assigned(FOnReply) then
  17022.             FOnReply(Self, Params[0] (*const IDispatch*));
  17023.    62567: if Assigned(FOnReplyAll) then
  17024.             FOnReplyAll(Self, Params[0] (*const IDispatch*));
  17025.    62568: if Assigned(FOnForward) then
  17026.             FOnForward(Self, Params[0] (*const IDispatch*));
  17027.    61446: if Assigned(FOnCustomAction) then
  17028.             FOnCustomAction(Self, Params[0] (*const IDispatch*), Params[1] (*const IDispatch*));
  17029.    61448: if Assigned(FOnCustomPropertyChange) then
  17030.             FOnCustomPropertyChange(Self, Params[0] (*const WideString*));
  17031.    61449: if Assigned(FOnPropertyChange) then
  17032.             FOnPropertyChange(Self, Params[0] (*const WideString*));
  17033.   end; {case DispID}
  17034. end;
  17035.  
  17036. function  TTaskRequestItem.Get_Actions: Actions;
  17037. begin
  17038.   Result := DefaultInterface.Actions;
  17039. end;
  17040.  
  17041. function  TTaskRequestItem.Get_Application: OutlookApplication;
  17042. begin
  17043.   Result := DefaultInterface.Application;
  17044. end;
  17045.  
  17046. function  TTaskRequestItem.Get_Attachments: Attachments;
  17047. begin
  17048.   Result := DefaultInterface.Attachments;
  17049. end;
  17050.  
  17051. function  TTaskRequestItem.Get_BillingInformation: WideString;
  17052. begin
  17053.   Result := DefaultInterface.BillingInformation;
  17054. end;
  17055.  
  17056. procedure TTaskRequestItem.Set_BillingInformation(const Param1: WideString);
  17057. begin
  17058.   DefaultInterface.BillingInformation := Param1;
  17059. end;
  17060.  
  17061. function  TTaskRequestItem.Get_Body: WideString;
  17062. begin
  17063.   Result := DefaultInterface.Body;
  17064. end;
  17065.  
  17066. procedure TTaskRequestItem.Set_Body(const Param1: WideString);
  17067. begin
  17068.   DefaultInterface.Body := Param1;
  17069. end;
  17070.  
  17071. function  TTaskRequestItem.Get_Categories: WideString;
  17072. begin
  17073.   Result := DefaultInterface.Categories;
  17074. end;
  17075.  
  17076. procedure TTaskRequestItem.Set_Categories(const Param1: WideString);
  17077. begin
  17078.   DefaultInterface.Categories := Param1;
  17079. end;
  17080.  
  17081. function  TTaskRequestItem.Get_Companies: WideString;
  17082. begin
  17083.   Result := DefaultInterface.Companies;
  17084. end;
  17085.  
  17086. procedure TTaskRequestItem.Set_Companies(const Param1: WideString);
  17087. begin
  17088.   DefaultInterface.Companies := Param1;
  17089. end;
  17090.  
  17091. function  TTaskRequestItem.Get_CreationTime: TDateTime;
  17092. begin
  17093.   Result := DefaultInterface.CreationTime;
  17094. end;
  17095.  
  17096. function  TTaskRequestItem.Get_EntryID: WideString;
  17097. begin
  17098.   Result := DefaultInterface.EntryID;
  17099. end;
  17100.  
  17101. function  TTaskRequestItem.Get_FormDescription: FormDescription;
  17102. begin
  17103.   Result := DefaultInterface.FormDescription;
  17104. end;
  17105.  
  17106. function  TTaskRequestItem.Get_GetInspector: Inspector;
  17107. begin
  17108.   Result := DefaultInterface.GetInspector;
  17109. end;
  17110.  
  17111. function  TTaskRequestItem.Get_Importance: OlImportance;
  17112. begin
  17113.   Result := DefaultInterface.Importance;
  17114. end;
  17115.  
  17116. procedure TTaskRequestItem.Set_Importance(Param1: OlImportance);
  17117. begin
  17118.   DefaultInterface.Importance := Param1;
  17119. end;
  17120.  
  17121. function  TTaskRequestItem.Get_LastModificationTime: TDateTime;
  17122. begin
  17123.   Result := DefaultInterface.LastModificationTime;
  17124. end;
  17125.  
  17126. function  TTaskRequestItem.Get_MessageClass: WideString;
  17127. begin
  17128.   Result := DefaultInterface.MessageClass;
  17129. end;
  17130.  
  17131. procedure TTaskRequestItem.Set_MessageClass(const Param1: WideString);
  17132. begin
  17133.   DefaultInterface.MessageClass := Param1;
  17134. end;
  17135.  
  17136. function  TTaskRequestItem.Get_Mileage: WideString;
  17137. begin
  17138.   Result := DefaultInterface.Mileage;
  17139. end;
  17140.  
  17141. procedure TTaskRequestItem.Set_Mileage(const Param1: WideString);
  17142. begin
  17143.   DefaultInterface.Mileage := Param1;
  17144. end;
  17145.  
  17146. function  TTaskRequestItem.Get_NoAging: WordBool;
  17147. begin
  17148.   Result := DefaultInterface.NoAging;
  17149. end;
  17150.  
  17151. procedure TTaskRequestItem.Set_NoAging(Param1: WordBool);
  17152. begin
  17153.   DefaultInterface.NoAging := Param1;
  17154. end;
  17155.  
  17156. function  TTaskRequestItem.Get_OutlookInternalVersion: WideString;
  17157. begin
  17158.   Result := DefaultInterface.OutlookInternalVersion;
  17159. end;
  17160.  
  17161. function  TTaskRequestItem.Get_OutlookVersion: WideString;
  17162. begin
  17163.   Result := DefaultInterface.OutlookVersion;
  17164. end;
  17165.  
  17166. function  TTaskRequestItem.Get_Parent: IDispatch;
  17167. begin
  17168.   Result := DefaultInterface.Parent;
  17169. end;
  17170.  
  17171. function  TTaskRequestItem.Get_Saved: WordBool;
  17172. begin
  17173.   Result := DefaultInterface.Saved;
  17174. end;
  17175.  
  17176. function  TTaskRequestItem.Get_Sensitivity: OlSensitivity;
  17177. begin
  17178.   Result := DefaultInterface.Sensitivity;
  17179. end;
  17180.  
  17181. procedure TTaskRequestItem.Set_Sensitivity(Param1: OlSensitivity);
  17182. begin
  17183.   DefaultInterface.Sensitivity := Param1;
  17184. end;
  17185.  
  17186. function  TTaskRequestItem.Get_Size: Integer;
  17187. begin
  17188.   Result := DefaultInterface.Size;
  17189. end;
  17190.  
  17191. function  TTaskRequestItem.Get_Subject: WideString;
  17192. begin
  17193.   Result := DefaultInterface.Subject;
  17194. end;
  17195.  
  17196. procedure TTaskRequestItem.Set_Subject(const Param1: WideString);
  17197. begin
  17198.   DefaultInterface.Subject := Param1;
  17199. end;
  17200.  
  17201. function  TTaskRequestItem.Get_UnRead: WordBool;
  17202. begin
  17203.   Result := DefaultInterface.UnRead;
  17204. end;
  17205.  
  17206. procedure TTaskRequestItem.Set_UnRead(Param1: WordBool);
  17207. begin
  17208.   DefaultInterface.UnRead := Param1;
  17209. end;
  17210.  
  17211. function  TTaskRequestItem.Get_UserProperties: UserProperties;
  17212. begin
  17213.   Result := DefaultInterface.UserProperties;
  17214. end;
  17215.  
  17216. procedure TTaskRequestItem.Close(SaveMode: OlInspectorClose);
  17217. begin
  17218.   DefaultInterface.Close(SaveMode);
  17219. end;
  17220.  
  17221. function  TTaskRequestItem.Copy: IDispatch;
  17222. begin
  17223.   Result := DefaultInterface.Copy;
  17224. end;
  17225.  
  17226. procedure TTaskRequestItem.Delete;
  17227. begin
  17228.   DefaultInterface.Delete;
  17229. end;
  17230.  
  17231. procedure TTaskRequestItem.Display(Modal: OleVariant);
  17232. begin
  17233.   DefaultInterface.Display(Modal);
  17234. end;
  17235.  
  17236. function  TTaskRequestItem.Move(const DestFldr: MAPIFolder): IDispatch;
  17237. begin
  17238.   Result := DefaultInterface.Move(DestFldr);
  17239. end;
  17240.  
  17241. procedure TTaskRequestItem.Save;
  17242. begin
  17243.   DefaultInterface.Save;
  17244. end;
  17245.  
  17246. procedure TTaskRequestItem.SaveAs(const Path: WideString; Type_: OleVariant);
  17247. begin
  17248.   DefaultInterface.SaveAs(Path, Type_);
  17249. end;
  17250.  
  17251. procedure TTaskRequestItem.PrintOut;
  17252. begin
  17253.   DefaultInterface.PrintOut;
  17254. end;
  17255.  
  17256. function  TTaskRequestItem.GetAssociatedTask(AddToTaskList: WordBool): TaskItem;
  17257. begin
  17258.   Result := DefaultInterface.GetAssociatedTask(AddToTaskList);
  17259. end;
  17260.  
  17261. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17262. constructor TTaskRequestItemProperties.Create(AServer: TTaskRequestItem);
  17263. begin
  17264.   inherited Create;
  17265.   FServer := AServer;
  17266. end;
  17267.  
  17268. function TTaskRequestItemProperties.GetDefaultInterface: _DTaskRequestItem;
  17269. begin
  17270.   Result := FServer.DefaultInterface;
  17271. end;
  17272.  
  17273. function  TTaskRequestItemProperties.Get_Actions: Actions;
  17274. begin
  17275.   Result := DefaultInterface.Actions;
  17276. end;
  17277.  
  17278. function  TTaskRequestItemProperties.Get_Application: OutlookApplication;
  17279. begin
  17280.   Result := DefaultInterface.Application;
  17281. end;
  17282.  
  17283. function  TTaskRequestItemProperties.Get_Attachments: Attachments;
  17284. begin
  17285.   Result := DefaultInterface.Attachments;
  17286. end;
  17287.  
  17288. function  TTaskRequestItemProperties.Get_BillingInformation: WideString;
  17289. begin
  17290.   Result := DefaultInterface.BillingInformation;
  17291. end;
  17292.  
  17293. procedure TTaskRequestItemProperties.Set_BillingInformation(const Param1: WideString);
  17294. begin
  17295.   DefaultInterface.BillingInformation := Param1;
  17296. end;
  17297.  
  17298. function  TTaskRequestItemProperties.Get_Body: WideString;
  17299. begin
  17300.   Result := DefaultInterface.Body;
  17301. end;
  17302.  
  17303. procedure TTaskRequestItemProperties.Set_Body(const Param1: WideString);
  17304. begin
  17305.   DefaultInterface.Body := Param1;
  17306. end;
  17307.  
  17308. function  TTaskRequestItemProperties.Get_Categories: WideString;
  17309. begin
  17310.   Result := DefaultInterface.Categories;
  17311. end;
  17312.  
  17313. procedure TTaskRequestItemProperties.Set_Categories(const Param1: WideString);
  17314. begin
  17315.   DefaultInterface.Categories := Param1;
  17316. end;
  17317.  
  17318. function  TTaskRequestItemProperties.Get_Companies: WideString;
  17319. begin
  17320.   Result := DefaultInterface.Companies;
  17321. end;
  17322.  
  17323. procedure TTaskRequestItemProperties.Set_Companies(const Param1: WideString);
  17324. begin
  17325.   DefaultInterface.Companies := Param1;
  17326. end;
  17327.  
  17328. function  TTaskRequestItemProperties.Get_CreationTime: TDateTime;
  17329. begin
  17330.   Result := DefaultInterface.CreationTime;
  17331. end;
  17332.  
  17333. function  TTaskRequestItemProperties.Get_EntryID: WideString;
  17334. begin
  17335.   Result := DefaultInterface.EntryID;
  17336. end;
  17337.  
  17338. function  TTaskRequestItemProperties.Get_FormDescription: FormDescription;
  17339. begin
  17340.   Result := DefaultInterface.FormDescription;
  17341. end;
  17342.  
  17343. function  TTaskRequestItemProperties.Get_GetInspector: Inspector;
  17344. begin
  17345.   Result := DefaultInterface.GetInspector;
  17346. end;
  17347.  
  17348. function  TTaskRequestItemProperties.Get_Importance: OlImportance;
  17349. begin
  17350.   Result := DefaultInterface.Importance;
  17351. end;
  17352.  
  17353. procedure TTaskRequestItemProperties.Set_Importance(Param1: OlImportance);
  17354. begin
  17355.   DefaultInterface.Importance := Param1;
  17356. end;
  17357.  
  17358. function  TTaskRequestItemProperties.Get_LastModificationTime: TDateTime;
  17359. begin
  17360.   Result := DefaultInterface.LastModificationTime;
  17361. end;
  17362.  
  17363. function  TTaskRequestItemProperties.Get_MessageClass: WideString;
  17364. begin
  17365.   Result := DefaultInterface.MessageClass;
  17366. end;
  17367.  
  17368. procedure TTaskRequestItemProperties.Set_MessageClass(const Param1: WideString);
  17369. begin
  17370.   DefaultInterface.MessageClass := Param1;
  17371. end;
  17372.  
  17373. function  TTaskRequestItemProperties.Get_Mileage: WideString;
  17374. begin
  17375.   Result := DefaultInterface.Mileage;
  17376. end;
  17377.  
  17378. procedure TTaskRequestItemProperties.Set_Mileage(const Param1: WideString);
  17379. begin
  17380.   DefaultInterface.Mileage := Param1;
  17381. end;
  17382.  
  17383. function  TTaskRequestItemProperties.Get_NoAging: WordBool;
  17384. begin
  17385.   Result := DefaultInterface.NoAging;
  17386. end;
  17387.  
  17388. procedure TTaskRequestItemProperties.Set_NoAging(Param1: WordBool);
  17389. begin
  17390.   DefaultInterface.NoAging := Param1;
  17391. end;
  17392.  
  17393. function  TTaskRequestItemProperties.Get_OutlookInternalVersion: WideString;
  17394. begin
  17395.   Result := DefaultInterface.OutlookInternalVersion;
  17396. end;
  17397.  
  17398. function  TTaskRequestItemProperties.Get_OutlookVersion: WideString;
  17399. begin
  17400.   Result := DefaultInterface.OutlookVersion;
  17401. end;
  17402.  
  17403. function  TTaskRequestItemProperties.Get_Parent: IDispatch;
  17404. begin
  17405.   Result := DefaultInterface.Parent;
  17406. end;
  17407.  
  17408. function  TTaskRequestItemProperties.Get_Saved: WordBool;
  17409. begin
  17410.   Result := DefaultInterface.Saved;
  17411. end;
  17412.  
  17413. function  TTaskRequestItemProperties.Get_Sensitivity: OlSensitivity;
  17414. begin
  17415.   Result := DefaultInterface.Sensitivity;
  17416. end;
  17417.  
  17418. procedure TTaskRequestItemProperties.Set_Sensitivity(Param1: OlSensitivity);
  17419. begin
  17420.   DefaultInterface.Sensitivity := Param1;
  17421. end;
  17422.  
  17423. function  TTaskRequestItemProperties.Get_Size: Integer;
  17424. begin
  17425.   Result := DefaultInterface.Size;
  17426. end;
  17427.  
  17428. function  TTaskRequestItemProperties.Get_Subject: WideString;
  17429. begin
  17430.   Result := DefaultInterface.Subject;
  17431. end;
  17432.  
  17433. procedure TTaskRequestItemProperties.Set_Subject(const Param1: WideString);
  17434. begin
  17435.   DefaultInterface.Subject := Param1;
  17436. end;
  17437.  
  17438. function  TTaskRequestItemProperties.Get_UnRead: WordBool;
  17439. begin
  17440.   Result := DefaultInterface.UnRead;
  17441. end;
  17442.  
  17443. procedure TTaskRequestItemProperties.Set_UnRead(Param1: WordBool);
  17444. begin
  17445.   DefaultInterface.UnRead := Param1;
  17446. end;
  17447.  
  17448. function  TTaskRequestItemProperties.Get_UserProperties: UserProperties;
  17449. begin
  17450.   Result := DefaultInterface.UserProperties;
  17451. end;
  17452.  
  17453. {$ENDIF}
  17454.  
  17455. class function Co_TaskRequestUpdateItem.Create: _DTaskRequestUpdateItem;
  17456. begin
  17457.   Result := CreateComObject(CLASS__TaskRequestUpdateItem) as _DTaskRequestUpdateItem;
  17458. end;
  17459.  
  17460. class function Co_TaskRequestUpdateItem.CreateRemote(const MachineName: string): _DTaskRequestUpdateItem;
  17461. begin
  17462.   Result := CreateRemoteComObject(MachineName, CLASS__TaskRequestUpdateItem) as _DTaskRequestUpdateItem;
  17463. end;
  17464.  
  17465. procedure Register;
  17466. begin
  17467.   RegisterComponents('Servers',[TOutlookApplication, TAppointmentItem, TContactItem, TJournalItem, 
  17468.     TMailItem, TMeetingRequestItem, TNoteItem, TPostItem, TRemoteItem, 
  17469.     TReportItem, TTaskItem, TTaskRequestItem]);
  17470. end;
  17471.  
  17472. end.
  17473.