如何将文件夹变量传递给Outlook VBA的MoveTo方法？

问题场景 #

要实现将Outlook当前选中的邮件文件夹移动到名为“archive 2023”的文件夹中，已正确获取current_folder（当前选中文件夹）和archive_folder（目标归档文件夹）对象，但调用current_folder.MoveTo(archive_folder)时触发“对象预期”错误。逐行调试确认变量赋值无误，尝试接收MoveTo返回的Folder对象仍无法解决问题，最终去掉方法调用的括号后代码正常运行。

错误原因 #

VBA中调用方法的括号规则：

• 当不接收方法返回值时，调用方法不需要加括号；若强行添加括号，VBA会将参数作为表达式强制求值，可能导致类型不匹配，触发“对象预期”错误。
• Folder.MoveTo方法会返回移动后的新Folder对象，若不需要这个返回值，直接调用时不能加括号。

代码示例 #

错误写法（触发报错） #

Sub MoveSelectedFolder_Wrong()
    Dim current_folder As Outlook.Folder
    Dim archive_folder As Outlook.Folder
    
    Set current_folder = Application.ActiveExplorer.CurrentFolder
    Set archive_folder = Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("archive 2023")
    
    ' 错误：无返回值接收时加了括号
    current_folder.MoveTo(archive_folder)
End Sub

正确写法（去掉括号） #

Sub MoveSelectedFolder_Correct()
    Dim current_folder As Outlook.Folder
    Dim archive_folder As Outlook.Folder
    
    Set current_folder = Application.ActiveExplorer.CurrentFolder
    Set archive_folder = Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("archive 2023")
    
    ' 正确：无返回值接收时不加括号
    current_folder.MoveTo archive_folder
End Sub

简化实现版本 #

Sub MoveSelectedFolder_Simplified()
    ' 链式调用省略多余变量，直接完成移动操作
    Application.ActiveExplorer.CurrentFolder.MoveTo _
        Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("archive 2023")
End Sub

需要接收返回对象的写法 #

如果需要获取移动后的文件夹引用，此时需加括号并通过Set赋值：

Sub MoveSelectedFolder_WithReturn()
    Dim current_folder As Outlook.Folder
    Dim archive_folder As Outlook.Folder
    Dim moved_folder As Outlook.Folder
    
    Set current_folder = Application.ActiveExplorer.CurrentFolder
    Set archive_folder = Application.Session.GetDefaultFolder(olFolderInbox).Parent.Folders("archive 2023")
    
    ' 接收返回对象时，加括号并用Set赋值
    Set moved_folder = current_folder.MoveTo(archive_folder)
    MsgBox "文件夹已移动至：" & moved_folder.FolderPath
End Sub

内容的提问来源于stack exchange，提问作者Aldus_III