Всем привет!
Есть следующий код

Private ol As Outlook.Application

Sub GetFolderContents()

Dim objOutlook As New Outlook.Application
Dim objNameSpace As NameSpace
Dim objFolder As MAPIFolder
Dim i As Integer

Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNameSpace.Folders(1).Folders("Входящие")
MsgBox objFolder.Items.Count

Set objFolder = Nothing
Set objNameSpace = Nothing
Set objOutlook = Nothing

End Sub

Так вот msgbox упорно показывает 0, хотя письма имеются.

Такой вопрос может это работает только в англоязычной версии, и если да, то что делать в русскоязычной.

Да, это работает в Outlook-e, а что ж делать с Outlook Express, может кто подскажет каким макаром к ней подойти. Спасибо!!!

Все вопрос, снимается "программный доступ к Outlook Express не поддерживается". Вот такие пироги.