如何使用Powershell从.msg文件中提取邮件头？

Add-Type -AssemblyName "Microsoft.Office.Interop.Outlook"

$filePath = "C:\path\to\your\file.msg"  # 替换为实际的.msg文件路径

# 创建Outlook应用程序对象
$outlook = New-Object -ComObject Outlook.Application

# 通过Outlook应用程序对象打开.msg文件
$mail = $outlook.Session.OpenSharedItem($filePath)

# 提取邮件头信息
$subject = $mail.Subject
$sender = $mail.SenderEmailAddress
$recipients = $mail.Recipients | ForEach-Object { $_.Address }

# 输出邮件头信息
Write-Host "Subject: $subject"
Write-Host "Sender: $sender"
Write-Host "Recipients: $recipients"

# 关闭Outlook应用程序对象
$outlook.Quit()