如何通过PowerShell在Outlook中嵌入.docx/.xlsx？尝试代码遇问题

问题分析 #

你提供的两段代码存在核心问题：

• 第一段代码里$Mail.HTMLBody = 未赋值任何内容，自然无法嵌入文档内容
• 第二段代码将Paste()返回的COM对象直接赋值给HTMLBody，而HTMLBody需要的是字符串格式的HTML内容，这就导致输出System.__ComObject的错误结果

解决方法 #

方法1：通过WordEditor直接粘贴.docx富文本内容 #

利用Outlook邮件内置的Word编辑器，直接粘贴复制的docx内容，保留原文档格式：

# 打开Word并复制文档内容
$Word = New-Object -ComObject Word.Application
$Word.Visible = $false # 后台运行Word，不显示窗口
$Doc = $Word.Documents.Open("C:\1.docx")
$Doc.Content.Copy()
$Doc.Close($true)
$Word.Quit()

# 创建Outlook邮件并粘贴内容
$Outlook = New-Object -ComObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Mail.To = "random@email.com"
$Mail.Subject = "Subject"

# 获取邮件的Word编辑器，直接粘贴内容（不要赋值给HTMLBody）
$WordEditor = $Mail.GetInspector().WordEditor
$WordEditor.Content.Paste()

$Mail.GetInspector().Display()

# 手动释放COM对象，避免进程残留
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($WordEditor) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Mail) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null

方法2：将.docx转换为HTML后嵌入邮件 #

如果需要以HTML格式嵌入，可以先将docx保存为HTML文件，再读取内容赋值给HTMLBody：

$Word = New-Object -ComObject Word.Application
$Word.Visible = $false
$Doc = $Word.Documents.Open("C:\1.docx")
$htmlTempPath = "C:\temp_doc_content.html"
# 8是Word的HTML格式枚举值
$Doc.SaveAs([ref]$htmlTempPath, [ref]8)
$Doc.Close($true)
$Word.Quit()

# 读取HTML内容并写入邮件
$Outlook = New-Object -ComObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Mail.To = "random@email.com"
$Mail.Subject = "Subject"
$Mail.HTMLBody = Get-Content -Path $htmlTempPath -Raw

$Mail.GetInspector().Display()

# 清理临时文件
Remove-Item -Path $htmlTempPath -Force

# 释放COM对象
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Mail) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null

嵌入.xlsx内容的两种方式 #

Excel内容无法直接像Word那样粘贴富文本，通常用以下两种方式处理：

方式1：转换为HTML嵌入

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $false
$Workbook = $Excel.Workbooks.Open("C:\1.xlsx")
$Worksheet = $Workbook.Worksheets.Item(1) # 选择第一个工作表
$htmlTempPath = "C:\temp_xls_content.html"
# 44是Excel的HTML格式枚举值
$Worksheet.SaveAs([ref]$htmlTempPath, [ref]44)
$Workbook.Close($true)
$Excel.Quit()

# 写入邮件
$Outlook = New-Object -ComObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Mail.To = "random@email.com"
$Mail.Subject = "Excel Content"
$Mail.HTMLBody = Get-Content -Path $htmlTempPath -Raw

$Mail.GetInspector().Display()

# 清理临时文件和COM对象
Remove-Item -Path $htmlTempPath -Force
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Worksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Mail) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null

方式2：复制为图片嵌入

如果需要严格保留Excel表格样式，可以将工作表区域复制为图片粘贴到邮件：

$Excel = New-Object -ComObject Excel.Application
$Excel.Visible = $false
$Workbook = $Excel.Workbooks.Open("C:\1.xlsx")
$Worksheet = $Workbook.Worksheets.Item(1)
$UsedRange = $Worksheet.UsedRange
# 1=复制为图片，2=增强型图元文件格式
$UsedRange.CopyPicture(1, 2)

$Workbook.Close($true)
$Excel.Quit()

# 创建Outlook邮件并粘贴图片
$Outlook = New-Object -ComObject Outlook.Application
$Mail = $Outlook.CreateItem(0)
$Mail.To = "random@email.com"
$Mail.Subject = "Excel as Image"

$WordEditor = $Mail.GetInspector().WordEditor
$WordEditor.Content.Paste()

$Mail.GetInspector().Display()

# 释放COM对象
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($UsedRange) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Worksheet) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Excel) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($WordEditor) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Mail) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null

注意事项 #

• 运行脚本前需确保已安装对应版本的Office组件（Word/Excel/Outlook）
• 处理完COM对象后建议手动释放，避免Office进程在后台残留
• 临时文件路径可根据实际情况修改，确保当前用户有读写权限

内容的提问来源于stack exchange，提问作者grnelph