Outlook save to folder under Drafts - PowerBASIC Peer Support Community

You are not logged in. You can browse in the PowerBASIC Community, but you must click Login (top right) before you can post. If this is your first visit, check out the FAQ or Sign Up.

X

Knuth Konrad replied

11 Dec 2008, 06:09 AM
Originally posted by BOB MECHLER View Post

I think it can be found in the database now if you have a membership.

I tell you a secret: you don't need a membership to access the answers there. Simply disallow cookies from their site and you can read anything there. You just need to scroll beneath the big ad block at the beginning.
Leave a comment:
BOB MECHLER replied

10 Dec 2008, 09:27 PM
I finally put the question on Experts-Exchange and got an answer written in VBa. It works and I think can easily be translated to PB Com. I think it can be found in the database now if you have a membership.

Bob Mechler
Leave a comment:

BOB MECHLER replied

8 Dec 2008, 10:52 AM

oOUTLOOK.INC COM include file

Code:

' ------------------------------------------------------------
' Library Name:      Microsoft Outlook 9.0 Object Library
' Library File:      C:\PROGRA~1\MICROS~2\Office\msoutl9.olb
' ------------------------------------------------------------
' Version Info:
' -------------
' Company Name:      Microsoft Corporation
' File Description:  Microsoft Outlook Object Library
' File Version:      9.0.2702
' Internal Name:     MSOutl9
' Legal Copyright:   Copyright© Microsoft Corporation 1983-1999.  All rights reserved.
' Legal Trademarks:  Microsoft(R) and Outlook(R) are registered trademarks of Microsoft Corporation.
' Original Filename: MSOutl9.olb
' Product Name:      Microsoft Outlook
' Product Version:   9.0.2702
' Special Build:     Built on 03/02/99 at 11:53:19 by offout4
' ------------------------------------------------------------
' ProgID:            Outlook.Application.9
' Interface Name:    OutlookApplication
'
' Interface Prefix:  Outlook
' ------------------------------------------------------------

$PROGID_OutlookApplication9 = "Outlook.Application.9"
$PROGID_OutLookApplication = "Outlook.Application"

'Enumeration OlActionCopyLike
MACRO enumOutlookOlActionCopyLike = LONG
%olReply                                                = &H00000000
%olReplyAll                                             = &H00000001
%olForward                                              = &H00000002
%olReplyFolder                                          = &H00000003
%olRespond                                              = &H00000004

'Enumeration OlActionReplyStyle
MACRO enumOutlookOlActionReplyStyle = LONG
%olOmitOriginalText                                     = &H00000000
%olEmbedOriginalItem                                    = &H00000001
%olIncludeOriginalText                                  = &H00000002
%olIndentOriginalText                                   = &H00000003
%olLinkOriginalItem                                     = &H00000004
%olUserPreference                                       = &H00000005
%olReplyTickOriginalText                                = &H000003E8

'Enumeration OlActionResponseStyle
MACRO enumOutlookOlActionResponseStyle = LONG
%olOpen                                                 = &H00000000
%olSend                                                 = &H00000001
%olPrompt                                               = &H00000002

'Enumeration OlActionShowOn
MACRO enumOutlookOlActionShowOn = LONG
%olDontShow                                             = &H00000000
%olMenu                                                 = &H00000001
%olMenuAndToolbar                                       = &H00000002

'Enumeration OlAttachmentType
MACRO enumOutlookOlAttachmentType = LONG
%olByValue                                              = &H00000001
%olByReference                                          = &H00000004
%olEmbeddeditem                                         = &H00000005
%olOLE                                                  = &H00000006

'Enumeration OlBusyStatus
MACRO enumOutlookOlBusyStatus = LONG
%olFree                                                 = &H00000000
%olTentative                                            = &H00000001
%olBusy                                                 = &H00000002
%olOutOfOffice                                          = &H00000003

'Enumeration OlDaysOfWeek
MACRO enumOutlookOlDaysOfWeek = LONG
%olSunday                                               = &H00000001
%olMonday                                               = &H00000002
%olTuesday                                              = &H00000004
%olWednesday                                            = &H00000008
%olThursday                                             = &H00000010
%olFriday                                               = &H00000020
%olSaturday                                             = &H00000040

'Enumeration OlDefaultFolders
MACRO enumOutlookOlDefaultFolders = LONG
%olFolderDeletedItems                                   = &H00000003
%olFolderOutbox                                         = &H00000004
%olFolderSentMail                                       = &H00000005
%olFolderInbox                                          = &H00000006
%olFolderCalendar                                       = &H00000009
%olFolderContacts                                       = &H0000000A
%olFolderJournal                                        = &H0000000B
%olFolderNotes                                          = &H0000000C
%olFolderTasks                                          = &H0000000D
%olFolderDrafts                                         = &H00000010

'Enumeration OlDisplayType
MACRO enumOutlookOlDisplayType = LONG
%olUser                                                 = &H00000000
%olDistList                                             = &H00000001
%olForum                                                = &H00000002
%olAgent                                                = &H00000003
%olOrganization                                         = &H00000004
%olPrivateDistList                                      = &H00000005
%olRemoteUser                                           = &H00000006

'Enumeration OlEditorType
MACRO enumOutlookOlEditorType = LONG
%olEditorText                                           = &H00000001
%olEditorHTML                                           = &H00000002
%olEditorRTF                                            = &H00000003
%olEditorWord                                           = &H00000004

'Enumeration OlFlagStatus
MACRO enumOutlookOlFlagStatus = LONG
%olNoFlag                                               = &H00000000
%olFlagComplete                                         = &H00000001
%olFlagMarked                                           = &H00000002

'Enumeration OlFolderDisplayMode
MACRO enumOutlookOlFolderDisplayMode = LONG
%olFolderDisplayNormal                                  = &H00000000
%olFolderDisplayFolderOnly                              = &H00000001
%olFolderDisplayNoNavigation                            = &H00000002

'Enumeration OlFormRegistry
MACRO enumOutlookOlFormRegistry = LONG
%olDefaultRegistry                                      = &H00000000
%olPersonalRegistry                                     = &H00000002
%olFolderRegistry                                       = &H00000003
%olOrganizationRegistry                                 = &H00000004

'Enumeration OlGender
MACRO enumOutlookOlGender = LONG
%olUnspecified                                          = &H00000000
%olFemale                                               = &H00000001
%olMale                                                 = &H00000002

'Enumeration OlImportance
MACRO enumOutlookOlImportance = LONG
%olImportanceLow                                        = &H00000000
%olImportanceNormal                                     = &H00000001
%olImportanceHigh                                       = &H00000002

'Enumeration OlInspectorClose
MACRO enumOutlookOlInspectorClose = LONG
%olSave                                                 = &H00000000
%olDiscard                                              = &H00000001
%olPromptForSave                                        = &H00000002

'Enumeration OlItemType
MACRO enumOutlookOlItemType = LONG
%olMailItem                                             = &H00000000
%olAppointmentItem                                      = &H00000001
%olContactItem                                          = &H00000002
%olTaskItem                                             = &H00000003
%olJournalItem                                          = &H00000004
%olNoteItem                                             = &H00000005
%olPostItem                                             = &H00000006
%olDistributionListItem                                 = &H00000007

'Enumeration OlJournalRecipientType
MACRO enumOutlookOlJournalRecipientType = LONG
%olAssociatedContact                                    = &H00000001

'Enumeration OlMailingAddress
MACRO enumOutlookOlMailingAddress = LONG
%olNone                                                 = &H00000000
%olHome                                                 = &H00000001
%olBusiness                                             = &H00000002
%olOther                                                = &H00000003

'Enumeration OlMailRecipientType
MACRO enumOutlookOlMailRecipientType = LONG
%olOriginator                                           = &H00000000
%olTo                                                   = &H00000001
%olCC                                                   = &H00000002
%olBCC                                                  = &H00000003

'Enumeration OlMeetingRecipientType
MACRO enumOutlookOlMeetingRecipientType = LONG
%olOrganizer                                            = &H00000000
%olRequired                                             = &H00000001
%olOptional                                             = &H00000002
%olResource                                             = &H00000003

'Enumeration OlMeetingResponse
MACRO enumOutlookOlMeetingResponse = LONG
%olMeetingTentative                                     = &H00000002
%olMeetingAccepted                                      = &H00000003
%olMeetingDeclined                                      = &H00000004

'Enumeration OlMeetingStatus
MACRO enumOutlookOlMeetingStatus = LONG
%olNonMeeting                                           = &H00000000
%olMeeting                                              = &H00000001
%olMeetingReceived                                      = &H00000003
%olMeetingCanceled                                      = &H00000005

'Enumeration OlNetMeetingType
MACRO enumOutlookOlNetMeetingType = LONG
%olNetMeeting                                           = &H00000000
%olNetShow                                              = &H00000001
%olChat                                                 = &H00000002

'Enumeration OlNoteColor
MACRO enumOutlookOlNoteColor = LONG
%olBlue                                                 = &H00000000
%olGreen                                                = &H00000001
%olPink                                                 = &H00000002
%olYellow                                               = &H00000003
%olWhite                                                = &H00000004

'Enumeration OlObjectClass
MACRO enumOutlookOlObjectClass = LONG
%olApplication                                          = &H00000000
%olNamespace                                            = &H00000001
%olFolder                                               = &H00000002
%olRecipient                                            = &H00000004
%olAttachment                                           = &H00000005
%olAddressList                                          = &H00000007
%olAddressEntry                                         = &H00000008
%olFolders                                              = &H0000000F
%olItems                                                = &H00000010
%olRecipients                                           = &H00000011
%olAttachments                                          = &H00000012
%olAddressLists                                         = &H00000014
%olAddressEntries                                       = &H00000015
%olAppointment                                          = &H0000001A
%olMeetingRequest                                       = &H00000035
%olMeetingCancellation                                  = &H00000036
%olMeetingResponseNegative                              = &H00000037
%olMeetingResponsePositive                              = &H00000038
%olMeetingResponseTentative                             = &H00000039
%olRecurrencePattern                                    = &H0000001C
%olExceptions                                           = &H0000001D
%olException                                            = &H0000001E
%olAction                                               = &H00000020
%olActions                                              = &H00000021
%olExplorer                                             = &H00000022
%olInspector                                            = &H00000023
%olPages                                                = &H00000024
%olFormDescription                                      = &H00000025
%olUserProperties                                       = &H00000026
%olUserProperty                                         = &H00000027
%olContact                                              = &H00000028
%olDocument                                             = &H00000029
%olJournal                                              = &H0000002A
%olMail                                                 = &H0000002B
%olNote                                                 = &H0000002C
%olPost                                                 = &H0000002D
%olReport                                               = &H0000002E
%olRemote                                               = &H0000002F
%olTask                                                 = &H00000030
%olTaskRequest                                          = &H00000031
%olTaskRequestUpdate                                    = &H00000032
%olTaskRequestAccept                                    = &H00000033
%olTaskRequestDecline                                   = &H00000034
%olExplorers                                            = &H0000003C
%olInspectors                                           = &H0000003D
%olPanes                                                = &H0000003E
%olOutlookBarPane                                       = &H0000003F
%olOutlookBarStorage                                    = &H00000040
%olOutlookBarGroups                                     = &H00000041
%olOutlookBarGroup                                      = &H00000042
%olOutlookBarShortcuts                                  = &H00000043
%olOutlookBarShortcut                                   = &H00000044
%olDistributionList                                     = &H00000045
%olPropertyPageSite                                     = &H00000046
%olPropertyPages                                        = &H00000047
%olSyncObject                                           = &H00000048
%olSyncObjects                                          = &H00000049
%olSelection                                            = &H0000004A
%olLink                                                 = &H0000004B
%olLinks                                                = &H0000004C

'Enumeration OlOutlookBarViewType
MACRO enumOutlookOlOutlookBarViewType = LONG
%olLargeIcon                                            = &H00000000
%olSmallIcon                                            = &H00000001

'Enumeration OlPane
MACRO enumOutlookOlPane = LONG
%olOutlookBar                                           = &H00000001
%olFolderList                                           = &H00000002
%olPreview                                              = &H00000003

'Enumeration OlRecurrenceState
MACRO enumOutlookOlRecurrenceState = LONG
%olApptNotRecurring                                     = &H00000000
%olApptMaster                                           = &H00000001
%olApptOccurrence                                       = &H00000002
%olApptException                                        = &H00000003

'Enumeration OlRecurrenceType
MACRO enumOutlookOlRecurrenceType = LONG
%olRecursDaily                                          = &H00000000
%olRecursWeekly                                         = &H00000001
%olRecursMonthly                                        = &H00000002
%olRecursMonthNth                                       = &H00000003
%olRecursYearly                                         = &H00000005
%olRecursYearNth                                        = &H00000006

'Enumeration OlRemoteStatus
MACRO enumOutlookOlRemoteStatus = LONG
%olRemoteStatusNone                                     = &H00000000
%olUnMarked                                             = &H00000001
%olMarkedForDownload                                    = &H00000002
%olMarkedForCopy                                        = &H00000003
%olMarkedForDelete                                      = &H00000004

'Enumeration OlResponseStatus
MACRO enumOutlookOlResponseStatus = LONG
%olResponseNone                                         = &H00000000
%olResponseOrganized                                    = &H00000001
%olResponseTentative                                    = &H00000002
%olResponseAccepted                                     = &H00000003
%olResponseDeclined                                     = &H00000004
%olResponseNotResponded                                 = &H00000005

