ook.SortObject
            .Clear
            For i = 0 To iNumber
               .SortColumn(i + 1) = grdOutlook.ColumnIndex(sGroupColumns(i))
               .SortOrder(i + 1) = eOrder(i)
               If grdOutlook.ColumnSortType(sGroupColumns(i)) = CCLSortDate Then
                  .SortType(i + 1) = CCLSortDateDayAccuracy
               Else
                  .SortType(i + 1) = grdOutlook.ColumnSortType(sGroupColumns(i))
               End If
            Next i
         End With
         grdOutlook.So