如何迭代outlook文件夹中的电子邮件，并将其放入csv文件中？

import win32com.client
import csv

# 创建Outlook应用程序对象
outlook = win32com.client.Dispatch("Outlook.Application")
namespace = outlook.GetNamespace("MAPI")

# 获取指定文件夹
folder = namespace.GetDefaultFolder(6)  # 6表示收件箱
# 如果是其他文件夹，可以使用以下代码获取：
# folder = namespace.GetDefaultFolder(olFolderInbox).Folders.Item("文件夹名称")

# 创建CSV文件并写入表头
csv_file = open("emails.csv", "w", newline="", encoding="utf-8")
csv_writer = csv.writer(csv_file)
csv_writer.writerow(["发件人", "主题", "内容"])

# 迭代邮件并写入CSV文件
for email in folder.Items:
    sender = email.SenderName
    subject = email.Subject
    body = email.Body

    csv_writer.writerow([sender, subject, body])

# 关闭CSV文件
csv_file.close()

pip install pywin32 pypiwin32