Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items

Option Explicit
 
Public WithEvents Termine As Outlook.Items
 
Private Sub Application_Startup()    
    Set Termine = Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub
 
Private Sub Termine_ItemAdd(ByVal Item As Object)
Dim selDay As Date
 
    MsgBox "Termine_ItemAdd => " & Item.Start & " - " & Item.Subject	
    selDay = GetSelectedDay	
    MsgBox CStr(selDay)
End Sub
 
Private Sub Termine_ItemChange(ByVal Item As Object)
    Dim selDay As Date
 
    MsgBox "Termine_ItemChange => " & Item.Start & " - " & Item.Subject
    selDay = GetSelectedDay
    MsgBox CStr(selDay)
End Sub
 
Private Sub Termine_ItemRemove()
Dim selDay As Date
 
    MsgBox "Termine_ItemRemove"
    selDay = GetSelectedDay
    MsgBox CStr(selDay)
End Sub
 
Function GetSelectedDay() As Date
 Dim objView As CalendarView
 
 ' Check if the current view is a calendar view.
 If Application.ActiveExplorer.CurrentView.ViewType = _
    olCalendarView Then
 
    ' Obtain a CalendarView object reference for the current calendar view.
    Set objView = Application.ActiveExplorer.CurrentView
 
    GetSelectedDay = objView.SelectedStartTime
 End If
End Function