Outlook插件仅监控默认账户已发送文件夹，求多账户适配方案

你的代码出现Object reference not set to an instance of an object.错误主要有三个原因：

1. List对象未实例化：sentfolders和sentitemslist仅声明了类型，但没有创建实际的List实例，直接通过索引i赋值会触发空引用。
2. 获取账户已发送文件夹的方式错误：account.CurrentUser.Session.Folders(Outlook.OlDefaultFolders.olFolderSentMail)的写法不符合Outlook对象模型规范，应该通过账户对应的存储对象获取默认文件夹。
3. 循环中索引赋值逻辑错误：即使List实例化了，初始状态下List是空的，使用sentfolders(i)赋值会超出索引范围，应该用Add方法添加元素。

修正后的代码 #

Dim sentfolders As New List(Of Outlook.Folder)
Dim sentitemslist As New List(Of Outlook.Items)
Dim oApp As New Outlook.Application
Dim accounts As Outlook.Accounts = oApp.Session.Accounts

For Each account As Outlook.Account In accounts
    ' 通过账户的DeliveryStore获取对应已发送文件夹
    Dim sentFolder As Outlook.Folder = account.DeliveryStore.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail)
    If sentFolder IsNot Nothing Then
        Dim sentItems As Outlook.Items = sentFolder.Items
        sentfolders.Add(sentFolder)
        sentitemslist.Add(sentItems)
        AddHandler sentItems.ItemAdd, AddressOf itemadd
    End If
Next

关键修改说明 #

• 实例化List：用New List(Of ...)创建List对象，避免空引用。
• 正确获取账户文件夹：使用account.DeliveryStore.GetDefaultFolder，这是Outlook对象模型中获取特定账户默认文件夹的标准方式，确保拿到对应账户的已发送文件夹，而不是默认账户的。
• 空值检查：添加If sentFolder IsNot Nothing，避免某些特殊账户（如共享邮箱）无法获取文件夹时触发错误。
• 使用Add方法：将每个账户的文件夹和Items对象添加到List中，替代索引赋值的错误逻辑。

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