описывающий, как использовать событие FolderChange вместе с некоторым примером кода, который я изменил в соответствии со своими потребностями.
аружил, что случайно перемещаю элементы электронной почты в папку «Архив» вместо стандартной папки в MS Outlook. Например, для адреса электронной почты [email protected] я открываю Архив, чтобы найти старое электронное письмо в папке «KeepThis», но затем я забываю свернуть папку «Архив» и поэтому случайно ненароком перевожу какое-то другое сообщение электронной почты позже в Папка Archive / KeepThis, когда я действительно хотел переместить ее в папку [email protected]/KeepThis.
Есть ли способ использовать код VBA для предупреждения пользователя, когда элемент электронной почты вручную перемещается в папку архива?
Я безуспешно пытался изменить код @thims всоздание-прогноз-правила, которые спуски-после переезда почты к частному папка показать сообщение, но не смог понять, как заставить его срабатывать, когда я переместил почтовый элемент вЛюбые папка ни в моей основной папке электронной почты, ни в архиве.
Вот что я попробовал:
(1) Я добавил следующий код в ThisOutlookSession (очевидно, с моим реальным адресом электронной почты):
Public WithEvents FolderItems As Outlook.Items
Private Sub Application_Startup()
Set FolderItems = Session.Folders("[email protected]").Folders("Misc").Items
End Sub
Private Sub FolderItems_ItemAdd(ByVal Item As Object)
MsgBox "ItemAdd event was triggered in folder Misc"
End Sub
Это работаетесли Я перемещаю элемент электронной почты в папку «Разное» в моей неархивированной учетной записи электронной почты. Ура.
Но я не могу понять, как установить объект FolderItems для запуска при перемещении электронной почты вЛюбые папка.
(2) Я могу ссылаться на общую папку архива, используя:
Set FolderItems = Session.Folders("Archives").Folders("Misc").Items
Но это срабатывает только в том случае, если я перемещаю что-то в определенную папку «Разное» в Архивах и хочу вызвать событие, когда электронное письмо перемещается вЛюбые Архивная папка, а не просто папка «Разное».
я пробовал
Set FolderItems = Session.Folders("Archives").Items
но это не работает - ошибки нет, она просто не срабатывает, когда я перемещаю электронное письмо в какую-либо папку, и не срабатывает, когда новая папка добавляется / создается в архивах; поэтому я не уверен, что с этим кодом сработает.
Спасибо за любые указатели, чтобы получить вещи дальше!