Проверка непрочитанных писем в Outlook

[МоКом]

Хочу получить темы всех непрочитанных писем в папке Inbox:

Set objMessage = objSession.Inbox.Messages
For Each objMessage In objSession.Inbox.Messages
If objMessage.Unread = True Then
MsgBox (objMessage.Subject)
End If
Next objMessage

Все клево работает. А как мне подправить код, что бы получить темы непрочитанных писем в папке My_Inbox, размещенной внутри папки Inbox?

[Artdevil]

У меня почти таже проблема
не подскажешь где можно найти инфу
буду благодарен

[МоКом]

Я разобрался.

Допустим в папке "Входящие" есть папка "МоКом". Вопрос: как активизировать какое-нить событие, возникающее по прибытию в папку "МоКом" нового письма.

А вот и код:



'Объявляем объект коллекции Items
Public WithEvents mocom_folder As Outlook.Items



Private Sub Application_Startup()

'назначаем объект коллекции Items свойству Items папки "Входящие"
Set inbox_folder = Application.GetNamespace("MAPI").GetDefaultFolder(6)
'назначаем объект коллекции Items свойству Items папки "МоКом"
Set mocom_folder = inbox_folder.Folders.Item("МоКом").Items

End Sub



'Процедура обработки события ItemAdd (поступление нового письма) для объекта mocom_folder (папки "МоКом")
Private Sub mocom_folder_ItemAdd(ByVal Item As Object)
Set new_mail = Item
MsgBox (new_mail.Subject)
End Sub