有没有办法使用VBA从Outlook配置文件中删除额外的邮箱？

Sub RemoveExtraMailboxes()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olStores As Outlook.Stores
    Dim olStore As Outlook.Store
    Dim i As Integer
    
    ' 获取Outlook应用程序对象
    Set olApp = Outlook.Application
    ' 获取命名空间对象
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取所有存储对象
    Set olStores = olNamespace.Stores
    
    ' 遍历每个存储对象
    For i = olStores.Count To 1 Step -1
        Set olStore = olStores.Item(i)
        
        ' 判断是否为额外的邮箱
        If olStore.ExchangeStoreType = olAdditionalExchangeMailbox Then
            ' 删除额外的邮箱
            olStore.Remove
        End If
    Next i
    
    ' 释放对象
    Set olStore = Nothing
    Set olStores = Nothing
    Set olNamespace = Nothing
    Set olApp = Nothing
    
    MsgBox "已成功删除额外的邮箱。"
End Sub