Я создал pst-файл с именем All Inbox и у меня есть правила для перемещения всей электронной почты из всех других учетных записей в свою Inbox.У меня есть макрос, который запускает все эти правила одновременно (RunRules) для обработки сообщений (перемещение, печать, файл и т. Д.) Из папки «Все входящие / входящие», но я должен запустить его вручную (у меня есть кнопка на панели быстрого доступа).Панель инструментов доступа).
Мне нужен макрос, который отслеживает папку «Все входящие / входящие», а затем запускает мой макрос RunRules для обработки новых элементов, перемещенных в папку «Все входящие / входящие».
Я используюпоследняя версия Outlook с Office 365. Я искал нужный макрос, но не смог найти именно его.Некоторые выглядят близко, но весь код, который я видел, получает папку по умолчанию.Я не знаю, как изменить код, который я видел, чтобы указать папку All Inbox / Inbox.
Я также не знаю, куда поместить опции, сабы и т. Д. Все в новом модуле?
Option Explicit
Private WithEvents objItems As Outlook.Items
Private Sub Application_Startup()
Dim objNS As Outlook.NameSpace
Dim objWatchFolder As Outlook.Folder
Set objNS = Application.GetNamespace("MAPI")
Set objWatchFolder = objNS.Folder("All Inbox").Folders("Inbox")
Set objItems = objWatchFolder.Items
End Sub
Private Sub olkFolder_ItemAdd(ByVal Item As Object)
Dim xitem As Outlook.MailItem
If Item.Class = olMail Then
RunRules
End If
End Sub
Очевидно, я не знаю, что я делаю!Я ожидаю, что макрос будет отслеживать указанную папку и запускать макрос RunRules, когда что-либо добавляется в него.Нужно ли указывать All Inbox как хранилище?