☰

在 Outlook 中，如何选择所有邮件并单击将其移动到文件夹？

tag-icon • tag-icon microsoft-outlook automation
在 Outlook 中，如何选择所有邮件并单击将其移动到文件夹？

我喜欢顶部可定制的“快速操作”，我已经设置了一些操作来将内容移动到各个文件夹或将消息转换为约会等。但有一件事我仍然无法弄清楚如何去做，那就是有一个按钮可以选择一个文件夹中的所有消息，然后将它们移动到另一个指定的（预配置的）文件夹中。

基本上，从我的收件箱中，我希望通过一个按钮将所有邮件移动到另一个文件夹中，而不必先按 Ctrl+A 来全选它们。

这可能吗？

答案1

这是可能的；不过您需要编写一个宏来执行此操作。

从 ”编写 Outlook 宏“：

宏是代码模块中的任何公共子程序。函数或私有子程序不能是宏，宏不能位于类或窗体模块中。

创建新宏

  1. 在 Outlook 中，指向“工具”菜单上的“宏”，然后单击“Visual Basic 编辑器”。
  2. 在项目窗口中，双击想要包含宏的模块。
  3. 在插入菜单上，单击过程。
  4. 在名称框中，键入宏的名称。名称不能包含空格。
  5. 单击“确定”。（宏子程序的模板出现在代码模块窗口中）。
  6. 在子程序主体中输入想要运行的代码。

以下是一些示例代码（未经测试），可帮助您入门：

Sub MoveItems() 

  Dim Messages As Selection 
  Dim Msg As MailItem 
  Dim NS As NameSpace 

  Set NS = Application.GetNamespace("MAPI") 
  Set Messages = ActiveExplorer.Selection 

  If Messages.Count = 0 Then 
    Exit Sub 
  End If 

  For Each Msg In Messages 
    Msg.Move NS.Folders("Personal Folders").Folders("SavedMail") 
  Next 

End Sub

相关内容