'Enumeration OlSaveAsType
MACRO enumOutlookOlSaveAsType = LONG
%olTXT                                                  = &H00000000
%olRTF                                                  = &H00000001
%olTemplate                                             = &H00000002
%olMSG                                                  = &H00000003
%olDoc                                                  = &H00000004
%olHTML                                                 = &H00000005
%olVCard                                                = &H00000006
%olVCal                                                 = &H00000007

'Enumeration OlSensitivity
MACRO enumOutlookOlSensitivity = LONG
%olNormal                                               = &H00000000
%olPersonal                                             = &H00000001
%olPrivate                                              = &H00000002
%olConfidential                                         = &H00000003

'Enumeration OlSortOrder
MACRO enumOutlookOlSortOrder = LONG
%olSortNone                                             = &H00000000
%olAscending                                            = &H00000001
%olDescending                                           = &H00000002

'Enumeration OlSyncState
MACRO enumOutlookOlSyncState = LONG
%olSyncStopped                                          = &H00000000
%olSyncStarted                                          = &H00000001

'Enumeration OlTaskDelegationState
MACRO enumOutlookOlTaskDelegationState = LONG
%olTaskNotDelegated                                     = &H00000000
%olTaskDelegationUnknown                                = &H00000001
%olTaskDelegationAccepted                               = &H00000002
%olTaskDelegationDeclined                               = &H00000003

'Enumeration OlTaskOwnership
MACRO enumOutlookOlTaskOwnership = LONG
%olNewTask                                              = &H00000000
%olDelegatedTask                                        = &H00000001
%olOwnTask                                              = &H00000002

'Enumeration OlTaskRecipientType
MACRO enumOutlookOlTaskRecipientType = LONG
%olUpdate                                               = &H00000002
%olFinalStatus                                          = &H00000003

'Enumeration OlTaskResponse
MACRO enumOutlookOlTaskResponse = LONG
%olTaskSimple                                           = &H00000000
%olTaskAssign                                           = &H00000001
%olTaskAccept                                           = &H00000002
%olTaskDecline                                          = &H00000003

'Enumeration OlTaskStatus
MACRO enumOutlookOlTaskStatus = LONG
%olTaskNotStarted                                       = &H00000000
%olTaskInProgress                                       = &H00000001
%olTaskComplete                                         = &H00000002
%olTaskWaiting                                          = &H00000003
%olTaskDeferred                                         = &H00000004

'Enumeration OlTrackingStatus
MACRO enumOutlookOlTrackingStatus = LONG
%olTrackingNone                                         = &H00000000
%olTrackingDelivered                                    = &H00000001
%olTrackingNotDelivered                                 = &H00000002
%olTrackingNotRead                                      = &H00000003
%olTrackingRecallFailure                                = &H00000004
%olTrackingRecallSuccess                                = &H00000005
%olTrackingRead                                         = &H00000006
%olTrackingReplied                                      = &H00000007

'Enumeration OlUserPropertyType
MACRO enumOutlookOlUserPropertyType = LONG
%olText                                                 = &H00000001
%olNumber                                               = &H00000003
%olDateTime                                             = &H00000005
%olYesNo                                                = &H00000006
%olDuration                                             = &H00000007
%olKeywords                                             = &H0000000B
%olPercent                                              = &H0000000C
%olCurrency                                             = &H0000000E
%olFormula                                              = &H00000012
%olCombination                                          = &H00000013

'Enumeration OlWindowState
MACRO enumOutlookOlWindowState = LONG
%olMaximized                                            = &H00000000
%olMinimized                                            = &H00000001
%olNormalWindow                                         = &H00000002


