写入活动的Outlook文件夹

Question

我希望Excel使用VBA在Outlook的活动文件夹中进行编写。但我甚至很难定义当前活动文件夹的路径。

这是我尝试使用的代码：

Sub Test_folder_path()
Dim myFolder As Object
Set myFolder = Application.ActiveExplorer.CurrentFolder
End Sub

我得到的错误是Error 438: ("Object Doesn’t Support this Property or Method")

如果我尝试为myfolder定义其他类型，Set myfolder会要求一个对象。

如果有任何建议，我都会非常高兴，因为我从几个小时以来就在寻找解决方案！

我在Office 2021工作。

Answer 1

若要从VBA Excel使用MS Outlook，您需要对其进行后期绑定或早期绑定。

在您的示例中，Application将引用MS Excel而不是MS Outlook。

以下是的示例

Option Explicit
Sub Test_folder_path()
Dim OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim myFolder As Object
Set myFolder = OutApp.ActiveExplorer.CurrentFolder

MsgBox myFolder.Name
End Sub

我建议阅读在自动化中使用早期绑定和后期绑定