如何在VSTO Outlook中遍历OlDefaultFolders枚举并存储Entry ID列表？

VBA 实现方案 #

先在VBA编辑器里启用Outlook对象库引用：工具→引用，勾选Microsoft Outlook xx.x Object Library。核心逻辑是遍历枚举值、捕获可能的不存在文件夹异常，收集有效Entry ID：

Sub GetDefaultFolderEntryIDs()
    Dim olApp As Outlook.Application
    Dim olNS As Outlook.Namespace
    Dim defaultFolder As Outlook.MAPIFolder
    Dim entryIDList As Collection
    Dim folderEnum As OlDefaultFolders
    
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
    Set entryIDList = New Collection
    
    ' 遍历OlDefaultFolders所有枚举值
    For folderEnum = olFolderDeletedItems To olFolderRssFeeds
        On Error Resume Next ' 跳过不存在的文件夹
        Set defaultFolder = olNS.GetDefaultFolder(folderEnum)
        If Err.Number = 0 Then
            entryIDList.Add defaultFolder.EntryID, Key:=CStr(folderEnum)
            Debug.Print "枚举值: " & folderEnum & ", Entry ID: " & defaultFolder.EntryID
        End If
        On Error GoTo 0 ' 恢复默认错误处理
    Next folderEnum
    
    MsgBox "共获取到 " & entryIDList.Count & " 个有效Entry ID"
    
    ' 释放对象
    Set defaultFolder = Nothing
    Set olNS = Nothing
    Set olApp = Nothing
    Set entryIDList = Nothing
End Sub

C# 实现方案（需安装Microsoft.Office.Interop.Outlook NuGet包） #

同样遍历枚举值，注意及时释放COM对象避免内存泄漏：

using System;
using System.Collections.Generic;
using Outlook = Microsoft.Office.Interop.Outlook;

class OutlookFolderEntryIdCollector
{
    static void Main(string[] args)
    {
        List<string> entryIDList = new List<string>();
        Outlook.Application olApp = new Outlook.Application();
        Outlook.NameSpace olNS = olApp.GetNamespace("MAPI");

        foreach (Outlook.OlDefaultFolders folderEnum in Enum.GetValues(typeof(Outlook.OlDefaultFolders)))
        {
            try
            {
                Outlook.MAPIFolder defaultFolder = olNS.GetDefaultFolder(folderEnum);
                entryIDList.Add(defaultFolder.EntryID);
                Console.WriteLine($"枚举值: {folderEnum}, Entry ID: {defaultFolder.EntryID}");
                
                // 释放COM对象
                System.Runtime.InteropServices.Marshal.ReleaseComObject(defaultFolder);
            }
            catch (Exception ex)
            {
                Console.WriteLine($"枚举值 {folderEnum} 对应文件夹不存在: {ex.Message}");
            }
        }

        Console.WriteLine($"共获取到 {entryIDList.Count} 个有效Entry ID");

        // 清理剩余COM对象
        System.Runtime.InteropServices.Marshal.ReleaseComObject(olNS);
        System.Runtime.InteropServices.Marshal.ReleaseComObject(olApp);
    }
}

关键注意事项 #

• 部分枚举值对应的文件夹仅在特定环境下存在（比如olFolderPublicFoldersAllPublicFolders仅支持Exchange账户），必须加错误处理避免崩溃
• Entry ID是当前Outlook配置下的唯一标识，同一文件夹在不同机器/配置下ID可能不同，不要硬编码存储
• C#中务必手动释放COM对象，防止内存泄漏

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