如何在Outlook宏中保留邮件表格并清除其余内容后导出PDF

你用Split函数处理后表格消失、格式乱掉，核心原因是Outlook邮件正文本质是HTML结构，Split会直接拆分文本内容，完全丢弃HTML标签，自然保不住表格的格式和结构。正确的做法是直接操作邮件的HTMLBody，通过DOM解析保留表格元素，删除其他内容。

以下是完整的VBA代码实现：

Sub KeepOnlyTablesAndSaveAsPDF()
    Dim objMail As Outlook.MailItem
    Dim objHTML As Object ' MSHTML.HTMLDocument
    Dim objElements As Object
    Dim objElement As Object
    Dim newHTML As String
    Dim tempMail As Outlook.MailItem
    Dim pdfPath As String
    
    ' 获取当前选中的邮件
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    
    ' 创建HTML文档对象（后期绑定，无需额外引用）
    Set objHTML = CreateObject("HTMLFile")
    objHTML.body.innerHTML = objMail.HTMLBody
    
    ' 初始化新的HTML内容，保留必要的HTML框架
    newHTML = "<html><body>"
    
    ' 遍历所有表格元素，添加到新HTML中
    Set objElements = objHTML.getElementsByTagName("table")
    For Each objElement In objElements
        newHTML = newHTML & objElement.outerHTML
    Next objElement
    
    ' 闭合HTML标签
    newHTML = newHTML & "</body></html>"
    
    ' 创建临时邮件，用于处理和保存PDF（避免修改原邮件）
    Set tempMail = Application.CreateItem(olMailItem)
    tempMail.HTMLBody = newHTML
    tempMail.Subject = objMail.Subject & " - 仅保留表格"
    
    ' 设置PDF保存路径（可自行修改）
    pdfPath = Environ("USERPROFILE") & "\Desktop\" & tempMail.Subject & ".pdf"
    
    ' 保存为PDF
    tempMail.SaveAs pdfPath, olPDF
    
    ' 创建新邮件并附加PDF
    Dim newMail As Outlook.MailItem
    Set newMail = Application.CreateItem(olMailItem)
    newMail.Subject = "已处理的表格邮件"
    newMail.Attachments.Add pdfPath
    ' 可根据需求添加收件人、正文等
    ' newMail.To = "xxx@example.com"
    ' newMail.HTMLBody = "附件为仅保留表格的邮件PDF版本"
    
    ' 显示新邮件（可改为直接发送）
    newMail.Display
    
    ' 清理对象
    Set objMail = Nothing
    Set objHTML = Nothing
    Set objElements = Nothing
    Set objElement = Nothing
    Set tempMail = Nothing
    Set newMail = Nothing
End Sub

关键说明： #

• 采用DOM解析而非文本拆分：直接通过HTML标签定位表格，完整保留表格的格式、样式和结构
• 使用临时邮件处理：避免修改原邮件的内容，操作更安全
• 后期绑定HTML对象：无需手动添加Microsoft HTML Object Library引用，兼容性更好

注意事项： #

• 如果邮件中有嵌套表格，代码会自动全部保留，无需额外处理
• 若需要保留表格外的特定元素（比如标题），可以在遍历的时候添加对应标签的判断（比如objHTML.getElementsByTagName("h1")）
• PDF保存路径可根据实际需求修改，确保路径有写入权限

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