Господа!

С помощью нехитрой процедуры -

Sub CountContacts()

Dim myOLApp As New Outlook.Application
Dim myNameSp As NameSpace
Dim myFolders As Outlook.Folders
Dim myContact As Outlook.ContactItem

Dim ii As Integer
Set myNameSp = myOLApp.GetNamespace("MAPI")
Set myFolders = myNameSp.Folders
For ii = 1 To myFolders.Item("Личные папки").Folders.Item("Контакты").Folders.Item("Выр").Items.Count
myContact = myFolders.Item("Личные папки").Folders.Item("Контакты").Folders.Item("Выр").Items.Item(ii)
Next ii
End Sub

пытаюсь пройтись по фолдеру с контактами. Беда в том, что помимо контактов в фолдере "Выр" есть еще объекты типа "Группа рассылки". Как можно определить к какому типу относится объект в коллекции Items, до того, как что-либо с ним делать?

Нет ответа?

Поднимаю рейтинг вопроса - ну очень надо

Спасибо. То, что надо.