Доступ к диалоговому окну Адресной Книги + выбор нестандартных полей: телефон, факс - VB

Формулировка задачи:

Те. задача:
1) Вывести адресную книгу Win (по умолчанию, напр. Outlook Express если XP)
2) Пользователь выбирает адресатов и нажимает OK
3) Должны быть выбраны не e-mail адреса а такие поля как:
Служебные ->телефон
Служебные ->факс
Домашние ->телефон
Домашние ->факс
У себя на компе я нарыл свою же прогу 10-летней давности, кот. делает выборку DisplayName-Email (прилагается, не с пустыми же руками вопросы задавать).
Там есть кнопка
Адресаты,
кот. делает что я хочу + добавляет DisplayName-Email в ListView.
Мне надо чтоб вместо e-mail добавлялся номер факса (как это делает Microsoft Fax если кто знаком).
Рабочий код:

Private Sub AdressSelect()
Dim i As Integer
Dim LItem As ListItem
'Выбор адресатов
On Error GoTo AdressError
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Compose
    'Восстановление адресатов из списка
    For i = 1 To ListView1.ListItems.Count
        MAPIMessages1.RecipIndex = i - 1
        MAPIMessages1.RecipAddress = ListView1.ListItems(i).SubItems(2)
        MAPIMessages1.RecipDisplayName = ListView1.ListItems(i).SubItems(1)
    Next i
    'Показ диалогового окна адресатов
    MAPIMessages1.Show False
    ListView1.ListItems.Clear
    For i = 0 To MAPIMessages1.RecipCount - 1
        MAPIMessages1.RecipIndex = i
        Set LItem = ListView1.ListItems.Add
        LItem.SubItems(1) = MAPIMessages1.RecipDisplayName
        LItem.SubItems(2) = MAPIMessages1.RecipAddress
    Next i
    MAPISession1.SignOff
    Exit Sub
AdressError:
    MAPISession1.SignOff
    If Err.Number = 32001 Then Exit Sub
    MsgBox "Неизвестная ошибка!"
End Sub

Я даже готов использовать MAPISession/MAPIMessages (правда если только через CreateObject, ненавижу раннее связывание).
Но проблема в том что контролы предоставляют

MAPIMessages1.RecipDisplayName
MAPIMessages1.RecipAddress

но похоже недоделаны на тему

MAPIMessages1.FaxNumber
MAPIMessages1.PhoneNumber

(этого нет).
Я нашел некоторые намеки на требуемое:
http://tech.groups.yahoo.com/group/outlook-dev/message/18818

Const CdoPR_TRANSMITABLE_DISPLAY_NAME_A = &H3A20001E
Const CdoPR_BUSINESS_TELEPHONE_NUMBER = &H3A08001E
Const CdoPR_PRIMARY_FAX_NUMBER = &H3A23001E

Но пока не понимаю как увязать.
Может кто чуть подтолкнет?

Решение задачи: «Доступ к диалоговому окну Адресной Книги + выбор нестандартных полей: телефон, факс»

textual
                            Листинг программы 
                        

                            hr = MAPILogonEx (NULL, szProfileName, NULL, MAPI_EXTENDED| MAPI_NEW_SESSION| 
	  MAPI_LOGON_UI| MAPI_EXPLICIT_PROFILE,&m_pSession);
	if (FAILED (hr)) 
	{
		return E_FAIL;
	}

	SizedSPropTagArray ( 8, sptCols ) = { 8,
									PR_ENTRYID,PR_DISPLAY_NAME,PR_ACCOUNT,
									PR_OBJECT_TYPE,PR_OFFICE_LOCATION,PR_COMPANY_NAME, 
									PR_EMAIL_ADDRESS,PR_OFFICE_TELEPHONE_NUMBER};



	hr = m_pSession->OpenAddressBook(NULL,NULL,AB_NO_DIALOG,&m_pAddrBook);

                        