vedhæft

Brug com intefacet til outlook istedet, så er det ikke noget problem med at vedhæfte en fil

ved ikke lige hvordan??

Importer en outlook dll, så får du følgende TLB fil med det hele :

unit Outlook_TLB;

// ************************************************************************ //
// WARNING                                                                   
// -------                                                                   
// The types declared in this file were generated from data read from a     
// Type Library. If this type library is explicitly or indirectly (via       
// another type library referring to this type library) re-imported, or the 
// \'Refresh\' command of the Type Library Editor activated while editing the 
// Type Library, the contents of this file will be regenerated and all       
// manual modifications will be lost.                                       
// ************************************************************************ //

// PASTLWTR : $Revision:  1.88.1.0.1.0  $
// File generated on 10-05-01 12:05:29 from Type Library described below.

// ************************************************************************ //
// Type Lib: E:\\Outlook_OBL\\MSOUTL85.OLB (1)
// IID\\LCID: {00062FFF-0000-0000-C000-000000000046}\\0
// Helpfile: E:\\Outlook_OBL\\VBAOUTL.HLP
// DepndLst:
//  (1) v2.0 stdole, (C:\\WINNT\\System32\\stdole2.tlb)
//  (2) v4.0 StdVCL, (C:\\WINNT\\System32\\STDVCL40.DLL)
// Errors:
//  Hint: Symbol \'Application\' renamed to \'OutlookApplication\'
//  Hint: Member \'Class\' of \'Action\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Action.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'_Application\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _Application.Class changed to \'Class_\'
//  Hint: Parameter \'Object\' of _Application.CreateObject changed to \'Object_\'
//  Hint: Parameter \'Type\' of _Application.GetNamespace changed to \'Type_\'
//  Hint: Member \'Class\' of \'NameSpace\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of NameSpace.Class changed to \'Class_\'
//  Hint: Member \'Type\' of \'NameSpace\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of NameSpace.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'Recipient\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Recipient.Class changed to \'Class_\'
//  Hint: Member \'Type\' of \'Recipient\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of Recipient.Type changed to \'Type_\'
//  Hint: Parameter \'Type\' of Recipient.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'AddressEntry\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of AddressEntry.Class changed to \'Class_\'
//  Hint: Member \'Type\' of \'AddressEntry\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of AddressEntry.Type changed to \'Type_\'
//  Hint: Parameter \'Type\' of AddressEntry.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'AddressEntries\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of AddressEntries.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of AddressEntries.Add changed to \'Type_\'
//  Hint: Parameter \'Property\' of AddressEntries.Sort changed to \'Property_\'
//  Hint: Member \'Class\' of \'Folders\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Folders.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of Folders.Add changed to \'Type_\'
//  Hint: Member \'Class\' of \'MAPIFolder\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of MAPIFolder.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'Items\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Items.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of Items.Add changed to \'Type_\'
//  Hint: Parameter \'Property\' of Items.Sort changed to \'Property_\'
//  Hint: Member \'Class\' of \'Explorer\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Explorer.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'AddressLists\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of AddressLists.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'AddressList\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of AddressList.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'Inspector\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Inspector.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'Actions\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Actions.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'_AppointmentItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _AppointmentItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _AppointmentItem.SaveAs changed to \'Type_\'
//  Hint: Member \'End\' of \'_AppointmentItem\' changed to \'End_\'
//  Hint: Parameter \'End\' of _AppointmentItem.End changed to \'End_\'
//  Hint: Parameter \'End\' of _AppointmentItem.End changed to \'End_\'
//  Hint: Member \'Class\' of \'Attachments\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Attachments.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of Attachments.Add changed to \'Type_\'
//  Hint: Member \'Class\' of \'Attachment\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Attachment.Class changed to \'Class_\'
//  Hint: Member \'Type\' of \'Attachment\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of Attachment.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'FormDescription\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of FormDescription.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'UserProperties\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of UserProperties.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of UserProperties.Add changed to \'Type_\'
//  Hint: Member \'Class\' of \'UserProperty\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of UserProperty.Class changed to \'Class_\'
//  Hint: Member \'Type\' of \'UserProperty\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of UserProperty.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'Recipients\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Recipients.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'_MailItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _MailItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _MailItem.SaveAs changed to \'Type_\'
//  Hint: Member \'To\' of \'_MailItem\' changed to \'To_\'
//  Hint: Parameter \'To\' of _MailItem.To changed to \'To_\'
//  Hint: Parameter \'To\' of _MailItem.To changed to \'To_\'
//  Hint: Member \'Class\' of \'RecurrencePattern\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of RecurrencePattern.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'Exceptions\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Exceptions.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'Exception\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Exception.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'_MeetingItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _MeetingItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _MeetingItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_ContactItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _ContactItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _ContactItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_DocumentItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _DocumentItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _DocumentItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_JournalItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _JournalItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _JournalItem.SaveAs changed to \'Type_\'
//  Hint: Member \'End\' of \'_JournalItem\' changed to \'End_\'
//  Hint: Parameter \'End\' of _JournalItem.End changed to \'End_\'
//  Hint: Parameter \'End\' of _JournalItem.End changed to \'End_\'
//  Hint: Member \'Type\' of \'_JournalItem\' changed to \'Type_\'
//  Hint: Parameter \'Type\' of _JournalItem.Type changed to \'Type_\'
//  Hint: Parameter \'Type\' of _JournalItem.Type changed to \'Type_\'
//  Hint: Member \'Class\' of \'_NoteItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _NoteItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _NoteItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'Pages\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of Pages.Class changed to \'Class_\'
//  Hint: Member \'Class\' of \'_PostItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _PostItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _PostItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_RemoteItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _RemoteItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _RemoteItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_ReportItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _ReportItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _ReportItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_TaskItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _TaskItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _TaskItem.SaveAs changed to \'Type_\'
//  Hint: Symbol \'Assign\' renamed to \'Assign_\'
//  Hint: Member \'Class\' of \'_TaskRequestAcceptItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _TaskRequestAcceptItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _TaskRequestAcceptItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_TaskRequestDeclineItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _TaskRequestDeclineItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _TaskRequestDeclineItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_TaskRequestItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _TaskRequestItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _TaskRequestItem.SaveAs changed to \'Type_\'
//  Hint: Member \'Class\' of \'_TaskRequestUpdateItem\' changed to \'Class_\'
//  Hint: Parameter \'Class\' of _TaskRequestUpdateItem.Class changed to \'Class_\'
//  Hint: Parameter \'Type\' of _TaskRequestUpdateItem.SaveAs changed to \'Type_\'
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:       
//  Type Libraries    : LIBID_xxxx                                     
//  CoClasses          : CLASS_xxxx                                     
//  DISPInterfaces    : DIID_xxxx                                     
//  Non-DISP interfaces: IID_xxxx                                       
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  OutlookMajorVersion = 8;
  OutlookMinorVersion = 5;

  LIBID_Outlook: TGUID = \'{00062FFF-0000-0000-C000-000000000046}\';

  IID_Action: TGUID = \'{00063043-0000-0000-C000-000000000046}\';
  IID__Application: TGUID = \'{00063001-0000-0000-C000-000000000046}\';
  CLASS_OutlookApplication: TGUID = \'{0006F033-0000-0000-C000-000000000046}\';
  IID_NameSpace: TGUID = \'{00063002-0000-0000-C000-000000000046}\';
  IID_Recipient: TGUID = \'{00063045-0000-0000-C000-000000000046}\';
  IID_AddressEntry: TGUID = \'{0006304B-0000-0000-C000-000000000046}\';
  IID_AddressEntries: TGUID = \'{0006304A-0000-0000-C000-000000000046}\';
  IID_Folders: TGUID = \'{00063040-0000-0000-C000-000000000046}\';
  IID_MAPIFolder: TGUID = \'{00063006-0000-0000-C000-000000000046}\';
  IID_Items: TGUID = \'{00063041-0000-0000-C000-000000000046}\';
  IID_Explorer: TGUID = \'{00063003-0000-0000-C000-000000000046}\';
  IID_AddressLists: TGUID = \'{00063048-0000-0000-C000-000000000046}\';
  IID_AddressList: TGUID = \'{00063049-0000-0000-C000-000000000046}\';
  IID_Inspector: TGUID = \'{00063005-0000-0000-C000-000000000046}\';
  IID_Actions: TGUID = \'{0006303E-0000-0000-C000-000000000046}\';
  IID__AppointmentItem: TGUID = \'{00063033-0000-0000-C000-000000000046}\';
  IID_Attachments: TGUID = \'{0006303C-0000-0000-C000-000000000046}\';
  IID_Attachment: TGUID = \'{00063007-0000-0000-C000-000000000046}\';
  IID_FormDescription: TGUID = \'{00063046-0000-0000-C000-000000000046}\';
  IID_UserProperties: TGUID = \'{0006303D-0000-0000-C000-000000000046}\';
  IID_UserProperty: TGUID = \'{00063042-0000-0000-C000-000000000046}\';
  IID_Recipients: TGUID = \'{0006303B-0000-0000-C000-000000000046}\';
  IID__MailItem: TGUID = \'{00063034-0000-0000-C000-000000000046}\';
  IID_ItemEvents: TGUID = \'{0006303A-0000-0000-C000-000000000046}\';
  CLASS_MailItem: TGUID = \'{00061033-0000-0000-C000-000000000046}\';
  IID_RecurrencePattern: TGUID = \'{00063044-0000-0000-C000-000000000046}\';
  IID_Exceptions: TGUID = \'{0006304C-0000-0000-C000-000000000046}\';
  IID_Exception: TGUID = \'{0006304D-0000-0000-C000-000000000046}\';
  CLASS_AppointmentItem: TGUID = \'{00061030-0000-0000-C000-000000000046}\';
  IID__MeetingItem: TGUID = \'{00063062-0000-0000-C000-000000000046}\';
  CLASS_MeetingItem: TGUID = \'{00061036-0000-0000-C000-000000000046}\';
  IID__ContactItem: TGUID = \'{00063021-0000-0000-C000-000000000046}\';
  IID__DocumentItem: TGUID = \'{00063020-0000-0000-C000-000000000046}\';
  IID__JournalItem: TGUID = \'{00063022-0000-0000-C000-000000000046}\';
  IID__NoteItem: TGUID = \'{00063025-0000-0000-C000-000000000046}\';
  IID_Pages: TGUID = \'{0006303F-0000-0000-C000-000000000046}\';
  IID__PostItem: TGUID = \'{00063024-0000-0000-C000-000000000046}\';
  IID__RemoteItem: TGUID = \'{00063023-0000-0000-C000-000000000046}\';
  IID__ReportItem: TGUID = \'{00063026-0000-0000-C000-000000000046}\';
  IID__TaskItem: TGUID = \'{00063035-0000-0000-C000-000000000046}\';
  CLASS_TaskItem: TGUID = \'{00061032-0000-0000-C000-000000000046}\';
  IID__TaskRequestAcceptItem: TGUID = \'{00063038-0000-0000-C000-000000000046}\';
  IID__TaskRequestDeclineItem: TGUID = \'{00063039-0000-0000-C000-000000000046}\';
  IID__TaskRequestItem: TGUID = \'{00063036-0000-0000-C000-000000000046}\';
  IID__TaskRequestUpdateItem: TGUID = \'{00063037-0000-0000-C000-000000000046}\';
  CLASS_ContactItem: TGUID = \'{00061031-0000-0000-C000-000000000046}\';
  CLASS_DocumentItem: TGUID = \'{00061061-0000-0000-C000-000000000046}\';
  CLASS_JournalItem: TGUID = \'{00061037-0000-0000-C000-000000000046}\';
  CLASS_NoteItem: TGUID = \'{00061034-0000-0000-C000-000000000046}\';
  CLASS_PostItem: TGUID = \'{0006103A-0000-0000-C000-000000000046}\';
  CLASS_RemoteItem: TGUID = \'{00061060-0000-0000-C000-000000000046}\';
  CLASS_ReportItem: TGUID = \'{00061035-0000-0000-C000-000000000046}\';
  CLASS_TaskRequestAcceptItem: TGUID = \'{00061052-0000-0000-C000-000000000046}\';
  CLASS_TaskRequestDeclineItem: TGUID = \'{00061053-0000-0000-C000-000000000046}\';
  CLASS_TaskRequestItem: TGUID = \'{00061050-0000-0000-C000-000000000046}\';
  CLASS_TaskRequestUpdateItem: TGUID = \'{00061051-0000-0000-C000-000000000046}\';
  IID__IRecipientControl: TGUID = \'{D87E7E16-6897-11CE-A6C0-00AA00608FAA}\';
  DIID__DRecipientControl: TGUID = \'{0006F025-0000-0000-C000-000000000046}\';
  DIID__DRecipientControlEvents: TGUID = \'{D87E7E17-6897-11CE-A6C0-00AA00608FAA}\';
  CLASS__RecipientControl: TGUID = \'{0006F023-0000-0000-C000-000000000046}\';
  IID__IDocSiteControl: TGUID = \'{43507DD0-811D-11CE-B565-00AA00608FAA}\';
  DIID__DDocSiteControl: TGUID = \'{0006F026-0000-0000-C000-000000000046}\';
  DIID__DDocSiteControlEvents: TGUID = \'{50BB9B50-811D-11CE-B565-00AA00608FAA}\';
  CLASS__DocSiteControl: TGUID = \'{0006F024-0000-0000-C000-000000000046}\';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                   
