Developing.ru

Задача следующая: нужно отфильтровать items в папке Journal, затем сгруппировать по полю [Company], и результаты поместить в документ excel.
Затруднения возникли с группировкой...

Sub
If CheckBoxClientFilter.Value Then
'filtering
Set colJournalItems = colJournalItems.Restrict("[Company] = " & Chr$(34) & TextBoxClientName.Text & Chr$(34))
End If

' group by

Call GenericExcelReport
Call RestoreExcel
end sub

Подскажите, пожалуйста, каким образом можно сгруппировать записи в Journal (так, как это можно сделать в соотв. окне Outlook (пр. кнопка - group by))?

Заранее благодарен