Мне удалось реализовать мое первое «сделать что-нибудь с каждым новым письмом в папке xyz» на основе учебных пособий здесь и здесь (метод ItemAdd).Yey!
Мой следующий вызов - запустить этот макрос, когда я не в сети с моим клиентом Outlook .Есть ли решение для типичной корпоративной ситуации, когда у меня нет доступа к серверу outlook?
Мое резервное решение не выключает мой ноутбук на ночь ...Спасибо!
кстати мой макрос выглядит как
Option Explicit
Private objNS As Outlook.NameSpace
Private WithEvents objNewMailItems As Outlook.Items
Private Sub Application_Startup()
Dim objMyInbox As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objMyInbox = objNS.Folders("inbox@host.com").Folders("Inbox")
Set objNewMailItems = objMyInbox.Items
Set objMyInbox = Nothing
End Sub
Private Sub objNewMailItems_ItemAdd(ByVal Item As Object)
'Ensure we are only working with e-mail items
If Item.Class <> olMail Then Exit Sub
'do something here with the incoming email
End Sub