从Excel引用Outlook文件夹

Sub ImportOutlookFolder()
    Dim olApp As Object
    Dim olNamespace As Object
    Dim olFolder As Object
    Dim olItems As Object
    Dim olItem As Object
    Dim i As Integer
    
    ' 创建Outlook应用程序对象
    Set olApp = CreateObject("Outlook.Application")
    ' 获取Outlook命名空间
    Set olNamespace = olApp.GetNamespace("MAPI")
    ' 获取指定的Outlook文件夹
    Set olFolder = olNamespace.GetDefaultFolder(6) ' 6表示邮件文件夹
    
    ' 遍历文件夹中的所有邮件
    Set olItems = olFolder.Items
    i = 1
    For Each olItem In olItems
        ' 在Excel中写入邮件主题和发件人
        Cells(i, 1).Value = olItem.Subject
        Cells(i, 2).Value = olItem.SenderName
        i = i + 1
    Next olItem
    
    ' 释放对象
    Set olApp = Nothing
    Set olNamespace = Nothing
    Set olFolder = Nothing
    Set olItems = Nothing
    Set olItem = Nothing
End Sub