|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с Глобальным списком адресов Outlook
Добрый день!
Есть VBA код: Sub test() Dim oNamespace As Namespace Dim oFolder As MAPIFolder Dim oContactItem As ContactItem Set oNamespace = Outlook.Application.GetNamespace("MAPI") Dim AE As AddressEntry Dim r r = 1 For Each AE In Outlook.Application.Session.AddressLists("Глобальн ый список адресов").AddressEntries Cells(r, 1) = AE.Name Cells(r, 2) = AE.Address r = r + 1 Next End Sub Как перевести его в формат Delphi 7? Какие еще поля списка можно вытащить кроме имени и адреса? |