INTERFACE DISPATCH OutlookApplication
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Assistant<&H00000114>() AS OutlookAssistant
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER GET Version<&H00000116>() AS STRING
    MEMBER CALL ActiveExplorer<&H00000111>() AS OutlookExplorer
    MEMBER CALL ActiveInspector<&H00000112>() AS OutlookInspector
    MEMBER CALL CreateItem<&H0000010A>(IN ItemType AS enumOutlookOlItemType<&H00000000>) AS VARIANT
    MEMBER CALL CreateItemFromTemplate<&H0000010B>(IN TemplatePath AS STRING<&H00000000>, OPTIONAL IN InFolder AS VARIANT<&H00000001>) AS VARIANT
    MEMBER CALL CreateObject<&H00000115>(IN ObjectName AS STRING<&H00000000>) AS VARIANT
    MEMBER CALL GetNamespace<&H00000110>(IN TYPE AS STRING<&H00000000>) AS OutlookNameSpace
    MEMBER CALL Quit<&H00000113>()
    MEMBER GET COMAddIns<&H00000118>() AS OutlookCOMAddIns
    MEMBER GET Explorers<&H00000119>() AS OutlookExplorers
    MEMBER GET Inspectors<&H0000011A>() AS OutlookInspectors
    MEMBER GET LanguageSettings<&H0000011B>() AS OutlookLanguageSettings
    MEMBER GET ProductCode<&H0000011C>() AS STRING
    MEMBER GET AnswerWizard<&H0000011D>() AS OutlookAnswerWizard
    MEMBER GET FeatureInstall<&H0000011E>() AS enumOutlookMsoFeatureInstall
    MEMBER LET FeatureInstall<&H0000011E>()   'Parameter Type As enumOutlookMsoFeatureInstall
    MEMBER CALL ActiveWindow<&H0000011F>() AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookAction
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET CopyLike<&H00000064>() AS enumOutlookOlActionCopyLike
    MEMBER LET CopyLike<&H00000064>()   'Parameter Type As enumOutlookOlActionCopyLike
    MEMBER GET Enabled<&H00000067>() AS LONG
    MEMBER LET Enabled<&H00000067>()   'Parameter Type As Long
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER LET NAME<&H00003001>()   'Parameter Type As String
    MEMBER GET Prefix<&H0000003D>() AS STRING
    MEMBER LET Prefix<&H0000003D>()   'Parameter Type As String
    MEMBER GET ReplyStyle<&H00000065>() AS enumOutlookOlActionReplyStyle
    MEMBER LET ReplyStyle<&H00000065>()   'Parameter Type As enumOutlookOlActionReplyStyle
    MEMBER GET ResponseStyle<&H00000066>() AS enumOutlookOlActionResponseStyle
    MEMBER LET ResponseStyle<&H00000066>()   'Parameter Type As enumOutlookOlActionResponseStyle
    MEMBER GET ShowOn<&H00000069>() AS enumOutlookOlActionShowOn
    MEMBER LET ShowOn<&H00000069>()   'Parameter Type As enumOutlookOlActionShowOn
    MEMBER CALL DELETE<&H0000006C>()
    MEMBER CALL Execute<&H0000006A>() AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookActions
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookAction
    MEMBER CALL ADD<&H00000064>() AS OutlookAction
    MEMBER CALL Remove<&H00000052>(IN Index AS LONG<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookAddressEntries
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookAddressEntry
    MEMBER GET RawTable<&H0000005A>() AS VARIANT
    MEMBER CALL ADD<&H0000005F>(IN TYPE AS STRING<&H00000000>, OPTIONAL IN NAME AS VARIANT<&H00000001>, OPTIONAL IN Address AS VARIANT<&H00000002>) AS OutlookAddressEntry
    MEMBER CALL GetFirst<&H00000056>() AS OutlookAddressEntry
    MEMBER CALL GetLast<&H00000058>() AS OutlookAddressEntry
    MEMBER CALL GetNext<&H00000057>() AS OutlookAddressEntry
    MEMBER CALL GetPrevious<&H00000059>() AS OutlookAddressEntry
    MEMBER CALL SORT<&H00000061>(OPTIONAL IN Property AS VARIANT<&H00000000>, OPTIONAL IN Order AS VARIANT<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookAddressEntry
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Address<&H00003003>() AS STRING
    MEMBER LET Address<&H00003003>()   'Parameter Type As String
    MEMBER GET DisplayType<&H00003900>() AS enumOutlookOlDisplayType
    MEMBER GET ID<&H0000F01E>() AS STRING
    MEMBER GET Manager<&H00000303>() AS OutlookAddressEntry
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER LET MAPIOBJECT<&H0000F100>()   'Parameter Type As Variant
    MEMBER GET Members<&H00000304>() AS OutlookAddressEntries
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER LET NAME<&H00003001>()   'Parameter Type As String
    MEMBER GET TYPE<&H00003002>() AS STRING
    MEMBER LET TYPE<&H00003002>()   'Parameter Type As String
    MEMBER CALL DELETE<&H00000302>()
    MEMBER CALL Details<&H00000301>(OPTIONAL IN HWnd AS VARIANT<&H00000000>)
    MEMBER CALL GetFreeBusy<&H00000306>(IN Start AS DOUBLE<&H00000000>, IN MinPerChar AS LONG<&H00000001>, OPTIONAL IN CompleteFormat AS VARIANT<&H00000002>) AS STRING
    MEMBER CALL Update<&H00000300>(OPTIONAL IN MakePermanent AS VARIANT<&H00000000>, OPTIONAL IN Refresh AS VARIANT<&H00000001>)
    MEMBER CALL UpdateFreeBusy<&H00000307>()
END INTERFACE

INTERFACE DISPATCH OutlookAddressList
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET AddressEntries<&H00000100>() AS OutlookAddressEntries
    MEMBER GET ID<&H0000F01E>() AS STRING
    MEMBER GET Index<&H0000005B>() AS LONG
    MEMBER GET IsReadOnly<&H0000F017>() AS LONG
    MEMBER GET NAME<&H00003001>() AS STRING
END INTERFACE

INTERFACE DISPATCH OutlookAddressLists
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookAddressList
END INTERFACE

INTERFACE DISPATCH OutlookApplicationEvents
    MEMBER CALL ItemSend<&H0000F002>(IN Item AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL NewMail<&H0000F003>()
    MEMBER CALL Reminder<&H0000F004>(IN Item AS VARIANT<&H00000000>)
    MEMBER CALL OptionsPagesAdd<&H0000F005>(IN Pages AS OutlookPropertyPages<&H00000000>)
    MEMBER CALL Startup<&H0000F006>()
    MEMBER CALL Quit<&H0000F007>()
END INTERFACE

INTERFACE DISPATCH OutlookAppointmentItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET AllDayEvent<&H00008215>() AS LONG
    MEMBER LET AllDayEvent<&H00008215>()   'Parameter Type As Long
    MEMBER GET BusyStatus<&H00008205>() AS enumOutlookOlBusyStatus
    MEMBER LET BusyStatus<&H00008205>()   'Parameter Type As enumOutlookOlBusyStatus
    MEMBER GET Duration<&H00008213>() AS LONG
    MEMBER LET Duration<&H00008213>()   'Parameter Type As Long
    MEMBER GET END<&H0000820E>() AS DOUBLE
    MEMBER LET END<&H0000820E>()   'Parameter Type As Double
    MEMBER GET IsOnlineMeeting<&H00008240>() AS LONG
    MEMBER LET IsOnlineMeeting<&H00008240>()   'Parameter Type As Long
    MEMBER GET IsRecurring<&H00008223>() AS LONG
    MEMBER GET Location<&H00008208>() AS STRING
    MEMBER LET Location<&H00008208>()   'Parameter Type As String
    MEMBER GET MeetingStatus<&H00008217>() AS enumOutlookOlMeetingStatus
    MEMBER LET MeetingStatus<&H00008217>()   'Parameter Type As enumOutlookOlMeetingStatus
    MEMBER GET NetMeetingAutoStart<&H00008244>() AS LONG
    MEMBER LET NetMeetingAutoStart<&H00008244>()   'Parameter Type As Long
    MEMBER GET NetMeetingOrganizerAlias<&H00008243>() AS STRING
    MEMBER LET NetMeetingOrganizerAlias<&H00008243>()   'Parameter Type As String
    MEMBER GET NetMeetingServer<&H00008242>() AS STRING
    MEMBER LET NetMeetingServer<&H00008242>()   'Parameter Type As String
    MEMBER GET NetMeetingType<&H00008241>() AS enumOutlookOlNetMeetingType
    MEMBER LET NetMeetingType<&H00008241>()   'Parameter Type As enumOutlookOlNetMeetingType
    MEMBER GET OptionalAttendees<&H00000E03>() AS STRING
    MEMBER LET OptionalAttendees<&H00000E03>()   'Parameter Type As String
    MEMBER GET Organizer<&H00000042>() AS STRING
    MEMBER GET Recipients<&H0000F814>() AS OutlookRecipients
    MEMBER GET RecurrenceState<&H0000F545>() AS enumOutlookOlRecurrenceState
    MEMBER GET ReminderMinutesBeforeStart<&H00008501>() AS LONG
    MEMBER LET ReminderMinutesBeforeStart<&H00008501>()   'Parameter Type As Long
    MEMBER GET ReminderOverrideDefault<&H0000851C>() AS LONG
    MEMBER LET ReminderOverrideDefault<&H0000851C>()   'Parameter Type As Long
    MEMBER GET ReminderPlaySound<&H0000851E>() AS LONG
    MEMBER LET ReminderPlaySound<&H0000851E>()   'Parameter Type As Long
    MEMBER GET ReminderSet<&H00008503>() AS LONG
    MEMBER LET ReminderSet<&H00008503>()   'Parameter Type As Long
    MEMBER GET ReminderSoundFile<&H0000851F>() AS STRING
    MEMBER LET ReminderSoundFile<&H0000851F>()   'Parameter Type As String
    MEMBER GET ReplyTime<&H00008220>() AS DOUBLE
    MEMBER LET ReplyTime<&H00008220>()   'Parameter Type As Double
    MEMBER GET RequiredAttendees<&H00000E04>() AS STRING
    MEMBER LET RequiredAttendees<&H00000E04>()   'Parameter Type As String
    MEMBER GET Resources<&H00000E02>() AS STRING
    MEMBER LET Resources<&H00000E02>()   'Parameter Type As String
    MEMBER GET ResponseRequested<&H00000063>() AS LONG
    MEMBER LET ResponseRequested<&H00000063>()   'Parameter Type As Long
    MEMBER GET ResponseStatus<&H00008218>() AS enumOutlookOlResponseStatus
    MEMBER GET Start<&H0000820D>() AS DOUBLE
    MEMBER LET Start<&H0000820D>()   'Parameter Type As Double
    MEMBER CALL ClearRecurrencePattern<&H0000F0A5>()
    MEMBER CALL ForwardAsVcal<&H0000F547>() AS OutlookMailItem
    MEMBER CALL GetRecurrencePattern<&H0000F0A4>() AS OutlookRecurrencePattern
    MEMBER CALL Respond<&H0000F502>(IN Response AS enumOutlookOlMeetingResponse<&H00000000>, OPTIONAL IN fNoUI AS VARIANT<&H00000001>, OPTIONAL IN fAdditionalTextDialog AS VARIANT<&H00000002>) AS OutlookMeetingItem
    MEMBER CALL SEND<&H0000F075>()
    MEMBER GET NetMeetingDocPathName<&H00008247>() AS STRING
    MEMBER LET NetMeetingDocPathName<&H00008247>()   'Parameter Type As String
    MEMBER GET NetShowURL<&H00008248>() AS STRING
    MEMBER LET NetShowURL<&H00008248>()   'Parameter Type As String
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
    MEMBER GET ConferenceServerAllowExternal<&H00008246>() AS LONG
    MEMBER LET ConferenceServerAllowExternal<&H00008246>()   'Parameter Type As Long
    MEMBER GET ConferenceServerPassword<&H00008249>() AS STRING
    MEMBER LET ConferenceServerPassword<&H00008249>()   'Parameter Type As String
END INTERFACE

INTERFACE DISPATCH OutlookAttachment
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H00000071>() AS VARIANT
    MEMBER GET DisplayName<&H00003001>() AS STRING
    MEMBER LET DisplayName<&H00003001>()   'Parameter Type As String
    MEMBER GET FileName<&H00003704>() AS STRING
    MEMBER GET Index<&H0000005B>() AS LONG
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET PathName<&H00003708>() AS STRING
    MEMBER GET Position<&H00000072>() AS LONG
    MEMBER LET Position<&H00000072>()   'Parameter Type As Long
    MEMBER GET TYPE<&H00003705>() AS enumOutlookOlAttachmentType
    MEMBER CALL DELETE<&H00000069>()
    MEMBER CALL SaveAsFile<&H00000068>(IN Path AS STRING<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookAttachments
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookAttachment
    MEMBER CALL ADD<&H00000065>(IN Source AS VARIANT<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>, OPTIONAL IN Position AS VARIANT<&H00000002>, OPTIONAL IN DisplayName AS VARIANT<&H00000003>) AS OutlookAttachment
    MEMBER CALL Remove<&H00000054>(IN Index AS LONG<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookContactItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET Account<&H00003A00>() AS STRING
    MEMBER LET Account<&H00003A00>()   'Parameter Type As String
    MEMBER GET Anniversary<&H00003A41>() AS DOUBLE
    MEMBER LET Anniversary<&H00003A41>()   'Parameter Type As Double
    MEMBER GET AssistantName<&H00003A30>() AS STRING
    MEMBER LET AssistantName<&H00003A30>()   'Parameter Type As String
    MEMBER GET AssistantTelephoneNumber<&H00003A2E>() AS STRING
    MEMBER LET AssistantTelephoneNumber<&H00003A2E>()   'Parameter Type As String
    MEMBER GET Birthday<&H00003A42>() AS DOUBLE
    MEMBER LET Birthday<&H00003A42>()   'Parameter Type As Double
    MEMBER GET Business2TelephoneNumber<&H00003A1B>() AS STRING
    MEMBER LET Business2TelephoneNumber<&H00003A1B>()   'Parameter Type As String
    MEMBER GET BusinessAddress<&H0000801B>() AS STRING
    MEMBER LET BusinessAddress<&H0000801B>()   'Parameter Type As String
    MEMBER GET BusinessAddressCity<&H00008046>() AS STRING
    MEMBER LET BusinessAddressCity<&H00008046>()   'Parameter Type As String
    MEMBER GET BusinessAddressCountry<&H00008049>() AS STRING
    MEMBER LET BusinessAddressCountry<&H00008049>()   'Parameter Type As String
    MEMBER GET BusinessAddressPostalCode<&H00008048>() AS STRING
    MEMBER LET BusinessAddressPostalCode<&H00008048>()   'Parameter Type As String
    MEMBER GET BusinessAddressPostOfficeBox<&H0000804A>() AS STRING
    MEMBER LET BusinessAddressPostOfficeBox<&H0000804A>()   'Parameter Type As String
    MEMBER GET BusinessAddressState<&H00008047>() AS STRING
    MEMBER LET BusinessAddressState<&H00008047>()   'Parameter Type As String
    MEMBER GET BusinessAddressStreet<&H00008045>() AS STRING
    MEMBER LET BusinessAddressStreet<&H00008045>()   'Parameter Type As String
    MEMBER GET BusinessFaxNumber<&H00003A24>() AS STRING
    MEMBER LET BusinessFaxNumber<&H00003A24>()   'Parameter Type As String
    MEMBER GET BusinessHomePage<&H00003A51>() AS STRING
    MEMBER LET BusinessHomePage<&H00003A51>()   'Parameter Type As String
    MEMBER GET BusinessTelephoneNumber<&H00003A08>() AS STRING
    MEMBER LET BusinessTelephoneNumber<&H00003A08>()   'Parameter Type As String
    MEMBER GET CallbackTelephoneNumber<&H00003A02>() AS STRING
    MEMBER LET CallbackTelephoneNumber<&H00003A02>()   'Parameter Type As String
    MEMBER GET CarTelephoneNumber<&H00003A1E>() AS STRING
    MEMBER LET CarTelephoneNumber<&H00003A1E>()   'Parameter Type As String
    MEMBER GET Children<&H0000800C>() AS STRING
    MEMBER LET Children<&H0000800C>()   'Parameter Type As String
    MEMBER GET CompanyAndFullName<&H00008018>() AS STRING
    MEMBER GET CompanyLastFirstNoSpace<&H00008032>() AS STRING
    MEMBER GET CompanyLastFirstSpaceOnly<&H00008033>() AS STRING
    MEMBER GET CompanyMainTelephoneNumber<&H00003A57>() AS STRING
    MEMBER LET CompanyMainTelephoneNumber<&H00003A57>()   'Parameter Type As String
    MEMBER GET CompanyName<&H00003A16>() AS STRING
    MEMBER LET CompanyName<&H00003A16>()   'Parameter Type As String
    MEMBER GET ComputerNetworkName<&H00003A49>() AS STRING
    MEMBER LET ComputerNetworkName<&H00003A49>()   'Parameter Type As String
    MEMBER GET CustomerID<&H00003A4A>() AS STRING
    MEMBER LET CustomerID<&H00003A4A>()   'Parameter Type As String
    MEMBER GET Department<&H00003A18>() AS STRING
    MEMBER LET Department<&H00003A18>()   'Parameter Type As String
    MEMBER GET Email1Address<&H00008083>() AS STRING
    MEMBER LET Email1Address<&H00008083>()   'Parameter Type As String
    MEMBER GET Email1AddressType<&H00008082>() AS STRING
    MEMBER LET Email1AddressType<&H00008082>()   'Parameter Type As String
    MEMBER GET Email1DisplayName<&H00008080>() AS STRING
    MEMBER GET Email1EntryID<&H00008085>() AS STRING
    MEMBER GET Email2Address<&H00008093>() AS STRING
    MEMBER LET Email2Address<&H00008093>()   'Parameter Type As String
    MEMBER GET Email2AddressType<&H00008092>() AS STRING
    MEMBER LET Email2AddressType<&H00008092>()   'Parameter Type As String
    MEMBER GET Email2DisplayName<&H00008090>() AS STRING
    MEMBER GET Email2EntryID<&H00008095>() AS STRING
    MEMBER GET Email3Address<&H000080A3>() AS STRING
    MEMBER LET Email3Address<&H000080A3>()   'Parameter Type As String
    MEMBER GET Email3AddressType<&H000080A2>() AS STRING
    MEMBER LET Email3AddressType<&H000080A2>()   'Parameter Type As String
    MEMBER GET Email3DisplayName<&H000080A0>() AS STRING
    MEMBER GET Email3EntryID<&H000080A5>() AS STRING
    MEMBER GET FileAs<&H00008005>() AS STRING
    MEMBER LET FileAs<&H00008005>()   'Parameter Type As String
    MEMBER GET FirstName<&H00003A06>() AS STRING
    MEMBER LET FirstName<&H00003A06>()   'Parameter Type As String
    MEMBER GET FTPSite<&H00003A4C>() AS STRING
    MEMBER LET FTPSite<&H00003A4C>()   'Parameter Type As String
    MEMBER GET FullName<&H00003001>() AS STRING
    MEMBER LET FullName<&H00003001>()   'Parameter Type As String
    MEMBER GET FullNameAndCompany<&H00008019>() AS STRING
    MEMBER GET Gender<&H00003A4D>() AS enumOutlookOlGender
    MEMBER LET Gender<&H00003A4D>()   'Parameter Type As enumOutlookOlGender
    MEMBER GET GovernmentIDNumber<&H00003A07>() AS STRING
    MEMBER LET GovernmentIDNumber<&H00003A07>()   'Parameter Type As String
    MEMBER GET Hobby<&H00003A43>() AS STRING
    MEMBER LET Hobby<&H00003A43>()   'Parameter Type As String
    MEMBER GET Home2TelephoneNumber<&H00003A2F>() AS STRING
    MEMBER LET Home2TelephoneNumber<&H00003A2F>()   'Parameter Type As String
    MEMBER GET HomeAddress<&H0000801A>() AS STRING
    MEMBER LET HomeAddress<&H0000801A>()   'Parameter Type As String
    MEMBER GET HomeAddressCity<&H00003A59>() AS STRING
    MEMBER LET HomeAddressCity<&H00003A59>()   'Parameter Type As String
    MEMBER GET HomeAddressCountry<&H00003A5A>() AS STRING
    MEMBER LET HomeAddressCountry<&H00003A5A>()   'Parameter Type As String
    MEMBER GET HomeAddressPostalCode<&H00003A5B>() AS STRING
    MEMBER LET HomeAddressPostalCode<&H00003A5B>()   'Parameter Type As String
    MEMBER GET HomeAddressPostOfficeBox<&H00003A5E>() AS STRING
    MEMBER LET HomeAddressPostOfficeBox<&H00003A5E>()   'Parameter Type As String
    MEMBER GET HomeAddressState<&H00003A5C>() AS STRING
    MEMBER LET HomeAddressState<&H00003A5C>()   'Parameter Type As String
    MEMBER GET HomeAddressStreet<&H00003A5D>() AS STRING
    MEMBER LET HomeAddressStreet<&H00003A5D>()   'Parameter Type As String
    MEMBER GET HomeFaxNumber<&H00003A25>() AS STRING
    MEMBER LET HomeFaxNumber<&H00003A25>()   'Parameter Type As String
    MEMBER GET HomeTelephoneNumber<&H00003A09>() AS STRING
    MEMBER LET HomeTelephoneNumber<&H00003A09>()   'Parameter Type As String
    MEMBER GET Initials<&H00003A0A>() AS STRING
    MEMBER LET Initials<&H00003A0A>()   'Parameter Type As String
    MEMBER GET InternetFreeBusyAddress<&H000080D8>() AS STRING
    MEMBER LET InternetFreeBusyAddress<&H000080D8>()   'Parameter Type As String
    MEMBER GET ISDNNumber<&H00003A2D>() AS STRING
    MEMBER LET ISDNNumber<&H00003A2D>()   'Parameter Type As String
    MEMBER GET JobTitle<&H00003A17>() AS STRING
    MEMBER LET JobTitle<&H00003A17>()   'Parameter Type As String
    MEMBER GET Journal<&H00008025>() AS LONG
    MEMBER LET Journal<&H00008025>()   'Parameter Type As Long
    MEMBER GET Language<&H00003A0C>() AS STRING
    MEMBER LET Language<&H00003A0C>()   'Parameter Type As String
    MEMBER GET LastFirstAndSuffix<&H00008036>() AS STRING
    MEMBER GET LastFirstNoSpace<&H00008030>() AS STRING
    MEMBER GET LastFirstNoSpaceCompany<&H00008034>() AS STRING
    MEMBER GET LastFirstSpaceOnly<&H00008031>() AS STRING
    MEMBER GET LastFirstSpaceOnlyCompany<&H00008035>() AS STRING
    MEMBER GET LastName<&H00003A11>() AS STRING
    MEMBER LET LastName<&H00003A11>()   'Parameter Type As String
    MEMBER GET LastNameAndFirstName<&H00008017>() AS STRING
    MEMBER GET MailingAddress<&H00003A15>() AS STRING
    MEMBER LET MailingAddress<&H00003A15>()   'Parameter Type As String
    MEMBER GET MailingAddressCity<&H00003A27>() AS STRING
    MEMBER LET MailingAddressCity<&H00003A27>()   'Parameter Type As String
    MEMBER GET MailingAddressCountry<&H00003A26>() AS STRING
    MEMBER LET MailingAddressCountry<&H00003A26>()   'Parameter Type As String
    MEMBER GET MailingAddressPostalCode<&H00003A2A>() AS STRING
    MEMBER LET MailingAddressPostalCode<&H00003A2A>()   'Parameter Type As String
    MEMBER GET MailingAddressPostOfficeBox<&H00003A2B>() AS STRING
    MEMBER LET MailingAddressPostOfficeBox<&H00003A2B>()   'Parameter Type As String
    MEMBER GET MailingAddressState<&H00003A28>() AS STRING
    MEMBER LET MailingAddressState<&H00003A28>()   'Parameter Type As String
    MEMBER GET MailingAddressStreet<&H00003A29>() AS STRING
    MEMBER LET MailingAddressStreet<&H00003A29>()   'Parameter Type As String
    MEMBER GET ManagerName<&H00003A4E>() AS STRING
    MEMBER LET ManagerName<&H00003A4E>()   'Parameter Type As String
    MEMBER GET MiddleName<&H00003A44>() AS STRING
    MEMBER LET MiddleName<&H00003A44>()   'Parameter Type As String
    MEMBER GET MobileTelephoneNumber<&H00003A1C>() AS STRING
    MEMBER LET MobileTelephoneNumber<&H00003A1C>()   'Parameter Type As String
    MEMBER GET NetMeetingAlias<&H0000805F>() AS STRING
    MEMBER LET NetMeetingAlias<&H0000805F>()   'Parameter Type As String
    MEMBER GET NetMeetingServer<&H00008060>() AS STRING
    MEMBER LET NetMeetingServer<&H00008060>()   'Parameter Type As String
    MEMBER GET NickName<&H00003A4F>() AS STRING
    MEMBER LET NickName<&H00003A4F>()   'Parameter Type As String
    MEMBER GET OfficeLocation<&H00003A19>() AS STRING
    MEMBER LET OfficeLocation<&H00003A19>()   'Parameter Type As String
    MEMBER GET OrganizationalIDNumber<&H00003A10>() AS STRING
    MEMBER LET OrganizationalIDNumber<&H00003A10>()   'Parameter Type As String
    MEMBER GET OtherAddress<&H0000801C>() AS STRING
    MEMBER LET OtherAddress<&H0000801C>()   'Parameter Type As String
    MEMBER GET OtherAddressCity<&H00003A5F>() AS STRING
    MEMBER LET OtherAddressCity<&H00003A5F>()   'Parameter Type As String
    MEMBER GET OtherAddressCountry<&H00003A60>() AS STRING
    MEMBER LET OtherAddressCountry<&H00003A60>()   'Parameter Type As String
    MEMBER GET OtherAddressPostalCode<&H00003A61>() AS STRING
    MEMBER LET OtherAddressPostalCode<&H00003A61>()   'Parameter Type As String
    MEMBER GET OtherAddressPostOfficeBox<&H00003A64>() AS STRING
    MEMBER LET OtherAddressPostOfficeBox<&H00003A64>()   'Parameter Type As String
    MEMBER GET OtherAddressState<&H00003A62>() AS STRING
    MEMBER LET OtherAddressState<&H00003A62>()   'Parameter Type As String
    MEMBER GET OtherAddressStreet<&H00003A63>() AS STRING
    MEMBER LET OtherAddressStreet<&H00003A63>()   'Parameter Type As String
    MEMBER GET OtherFaxNumber<&H00003A23>() AS STRING
    MEMBER LET OtherFaxNumber<&H00003A23>()   'Parameter Type As String
    MEMBER GET OtherTelephoneNumber<&H00003A1F>() AS STRING
    MEMBER LET OtherTelephoneNumber<&H00003A1F>()   'Parameter Type As String
    MEMBER GET PagerNumber<&H00003A21>() AS STRING
    MEMBER LET PagerNumber<&H00003A21>()   'Parameter Type As String
    MEMBER GET PersonalHomePage<&H00003A50>() AS STRING
    MEMBER LET PersonalHomePage<&H00003A50>()   'Parameter Type As String
    MEMBER GET PrimaryTelephoneNumber<&H00003A1A>() AS STRING
    MEMBER LET PrimaryTelephoneNumber<&H00003A1A>()   'Parameter Type As String
    MEMBER GET Profession<&H00003A46>() AS STRING
    MEMBER LET Profession<&H00003A46>()   'Parameter Type As String
    MEMBER GET RadioTelephoneNumber<&H00003A1D>() AS STRING
    MEMBER LET RadioTelephoneNumber<&H00003A1D>()   'Parameter Type As String
    MEMBER GET ReferredBy<&H00003A47>() AS STRING
    MEMBER LET ReferredBy<&H00003A47>()   'Parameter Type As String
    MEMBER GET SelectedMailingAddress<&H00008022>() AS enumOutlookOlMailingAddress
    MEMBER LET SelectedMailingAddress<&H00008022>()   'Parameter Type As enumOutlookOlMailingAddress
    MEMBER GET Spouse<&H00003A48>() AS STRING
    MEMBER LET Spouse<&H00003A48>()   'Parameter Type As String
    MEMBER GET Suffix<&H00003A05>() AS STRING
    MEMBER LET Suffix<&H00003A05>()   'Parameter Type As String
    MEMBER GET TelexNumber<&H00003A2C>() AS STRING
    MEMBER LET TelexNumber<&H00003A2C>()   'Parameter Type As String
    MEMBER GET Title<&H00003A45>() AS STRING
    MEMBER LET Title<&H00003A45>()   'Parameter Type As String
    MEMBER GET TTYTDDTelephoneNumber<&H00003A4B>() AS STRING
    MEMBER LET TTYTDDTelephoneNumber<&H00003A4B>()   'Parameter Type As String
    MEMBER GET User1<&H0000804F>() AS STRING
    MEMBER LET User1<&H0000804F>()   'Parameter Type As String
    MEMBER GET User2<&H00008050>() AS STRING
    MEMBER LET User2<&H00008050>()   'Parameter Type As String
    MEMBER GET User3<&H00008051>() AS STRING
    MEMBER LET User3<&H00008051>()   'Parameter Type As String
    MEMBER GET User4<&H00008052>() AS STRING
    MEMBER LET User4<&H00008052>()   'Parameter Type As String
    MEMBER GET UserCertificate<&H00008016>() AS STRING
    MEMBER LET UserCertificate<&H00008016>()   'Parameter Type As String
    MEMBER GET WebPage<&H0000802B>() AS STRING
    MEMBER LET WebPage<&H0000802B>()   'Parameter Type As String
    MEMBER GET YomiCompanyName<&H0000802E>() AS STRING
    MEMBER LET YomiCompanyName<&H0000802E>()   'Parameter Type As String
    MEMBER GET YomiFirstName<&H0000802C>() AS STRING
    MEMBER LET YomiFirstName<&H0000802C>()   'Parameter Type As String
    MEMBER GET YomiLastName<&H0000802D>() AS STRING
    MEMBER LET YomiLastName<&H0000802D>()   'Parameter Type As String
    MEMBER CALL ForwardAsVcard<&H0000F8A1>() AS OutlookMailItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookDistListItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET DLName<&H00008053>() AS STRING
    MEMBER LET DLName<&H00008053>()   'Parameter Type As String
    MEMBER GET MemberCount<&H0000804B>() AS LONG
    MEMBER GET CheckSum<&H0000804C>() AS LONG
    MEMBER GET Members<&H00008055>() AS VARIANT
    MEMBER LET Members<&H00008055>()   'Parameter Type As Variant
    MEMBER GET OneOffMembers<&H00008054>() AS VARIANT
    MEMBER LET OneOffMembers<&H00008054>()   'Parameter Type As Variant
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
    MEMBER CALL AddMembers<&H0000F900>(IN Recipients AS OutlookRecipients<&H00000000>)
    MEMBER CALL RemoveMembers<&H0000F901>(IN Recipients AS OutlookRecipients<&H00000000>)
    MEMBER CALL GetMember<&H0000F905>(IN Index AS LONG<&H00000000>) AS OutlookRecipient
END INTERFACE

INTERFACE DISPATCH OutlookDocumentItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookException
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET AppointmentItem<&H00002001>() AS OutlookAppointmentItem
    MEMBER GET Deleted<&H00002002>() AS LONG
    MEMBER GET OriginalDate<&H00002000>() AS DOUBLE
END INTERFACE

INTERFACE DISPATCH OutlookExceptions
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookException
END INTERFACE

INTERFACE DISPATCH OutlookExplorer
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET CommandBars<&H00002100>() AS OutlookCommandBars
    MEMBER GET CurrentFolder<&H00002101>() AS OutlookMAPIFolder
    MEMBER SET CurrentFolder<&H00002101>()   'Parameter Type As OutlookMAPIFolder
    MEMBER CALL CLOSE<&H00002103>()
    MEMBER CALL Display<&H00002104>()
    MEMBER GET Caption<&H00002111>() AS STRING
    MEMBER GET CurrentView<&H00002200>() AS VARIANT
    MEMBER LET CurrentView<&H00002200>()   'Parameter Type As Variant
    MEMBER GET Height<&H00002114>() AS LONG
    MEMBER LET Height<&H00002114>()   'Parameter Type As Long
    MEMBER GET LEFT<&H00002115>() AS LONG
    MEMBER LET LEFT<&H00002115>()   'Parameter Type As Long
    MEMBER GET Panes<&H00002201>() AS OutlookPanes
    MEMBER GET Selection<&H00002202>() AS OutlookSelection
    MEMBER GET Top<&H00002116>() AS LONG
    MEMBER LET Top<&H00002116>()   'Parameter Type As Long
    MEMBER GET WIDTH<&H00002117>() AS LONG
    MEMBER LET WIDTH<&H00002117>()   'Parameter Type As Long
    MEMBER GET WindowState<&H00002112>() AS enumOutlookOlWindowState
    MEMBER LET WindowState<&H00002112>()   'Parameter Type As enumOutlookOlWindowState
    MEMBER CALL Activate<&H00002113>()
    MEMBER CALL IsPaneVisible<&H00002203>(IN Pane AS enumOutlookOlPane<&H00000000>) AS LONG
    MEMBER CALL ShowPane<&H00002204>(IN Pane AS enumOutlookOlPane<&H00000000>, IN Visible AS LONG<&H00000001>)
    MEMBER GET Views<&H00003109>() AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookExplorerEvents
    MEMBER CALL Activate<&H0000F001>()
    MEMBER CALL FolderSwitch<&H0000F002>()
    MEMBER CALL BeforeFolderSwitch<&H0000F003>(IN NewFolder AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL ViewSwitch<&H0000F004>()
    MEMBER CALL BeforeViewSwitch<&H0000F005>(IN NewView AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL Deactivate<&H0000F006>()
    MEMBER CALL SelectionChange<&H0000F007>()
    MEMBER CALL CLOSE<&H0000F008>()
END INTERFACE

INTERFACE DISPATCH OutlookExplorers
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookExplorer
    MEMBER CALL ADD<&H0000005F>(IN Folder AS VARIANT<&H00000000>, OPTIONAL IN DisplayMode AS enumOutlookOlFolderDisplayMode<&H00000001>) AS OutlookExplorer
END INTERFACE

INTERFACE DISPATCH OutlookExplorersEvents
    MEMBER CALL NewExplorer<&H0000F001>(IN Explorer AS OutlookExplorer<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookFolders
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookMAPIFolder
    MEMBER GET RawTable<&H0000005A>() AS VARIANT
    MEMBER CALL ADD<&H0000005F>(IN NAME AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>) AS OutlookMAPIFolder
    MEMBER CALL GetFirst<&H00000056>() AS OutlookMAPIFolder
    MEMBER CALL GetLast<&H00000058>() AS OutlookMAPIFolder
    MEMBER CALL GetNext<&H00000057>() AS OutlookMAPIFolder
    MEMBER CALL GetPrevious<&H00000059>() AS OutlookMAPIFolder
    MEMBER CALL Remove<&H00000054>(IN Index AS LONG<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookFoldersEvents
    MEMBER CALL FolderAdd<&H0000F001>(IN Folder AS OutlookMAPIFolder<&H00000000>)
    MEMBER CALL FolderChange<&H0000F002>(IN Folder AS OutlookMAPIFolder<&H00000000>)
    MEMBER CALL FolderRemove<&H0000F003>()
END INTERFACE

INTERFACE DISPATCH OutlookFormDescription
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Category<&H00003304>() AS STRING
    MEMBER LET Category<&H00003304>()   'Parameter Type As String
    MEMBER GET CategorySub<&H00003305>() AS STRING
    MEMBER LET CategorySub<&H00003305>()   'Parameter Type As String
    MEMBER GET Comment<&H00003004>() AS STRING
    MEMBER LET Comment<&H00003004>()   'Parameter Type As String
    MEMBER GET ContactName<&H00003303>() AS STRING
    MEMBER LET ContactName<&H00003303>()   'Parameter Type As String
    MEMBER GET DisplayName<&H00003001>() AS STRING
    MEMBER LET DisplayName<&H00003001>()   'Parameter Type As String
    MEMBER GET Hidden<&H00003307>() AS LONG
    MEMBER LET Hidden<&H00003307>()   'Parameter Type As Long
    MEMBER GET ICON<&H00000FFD>() AS STRING
    MEMBER LET ICON<&H00000FFD>()   'Parameter Type As String
    MEMBER GET Locked<&H00000066>() AS LONG
    MEMBER LET Locked<&H00000066>()   'Parameter Type As Long
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER GET MiniIcon<&H00000FFC>() AS STRING
    MEMBER LET MiniIcon<&H00000FFC>()   'Parameter Type As String
    MEMBER GET NAME<&H0000F01D>() AS STRING
    MEMBER LET NAME<&H0000F01D>()   'Parameter Type As String
    MEMBER GET Number<&H00000068>() AS STRING
    MEMBER LET Number<&H00000068>()   'Parameter Type As String
    MEMBER GET OneOff<&H00000065>() AS LONG
    MEMBER LET OneOff<&H00000065>()   'Parameter Type As Long
    MEMBER GET Password<&H00000067>() AS STRING
    MEMBER LET Password<&H00000067>()   'Parameter Type As String
    MEMBER GET ScriptText<&H0000006D>() AS STRING
    MEMBER GET Template<&H0000006A>() AS STRING
    MEMBER LET Template<&H0000006A>()   'Parameter Type As String
    MEMBER GET UseWordMail<&H00000069>() AS LONG
    MEMBER LET UseWordMail<&H00000069>()   'Parameter Type As Long
    MEMBER GET Version<&H00003301>() AS STRING
    MEMBER LET Version<&H00003301>()   'Parameter Type As String
    MEMBER CALL PublishForm<&H0000006B>(IN Registry AS enumOutlookOlFormRegistry<&H00000000>, OPTIONAL IN Folder AS VARIANT<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookInspector
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET CommandBars<&H00002100>() AS OutlookCommandBars
    MEMBER GET CurrentItem<&H00002102>() AS VARIANT
    MEMBER GET EditorType<&H00002110>() AS enumOutlookOlEditorType
    MEMBER GET ModifiedFormPages<&H00002106>() AS VARIANT
    MEMBER CALL CLOSE<&H00002103>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Display<&H00002104>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL HideFormPage<&H00002108>(IN PageName AS STRING<&H00000000>)
    MEMBER CALL IsWordMail<&H00002105>() AS LONG
    MEMBER CALL SetCurrentFormPage<&H0000210C>(IN PageName AS STRING<&H00000000>)
    MEMBER CALL ShowFormPage<&H00002109>(IN PageName AS STRING<&H00000000>)
    MEMBER GET HTMLEditor<&H0000210E>() AS VARIANT
    MEMBER GET WordEditor<&H0000210F>() AS VARIANT
    MEMBER GET Caption<&H00002111>() AS STRING
    MEMBER GET Height<&H00002114>() AS LONG
    MEMBER LET Height<&H00002114>()   'Parameter Type As Long
    MEMBER GET LEFT<&H00002115>() AS LONG
    MEMBER LET LEFT<&H00002115>()   'Parameter Type As Long
    MEMBER GET Top<&H00002116>() AS LONG
    MEMBER LET Top<&H00002116>()   'Parameter Type As Long
    MEMBER GET WIDTH<&H00002117>() AS LONG
    MEMBER LET WIDTH<&H00002117>()   'Parameter Type As Long
    MEMBER GET WindowState<&H00002112>() AS enumOutlookOlWindowState
    MEMBER LET WindowState<&H00002112>()   'Parameter Type As enumOutlookOlWindowState
    MEMBER CALL Activate<&H00002113>()
END INTERFACE

INTERFACE DISPATCH OutlookInspectorEvents
    MEMBER CALL Activate<&H0000F001>()
    MEMBER CALL Deactivate<&H0000F006>()
    MEMBER CALL CLOSE<&H0000F008>()
END INTERFACE

INTERFACE DISPATCH OutlookInspectors
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookInspector
    MEMBER CALL ADD<&H0000005F>(IN Item AS VARIANT<&H00000000>) AS OutlookInspector
END INTERFACE

INTERFACE DISPATCH OutlookInspectorsEvents
    MEMBER CALL NewInspector<&H0000F001>(IN Inspector AS OutlookInspector<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookItemEvents
    MEMBER CALL OPEN<&H0000F003>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL CustomAction<&H0000F006>(IN Action AS VARIANT<&H00000000>, IN Response AS VARIANT<&H00000001>, IN Cancel AS LONG<&H00000002>)
    MEMBER CALL CustomPropertyChange<&H0000F008>(IN NAME AS STRING<&H00000000>)
    MEMBER CALL Forward<&H0000F468>(IN Forward AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL CLOSE<&H0000F004>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL PropertyChange<&H0000F009>(IN NAME AS STRING<&H00000000>)
    MEMBER CALL READ<&H0000F001>()
    MEMBER CALL Reply<&H0000F466>(IN Response AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL ReplyAll<&H0000F467>(IN Response AS VARIANT<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL SEND<&H0000F005>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL WRITE<&H0000F002>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL BeforeCheckNames<&H0000F00A>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL AttachmentAdd<&H0000F00B>(IN Attachment AS OutlookAttachment<&H00000000>)
    MEMBER CALL AttachmentRead<&H0000F00C>(IN Attachment AS OutlookAttachment<&H00000000>)
    MEMBER CALL BeforeAttachmentSave<&H0000F00D>(IN Attachment AS OutlookAttachment<&H00000000>, IN Cancel AS LONG<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookItems
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS VARIANT
    MEMBER GET RawTable<&H0000005A>() AS VARIANT
    MEMBER GET IncludeRecurrences<&H000000CE>() AS LONG
    MEMBER LET IncludeRecurrences<&H000000CE>()   'Parameter Type As Long
    MEMBER CALL ADD<&H0000005F>(OPTIONAL IN TYPE AS VARIANT<&H00000000>) AS VARIANT
    MEMBER CALL Find<&H00000062>(IN Filter AS STRING<&H00000000>) AS VARIANT
    MEMBER CALL FindNext<&H00000063>() AS VARIANT
    MEMBER CALL GetFirst<&H00000056>() AS VARIANT
    MEMBER CALL GetLast<&H00000058>() AS VARIANT
    MEMBER CALL GetNext<&H00000057>() AS VARIANT
    MEMBER CALL GetPrevious<&H00000059>() AS VARIANT
    MEMBER CALL Remove<&H00000054>(IN Index AS LONG<&H00000000>)
    MEMBER CALL ResetColumns<&H0000005D>()
    MEMBER CALL Restrict<&H00000064>(IN Filter AS STRING<&H00000000>) AS OutlookItems
    MEMBER CALL SetColumns<&H0000005C>(IN Columns AS STRING<&H00000000>)
    MEMBER CALL SORT<&H00000061>(IN Property AS STRING<&H00000000>, OPTIONAL IN Descending AS VARIANT<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookItemsEvents
    MEMBER CALL ItemAdd<&H0000F001>(IN Item AS VARIANT<&H00000000>)
    MEMBER CALL ItemChange<&H0000F002>(IN Item AS VARIANT<&H00000000>)
    MEMBER CALL ItemRemove<&H0000F003>()
END INTERFACE

INTERFACE DISPATCH OutlookJournalItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET ContactNames<&H00000E04>() AS STRING
    MEMBER LET ContactNames<&H00000E04>()   'Parameter Type As String
    MEMBER GET DocPosted<&H00008711>() AS LONG
    MEMBER LET DocPosted<&H00008711>()   'Parameter Type As Long
    MEMBER GET DocPrinted<&H0000870E>() AS LONG
    MEMBER LET DocPrinted<&H0000870E>()   'Parameter Type As Long
    MEMBER GET DocRouted<&H00008710>() AS LONG
    MEMBER LET DocRouted<&H00008710>()   'Parameter Type As Long
    MEMBER GET DocSaved<&H0000870F>() AS LONG
    MEMBER LET DocSaved<&H0000870F>()   'Parameter Type As Long
    MEMBER GET Duration<&H00008707>() AS LONG
    MEMBER LET Duration<&H00008707>()   'Parameter Type As Long
    MEMBER GET END<&H00008708>() AS DOUBLE
    MEMBER LET END<&H00008708>()   'Parameter Type As Double
    MEMBER GET TYPE<&H00008700>() AS STRING
    MEMBER LET TYPE<&H00008700>()   'Parameter Type As String
    MEMBER GET Recipients<&H0000F814>() AS OutlookRecipients
    MEMBER GET Start<&H00008706>() AS DOUBLE
    MEMBER LET Start<&H00008706>()   'Parameter Type As Double
    MEMBER CALL Forward<&H0000F813>() AS OutlookMailItem
    MEMBER CALL Reply<&H0000F810>() AS OutlookMailItem
    MEMBER CALL ReplyAll<&H0000F811>() AS OutlookMailItem
    MEMBER CALL StartTimer<&H0000F725>()
    MEMBER CALL StopTimer<&H0000F726>()
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookLink
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000006D>() AS VARIANT
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER GET TYPE<&H00002101>() AS enumOutlookOlObjectClass
    MEMBER GET Item<&H00002102>() AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookLinks
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookLink
    MEMBER CALL ADD<&H0000005F>(IN Item AS VARIANT<&H00000000>) AS OutlookLink
    MEMBER CALL Remove<&H00000054>(IN Index AS VARIANT<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookMailItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET AlternateRecipientAllowed<&H00000002>() AS LONG
    MEMBER LET AlternateRecipientAllowed<&H00000002>()   'Parameter Type As Long
    MEMBER GET AutoForwarded<&H00000005>() AS LONG
    MEMBER LET AutoForwarded<&H00000005>()   'Parameter Type As Long
    MEMBER GET BCC<&H00000E02>() AS STRING
    MEMBER LET BCC<&H00000E02>()   'Parameter Type As String
    MEMBER GET CC<&H00000E03>() AS STRING
    MEMBER LET CC<&H00000E03>()   'Parameter Type As String
    MEMBER GET DeferredDeliveryTime<&H0000000F>() AS DOUBLE
    MEMBER LET DeferredDeliveryTime<&H0000000F>()   'Parameter Type As Double
    MEMBER GET DeleteAfterSubmit<&H00000E01>() AS LONG
    MEMBER LET DeleteAfterSubmit<&H00000E01>()   'Parameter Type As Long
    MEMBER GET ExpiryTime<&H00000015>() AS DOUBLE
    MEMBER LET ExpiryTime<&H00000015>()   'Parameter Type As Double
    MEMBER GET FlagDueBy<&H00000030>() AS DOUBLE
    MEMBER LET FlagDueBy<&H00000030>()   'Parameter Type As Double
    MEMBER GET FlagRequest<&H00008530>() AS STRING
    MEMBER LET FlagRequest<&H00008530>()   'Parameter Type As String
    MEMBER GET FlagStatus<&H00001090>() AS enumOutlookOlFlagStatus
    MEMBER LET FlagStatus<&H00001090>()   'Parameter Type As enumOutlookOlFlagStatus
    MEMBER GET HTMLBody<&H0000F404>() AS STRING
    MEMBER LET HTMLBody<&H0000F404>()   'Parameter Type As String
    MEMBER GET OriginatorDeliveryReportRequested<&H00000023>() AS LONG
    MEMBER LET OriginatorDeliveryReportRequested<&H00000023>()   'Parameter Type As Long
    MEMBER GET ReadReceiptRequested<&H00000029>() AS LONG
    MEMBER LET ReadReceiptRequested<&H00000029>()   'Parameter Type As Long
    MEMBER GET ReceivedByEntryID<&H0000003F>() AS STRING
    MEMBER GET ReceivedByName<&H00000040>() AS STRING
    MEMBER GET ReceivedOnBehalfOfEntryID<&H00000043>() AS STRING
    MEMBER GET ReceivedOnBehalfOfName<&H00000044>() AS STRING
    MEMBER GET ReceivedTime<&H00000E06>() AS DOUBLE
    MEMBER GET RecipientReassignmentProhibited<&H0000002B>() AS LONG
    MEMBER LET RecipientReassignmentProhibited<&H0000002B>()   'Parameter Type As Long
    MEMBER GET Recipients<&H0000F814>() AS OutlookRecipients
    MEMBER GET ReminderOverrideDefault<&H0000851C>() AS LONG
    MEMBER LET ReminderOverrideDefault<&H0000851C>()   'Parameter Type As Long
    MEMBER GET ReminderPlaySound<&H0000851E>() AS LONG
    MEMBER LET ReminderPlaySound<&H0000851E>()   'Parameter Type As Long
    MEMBER GET ReminderSet<&H00008503>() AS LONG
    MEMBER LET ReminderSet<&H00008503>()   'Parameter Type As Long
    MEMBER GET ReminderSoundFile<&H0000851F>() AS STRING
    MEMBER LET ReminderSoundFile<&H0000851F>()   'Parameter Type As String
    MEMBER GET ReminderTime<&H00008502>() AS DOUBLE
    MEMBER LET ReminderTime<&H00008502>()   'Parameter Type As Double
    MEMBER GET RemoteStatus<&H00008511>() AS enumOutlookOlRemoteStatus
    MEMBER LET RemoteStatus<&H00008511>()   'Parameter Type As enumOutlookOlRemoteStatus
    MEMBER GET ReplyRecipientNames<&H00000050>() AS STRING
    MEMBER GET ReplyRecipients<&H0000F013>() AS OutlookRecipients
    MEMBER GET SaveSentMessageFolder<&H0000F401>() AS OutlookMAPIFolder
    MEMBER SET SaveSentMessageFolder<&H0000F401>()   'Parameter Type As OutlookMAPIFolder
    MEMBER GET SenderName<&H00000C1A>() AS STRING
    MEMBER GET Sent<&H0000F402>() AS LONG
    MEMBER GET SentOn<&H00000039>() AS DOUBLE
    MEMBER GET SentOnBehalfOfName<&H00000042>() AS STRING
    MEMBER LET SentOnBehalfOfName<&H00000042>()   'Parameter Type As String
    MEMBER GET Submitted<&H0000F403>() AS LONG
    MEMBER GET TO<&H00000E04>() AS STRING
    MEMBER LET TO<&H00000E04>()   'Parameter Type As String
    MEMBER GET VotingOptions<&H0000F01B>() AS STRING
    MEMBER LET VotingOptions<&H0000F01B>()   'Parameter Type As String
    MEMBER GET VotingResponse<&H00008524>() AS STRING
    MEMBER LET VotingResponse<&H00008524>()   'Parameter Type As String
    MEMBER CALL ClearConversationIndex<&H0000F822>()
    MEMBER CALL Forward<&H0000F813>() AS OutlookMailItem
    MEMBER CALL Reply<&H0000F810>() AS OutlookMailItem
    MEMBER CALL ReplyAll<&H0000F811>() AS OutlookMailItem
    MEMBER CALL SEND<&H0000F075>()
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookMAPIFolder
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET DefaultItemType<&H00003106>() AS enumOutlookOlItemType
    MEMBER GET DefaultMessageClass<&H00003107>() AS STRING
    MEMBER GET Description<&H00003004>() AS STRING
    MEMBER LET Description<&H00003004>()   'Parameter Type As String
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET Folders<&H00002103>() AS OutlookFolders
    MEMBER GET Items<&H00003100>() AS OutlookItems
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER LET NAME<&H00003001>()   'Parameter Type As String
    MEMBER GET StoreID<&H00003108>() AS STRING
    MEMBER GET UnReadItemCount<&H00003603>() AS LONG
    MEMBER CALL CopyTo<&H0000F032>(IN DestinationFolder AS OutlookMAPIFolder<&H00000000>) AS OutlookMAPIFolder
    MEMBER CALL DELETE<&H0000F045>()
    MEMBER CALL Display<&H00003104>()
    MEMBER CALL GetExplorer<&H00003101>(OPTIONAL IN DisplayMode AS VARIANT<&H00000000>) AS OutlookExplorer
    MEMBER CALL MoveTo<&H0000F034>(IN DestinationFolder AS OutlookMAPIFolder<&H00000000>)
    MEMBER GET UserPermissions<&H00003111>() AS VARIANT
    MEMBER GET WebViewOn<&H00003112>() AS LONG
    MEMBER LET WebViewOn<&H00003112>()   'Parameter Type As Long
    MEMBER GET WebViewURL<&H00003113>() AS STRING
    MEMBER LET WebViewURL<&H00003113>()   'Parameter Type As String
    MEMBER GET WebViewAllowNavigation<&H00003114>() AS LONG
    MEMBER LET WebViewAllowNavigation<&H00003114>()   'Parameter Type As Long
    MEMBER CALL AddToPFFavorites<&H00003115>()
END INTERFACE

INTERFACE DISPATCH OutlookMeetingItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET AutoForwarded<&H00000005>() AS LONG
    MEMBER LET AutoForwarded<&H00000005>()   'Parameter Type As Long
    MEMBER GET DeferredDeliveryTime<&H0000000F>() AS DOUBLE
    MEMBER LET DeferredDeliveryTime<&H0000000F>()   'Parameter Type As Double
    MEMBER GET DeleteAfterSubmit<&H00000E01>() AS LONG
    MEMBER LET DeleteAfterSubmit<&H00000E01>()   'Parameter Type As Long
    MEMBER GET ExpiryTime<&H00000015>() AS DOUBLE
    MEMBER LET ExpiryTime<&H00000015>()   'Parameter Type As Double
    MEMBER GET FlagDueBy<&H00000030>() AS DOUBLE
    MEMBER LET FlagDueBy<&H00000030>()   'Parameter Type As Double
    MEMBER GET FlagRequest<&H00008530>() AS STRING
    MEMBER LET FlagRequest<&H00008530>()   'Parameter Type As String
    MEMBER GET FlagStatus<&H00001090>() AS enumOutlookOlFlagStatus
    MEMBER LET FlagStatus<&H00001090>()   'Parameter Type As enumOutlookOlFlagStatus
    MEMBER GET OriginatorDeliveryReportRequested<&H00000023>() AS LONG
    MEMBER LET OriginatorDeliveryReportRequested<&H00000023>()   'Parameter Type As Long
    MEMBER GET ReceivedTime<&H00000E06>() AS DOUBLE
    MEMBER LET ReceivedTime<&H00000E06>()   'Parameter Type As Double
    MEMBER GET Recipients<&H0000F814>() AS OutlookRecipients
    MEMBER GET ReminderSet<&H00008503>() AS LONG
    MEMBER LET ReminderSet<&H00008503>()   'Parameter Type As Long
    MEMBER GET ReminderTime<&H00008502>() AS DOUBLE
    MEMBER LET ReminderTime<&H00008502>()   'Parameter Type As Double
    MEMBER GET ReplyRecipients<&H0000F013>() AS OutlookRecipients
    MEMBER GET SaveSentMessageFolder<&H0000F401>() AS OutlookMAPIFolder
    MEMBER SET SaveSentMessageFolder<&H0000F401>()   'Parameter Type As OutlookMAPIFolder
    MEMBER GET SenderName<&H00000C1A>() AS STRING
    MEMBER GET Sent<&H0000F402>() AS LONG
    MEMBER GET SentOn<&H00000039>() AS DOUBLE
    MEMBER GET Submitted<&H0000F403>() AS LONG
    MEMBER CALL Forward<&H0000F813>() AS OutlookMeetingItem
    MEMBER CALL GetAssociatedAppointment<&H0000F760>(IN AddToCalendar AS LONG<&H00000000>) AS OutlookAppointmentItem
    MEMBER CALL Reply<&H0000F810>() AS OutlookMailItem
    MEMBER CALL ReplyAll<&H0000F811>() AS OutlookMailItem
    MEMBER CALL SEND<&H0000F075>()
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookNameSpace
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET CurrentUser<&H00002101>() AS OutlookRecipient
    MEMBER GET Folders<&H00002103>() AS OutlookFolders
    MEMBER GET TYPE<&H00002104>() AS STRING
    MEMBER GET AddressLists<&H0000210D>() AS OutlookAddressLists
    MEMBER CALL CreateRecipient<&H0000210A>(IN RecipientName AS STRING<&H00000000>) AS OutlookRecipient
    MEMBER CALL GetDefaultFolder<&H0000210B>(IN FolderType AS enumOutlookOlDefaultFolders<&H00000000>) AS OutlookMAPIFolder
    MEMBER CALL GetFolderFromID<&H00002108>(IN EntryIDFolder AS STRING<&H00000000>, OPTIONAL IN EntryIDStore AS VARIANT<&H00000001>) AS OutlookMAPIFolder
    MEMBER CALL GetItemFromID<&H00002109>(IN EntryIDItem AS STRING<&H00000000>, OPTIONAL IN EntryIDStore AS VARIANT<&H00000001>) AS VARIANT
    MEMBER CALL GetRecipientFromID<&H00002107>(IN EntryID AS STRING<&H00000000>) AS OutlookRecipient
    MEMBER CALL GetSharedDefaultFolder<&H0000210C>(IN Recipient AS OutlookRecipient<&H00000000>, IN FolderType AS enumOutlookOlDefaultFolders<&H00000001>) AS OutlookMAPIFolder
    MEMBER CALL Logoff<&H00002106>()
    MEMBER CALL Logon<&H00002105>(OPTIONAL IN PROFILE AS VARIANT<&H00000000>, OPTIONAL IN Password AS VARIANT<&H00000001>, OPTIONAL IN ShowDialog AS VARIANT<&H00000002>, OPTIONAL IN NewSession AS VARIANT<&H00000003>)
    MEMBER CALL PickFolder<&H0000210E>() AS OutlookMAPIFolder
    MEMBER CALL RefreshRemoteHeaders<&H00002117>()
    MEMBER GET SyncObjects<&H00002118>() AS OutlookSyncObjects
    MEMBER CALL AddStore<&H00002119>(IN Store AS VARIANT<&H00000000>)
    MEMBER CALL RemoveStore<&H0000211A>(IN Folder AS OutlookMAPIFolder<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookNameSpaceEvents
    MEMBER CALL OptionsPagesAdd<&H0000F005>(IN Pages AS OutlookPropertyPages<&H00000000>, IN Folder AS OutlookMAPIFolder<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookNoteItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET COLOR<&H00008B00>() AS enumOutlookOlNoteColor
    MEMBER LET COLOR<&H00008B00>()   'Parameter Type As enumOutlookOlNoteColor
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Height<&H00008B03>() AS LONG
    MEMBER LET Height<&H00008B03>()   'Parameter Type As Long
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET LEFT<&H00008B04>() AS LONG
    MEMBER LET LEFT<&H00008B04>()   'Parameter Type As Long
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H0000F7A0>() AS STRING
    MEMBER GET Top<&H00008B05>() AS LONG
    MEMBER LET Top<&H00008B05>()   'Parameter Type As Long
    MEMBER GET WIDTH<&H00008B02>() AS LONG
    MEMBER LET WIDTH<&H00008B02>()   'Parameter Type As Long
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarGroup
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET NAME<&H00000000>() AS STRING
    MEMBER LET NAME<&H00000000>()   'Parameter Type As String
    MEMBER GET Shortcuts<&H00002102>() AS OutlookOutlookBarShortcuts
    MEMBER GET ViewType<&H00002103>() AS enumOutlookOlOutlookBarViewType
    MEMBER LET ViewType<&H00002103>()   'Parameter Type As enumOutlookOlOutlookBarViewType
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarGroups
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookOutlookBarGroup
    MEMBER CALL ADD<&H0000005F>(IN NAME AS STRING<&H00000000>, OPTIONAL IN Index AS VARIANT<&H00000001>) AS OutlookOutlookBarGroup
    MEMBER CALL Remove<&H00000054>(IN Index AS VARIANT<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarGroupsEvents
    MEMBER CALL GroupAdd<&H0000F001>(IN NewGroup AS OutlookOutlookBarGroup<&H00000000>)
    MEMBER CALL BeforeGroupAdd<&H0000F002>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL BeforeGroupRemove<&H0000F003>(IN Group AS OutlookOutlookBarGroup<&H00000000>, IN Cancel AS LONG<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarPane
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Contents<&H00002100>() AS OutlookOutlookBarStorage
    MEMBER GET CurrentGroup<&H00002101>() AS OutlookOutlookBarGroup
    MEMBER SET CurrentGroup<&H00002101>()   'Parameter Type As OutlookOutlookBarGroup
    MEMBER GET NAME<&H00000000>() AS STRING
    MEMBER GET Visible<&H00002103>() AS LONG
    MEMBER LET Visible<&H00002103>()   'Parameter Type As Long
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarPaneEvents
    MEMBER CALL BeforeNavigate<&H0000F001>(IN Shortcut AS OutlookOutlookBarShortcut<&H00000000>, IN Cancel AS LONG<&H00000001>)
    MEMBER CALL BeforeGroupSwitch<&H0000F002>(IN ToGroup AS OutlookOutlookBarGroup<&H00000000>, IN Cancel AS LONG<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarShortcut
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET NAME<&H00000000>() AS STRING
    MEMBER LET NAME<&H00000000>()   'Parameter Type As String
    MEMBER GET Target<&H00002100>() AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarShortcuts
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookOutlookBarShortcut
    MEMBER CALL ADD<&H0000005F>(IN Target AS VARIANT<&H00000000>, IN NAME AS STRING<&H00000001>, OPTIONAL IN Index AS VARIANT<&H00000002>) AS OutlookOutlookBarShortcut
    MEMBER CALL Remove<&H00000054>(IN Index AS VARIANT<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarShortcutsEvents
    MEMBER CALL ShortcutAdd<&H0000F001>(IN NewShortcut AS OutlookOutlookBarShortcut<&H00000000>)
    MEMBER CALL BeforeShortcutAdd<&H0000F002>(IN Cancel AS LONG<&H00000000>)
    MEMBER CALL BeforeShortcutRemove<&H0000F003>(IN Shortcut AS OutlookOutlookBarShortcut<&H00000000>, IN Cancel AS LONG<&H00000001>)
END INTERFACE

INTERFACE DISPATCH OutlookOutlookBarStorage
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Groups<&H00000000>() AS OutlookOutlookBarGroups
END INTERFACE

INTERFACE DISPATCH OutlookPages
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS VARIANT
    MEMBER CALL ADD<&H0000012C>(OPTIONAL IN NAME AS VARIANT<&H00000000>) AS VARIANT
    MEMBER CALL Remove<&H0000012D>(IN Index AS LONG<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookPanes
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookPostItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET ExpiryTime<&H00000015>() AS DOUBLE
    MEMBER LET ExpiryTime<&H00000015>()   'Parameter Type As Double
    MEMBER GET HTMLBody<&H0000F404>() AS STRING
    MEMBER LET HTMLBody<&H0000F404>()   'Parameter Type As String
    MEMBER GET ReceivedTime<&H00000E06>() AS DOUBLE
    MEMBER GET SenderName<&H00000C1A>() AS STRING
    MEMBER GET SentOn<&H00000039>() AS DOUBLE
    MEMBER CALL ClearConversationIndex<&H0000F822>()
    MEMBER CALL Forward<&H0000F813>() AS OutlookMailItem
    MEMBER CALL POST<&H0000F075>()
    MEMBER CALL Reply<&H0000F810>() AS OutlookMailItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookPropertyPages
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS VARIANT
    MEMBER CALL ADD<&H0000005F>(IN Page AS VARIANT<&H00000000>, OPTIONAL IN Title AS STRING<&H00000001>)
    MEMBER CALL Remove<&H00000054>(IN Index AS VARIANT<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookPropertyPageSite
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER CALL OnStatusChange<&H00002100>()
END INTERFACE

INTERFACE DISPATCH OutlookRecipient
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000006D>() AS VARIANT
    MEMBER GET Address<&H00003003>() AS STRING
    MEMBER GET AddressEntry<&H00000079>() AS OutlookAddressEntry
    MEMBER SET AddressEntry<&H00000079>()   'Parameter Type As OutlookAddressEntry
    MEMBER GET AutoResponse<&H0000006A>() AS STRING
    MEMBER LET AutoResponse<&H0000006A>()   'Parameter Type As String
    MEMBER GET DisplayType<&H00003900>() AS enumOutlookOlDisplayType
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET Index<&H0000005B>() AS LONG
    MEMBER GET MeetingResponseStatus<&H00000066>() AS enumOutlookOlResponseStatus
    MEMBER GET NAME<&H00003001>() AS STRING
    MEMBER GET Resolved<&H00000064>() AS LONG
    MEMBER GET TrackingStatus<&H00000076>() AS enumOutlookOlTrackingStatus
    MEMBER LET TrackingStatus<&H00000076>()   'Parameter Type As enumOutlookOlTrackingStatus
    MEMBER GET TrackingStatusTime<&H00000077>() AS DOUBLE
    MEMBER LET TrackingStatusTime<&H00000077>()   'Parameter Type As Double
    MEMBER GET TYPE<&H00000C15>() AS LONG
    MEMBER LET TYPE<&H00000C15>()   'Parameter Type As Long
    MEMBER CALL DELETE<&H0000006E>()
    MEMBER CALL FreeBusy<&H0000006F>(IN Start AS DOUBLE<&H00000000>, IN MinPerChar AS LONG<&H00000001>, OPTIONAL IN CompleteFormat AS VARIANT<&H00000002>) AS STRING
    MEMBER CALL Resolve<&H00000071>() AS LONG
END INTERFACE

INTERFACE DISPATCH OutlookRecipients
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookRecipient
    MEMBER CALL ADD<&H0000006F>(IN NAME AS STRING<&H00000000>) AS OutlookRecipient
    MEMBER CALL Remove<&H00000054>(IN Index AS LONG<&H00000000>)
    MEMBER CALL ResolveAll<&H0000007E>() AS LONG
END INTERFACE

INTERFACE DISPATCH OutlookRecurrencePattern
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET DayOfMonth<&H00001000>() AS LONG
    MEMBER LET DayOfMonth<&H00001000>()   'Parameter Type As Long
    MEMBER GET DayOfWeekMask<&H00001001>() AS enumOutlookOlDaysOfWeek
    MEMBER LET DayOfWeekMask<&H00001001>()   'Parameter Type As enumOutlookOlDaysOfWeek
    MEMBER GET Duration<&H0000100D>() AS LONG
    MEMBER LET Duration<&H0000100D>()   'Parameter Type As Long
    MEMBER GET EndTime<&H0000100C>() AS DOUBLE
    MEMBER LET EndTime<&H0000100C>()   'Parameter Type As Double
    MEMBER GET Exceptions<&H0000100E>() AS OutlookExceptions
    MEMBER GET Instance<&H00001003>() AS LONG
    MEMBER LET Instance<&H00001003>()   'Parameter Type As Long
    MEMBER GET Interval<&H00001004>() AS LONG
    MEMBER LET Interval<&H00001004>()   'Parameter Type As Long
    MEMBER GET MonthOfYear<&H00001006>() AS LONG
    MEMBER LET MonthOfYear<&H00001006>()   'Parameter Type As Long
    MEMBER GET NoEndDate<&H0000100B>() AS LONG
    MEMBER LET NoEndDate<&H0000100B>()   'Parameter Type As Long
    MEMBER GET Occurrences<&H00001005>() AS LONG
    MEMBER LET Occurrences<&H00001005>()   'Parameter Type As Long
    MEMBER GET PatternEndDate<&H00001002>() AS DOUBLE
    MEMBER LET PatternEndDate<&H00001002>()   'Parameter Type As Double
    MEMBER GET PatternStartDate<&H00001008>() AS DOUBLE
    MEMBER LET PatternStartDate<&H00001008>()   'Parameter Type As Double
    MEMBER GET RecurrenceType<&H00001007>() AS enumOutlookOlRecurrenceType
    MEMBER LET RecurrenceType<&H00001007>()   'Parameter Type As enumOutlookOlRecurrenceType
    MEMBER GET Regenerate<&H0000100A>() AS LONG
    MEMBER LET Regenerate<&H0000100A>()   'Parameter Type As Long
    MEMBER GET StartTime<&H00001009>() AS DOUBLE
    MEMBER LET StartTime<&H00001009>()   'Parameter Type As Double
    MEMBER CALL GetOccurrence<&H0000100F>(IN StartDate AS DOUBLE<&H00000000>) AS OutlookAppointmentItem
END INTERFACE

INTERFACE DISPATCH OutlookRemoteItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET HasAttachment<&H00008F07>() AS LONG
    MEMBER GET RemoteMessageClass<&H00008F02>() AS STRING
    MEMBER GET TransferSize<&H00008F05>() AS LONG
    MEMBER GET TransferTime<&H00008F04>() AS LONG
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookReportItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookSelection
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS VARIANT
END INTERFACE

INTERFACE DISPATCH OutlookSyncObject
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET NAME<&H00002100>() AS STRING
    MEMBER CALL Start<&H00002101>()
    MEMBER CALL STOP<&H00002102>()
END INTERFACE

INTERFACE DISPATCH OutlookSyncObjectEvents
    MEMBER CALL SyncStart<&H0000F001>()
    MEMBER CALL Progress<&H0000F002>(IN STATE AS enumOutlookOlSyncState<&H00000000>, IN Description AS STRING<&H00000001>, IN Value AS LONG<&H00000002>, IN MAX AS LONG<&H00000003>)
    MEMBER CALL OnError<&H0000F003>(IN Code AS LONG<&H00000000>, IN Description AS STRING<&H00000001>)
    MEMBER CALL SyncEnd<&H0000F004>()
END INTERFACE

INTERFACE DISPATCH OutlookSyncObjects
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookSyncObject
END INTERFACE

INTERFACE DISPATCH OutlookTaskItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER GET ActualWork<&H00008110>() AS LONG
    MEMBER LET ActualWork<&H00008110>()   'Parameter Type As Long
    MEMBER GET CardData<&H0000812B>() AS STRING
    MEMBER LET CardData<&H0000812B>()   'Parameter Type As String
    MEMBER GET Complete<&H0000811C>() AS LONG
    MEMBER LET Complete<&H0000811C>()   'Parameter Type As Long
    MEMBER GET Contacts<&H0000853A>() AS STRING
    MEMBER LET Contacts<&H0000853A>()   'Parameter Type As String
    MEMBER GET ContactNames<&H0000853C>() AS STRING
    MEMBER LET ContactNames<&H0000853C>()   'Parameter Type As String
    MEMBER GET DateCompleted<&H0000810F>() AS DOUBLE
    MEMBER LET DateCompleted<&H0000810F>()   'Parameter Type As Double
    MEMBER GET DelegationState<&H0000812A>() AS enumOutlookOlTaskDelegationState
    MEMBER GET Delegator<&H00008121>() AS STRING
    MEMBER GET DueDate<&H00008105>() AS DOUBLE
    MEMBER LET DueDate<&H00008105>()   'Parameter Type As Double
    MEMBER GET IsRecurring<&H0000F617>() AS LONG
    MEMBER GET Ordinal<&H00008123>() AS LONG
    MEMBER LET Ordinal<&H00008123>()   'Parameter Type As Long
    MEMBER GET Owner<&H0000811F>() AS STRING
    MEMBER LET Owner<&H0000811F>()   'Parameter Type As String
    MEMBER GET Ownership<&H00008129>() AS enumOutlookOlTaskOwnership
    MEMBER GET PercentComplete<&H0000F61F>() AS LONG
    MEMBER LET PercentComplete<&H0000F61F>()   'Parameter Type As Long
    MEMBER GET Recipients<&H0000F814>() AS OutlookRecipients
    MEMBER GET ReminderTime<&H00008502>() AS DOUBLE
    MEMBER LET ReminderTime<&H00008502>()   'Parameter Type As Double
    MEMBER GET ReminderOverrideDefault<&H0000851C>() AS LONG
    MEMBER LET ReminderOverrideDefault<&H0000851C>()   'Parameter Type As Long
    MEMBER GET ReminderPlaySound<&H0000851E>() AS LONG
    MEMBER LET ReminderPlaySound<&H0000851E>()   'Parameter Type As Long
    MEMBER GET ReminderSet<&H00008503>() AS LONG
    MEMBER LET ReminderSet<&H00008503>()   'Parameter Type As Long
    MEMBER GET ReminderSoundFile<&H0000851F>() AS STRING
    MEMBER LET ReminderSoundFile<&H0000851F>()   'Parameter Type As String
    MEMBER GET ResponseState<&H0000F623>() AS enumOutlookOlTaskResponse
    MEMBER GET Role<&H00008127>() AS STRING
    MEMBER LET Role<&H00008127>()   'Parameter Type As String
    MEMBER GET SchedulePlusPriority<&H0000812F>() AS STRING
    MEMBER LET SchedulePlusPriority<&H0000812F>()   'Parameter Type As String
    MEMBER GET StartDate<&H00008104>() AS DOUBLE
    MEMBER LET StartDate<&H00008104>()   'Parameter Type As Double
    MEMBER GET STATUS<&H00008101>() AS enumOutlookOlTaskStatus
    MEMBER LET STATUS<&H00008101>()   'Parameter Type As enumOutlookOlTaskStatus
    MEMBER GET StatusOnCompletionRecipients<&H00000E02>() AS STRING
    MEMBER LET StatusOnCompletionRecipients<&H00000E02>()   'Parameter Type As String
    MEMBER GET StatusUpdateRecipients<&H00000E03>() AS STRING
    MEMBER LET StatusUpdateRecipients<&H00000E03>()   'Parameter Type As String
    MEMBER GET TeamTask<&H00008103>() AS LONG
    MEMBER LET TeamTask<&H00008103>()   'Parameter Type As Long
    MEMBER GET TotalWork<&H00008111>() AS LONG
    MEMBER LET TotalWork<&H00008111>()   'Parameter Type As Long
    MEMBER CALL Assign<&H0000F620>() AS OutlookTaskItem
    MEMBER CALL CancelResponseState<&H0000F622>()
    MEMBER CALL ClearRecurrencePattern<&H0000F0A5>()
    MEMBER CALL GetRecurrencePattern<&H0000F0A4>() AS OutlookRecurrencePattern
    MEMBER CALL MarkComplete<&H0000F60D>()
    MEMBER CALL Respond<&H0000F621>(IN Response AS enumOutlookOlTaskResponse<&H00000000>, IN fNoUI AS VARIANT<&H00000001>, IN fAdditionalTextDialog AS VARIANT<&H00000002>) AS OutlookTaskItem
    MEMBER CALL SEND<&H0000F075>()
    MEMBER CALL SkipRecurrence<&H0000F624>() AS LONG
    MEMBER CALL StatusReport<&H0000F612>() AS VARIANT
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookTaskRequestAcceptItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER CALL GetAssociatedTask<&H0000F014>(IN AddToTaskList AS LONG<&H00000000>) AS OutlookTaskItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookTaskRequestDeclineItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER CALL GetAssociatedTask<&H0000F014>(IN AddToTaskList AS LONG<&H00000000>) AS OutlookTaskItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookTaskRequestItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER CALL GetAssociatedTask<&H0000F014>(IN AddToTaskList AS LONG<&H00000000>) AS OutlookTaskItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookTaskRequestUpdateItem
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Actions<&H0000F817>() AS OutlookActions
    MEMBER GET Attachments<&H0000F815>() AS OutlookAttachments
    MEMBER GET BillingInformation<&H00008535>() AS STRING
    MEMBER LET BillingInformation<&H00008535>()   'Parameter Type As String
    MEMBER GET Body<&H00009100>() AS STRING
    MEMBER LET Body<&H00009100>()   'Parameter Type As String
    MEMBER GET Categories<&H00009001>() AS STRING
    MEMBER LET Categories<&H00009001>()   'Parameter Type As String
    MEMBER GET Companies<&H0000853B>() AS STRING
    MEMBER LET Companies<&H0000853B>()   'Parameter Type As String
    MEMBER GET ConversationIndex<&H00000071>() AS STRING
    MEMBER GET ConversationTopic<&H00000070>() AS STRING
    MEMBER GET CreationTime<&H00003007>() AS DOUBLE
    MEMBER GET EntryID<&H0000F01E>() AS STRING
    MEMBER GET FormDescription<&H0000F095>() AS OutlookFormDescription
    MEMBER GET GetInspector<&H0000F03E>() AS OutlookInspector
    MEMBER GET Importance<&H00000017>() AS enumOutlookOlImportance
    MEMBER LET Importance<&H00000017>()   'Parameter Type As enumOutlookOlImportance
    MEMBER GET LastModificationTime<&H00003008>() AS DOUBLE
    MEMBER GET MAPIOBJECT<&H0000F100>() AS VARIANT
    MEMBER GET MessageClass<&H0000001A>() AS STRING
    MEMBER LET MessageClass<&H0000001A>()   'Parameter Type As String
    MEMBER GET Mileage<&H00008534>() AS STRING
    MEMBER LET Mileage<&H00008534>()   'Parameter Type As String
    MEMBER GET NoAging<&H0000850E>() AS LONG
    MEMBER LET NoAging<&H0000850E>()   'Parameter Type As Long
    MEMBER GET OutlookInternalVersion<&H00008552>() AS LONG
    MEMBER GET OutlookVersion<&H00008554>() AS STRING
    MEMBER GET Saved<&H0000F0A3>() AS LONG
    MEMBER GET Sensitivity<&H00000036>() AS enumOutlookOlSensitivity
    MEMBER LET Sensitivity<&H00000036>()   'Parameter Type As enumOutlookOlSensitivity
    MEMBER GET SIZE<&H00000E08>() AS LONG
    MEMBER GET Subject<&H00000037>() AS STRING
    MEMBER LET Subject<&H00000037>()   'Parameter Type As String
    MEMBER GET UnRead<&H0000F01C>() AS LONG
    MEMBER LET UnRead<&H0000F01C>()   'Parameter Type As Long
    MEMBER GET UserProperties<&H0000F816>() AS OutlookUserProperties
    MEMBER CALL CLOSE<&H0000F023>(IN SaveMode AS enumOutlookOlInspectorClose<&H00000000>)
    MEMBER CALL Copy<&H0000F032>() AS VARIANT
    MEMBER CALL DELETE<&H0000F04A>()
    MEMBER CALL Display<&H0000F0A6>(OPTIONAL IN MODAL AS VARIANT<&H00000000>)
    MEMBER CALL Move<&H0000F034>(IN DestFldr AS OutlookMAPIFolder<&H00000000>) AS VARIANT
    MEMBER CALL PrintOut<&H0000F033>()
    MEMBER CALL Save<&H0000F048>()
    MEMBER CALL SaveAs<&H0000F051>(IN Path AS STRING<&H00000000>, OPTIONAL IN TYPE AS VARIANT<&H00000001>)
    MEMBER CALL GetAssociatedTask<&H0000F014>(IN AddToTaskList AS LONG<&H00000000>) AS OutlookTaskItem
    MEMBER GET Links<&H0000F405>() AS OutlookLinks
END INTERFACE

INTERFACE DISPATCH OutlookUserProperties
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Count<&H00000050>() AS LONG
    MEMBER CALL Item<&H00000051>(IN Index AS VARIANT<&H00000000>) AS OutlookUserProperty
    MEMBER CALL ADD<&H00000066>(IN NAME AS STRING<&H00000000>, IN TYPE AS enumOutlookOlUserPropertyType<&H00000001>, OPTIONAL IN AddToFolderFields AS VARIANT<&H00000002>, OPTIONAL IN DisplayFormat AS VARIANT<&H00000003>) AS OutlookUserProperty
    MEMBER CALL Find<&H00000067>(IN NAME AS STRING<&H00000000>, OPTIONAL IN Custom AS VARIANT<&H00000001>) AS OutlookUserProperty
    MEMBER CALL Remove<&H00000052>(IN Index AS LONG<&H00000000>)
END INTERFACE

INTERFACE DISPATCH OutlookUserProperty
    MEMBER GET Application<&H0000F000>() AS OutlookApplication
    MEMBER GET Class<&H0000F00A>() AS enumOutlookOlObjectClass
    MEMBER GET Session<&H0000F00B>() AS OutlookNameSpace
    MEMBER GET Parent<&H0000F001>() AS VARIANT
    MEMBER GET Formula<&H00000067>() AS STRING
    MEMBER LET Formula<&H00000067>()   'Parameter Type As String
    MEMBER GET NAME<&H00000070>() AS STRING
    MEMBER GET TYPE<&H0000006D>() AS enumOutlookOlUserPropertyType
    MEMBER GET ValidationFormula<&H00000068>() AS STRING
    MEMBER LET ValidationFormula<&H00000068>()   'Parameter Type As String
    MEMBER GET ValidationText<&H00000069>() AS STRING
    MEMBER LET ValidationText<&H00000069>()   'Parameter Type As String
    MEMBER GET Value<&H00000000>() AS VARIANT
    MEMBER LET Value<&H00000000>()   'Parameter Type As Variant
    MEMBER CALL DELETE<&H0000006C>()
END INTERFACE

Leave a comment:

BOB MECHLER replied

8 Dec 2008, 10:50 AM

Program code to exercise the above code

The oOUTLOOK.INC is just the code created by the COM browser.

Code:

#COMPILE EXE "J:\PBSRC\TNET\V1-9X\TESTOEMAIL.exe"
      #INCLUDE "WIN32API.INC"
      #INCLUDE "oOUTLOOK.INC"
      #INCLUDE "EMAIL.INC"
      FUNCTION FNTRM(BYVAL X$) AS STRING
        FNTRM = TRIM$(X$,ANY $SPC + $NUL)
      END FUNCTION
      ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
      ' Trust Management and Accounting System
      ' written by:     BOB MECHLER
      ' written on:     11/26/08
      ' |v2.00 11/26/08 BOB - BT24733 Test email
      ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
      FUNCTION PBMAIN
      
        LOCAL X AS LONG
        LOCAL sTo AS STRING
        LOCAL sAttachment AS STRING
        LOCAL sSubject AS STRING
        LOCAL sBody AS STRING
        LOCAL sMethod AS STRING
        LOCAL emailresult AS LONG
        LOCAL TIM1 AS STRING
        LOCAL TM AS STRING
        TM$ = "Please have the file name and path Ex. c:\pdfs\c.pdf ready as you fill in the prompts that follow."
        TM$ = TM$ + $CRLF + "After the prompts are filled in wait for the message box saying it is done."
        MSGBOX TM$,%MB_OK,"Instructions"
      
Destination:
        IF FNTRM$(sMethod$) = "" THEN
          sMethod$ = INPUTBOX$("D = Draft only/ S = Send only","Sending Options")
          IF LEN(FNTRM$(sMethod$)) = 0 THEN
            MSGBOX("Must have a message body")
            GOTO Destination
          END IF
          sMethod$ = UCASE$(sMethod$)
        END IF
Addressor:
        IF FNTRM$(sFrom$) = "" THEN
          sFrom$ = INPUTBOX$("From :","Addressor")
          IF LEN(FNTRM$(sFrom$)) = 0 THEN
            MSGBOX("Must have an addressor")
            GOTO Addressor
          END IF
        END IF
Recipient:
        IF FNTRM$(sTo$) = "" THEN
          sTo$ = INPUTBOX$("To :","Recipient (full email address (Ex. [email protected])")
          IF LEN(FNTRM$(sTo$)) = 0 THEN
            MSGBOX("Must enter a recipient")
            GOTO Recipient
          END IF
        END IF
Subject:
        IF FNTRM$(sSubject$) = "" THEN
          sSubject$ = INPUTBOX$("Subject :","Subject line")
          IF LEN(FNTRM$(sSubject$)) = 0 THEN
            MSGBOX("Must have a subject")
            GOTO Subject
          END IF
        END IF
Body:
        IF FNTRM$(sBody$) = "" THEN
          sBody$ = INPUTBOX$("Message Body :","Message")
          IF LEN(FNTRM$(sBody$)) = 0 THEN
            MSGBOX("Must have a message body")
            GOTO Body
          END IF
        END IF
Attachm:
        IF FNTRM$(sAttachment$) = "" THEN
          sAttachment$ = INPUTBOX$("Enter the filename and path of the attachment : ","Attachment name")
          IF LEN(FNTRM$(sAttachment$)) = 0 THEN
            MSGBOX("Must have a full attachment filename and path ")
            GOTO Attachm
          END IF
        END IF
      
      lresult& = OEMAIL(sMethod$,sFrom$,sTo$,sSubject$,sBody$,sAttachment$)
      
      
      MSGBOX("Done")
      
      
      END FUNCTION

Leave a comment:

BOB MECHLER started a topic Outlook save to folder under Drafts

8 Dec 2008, 10:48 AM

Outlook save to folder under Drafts

The following is test code that works in sending an email with attachment to the Drafts folder (option D) using Outlook 2000 or higher (at least all the versions I have available).

The program that calls this include file ( I named it EMAIL.INC) takes a method (D for Draft or S for Send) and the other items should be easy to spot what they do)

In playing around with Outlook I tried setting up a rule to move items sent to the drafts folder to another folder directly but that caused the message to act like they were to be replies. If I copied and pasted to a directory I created below the drafts folder they come up to send when I open multiple items.

The users want to create multiple folders for different managers to review the draft before sending to their clients.

The question is: How do I change the target of the
OBJECT CALL o_mlMailItem.save
statement below to be a named folder under the Drafts folder where when the user opens the item it is ready to send with a Ctrl -S.

NOTE: Using a program called Click-Yes, I've got the actual Send licked in that it removes the annoying delay when another program is using Outlook to send emails with or without attachments.

Thanks for any feedback.

Bob Mechler

Code:

FUNCTION OEMAIL(sMethod$,sFrom$,sTo$,sSubject$,sBody$,sAttachment$) AS LONG
  DIM OptnTcp AS INTEGER

  '
  ' send to draft folder or send with the help of Click-Yes
  '
  DIM o_mlApplication AS OutlookApplication
  DIM o_mlNameSpace AS OutLookNameSpace
  DIM o_mlMailitem AS OutLookMailItem
  DIM vSpace AS VARIANT
  DIM vMapi AS VARIANT
  DIM vMail AS VARIANT
  DIM vItemType AS VARIANT
  DIM vSubject AS VARIANT
  DIM vBody AS VARIANT
  DIM vTo AS VARIANT
  DIM vVnt AS VARIANT

  SET o_mlApplication = NEW OutLookApplication IN $PROGID_OutLookApplication
  vMapi = "mapi"

  IF ISFALSE ISOBJECT(o_mlApplication) THEN
    MSGBOX("Unable to open or start Outlook")
    EXIT FUNCTION
  END IF
  OBJECT CALL o_mlApplication.GetNameSpace(vMapi) TO vSpace


  SET o_mlNameSpace = vSpace

  OBJECT CALL o_mlNameSpace.Logon

  IF ISFALSE ISOBJECT(o_mlNameSpace) THEN
    MSGBOX("Unable to open establish a working area")
    EXIT FUNCTION
  END IF

  OBJECT CALL o_mlApplication.CreateItem(vItemType) TO vMail
  SET o_mlMailItem = vMail

  IF ISFALSE ISOBJECT(o_mlMailItem) THEN
    MSGBOX("Unable to create an email")
    EXIT FUNCTION
  END IF

  vSubject = sSubject$
  OBJECT LET o_mlMailItem.Subject = vSubject

  vBody = sBody$
  OBJECT LET o_mlMailItem.Body = vBody

  IF LEN(TRIM$(sTo$)) = 0 THEN
    MSGBOX("There is no recipient email address")
    EXIT FUNCTION
  END IF

  vTo = sTo$
  OBJECT LET o_mlMailItem.To = vTo

  IF LEN(TRIM$(sAttachment$)) > 0 THEN

    vVnt = sAttachment$
    OBJECT CALL o_mlMailItem.Attachments.Add(vVnt)

  END IF
  IF sMethod$ = "D" THEN
    OBJECT CALL o_mlMailItem.save
  ELSEIF sMethod$ = "S" THEN  
    OBJECT CALL o_mlMailItem.send
  END IF
  OBJECT CALL o_mlNameSpace.Logoff

Terminate:
  SET o_mlMailItem = NOTHING
  SET o_mlNameSpace = NOTHING
  SET o_mlApplication = NOTHING

END FUNCTION

Tags: None

Previous template Next

Working...

X