如何通过VBA代码选择Outlook中的指定归档文件夹？

你的问题出在GetSharedDefaultFolder这个方法的使用逻辑上——它只能用来获取Outlook内置的默认文件夹（比如收件箱、已发送邮件、草稿箱这类），而你提到的Archive - Fred.Smith@domain.co.uk是自定义的归档文件夹，不属于默认文件夹范畴，所以用这个方法只会返回默认的收件箱，自然找不到目标归档文件夹。

下面给你两种可行的解决方案，根据你的实际场景选择：

场景1：归档文件夹是当前登录邮箱的子文件夹 #

如果这个归档文件夹在你自己的邮箱根目录下（和收件箱、已发送邮件同级），可以先获取邮箱根文件夹，再直接定位或者遍历查找：

方法1：直接通过文件夹名称获取（推荐，前提是名称完全准确） #

Dim olNS As Outlook.Namespace
Dim olRootFolder As Outlook.Folder
Dim olArchiveFolder As Outlook.Folder

Set olNS = Application.GetNamespace("MAPI")
' 获取当前邮箱的根文件夹（收件箱的父级就是邮箱根目录）
Set olRootFolder = olNS.GetDefaultFolder(olFolderInbox).Parent

' 直接通过名称获取归档文件夹，注意名称要完全匹配
On Error Resume Next ' 防止文件夹不存在报错
Set olArchiveFolder = olRootFolder.Folders("Archive - Fred.Smith@domain.co.uk")
On Error GoTo 0

If Not olArchiveFolder Is Nothing Then
    ' 这里可以添加你对归档文件夹的操作，比如打印路径
    Debug.Print "成功找到归档文件夹：" & olArchiveFolder.FolderPath
Else
    MsgBox "未找到指定的归档文件夹，请检查名称是否正确"
End If

方法2：遍历根文件夹的子项查找（适合不确定层级的情况） #

Dim olNS As Outlook.Namespace
Dim olRootFolder As Outlook.Folder
Dim olFolder As Outlook.Folder

Set olNS = Application.GetNamespace("MAPI")
Set olRootFolder = olNS.GetDefaultFolder(olFolderInbox).Parent

' 遍历根文件夹下的所有子文件夹
For Each olFolder In olRootFolder.Folders
    If olFolder.Name = "Archive - Fred.Smith@domain.co.uk" Then
        Debug.Print "找到归档文件夹：" & olFolder.Name
        ' 找到后可以在这里执行操作，然后退出循环
        Exit For
    End If
Next olFolder

' 检查是否找到
If olFolder Is Nothing Then
    MsgBox "未找到目标归档文件夹"
End If

场景2：归档文件夹属于共享邮箱 #

如果这个归档文件夹是在Fred.Smith@domain.co.uk这个共享邮箱下，那需要先解析共享邮箱的收件人，再获取其根文件夹，最后查找归档文件夹：

Dim olNS As Outlook.Namespace
Dim olRecip As Outlook.Recipient
Dim olSharedRootFolder As Outlook.Folder
Dim olArchiveFolder As Outlook.Folder

Set olNS = Application.GetNamespace("MAPI")
Set olRecip = olNS.CreateRecipient("Fred.Smith@domain.co.uk")

' 先确认收件人能被解析
If olRecip.Resolve Then
    ' 获取共享邮箱的根文件夹（默认收件箱的父级）
    Set olSharedRootFolder = olNS.GetSharedDefaultFolder(olRecip, olFolderInbox).Parent
    
    ' 直接通过名称获取归档文件夹
    On Error Resume Next
    Set olArchiveFolder = olSharedRootFolder.Folders("Archive - Fred.Smith@domain.co.uk")
    On Error GoTo 0
    
    If Not olArchiveFolder Is Nothing Then
        Debug.Print "成功找到共享邮箱的归档文件夹：" & olArchiveFolder.FolderPath
    Else
        MsgBox "共享邮箱中未找到指定的归档文件夹"
    End If
Else
    MsgBox "无法解析共享邮箱收件人，请检查邮箱地址是否正确"
End If

关键提示 #

• 确保归档文件夹的名称完全匹配，包括空格、符号（Windows系统下Outlook文件夹名称不区分大小写，但代码里最好和实际名称完全一致）
• 如果归档文件夹嵌套在其他文件夹里（比如在收件箱的子文件夹下），需要调整遍历的层级，或者明确路径逐层获取

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