Мне нужен макрос Outlook, который будет контролировать определенную папку (не входящие по умолчанию), поэтому он запускает другой макрос при добавлении элементов - PullRequest
1 голос
/ 08 мая 2019

Я создал 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 как хранилище?

1 Ответ

0 голосов
/ 08 мая 2019

Отсутствует S на objNS.Folder Должно быть objNS.Folders("All Inbox").Folders("Inbox")

Application_Startup Событие должно быть под ThisOutlookSession модулем класса, и вы можететакже ваш сабвуфер RunRules находится в том же модуле.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...