У меня есть Макрос Outlook , который помечает как прочитанное и перемещает все сообщения в беседе в другую папку.Я назначил макрос кнопке под названием «Архив».Однако я не могу «отменить» это действие.Если я
- удаляю сообщение
- заархивирую сообщение
- отменить
В итоге я удаляю сообщение.Я думал, что уберу сообщение.Если я перемещаю сообщение, перетаскивая его в другую папку, отмена работает так, как я ожидаю.Вот макрос, кто-нибудь знает, почему он не поддерживает отмену?
Sub ArchiveConversation()
Set ArchiveFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders("Archive")
Set Conversations = ActiveExplorer.Selection.GetSelection(Outlook.OlSelectionContents.olConversationHeaders)
For Each Header In Conversations
Set Items = Header.GetItems()
For i = 1 To Items.Count
Items(i).UnRead = False
Items(i).Move ArchiveFolder
Next i
Next Header
End Sub
Или я должен кодировать в поддержку отмены?