Outlook Field Numbers

'1 Class 26
'2 Session Mapi
'3 Parent Calendar
'10 ConversationIndex 01DA478B7387E938C2B1B3A048DDB2B6D978B3E41A9B
'11 ConversationTopic Cindy Adair's Birthday
'12 CreationTime 1/14/2024 10:18:42 PM
'13 EntryID 00000000467C96567E1F464992F47C0FD405258C64012000
'14 FormDescription
'15 GetInspector Cindy Adair's Birthday
'16 Importance 1
'17 LastModificationTime 1/14/2024 10:18:42 PM
'18 MessageClass IPM.Appointment
'19 Mileage
'20 NoAging False
'21 OutlookInternalVersion 115608
'22 OutlookVersion 11#
'23 Saved True
'24 Sensitivity 0
'25 Size 766
'26 Subject Cindy Adair's Birthday
'27 UnRead False

'29 AllDayEvent False
'30 BusyStatus 0
'31 Duration 1440
'32 End 10/11/1833 5:00:00 AM
'33 IsOnlineMeeting False
'34 IsRecurring True
'35 Location
'36 MeetingStatus 0
'37 NetMeetingAutoStart False
'38 NetMeetingOrganizerAlias
'39 NetMeetingServer
'40 NetMeetingType 0
'41 OptionalAttendees
'42 Organizer Rick Shaddock

'44 RecurrenceState 1
'45 ReminderMinutesBeforeStart 15
'46 ReminderOverrideDefault False
'47 ReminderPlaySound False
'48 ReminderSet True
'49 ReminderSoundFile
'50 ReplyTime 1 / 1 / 4501
'51 RequiredAttendees
'52 Resources
'53 ResponseRequested True
'54 ResponseStatus 0
'55 Start 10/10/1833 5:00:00 AM
'56 NetMeetingDocPathName
'57 NetShowURL

'59 ConferenceServerAllowExternal True
'60 ConferenceServerPassword

'62 DownloadState 1
'63 InternetCodepage 28591
'64 MarkForDownload 0
'65 IsConflict False
'66 MeetingWorkspaceURL
'67 AutoResolvedWinner False
 

Example:

dDateTime1 = oCurItem.ItemProperties(nfield).Value

Program to create this list:

Set oCurItem = oAllItems.Item(1)
For nY = 100 To 1000
If nY = 28 Or nY = 5 Or nY = 6 Or nY = 7 Or nY = 8 Or nY = 9 Then
    'skip
    cPrev = ""
Else
    nfieldVal = oCurItem.ItemProperties(nY).Value
    cFieldVal = oCurItem.ItemProperties(nY).Name
    If cPrev = cFieldVal Then
        ' skip
    Else
        Debug.Print nY & " " & cFieldVal & " " & nfieldVal
    End If
    cPrev = cFieldVal
End If
Next