Outlook -将电子邮件导出到Excel -每个文件夹都作为新的工作表C#

using System;
using System.IO;
using Microsoft.Office.Interop.Outlook;
using Excel = Microsoft.Office.Interop.Excel;

class Program
{
    static void Main()
    {
        // 创建一个Outlook应用程序实例
        Application outlookApp = new Application();

        // 获取当前用户的收件箱
        NameSpace outlookNamespace = outlookApp.GetNamespace("MAPI");
        MAPIFolder inbox = outlookNamespace.GetDefaultFolder(OlDefaultFolders.olFolderInbox);

        // 创建Excel应用程序实例
        Excel.Application excelApp = new Excel.Application();
        excelApp.Visible = true;

        // 创建一个新的工作簿
        Excel.Workbook workbook = excelApp.Workbooks.Add();
        
        int sheetIndex = 1;

        // 遍历Outlook文件夹
        foreach (MAPIFolder folder in inbox.Folders)
        {
            // 创建一个新的工作表
            Excel.Worksheet worksheet = workbook.Worksheets.Add();
            worksheet.Name = folder.Name;
            
            // 在工作表中添加邮件标题和发件人
            worksheet.Cells[1, 1] = "Subject";
            worksheet.Cells[1, 2] = "Sender";
            
            // 获取文件夹中的邮件
            Items items = folder.Items;
            
            int rowIndex = 2;
            
            // 遍历邮件
            foreach (MailItem mailItem in items)
            {
                // 将邮件标题和发件人写入Excel单元格
                worksheet.Cells[rowIndex, 1] = mailItem.Subject;
                worksheet.Cells[rowIndex, 2] = mailItem.SenderName;
                
                rowIndex++;
            }
            
            sheetIndex++;
        }
        
        // 保存Excel文件
        string filePath = @"C:\path\to\exported\emails.xlsx";
        workbook.SaveAs(filePath);
        
        // 关闭Outlook和Excel应用程序
        outlookApp.Quit();
        excelApp.Quit();
        
        Console.WriteLine("Emails exported to Excel successfully!");
    }
}