зачем брать из outlook контакты, чтобы вставить в иксель, чтобы рассылать письма?  
 
рассылать письма - задача outlook.  
в аутлуке:  
Application.Session.AddressLists(...)

Попробуйте из excel запустить что-то вроде  
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  
 
ps в reference надо подключить библиотеку Microsoft outlook

AE - это переменная (в подсказке надо искать AddressEntry)  
 
А что касается контактов, попробуйте так:  
Sub test()  
Dim oNamespace As Namespace  
Dim oFolder As MAPIFolder  
Dim oContactItem As ContactItem  
Set oNamespace = Outlook.Application.GetNamespace("MAPI")  
Set oFolder = oNamespace.GetDefaultFolder(olFolderContacts)  
Dim r  
r = 1  
For Each oContactItem In oFolder.Items  
   Cells(r, 1) = oContactItem.Email1Address  
   r = r + 1  
Next  
End Sub

{quote}{login=SVM}{date=24.12.2010 05:43}{thema=}{post}Спасибо! Все получается, но все-таки надо почитать про объекты Outlook.  
Хоть и не часто, но повидимому с ними прийдется сталкиваться.{/post}{/quote}  
Совет: поставьте паузу после строки Cells(r, 1) = oContactItem.Email1Address  
и в окне Locals изучиете переменную oContactItem - по контексту станет понятно, какие свойства что означают