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

MAPIMessages1.RecipDisplayName
MAPIMessages1.RecipAddress

MAPIMessages1.FaxNumber
MAPIMessages1.PhoneNumber

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

	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);