// *********************************************************************//
// Constants for enum OlActionCopyLike
type
  OlActionCopyLike = TOleEnum;
const
  olReply = $00000000;
  olReplyAll = $00000001;
  olForward = $00000002;
  olReplyFolder = $00000003;
  olRespond = $00000004;

// Constants for enum OlActionReplyStyle
type
  OlActionReplyStyle = TOleEnum;
const
  olOmitOriginalText = $00000000;
  olEmbedOriginalItem = $00000001;
  olIncludeOriginalText = $00000002;
  olIndentOriginalText = $00000003;
  olLinkOriginalItem = $00000004;
  olUserPreference = $00000005;
  olReplyTickOriginalText = $000003E8;

// Constants for enum OlActionResponseStyle
type
  OlActionResponseStyle = TOleEnum;
const
  olOpen = $00000000;
  olSend = $00000001;
  olPrompt = $00000002;

// Constants for enum OlActionShowOn
type
  OlActionShowOn = TOleEnum;
const
  olDontShow = $00000000;
  olMenu = $00000001;
  olMenuAndToolbar = $00000002;

// Constants for enum OlAttachmentType
type
  OlAttachmentType = TOleEnum;
const
  olByValue = $00000001;
  olByReference = $00000004;
  olEmbeddeditem = $00000005;
  olOLE = $00000006;

