Как открыть контакты Outlook в Word средствами VBA

Medioll Medioll

Подскажите (лучше кодом) как в Word(е) открыть для выбора контакты Outlook для дальней шего выбора контакта и работы с его данными

Гость Гость

Sub ПоказатьИмяКонтактов()
Dim myOlApp, myNameSpace, myContactFolder
Dim i, ContactName, MyContactItem
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp. GetNamespace("MAPI")

Set myContactFolder = myNameSpace. GetDefaultFolder(10) 'olFolderContacts

   For i = 1 To 10 'myContactFolder.Items.Count
      Set MyContactItem = myContactFolder. Items.Item(i)
      If MyContactItem. Class = 40 Then ' Если класс элемента контакт Outlook-а то есть = olContact (могут еще быть списки)
           ContactName = MyContactItem. FullName
           MsgBox ContactName
      Else
      End If
   Next 'i
End Sub

Добавить комментарий | Похожие обсуждения

Вопросы и ответы по Вконтакте
Вопросы и ответы

Популярные вопросы и ответы о социальной сети www.vkontakte.ru (vk.com)