How to get AppointmentItem of Label "Business"

[Guest]

Newbie in Outlook objects trying to loop through all appointments in calendar
to extract appointment items with Label "Business". Please advise and any
sample code will be deeply appreciated. Thanks in advance!

 

[Michael Bauer]

There´s no way via Outlook objects. Please see
http://www.outlookcode.com/codedetail.aspx?id=139 for sample code that
shows how to use CDO 1.21 to set a calendar color label in Outlook 2002
or 2003.

 

[Guest]

Hi Michael, thanks for the reply. Is there some other way of achieving what I
have mentioned? Maybe via "Categories" instead. I just need to loop through
appointment items and extract appointment items of specific type i.e.
"Business", either indicated by "Label" or "Categories".

Thanks again!

 

[Michael Bauer]

Hi juzion,

yes, searching for categories would be another way. This loops through
your standard calendar and searches for "business" in the Appointment´s
categories:

Dim obj as Object
Dim oAppt as Outlook.AppointmentItem

For Each obj in
Application.Session.GetDefaultFolder(olFolderCalendar).Items
if TypeOf obj is Outlook.AppointmentItem Then
Set oAppt=obj
If Instr(oAppt.Categories, "business", vbTextCompare) Then
' match
Endif
Endif
Next