// Constants for enum OlBusyStatus
type
  OlBusyStatus = TOleEnum;
const
  olFree = $00000000;
  olTentative = $00000001;
  olBusy = $00000002;
  olOutOfOffice = $00000003;

// Constants for enum OlDaysOfWeek
type
  OlDaysOfWeek = TOleEnum;
const
  olSunday = $00000001;
  olMonday = $00000002;
  olTuesday = $00000004;
  olWednesday = $00000008;
  olThursday = $00000010;
  olFriday = $00000020;
  olSaturday = $00000040;

// Constants for enum OlDefaultFolders
type
  OlDefaultFolders = TOleEnum;
const
  olFolderDeletedItems = $00000003;
  olFolderOutbox = $00000004;
  olFolderSentMail = $00000005;
  olFolderInbox = $00000006;
  olFolderCalendar = $00000009;
  olFolderContacts = $0000000A;
  olFolderJournal = $0000000B;
  olFolderNotes = $0000000C;
  olFolderTasks = $0000000D;
  olFolderDrafts = $00000010;

// Constants for enum OlDisplayType
type
  OlDisplayType = TOleEnum;
const
  olUser = $00000000;
  olDistList = $00000001;
  olForum = $00000002;
  olAgent = $00000003;
  olOrganization = $00000004;
  olPrivateDistList = $00000005;
  olRemoteUser = $00000006;

// Constants for enum OlEditorType
type
  OlEditorType = TOleEnum;
const
  olEditorText = $00000001;
  olEditorHTML = $00000002;
  olEditorRTF = $00000003;
  olEditorWord = $00000004;

