Dim Stmp as String
Dim OLap As Outlook.AppointmentItem
Dim OLrs As Outlook.Results
Dim OLsr As Outlook.Search
 
    Stmp = ""
    Stmp = Stmp & "urn:schemas-microsoft-com: office: office#Keywords like" & _
      "'Work'"
' entferne die Lücke zwischen : und office. wenn ichs hier ohne Lücke rein 
' paste, kommt ein smiley
    Stmp = Stmp & " AND "
    Stmp = Stmp & "urn:schemas:calendar:dtstart >= '" & Format(now(), _
      "dd/mmm/yyyy") & "'"
    Stmp = Stmp & " AND "
    Stmp = Stmp & "urn:schemas:calendar:dtstart < '" & Format(now() + 1, _
      "dd/mmm/yyyy") & "'"
Set OLsr = Outlook.AdvancedSearch(Scope:="Calendar", Filter:=Stmp, _
SearchSubFolders:=False, Tag:="SearchWork")
Set OLrs = OLsr.Results
OLrs.Sort "[start]", True
    For Each OLap In OLrs 
          ' OLAP ist jetzt Dein Termin
    Next OLap