Здравствуйте, уважаемые форумчане!
Есть макрос, который все элементы, попадающие в корзину, делает прочитанными.
Он начинает работать тогда, когда я его запускаю вручную.
А можно ли сделать так, чтобы он автоматически запускался вместе с запуском самого Outlook?
Есть макрос, который все элементы, попадающие в корзину, делает прочитанными.
Он начинает работать тогда, когда я его запускаю вручную.
А можно ли сделать так, чтобы он автоматически запускался вместе с запуском самого Outlook?
| Код |
|---|
Private
WithEvents DeletedItemsFolder As Outlook.Folder
Private
WithEvents DeletedItemsItems As Outlook.Items
Private Sub
Application_Startup()
Dim outlookApp As Outlook.Application
Set outlookApp = Outlook.Application
' Получаем папку "Корзина"
Dim mailbox As Outlook.MAPIFolder
Set mailbox =
outlookApp.GetNamespace("MAPI").GetDefaultFolder(olFolderDeletedItems)
Set DeletedItemsFolder = mailbox
Set DeletedItemsItems =
DeletedItemsFolder.Items
End Sub
Private Sub
DeletedItemsItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
' Помечаем
добавленный элемент как прочитанный
Item.UnRead =
False
' Очищаем память
Set Item = Nothing
End Sub
|
Изменено: - 25.07.2024 08:58:31
