here is a basic macro for appointments. just open
your 'locals' pane and see the properties you can set.

Dim myOlApp As New Outlook.Application
Dim mynamespace As Outlook.NameSpace
Dim appt As AppointmentItem
Set myOlApp = CreateObject("Outlook.Application")
Set mynamespace = myOlApp.GetNamespace("MAPI")
Set myfolder = mynamespace.GetDefaultFolder
(olFolderCalendar)
   
Count = 1
For Each myitem In myfolder.Items
'    Set MailItem = mailfolder.Items(Count)
   myclass = myitem.Class
   Select Case myclass
   Case 26 'olAppointment 26
       Set appt = myitem
       Subject = appt.Subject
       ID = Left(Subject, 3)
       Select Case ID
       Case "BUS"  'Business label
       Case "PER"  'Personal label
       Case "MA" 'Must Attend label
       Case Else
           ID = Left(Subject, 3)
           Select Case ID
           Case "BUS"  'Business label
           Case "PER"  'Personal label
           Case "MA" 'Must Attend label
           End Select
       End Select
   Case 43 'olMail 43
       x = "mail"
   Case Else
       MsgBox ("invalid class: " & myclass)
   End Select
   Count = Count + 1
Next