Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Контактный лист в Outlook / 5 сообщений из 5, страница 1 из 1
31.08.2005, 17:21:42
    #33244169
apk1970
apk1970
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контактный лист в Outlook
Господа!

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

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, до того, как что-либо с ним делать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.09.2005, 10:54:00
    #33245205
apk1970
apk1970
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контактный лист в Outlook
Нет ответа?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2005, 12:59:03
    #33248161
apk1970
apk1970
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контактный лист в Outlook
Поднимаю рейтинг вопроса - ну очень надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.09.2005, 18:38:10
    #33249329
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контактный лист в Outlook
А запустить Outlook нажать в нем Alt+F11, потом F2, найти в списке объектов ContactItem и вдумчиво пошариться по списку его параметров совсем не судьба да?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
dim ci as Object
for each ci in GetNamespace("MAPI").folders( 2 ).folders("Contacts").items( 1 )
   if ci.Class = olContact then
      debug.print ci.FullName
   elseif ci.Class = olDistributionList
     debug.print ci.DLName
  endif
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2005, 16:01:17
    #33254335
apk1970
apk1970
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Контактный лист в Outlook
Спасибо. То, что надо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Контактный лист в Outlook / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 339ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185771]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 223ms
total:  339ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]