列出电子邮件正文中移动的所有文件- Powershell

# 导入Outlook COM对象
Add-Type -AssemblyName "Microsoft.Office.Interop.Outlook"

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

# 获取当前正在运行的Outlook会话
$session = $outlook.Session

# 获取收件箱文件夹
$inbox = $session.GetDefaultFolder(6)

# 获取最新的邮件
$mail = $inbox.Items | Sort-Object -Property ReceivedTime -Descending | Select-Object -First 1

# 获取邮件正文
$body = $mail.Body

# 使用正则表达式匹配文件路径
$pattern = "(?i)([a-z]:\\[^|\s]+)"
$matches = [regex]::Matches($body, $pattern)

# 输出匹配到的文件路径
foreach ($match in $matches) {
    $filePath = $match.Value
    Write-Host $filePath
}