在 VBA 脚本中调用 Outlook 功能区功能“主页”->“移动”->“移动”->“其他文件夹”答案

【问题标题】：Calling Outlook Ribbon function "Home" -> "Move" -> "Move" -> "Other Folder" in VBA script在 VBA 脚本中调用 Outlook 功能区功能“主页”->“移动”->“移动”->“其他文件夹”
【发布时间】：2022-01-02 22:13:06
【问题描述】：

我经常使用“移动 -> 其他文件夹”将电子邮件移动到我的分支存档系统。拖放对我冗长的存档没有用，我喜欢发送到 onenote 和“移动 - > 其他文件夹”子菜单之间的相似性。但是，必须单击“移动”，然后滚动到“其他文件夹”，这很烦人。

因此，我想知道是否可以从 VBA 宏中直接打开“其他文件夹”子菜单？如果是这样，我该如何调用这个函数？由于我已经创建了一堆 VBA 脚本，只需按一下按钮即可将邮件转换为不同类型的任务/日历项目，因此后一个函数调用将是一个很好的补充。

提前致谢！

【问题讨论】：

请提供足够的代码，以便其他人更好地理解或重现问题。

标签： vba outlook

【解决方案1】：

Outlook VBA 可以使用 ExecuteMso 模拟按钮按下。

将鼠标悬停在要将其添加到功能区的按钮上，您将看到包含“MoveToFolder”的文本。

Private Sub ExecuteMso_MoveToFolder()

    ' https://docs.microsoft.com/en-us/office/vba/api/Office.CommandBars.ExecuteMso

    Dim oMail As mailItem
    Set oMail = ActiveInspector.CurrentItem
    Debug.Print oMail.subject
    
    ActiveInspector.CommandBars.ExecuteMso ("MoveToFolder")
 
End Sub

【讨论】：