Article ID: 183096
Article Last Modified on 6/6/2005
'This snippet assumes that you have logged on with a valid profile,
'and that the Folder it points to will include a number of messages
'of class IPM.Appointment in order to test the GetFirst(filter).
'
objSession.SetOption "CalendarStore", "Outlook"
Set objCalendarFolder = _
objsession.GetDefaultFolder (CdoDefaultFolderCalendar)
Set objMessageColl = objCalendarFolder.Messages
'Set filter condition of GetFirst to IPM.Note in order to get
'the first message with a class of IPM.Note.
Set objApptItem = objMessageColl.GetFirst("IPM.Note")
RESULT:
Keywords: kbnofix kbmsg kbprb KB183096