ник: osmor
каких папок? тех что в почте? или тех что в контактах?
в почте примерно так
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Set myNameSpace = myOlApp.GetNamespace("MAPI")
for each myFolder in myNameSpace.GetDefaultFolder(olFolderInbox).Folders
debug.print myFolder.Name
next
|
в контактах вместо olFolderInbox использовать olFolderContacts
код не проверял, нет Outlook