从Excel VBA访问共享outlook收件箱

Sub AccessSharedInbox()
    Dim OutlookApp As Outlook.Application
    Dim Namespace As Outlook.Namespace
    Dim SharedInbox As Outlook.MAPIFolder
    Dim InboxItems As Outlook.Items
    Dim InboxItem As Outlook.MailItem
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = New Outlook.Application
    
    ' 获取Outlook命名空间
    Set Namespace = OutlookApp.GetNamespace("MAPI")
    
    ' 打开共享收件箱
    Set SharedInbox = Namespace.GetSharedDefaultFolder("邮箱地址", olFolderInbox)
    
    ' 获取共享收件箱中的所有邮件
    Set InboxItems = SharedInbox.Items
    
    ' 遍历共享收件箱中的每封邮件
    For Each InboxItem In InboxItems
        ' 在这里可以对每封邮件进行处理，例如获取主题、发件人、收件时间等信息
        Debug.Print InboxItem.Subject
    Next InboxItem
    
    ' 释放对象
    Set InboxItems = Nothing
    Set SharedInbox = Nothing
    Set Namespace = Nothing
    Set OutlookApp = Nothing
End Sub