Outlook COM对象调用SaveAsFile无提示覆盖文件，如何添加确认？

我编写了一个批量将.msg文件经.html中转转换为.pdf格式并保存附件的PowerShell脚本。在开发过程中发现一个问题：当目标文件夹中存在与附件.fullname同名的文件时，SaveAsFile方法会直接无提示覆盖该文件。请问是否有办法强制SaveAsFile方法在保存附件时弹出确认提示？

当前脚本代码：

$o = New-Object -ComObject outlook.application
$1 = "C:\Program Files\Google\Chrome\Application\chrome.exe"
Set-Alias -Name chrome -Value $1

Get-ChildItem -file -filter *.msg | ForEach-Object {

    $msgFullname = $_.FullName
    $htmlname = $msgFullname -replace '.msg', '.html'
    $attloc = $_.Directory

    $msg = $o.CreateItemFromTemplate($msgFullname)
    if ($msg.Attachments.Count -ge 1) {
        $msg.Attachments | ForEach-Object {
            $attname = $attloc.FullName + "\" + $_.FileName
            $_.SaveAsFile($attname)
        }
    }
    $msg.SaveAs($htmlname, 5)

    $dest = $_.DirectoryName + "\" + $_.BaseName + ".pdf"
    $source = $_.DirectoryName + "\" + $_.BaseName + ".html"

    chrome --headless --disable-gpu --print-to-pdf=$dest  $source --print-to-pdf-no-header

    $1 = $_.BaseName

    Get-ChildItem | Where-Object { ($_.PSIsContainer -eq $true -and $_.BaseName -like "*$1*") -OR $_.Name -like ($_.BaseName + "*.html") } | Remove-Item -Recurse -Force
}

解决方案 #

Outlook的SaveAsFile方法本身没有内置的覆盖确认机制，需要手动在脚本中添加文件存在性检查和用户确认逻辑：

1. 加载Windows Forms程序集：用于弹出图形化确认对话框
2. 检查文件是否存在：在调用SaveAsFile前判断目标路径的文件状态
3. 根据用户选择执行操作：弹窗询问是否覆盖，仅在用户确认时执行保存

修改后的脚本如下：

# 加载Windows Forms程序集，用于弹出确认弹窗
Add-Type -AssemblyName System.Windows.Forms

$o = New-Object -ComObject outlook.application
$chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"
Set-Alias -Name chrome -Value $chromePath

Get-ChildItem -File -Filter *.msg | ForEach-Object {
    $msgFullname = $_.FullName
    $htmlname = $msgFullname -replace '\.msg$', '.html'
    $attloc = $_.Directory

    $msg = $o.CreateItemFromTemplate($msgFullname)
    if ($msg.Attachments.Count -ge 1) {
        $msg.Attachments | ForEach-Object {
            $attname = Join-Path -Path $attloc.FullName -ChildPath $_.FileName
            
            # 检查文件是否已存在
            if (Test-Path -Path $attname -PathType Leaf) {
                # 弹出确认对话框，获取用户选择
                $result = [System.Windows.Forms.MessageBox]::Show(
                    "文件 $($_.FileName) 已存在，是否覆盖？",
                    "确认覆盖",
                    [System.Windows.Forms.MessageBoxButtons]::YesNo,
                    [System.Windows.Forms.MessageBoxIcon]::Warning
                )
                
                # 仅当用户选择Yes时执行保存
                if ($result -eq [System.Windows.Forms.DialogResult]::Yes) {
                    $_.SaveAsFile($attname)
                }
            } else {
                # 文件不存在，直接保存
                $_.SaveAsFile($attname)
            }
        }
    }
    $msg.SaveAs($htmlname, 5)

    $dest = Join-Path -Path $_.DirectoryName -ChildPath "$($_.BaseName).pdf"
    $source = Join-Path -Path $_.DirectoryName -ChildPath "$($_.BaseName).html"

    chrome --headless --disable-gpu --print-to-pdf="$dest" "$source" --print-to-pdf-no-header

    $baseName = $_.BaseName

    Get-ChildItem | Where-Object { 
        ($_.PSIsContainer -and $_.BaseName -like "*$baseName*") -or 
        ($_.Name -like "$baseName*.html") 
    } | Remove-Item -Recurse -Force
}

关键修改说明 #

• 用Add-Type加载System.Windows.Forms程序集，实现图形化弹窗
• 用Test-Path检查附件目标路径是否存在文件
• 用MessageBox::Show弹出带警告图标的确认框，仅在用户选择“是”时执行SaveAsFile
• 替换了字符串拼接路径的方式，改用更可靠的Join-Path命令
• 重命名了部分变量（如$1改为$chromePath/$baseName），提升代码可读性

内容的提问来源于stack exchange，提问作者Nawad-sama