相关疑难解决方法(0)

我需要知道如何一次移动对话中的所有消息.

我的宏目前正在阅读

Sub Archive()
    Set ArchiveFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders("Archive")
    For Each Msg In ActiveExplorer.Selection
        Msg.UnRead = False
        Msg.Move ArchiveFolder
    Next Msg
End Sub

但这只会移动最新消息......并且只有当对话完全崩溃时!在扩展对话时我无法存档.