Dim objNameSpace As Outlook.NameSpace
  Dim olApp As Outlook.Application
  Dim Kalendereintrag As Outlook.AppointmentItem
  Dim fldKalender As Outlook.MAPIFolder
 
  olApp = New Outlook.Application
  objNameSpace = olApp.GetNamespace("MAPI")
  fldKalender = objNameSpace.GetDefaultFolder( _
    Outlook.OlDefaultFolders.olFolderCalendar)
  For Each Kalendereintrag In fldKalender.Items
  u.s.w.