// Constants for enum OlFlagStatus
type
  OlFlagStatus = TOleEnum;
const
  olNoFlag = $00000000;
  olFlagComplete = $00000001;
  olFlagMarked = $00000002;

// Constants for enum OlFolderDisplayMode
type
  OlFolderDisplayMode = TOleEnum;
const
  olFolderDisplayNormal = $00000000;
  olFolderDisplayFolderOnly = $00000001;
  olFolderDisplayNoNavigation = $00000002;

// Constants for enum OlFormRegistry
type
  OlFormRegistry = TOleEnum;
const
  olDefaultRegistry = $00000000;
  olPersonalRegistry = $00000002;
  olFolderRegistry = $00000003;
  olOrganizationRegistry = $00000004;

// Constants for enum OlGender
type
  OlGender = TOleEnum;
const
  olUnspecified = $00000000;
  olFemale = $00000001;
  olMale = $00000002;

// Constants for enum OlImportance
type
  OlImportance = TOleEnum;
const
  olImportanceLow = $00000000;
  olImportanceNormal = $00000001;
  olImportanceHigh = $00000002;

// Constants for enum OlInspectorClose
type
  OlInspectorClose = TOleEnum;
const
  olSave = $00000000;
  olDiscard = $00000001;
  olPromptForSave = $00000002;

// Constants for enum OlItemType
type
  OlItemType = TOleEnum;
const
  olMailItem = $00000000;
  olAppointmentItem = $00000001;
  olContactItem = $00000002;
  olTaskItem = $00000003;
  olJournalItem = $00000004;
  olNoteItem = $00000005;
  olPostItem = $00000006;

// Constants for enum OlJournalRecipientType
type
  OlJournalRecipientType = TOleEnum;
const
  olAssociatedContact = $00000001;

// Constants for enum OlMailingAddress
type
  OlMailingAddress = TOleEnum;
const
  olNone = $00000000;
  olHome = $00000001;
  olBusiness = $00000002;
  olOther = $00000003;

// Constants for enum OlMailRecipientType
type
  OlMailRecipientType = TOleEnum;
const
  olOriginator = $00000000;
  olTo = $00000001;
  olCC = $00000002;
  olBCC = $00000003;

// Constants for enum OlMeetingRecipientType
type
  OlMeetingRecipientType = TOleEnum;
const
  olOrganizer = $00000000;
  olRequired = $00000001;
  olOptional = $00000002;
  olResource = $00000003;

// Constants for enum OlMeetingResponse
type
  OlMeetingResponse = TOleEnum;
const
  olMeetingTentative = $00000002;
  olMeetingAccepted = $00000003;
  olMeetingDeclined = $00000004;

// Constants for enum OlMeetingStatus
type
  OlMeetingStatus = TOleEnum;
const
  olNonMeeting = $00000000;
  olMeeting = $00000001;
  olMeetingReceived = $00000003;
  olMeetingCanceled = $00000005;

// Constants for enum OlNetMeetingType
type
  OlNetMeetingType = TOleEnum;
const
  olNetMeeting = $00000000;
  olChat = $00000001;
  olNetShow = $00000002;

// Constants for enum OlNoteColor
type
  OlNoteColor = TOleEnum;
const
  olBlue = $00000000;
  olGreen = $00000001;
  olPink = $00000002;
  olYellow = $00000003;
  olWhite = $00000004;

// Constants for enum OlObjectClass
type
  OlObjectClass = TOleEnum;
const
  olApplication = $00000000;
  olNamespace = $00000001;
  olFolder = $00000002;
  olRecipient = $00000004;
  olAttachment = $00000005;
  olAddressList = $00000007;
  olAddressEntry = $00000008;
  olFolders = $0000000F;
  olItems = $00000010;
  olRecipients = $00000011;
  olAttachments = $00000012;
  olAddressLists = $00000014;
  olAddressEntries = $00000015;
  olAppointment = $0000001A;
  olMeetingRequest = $00000035;
  olMeetingCancellation = $00000036;
  olMeetingResponseNegative = $00000037;
  olMeetingResponsePositive = $00000038;
  olMeetingResponseTentative = $00000039;
  olRecurrencePattern = $0000001C;
  olExceptions = $0000001D;
  olException = $0000001E;
  olAction = $00000020;
  olActions = $00000021;
  olExplorer = $00000022;
  olInspector = $00000023;
  olPages = $00000024;
  olFormDescription = $00000025;
  olUserProperties = $00000026;
  olUserProperty = $00000027;
  olContact = $00000028;
  olDocument = $00000029;
  olJournal = $0000002A;
  olMail = $0000002B;
  olNote = $0000002C;
  olPost = $0000002D;
  olReport = $0000002E;
  olRemote = $0000002F;
  olTask = $00000030;
  olTaskRequest = $00000031;
  olTaskRequestUpdate = $00000032;
  olTaskRequestAccept = $00000033;
  olTaskRequestDecline = $00000034;

// Constants for enum OlRecurrenceState
type
  OlRecurrenceState = TOleEnum;
const
  olApptNotRecurring = $00000000;
  olApptMaster = $00000001;
  olApptOccurrence = $00000002;
  olApptException = $00000003;

// Constants for enum OlRecurrenceType
type
  OlRecurrenceType = TOleEnum;
const
  olRecursDaily = $00000000;
  olRecursWeekly = $00000001;
  olRecursMonthly = $00000002;
  olRecursMonthNth = $00000003;
  olRecursYearly = $00000005;
  olRecursYearNth = $00000006;

// Constants for enum OlRemoteStatus
type
  OlRemoteStatus = TOleEnum;
