Outlook Conversation History文件夹VBA获取失败问题求助

Conversation History不属于Outlook通过GetDefaultFolder能直接调用的标准默认文件夹集合，而且多数情况下olFolderConversationHistory这个枚举值本身并不存在于Outlook对象模型的标准枚举里，这就是你代码失效的核心原因。

下面提供两种可行的获取方式：

方法1：遍历邮箱根文件夹查找 #

直接遍历当前邮箱的根目录子文件夹，定位目标文件夹：

Dim OutlookApp As Object
Dim OutlookNameSpace As Object
Dim RootFolder As Object
Dim TargetFolder As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
Set RootFolder = OutlookNameSpace.GetDefaultFolder(olFolderInbox).Parent ' 获取邮箱根目录

' 遍历根目录下所有子文件夹
For Each TargetFolder In RootFolder.Folders
    If TargetFolder.Name = "Conversation History" Then
        ' 找到目标文件夹，在此处编写后续数据提取逻辑
        Exit For
    End If
Next TargetFolder

' 释放对象
Set TargetFolder = Nothing
Set RootFolder = Nothing
Set OutlookNameSpace = Nothing
Set OutlookApp = Nothing

注意：如果是多语言版本Outlook，文件夹名称会对应变化（比如中文环境为"对话历史记录"），需要调整判断的名称。

方法2：通过Exchange Store对象查找 #

如果你的邮箱是Exchange账户，可尝试通过Store对象调用GetDefaultFolder，同时兼容遍历 fallback：

Dim OutlookApp As Object
Dim OutlookNameSpace As Object
Dim ExchangeStore As Object
Dim TargetFolder As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookNameSpace = OutlookApp.GetNamespace("MAPI")
Set ExchangeStore = OutlookNameSpace.Stores("你的邮箱地址") ' 替换为实际邮箱地址

' 尝试用枚举值获取，部分Exchange环境支持
On Error Resume Next
Set TargetFolder = ExchangeStore.GetDefaultFolder(olFolderConversationHistory)
On Error GoTo 0

' 枚举值无效时，切换到遍历查找
If TargetFolder Is Nothing Then
    For Each TargetFolder In ExchangeStore.GetRootFolder.Folders
        If TargetFolder.Name = "Conversation History" Then
            Exit For
        End If
    Next TargetFolder
End If

' 后续数据提取逻辑编写处
Set TargetFolder = Nothing
Set ExchangeStore = Nothing
Set OutlookNameSpace = Nothing
Set OutlookApp = Nothing

补充说明 #

GetDefaultFolder仅支持获取Outlook定义的标准默认文件夹（如收件箱、发件箱、已发送邮件等），Conversation History是Skype/Teams与Outlook集成后生成的关联文件夹，不在这个标准集合内。

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