VBA Outlook автоматически маркирует все письма в папке как прочитанные

Question

Я создал правило в своем Outlook. Это правило экспортирует некоторые из моих писем в папку под названием «Другие», если их субъекты содержат определенное слово. Через VBA я хочу автоматически пометить все электронные письма в папке «Другие» как прочитанные, либо при запуске Outlook, либо при получении электронных писем, которые нужно отправить в папку «Другие».

Answer 1

Убедитесь, что макро параметры безопасности установлены правильно:

для Outlook 2010 и выше: Файл, Параметры, Trust Center, Параметры центра безопасности макросов в противном случае, вы должны будете использовать SelfCert .exe, чтобы подписать ваши макросы, чтобы проверить их, которые я настоятельно рекомендую

Email будет помечен как прочитанный, когда он будет перемещен во вложенную папку («Другие»).

Поместите код в модуль ThisOutlookSession, вы должны перезапустить Outlook.

Проверено на Outlook, 2010

Private WithEvents Items As Outlook.Items 

Private Sub Application_Startup() 
    Dim olNs As Outlook.NameSpace 
    Dim Folder As Outlook.MAPIFolder 

    Set olNs = Application.GetNamespace("MAPI") 
    Set Folder = olNs.GetDefaultFolder(olFolderInbox) 
    '// change the folder if need here 
    Set Folder = olFolder.Folders("Others") 
    Set Items = Folder.Items 
End Sub 

Private Sub Items_ItemAdd(ByVal Item As Object) 
    Item.UnRead = False 
    Item.Save 
End Sub