const
  olRemoteStatusNone = $00000000;
  olUnMarked = $00000001;
  olMarkedForDownload = $00000002;
  olMarkedForCopy = $00000003;
  olMarkedForDelete = $00000004;

// Constants for enum OlResponseStatus
type
  OlResponseStatus = TOleEnum;
const
  olResponseNone = $00000000;
  olResponseOrganized = $00000001;
  olResponseTentative = $00000002;
  olResponseAccepted = $00000003;
  olResponseDeclined = $00000004;
  olResponseNotResponded = $00000005;

// Constants for enum OlSaveAsType
type
  OlSaveAsType = TOleEnum;
const
  olTXT = $00000000;
  olRTF = $00000001;
  olTemplate = $00000002;
  olMSG = $00000003;
  olDoc = $00000004;
  olHTML = $00000005;
  olVCard = $00000006;
  olVCal = $00000007;

// Constants for enum OlSensitivity
type
  OlSensitivity = TOleEnum;
const
  olNormal = $00000000;
  olPersonal = $00000001;
  olPrivate = $00000002;
  olConfidential = $00000003;

// Constants for enum OlSortOrder
type
  OlSortOrder = TOleEnum;
const
  olSortNone = $00000000;
  olAscending = $00000001;
  olDescending = $00000002;

// Constants for enum OlTaskDelegationState
type
  OlTaskDelegationState = TOleEnum;
const
  olTaskNotDelegated = $00000000;
  olTaskDelegationUnknown = $00000001;
  olTaskDelegationAccepted = $00000002;
  olTaskDelegationDeclined = $00000003;

// Constants for enum OlTaskOwnership
type
  OlTaskOwnership = TOleEnum;
const
  olNewTask = $00000000;
  olDelegatedTask = $00000001;
  olOwnTask = $00000002;

// Constants for enum OlTaskRecipientType
type
  OlTaskRecipientType = TOleEnum;
const
  olUpdate = $00000002;
  olFinalStatus = $00000003;

// Constants for enum OlTaskResponse
type
  OlTaskResponse = TOleEnum;
const
  olTaskSimple = $00000000;
  olTaskAssign = $00000001;
  olTaskAccept = $00000002;
  olTaskDecline = $00000003;

// Constants for enum OlTaskStatus
type
  OlTaskStatus = TOleEnum;
const
  olTaskNotStarted = $00000000;
  olTaskInProgress = $00000001;
  olTaskComplete = $00000002;
  olTaskWaiting = $00000003;
  olTaskDeferred = $00000004;

// Constants for enum OlTrackingStatus
type
  OlTrackingStatus = TOleEnum;
const
  olTrackingNone = $00000000;
  olTrackingDelivered = $00000001;
  olTrackingNotDelivered = $00000002;
  olTrackingNotRead = $00000003;
  olTrackingRecallFailure = $00000004;
  olTrackingRecallSuccess = $00000005;
  olTrackingRead = $00000006;
  olTrackingReplied = $00000007;

// Constants for enum OlUserPropertyType
type
  OlUserPropertyType = TOleEnum;
const
  olText = $00000001;
  olNumber = $00000003;
  olDateTime = $00000005;
  olYesNo = $00000006;
  olDuration = $00000007;
  olKeywords = $0000000B;
  olPercent = $0000000C;
  olCurrency = $0000000E;
  olFormula = $00000012;
  olCombination = $00000013;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                   
// *********************************************************************//
  Action = interface;
  ActionDisp = dispinterface;
  _Application = interface;
  _ApplicationDisp = dispinterface;
  NameSpace = interface;
  NameSpaceDisp = dispinterface;
  Recipient = interface;
  RecipientDisp = dispinterface;
  AddressEntry = interface;
  AddressEntryDisp = dispinterface;
  AddressEntries = interface;
  AddressEntriesDisp = dispinterface;
  Folders = interface;
  FoldersDisp = dispinterface;
  MAPIFolder = interface;
  MAPIFolderDisp = dispinterface;
  Items = interface;
  ItemsDisp = dispinterface;
  Explorer = interface;
  ExplorerDisp = dispinterface;
  AddressLists = interface;
  AddressListsDisp = dispinterface;
  AddressList = interface;
  AddressListDisp = dispinterface;
  Inspector = interface;
  InspectorDisp = dispinterface;
  Actions = interface;
  ActionsDisp = dispinterface;
  _AppointmentItem = interface;
  _AppointmentItemDisp = dispinterface;
  Attachments = interface;
  AttachmentsDisp = dispinterface;
  Attachment = interface;
  AttachmentDisp = dispinterface;
  FormDescription = interface;
  FormDescriptionDisp = dispinterface;
  UserProperties = interface;
  UserPropertiesDisp = dispinterface;
  UserProperty = interface;
  UserPropertyDisp = dispinterface;
  Recipients = interface;
  RecipientsDisp = dispinterface;
  _MailItem = interface;
  _MailItemDisp = dispinterface;
  ItemEvents = interface;
  ItemEventsDisp = dispinterface;
  RecurrencePattern = interface;
  RecurrencePatternDisp = dispinterface;
  Exceptions = interface;
  ExceptionsDisp = dispinterface;
  Exception = interface;
  ExceptionDisp = dispinterface;
  _MeetingItem = interface;
  _MeetingItemDisp = dispinterface;
  _ContactItem = interface;
  _ContactItemDisp = dispinterface;
  _DocumentItem = interface;
  _DocumentItemDisp = dispinterface;
  _JournalItem = interface;
  _JournalItemDisp = dispinterface;
  _NoteItem = interface;
  _NoteItemDisp = dispinterface;
  Pages = interface;
  PagesDisp = dispinterface;
  _PostItem = interface;
  _PostItemDisp = dispinterface;
  _RemoteItem = interface;
  _RemoteItemDisp = dispinterface;
  _ReportItem = interface;
  _ReportItemDisp = dispinterface;
  _TaskItem = interface;
  _TaskItemDisp = dispinterface;
  _TaskRequestAcceptItem = interface;
  _TaskRequestAcceptItemDisp = dispinterface;
  _TaskRequestDeclineItem = interface;
  _TaskRequestDeclineItemDisp = dispinterface;
  _TaskRequestItem = interface;
  _TaskRequestItemDisp = dispinterface;
  _TaskRequestUpdateItem = interface;
  _TaskRequestUpdateItemDisp = dispinterface;
  _IRecipientControl = interface;
  _DRecipientControl = dispinterface;
  _DRecipientControlEvents = dispinterface;
  _IDocSiteControl = interface;
  _DDocSiteControl = dispinterface;
  _DDocSiteControlEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                     
