Public Sub search_result_AdvancedSearchComplete(ByVal SearchObject As _
    outlook.Search)
  Dim OLRS As outlook.Results
  Dim i as Long
 
  Set OLRS = SearchObject.Results
 
  For i = 1 To OLRS.Count
      If OLRS.Item(i).IsConflict Then