Global OLAP As Outlook.Application
Global OLIT As Outlook.AppointmentItem
Global OLNS As Outlook.NameSpace
 
Sub GET_FROM_OUTLOOK()
 
Set OLAP = New Outlook.Application
Set CLAS.search_result = OLAP
Set OLNS = OLAP.GetNamespace("MAPI")
 
OLAP.AdvancedSearch _
    "Calendar" _
    , "urn:schemas-microsoft-com: office: office#Keywords like '" & Scat & "'" _
    , False, Capp
End Sub

Public WithEvents search_result As Outlook.Application
 
Public Sub search_result_AdvancedSearchComplete(ByVal SearchObject As _
  Outlook.Search)
Dim OLRS As Outlook.Results
Dim OLOB As Object
 
If SearchObject.Tag <> Capp Then Exit Sub 
' Stelt sicher, dass nicht auf Suchereignisse reagiert wird, 
' die der User manuell in OL angestoßen hat.
Set OLRS = SearchObject.Results
OLRS.Sort "Start", 2 ' - olAscending
For i = 1 To OLRS.Count
    If OLRS.Item(i).IsConflict  Then
        OLRS.Item(i - 1).Display
        If MsgBox("A conflict has been detected." & vbCrLf & "Shall I stop ?", _
          vbQuestion + vbYesNo, Capp) = vbYes Then
            Stop
        End If
    Else
        Set OLIT = OLRS.Item(i)
' [...] 
        Set OLIT = Nothing
    End If
Next i
Set OLRS = Nothing
End Sub