// (NOTE: Here we map each CoClass to its Default Interface)             
// *********************************************************************//
  OutlookApplication = _Application;
  MailItem = _MailItem;
  AppointmentItem = _AppointmentItem;
  MeetingItem = _MeetingItem;
  TaskItem = _TaskItem;
  ContactItem = _ContactItem;
  DocumentItem = _DocumentItem;
  JournalItem = _JournalItem;
  NoteItem = _NoteItem;
  PostItem = _PostItem;
  RemoteItem = _RemoteItem;
  ReportItem = _ReportItem;
  TaskRequestAcceptItem = _TaskRequestAcceptItem;
  TaskRequestDeclineItem = _TaskRequestDeclineItem;
  TaskRequestItem = _TaskRequestItem;
  TaskRequestUpdateItem = _TaskRequestUpdateItem;
  _RecipientControl = _DRecipientControl;
  _DocSiteControl = _DDocSiteControl;


// *********************************************************************//
// Declaration of structures, unions and aliases.                       
// *********************************************************************//
  PUserType1 = ^TGUID; {*}
  PShortint1 = ^Shortint; {*}
  PPShortint1 = ^PShortint1; {*}
  PUserType2 = ^TGUID; {*}


// *********************************************************************//
// Interface: Action
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063043-0000-0000-C000-000000000046}
// *********************************************************************//
  Action = interface(IDispatch)
    [\'{00063043-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_CopyLike: OlActionCopyLike; safecall;
    procedure Set_CopyLike(CopyLike: OlActionCopyLike); safecall;
    function  Get_Enabled: WordBool; safecall;
    procedure Set_Enabled(Enabled: WordBool); safecall;
    function  Get_MessageClass: WideString; safecall;
    procedure Set_MessageClass(const MessageClass: WideString); safecall;
    function  Get_Name: WideString; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    function  Get_Prefix: WideString; safecall;
    procedure Set_Prefix(const Prefix: WideString); safecall;
    function  Get_ReplyStyle: OlActionReplyStyle; safecall;
    procedure Set_ReplyStyle(ReplyStyle: OlActionReplyStyle); safecall;
    function  Get_ResponseStyle: OlActionResponseStyle; safecall;
    procedure Set_ResponseStyle(ResponseStyle: OlActionResponseStyle); safecall;
    function  Get_ShowOn: OlActionShowOn; safecall;
    procedure Set_ShowOn(ShowOn: OlActionShowOn); safecall;
    procedure Delete; safecall;
    function  Execute: IDispatch; safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property CopyLike: OlActionCopyLike read Get_CopyLike write Set_CopyLike;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property MessageClass: WideString read Get_MessageClass write Set_MessageClass;
    property Name: WideString read Get_Name write Set_Name;
    property Prefix: WideString read Get_Prefix write Set_Prefix;
    property ReplyStyle: OlActionReplyStyle read Get_ReplyStyle write Set_ReplyStyle;
    property ResponseStyle: OlActionResponseStyle read Get_ResponseStyle write Set_ResponseStyle;
    property ShowOn: OlActionShowOn read Get_ShowOn write Set_ShowOn;
  end;

// *********************************************************************//
// DispIntf:  ActionDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063043-0000-0000-C000-000000000046}
// *********************************************************************//
  ActionDisp = dispinterface
    [\'{00063043-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property CopyLike: OlActionCopyLike dispid 100;
    property Enabled: WordBool dispid 103;
    property MessageClass: WideString dispid 26;
    property Name: WideString dispid 12289;
    property Prefix: WideString dispid 61;
    property ReplyStyle: OlActionReplyStyle dispid 101;
    property ResponseStyle: OlActionResponseStyle dispid 102;
    property ShowOn: OlActionShowOn dispid 105;
    procedure Delete; dispid 108;
    function  Execute: IDispatch; dispid 106;
  end;

// *********************************************************************//
// Interface: _Application
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063001-0000-0000-C000-000000000046}
// *********************************************************************//
  _Application = interface(IDispatch)
    [\'{00063001-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Assistant: IDispatch; safecall;
    function  Get_Name: WideString; safecall;
    function  Get_Version: WideString; safecall;
    function  ActiveExplorer: Explorer; safecall;
    function  ActiveInspector: Inspector; safecall;
    function  CreateItem(ItemType: OlItemType): IDispatch; safecall;
    function  CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; safecall;
    function  CreateObject(const ObjectName: WideString): IDispatch; safecall;
    function  GetNamespace(const Type_: WideString): NameSpace; safecall;
    procedure Quit; safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Assistant: IDispatch read Get_Assistant;
    property Name: WideString read Get_Name;
    property Version: WideString read Get_Version;
  end;

// *********************************************************************//
// DispIntf:  _ApplicationDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063001-0000-0000-C000-000000000046}
// *********************************************************************//
  _ApplicationDisp = dispinterface
    [\'{00063001-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Assistant: IDispatch readonly dispid 276;
    property Name: WideString readonly dispid 12289;
    property Version: WideString readonly dispid 278;
    function  ActiveExplorer: Explorer; dispid 273;
    function  ActiveInspector: Inspector; dispid 274;
    function  CreateItem(ItemType: OlItemType): IDispatch; dispid 266;
    function  CreateItemFromTemplate(const TemplatePath: WideString; InFolder: OleVariant): IDispatch; dispid 267;
    function  CreateObject(const ObjectName: WideString): IDispatch; dispid 277;
    function  GetNamespace(const Type_: WideString): NameSpace; dispid 272;
    procedure Quit; dispid 275;
  end;

// *********************************************************************//
// Interface: NameSpace
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063002-0000-0000-C000-000000000046}
// *********************************************************************//
  NameSpace = interface(IDispatch)
    [\'{00063002-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_CurrentUser: Recipient; safecall;
    function  Get_Folders: Folders; safecall;
    function  Get_Type_: WideString; safecall;
    function  Get_AddressLists: AddressLists; safecall;
    function  CreateRecipient(const RecipientName: WideString): Recipient; safecall;
    function  GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; safecall;
    function  GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; safecall;
    function  GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; safecall;
    function  GetRecipientFromID(const EntryID: WideString): Recipient; safecall;
    function  GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; safecall;
    procedure Logoff; safecall;
    procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant;
                    NewSession: OleVariant); safecall;
    function  PickFolder: MAPIFolder; safecall;
    procedure RefreshRemoteHeaders; safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property CurrentUser: Recipient read Get_CurrentUser;
    property Folders: Folders read Get_Folders;
    property Type_: WideString read Get_Type_;
    property AddressLists: AddressLists read Get_AddressLists;
  end;

// *********************************************************************//
// DispIntf:  NameSpaceDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063002-0000-0000-C000-000000000046}
// *********************************************************************//
  NameSpaceDisp = dispinterface
    [\'{00063002-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property CurrentUser: Recipient readonly dispid 8449;
    property Folders: Folders readonly dispid 8451;
    property Type_: WideString readonly dispid 8452;
    property AddressLists: AddressLists readonly dispid 8461;
    function  CreateRecipient(const RecipientName: WideString): Recipient; dispid 8458;
    function  GetDefaultFolder(FolderType: OlDefaultFolders): MAPIFolder; dispid 8459;
    function  GetFolderFromID(const EntryIDFolder: WideString; EntryIDStore: OleVariant): MAPIFolder; dispid 8456;
    function  GetItemFromID(const EntryIDItem: WideString; EntryIDStore: OleVariant): IDispatch; dispid 8457;
    function  GetRecipientFromID(const EntryID: WideString): Recipient; dispid 8455;
    function  GetSharedDefaultFolder(const Recipient: Recipient; FolderType: OlDefaultFolders): MAPIFolder; dispid 8460;
    procedure Logoff; dispid 8454;
    procedure Logon(Profile: OleVariant; Password: OleVariant; ShowDialog: OleVariant;
                    NewSession: OleVariant); dispid 8453;
    function  PickFolder: MAPIFolder; dispid 8462;
    procedure RefreshRemoteHeaders; dispid 8471;
  end;

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

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

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

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

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

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

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

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

// *********************************************************************//
// Interface: MAPIFolder
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063006-0000-0000-C000-000000000046}
// *********************************************************************//
  MAPIFolder = interface(IDispatch)
    [\'{00063006-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_DefaultItemType: OlItemType; safecall;
    function  Get_DefaultMessageClass: WideString; safecall;
    function  Get_Description: WideString; safecall;
    procedure Set_Description(const Description: WideString); safecall;
    function  Get_EntryID: WideString; safecall;
    function  Get_Folders: Folders; safecall;
    function  Get_Items: Items; safecall;
    function  Get_Name: WideString; safecall;
    procedure Set_Name(const Name: WideString); safecall;
    function  Get_StoreID: WideString; safecall;
    function  Get_UnReadItemCount: Integer; safecall;
    function  CopyTo(const DestinationFolder: MAPIFolder): MAPIFolder; safecall;
    procedure Delete; safecall;
    procedure Display; safecall;
    function  GetExplorer(DisplayMode: OleVariant): Explorer; safecall;
    procedure MoveTo(const DestinationFolder: MAPIFolder); safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property DefaultItemType: OlItemType read Get_DefaultItemType;
    property DefaultMessageClass: WideString read Get_DefaultMessageClass;
    property Description: WideString read Get_Description write Set_Description;
    property EntryID: WideString read Get_EntryID;
    property Folders: Folders read Get_Folders;
    property Items: Items read Get_Items;
    property Name: WideString read Get_Name write Set_Name;
    property StoreID: WideString read Get_StoreID;
    property UnReadItemCount: Integer read Get_UnReadItemCount;
  end;

// *********************************************************************//
// DispIntf:  MAPIFolderDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063006-0000-0000-C000-000000000046}
// *********************************************************************//
  MAPIFolderDisp = dispinterface
    [\'{00063006-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property DefaultItemType: OlItemType readonly dispid 12550;
    property DefaultMessageClass: WideString readonly dispid 12551;
    property Description: WideString dispid 12292;
    property EntryID: WideString readonly dispid 61470;
    property Folders: Folders readonly dispid 8451;
    property Items: Items readonly dispid 12544;
    property Name: WideString dispid 12289;
    property StoreID: WideString readonly dispid 12552;
    property UnReadItemCount: Integer readonly dispid 13827;
    function  CopyTo(const DestinationFolder: MAPIFolder): MAPIFolder; dispid 61490;
    procedure Delete; dispid 61509;
    procedure Display; dispid 12548;
    function  GetExplorer(DisplayMode: OleVariant): Explorer; dispid 12545;
    procedure MoveTo(const DestinationFolder: MAPIFolder); dispid 61492;
  end;

// *********************************************************************//
// Interface: Items
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063041-0000-0000-C000-000000000046}
// *********************************************************************//
  Items = interface(IDispatch)
    [\'{00063041-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Count: Integer; safecall;
    function  Item(Index: OleVariant): IDispatch; safecall;
    function  Get_RawTable: IUnknown; safecall;
    function  Get_IncludeRecurrences: WordBool; safecall;
    procedure Set_IncludeRecurrences(IncludeRecurrences: WordBool); safecall;
    function  Add(Type_: OleVariant): IDispatch; safecall;
    function  Find(const Filter: WideString): IDispatch; safecall;
    function  FindNext: IDispatch; safecall;
    function  GetFirst: IDispatch; safecall;
    function  GetLast: IDispatch; safecall;
    function  GetNext: IDispatch; safecall;
    function  GetPrevious: IDispatch; safecall;
    procedure Remove(Index: Integer); safecall;
    procedure ResetColumns; safecall;
    function  Restrict(const Filter: WideString): Items; safecall;
    procedure SetColumns(const Columns: WideString); safecall;
    procedure Sort(const Property_: WideString; Descending: OleVariant); safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property RawTable: IUnknown read Get_RawTable;
    property IncludeRecurrences: WordBool read Get_IncludeRecurrences write Set_IncludeRecurrences;
  end;

// *********************************************************************//
// DispIntf:  ItemsDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063041-0000-0000-C000-000000000046}
// *********************************************************************//
  ItemsDisp = dispinterface
    [\'{00063041-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Count: Integer readonly dispid 80;
    function  Item(Index: OleVariant): IDispatch; dispid 81;
    property RawTable: IUnknown readonly dispid 90;
    property IncludeRecurrences: WordBool dispid 206;
    function  Add(Type_: OleVariant): IDispatch; dispid 95;
    function  Find(const Filter: WideString): IDispatch; dispid 98;
    function  FindNext: IDispatch; dispid 99;
    function  GetFirst: IDispatch; dispid 86;
    function  GetLast: IDispatch; dispid 88;
    function  GetNext: IDispatch; dispid 87;
    function  GetPrevious: IDispatch; dispid 89;
    procedure Remove(Index: Integer); dispid 84;
    procedure ResetColumns; dispid 93;
    function  Restrict(const Filter: WideString): Items; dispid 100;
    procedure SetColumns(const Columns: WideString); dispid 92;
    procedure Sort(const Property_: WideString; Descending: OleVariant); dispid 97;
  end;

// *********************************************************************//
// Interface: Explorer
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063003-0000-0000-C000-000000000046}
// *********************************************************************//
  Explorer = interface(IDispatch)
    [\'{00063003-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_CommandBars: IDispatch; safecall;
    function  Get_CurrentFolder: MAPIFolder; safecall;
    procedure Set_CurrentFolder(const CurrentFolder: MAPIFolder); safecall;
    procedure Close; safecall;
    procedure Display; safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property CommandBars: IDispatch read Get_CommandBars;
    property CurrentFolder: MAPIFolder read Get_CurrentFolder write Set_CurrentFolder;
  end;

// *********************************************************************//
// DispIntf:  ExplorerDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063003-0000-0000-C000-000000000046}
// *********************************************************************//
  ExplorerDisp = dispinterface
    [\'{00063003-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property CommandBars: IDispatch readonly dispid 8448;
    property CurrentFolder: MAPIFolder dispid 8449;
    procedure Close; dispid 8451;
    procedure Display; dispid 8452;
  end;

// *********************************************************************//
// Interface: AddressLists
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063048-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressLists = interface(IDispatch)
    [\'{00063048-0000-0000-C000-000000000046}\']
    function  Get_Application: OutlookApplication; safecall;
    function  Get_Class_: OlObjectClass; safecall;
    function  Get_Session: NameSpace; safecall;
    function  Get_Parent: IDispatch; safecall;
    function  Get_Count: Integer; safecall;
    function  Item(Index: OleVariant): AddressList; safecall;
    property Application: OutlookApplication read Get_Application;
    property Class_: OlObjectClass read Get_Class_;
    property Session: NameSpace read Get_Session;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  AddressListsDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00063048-0000-0000-C000-000000000046}
// *********************************************************************//
  AddressListsDisp = dispinterface
    [\'{00063048-0000-0000-C000-000000000046}\']
    property Application: OutlookApplication readonly dispid 61440;
    property Class_: OlObjectClass readonly dispid 61450;
    property Session: NameSpace readonly dispid 61451;
    property Parent: IDispatch readonly dispid 61441;
    property Count: Integer readonly dispid 80;
    function  Item(Index: OleVariant): AddressList; dispid 81;
  end;

// *********************************************************************//
// Interface: AddressList
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {00

Du kan hente en \"hel\" TLB fil her : www.e-lind.dk

/Martin