使用Excel VBA记录SenderName和Body

Sub RecordEmailDetails()
    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFldr As Outlook.MAPIFolder
    Dim olMail As Outlook.MailItem
    Dim ws As Worksheet
    
    ' 初始化Outlook对象
    Set olApp = New Outlook.Application
    Set olNs = olApp.GetNamespace("MAPI")
    Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
    
    ' 设置Excel工作表
    Set ws = ThisWorkbook.Sheets("EmailRecords")
    
    ' 遍历收件箱中的邮件
    For Each olMail In olFldr.Items
        ' 记录SenderName和Body
        With ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1)
            .Value = olMail.SenderName
            .Offset(0, 1).Value = olMail.Body
        End With
    Next olMail
    
    ' 清理对象
    Set olMail = Nothing
    Set olFldr = Nothing
    Set olNs = Nothing
    Set olApp = Nothing
End Sub