使用Excel VBA记录SenderName和Body

Sub RecordSenderNameAndBody()
    Dim OutlookApp As Object
    Dim OutlookNamespace As Object
    Dim OutlookMail As Object
    Dim ExcelSheet As Worksheet
    Dim RowCount As Long
    
    ' 创建Outlook应用程序对象
    Set OutlookApp = CreateObject("Outlook.Application")
    ' 获取Outlook命名空间
    Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
    ' 打开收件箱文件夹
    Set OutlookMail = OutlookNamespace.GetDefaultFolder(6).Items
    
    ' 设置Excel工作表
    Set ExcelSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取当前行数
    RowCount = ExcelSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 遍历收件箱中的邮件
    For Each MailItem In OutlookMail
        ' 记录SenderName和Body到Excel工作表
        ExcelSheet.Cells(RowCount, 1).Value = MailItem.SenderName
        ExcelSheet.Cells(RowCount, 2).Value = MailItem.Body
        
        ' 增加行数
        RowCount = RowCount + 1
    Next MailItem
    
    ' 释放对象
    Set OutlookApp = Nothing
    Set OutlookNamespace = Nothing
    Set OutlookMail = Nothing
    Set ExcelSheet = Nothing
End Sub