如何避免粘贴图片覆盖Outlook默认邮件签名？并实现代码多用户兼容

你的代码里签名被覆盖的核心问题是：使用doc.Select全选邮件内容后执行粘贴操作，直接替换了包括签名在内的所有内容。另外代码里的sBody变量未定义，会导致HTML正文拼接出错。以下是修正后的完整代码，同时确保默认签名能正常保留：

Sub Send_Email()
    Dim pdfPath As String, pdfName As String
    Dim OApp As Object, OMail As Object, Signature As String
    Dim doc As Object ' 改用后期绑定，避免用户手动添加Word引用
    Dim rng As Object
    
    ' 生成PDF文件名和路径
    pdfName = "VW Fuel Marks_" & Format(Date, "m.d.yyyy")
    pdfPath = ThisWorkbook.Path & "\" & pdfName & ".pdf"
    
    ' 导出指定工作表为PDF
    ThisWorkbook.Sheets(Array("Daily Dashboard-Page1", "Daily Dashboard-Page2", "Daily Dashboard-Page3", "Daily Dashboard-Page4")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    ' 复制需要插入邮件的图片区域
    Application.Worksheets(19).Range("A1:T42").CopyPicture xlScreen, xlPicture
    
    ' 创建Outlook邮件对象并获取默认签名
    Set OApp = CreateObject("Outlook.Application")
    Set OMail = OApp.CreateItem(0)
    OMail.Display ' 必须先Display才能获取签名
    Signature = OMail.HTMLBody ' 保存默认签名的HTML内容
    
    ' 设置邮件基本信息
    With OMail
        .To = Range("AG3").Value
        .CC = Range("AG4").Value
        .Subject = Range("A1").Value
        .Attachments.Add pdfPath
        .HTMLBody = "" ' 清空正文，后续用WordEditor插入内容和签名
    End With
    
    ' 使用Word编辑器插入图片和签名
    Set doc = OMail.GetInspector.WordEditor
    Set rng = doc.Range(0, 0) ' 定位到正文开头
    
    ' 粘贴复制的图片
    rng.Paste
    
    ' 在图片后添加空行，再插入默认签名
    Set rng = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
    rng.InsertAfter vbCrLf & vbCrLf ' 用空行分隔内容和签名
    rng.InsertAfter Signature ' 插入默认签名
    
    ' 显示邮件确保内容加载完成
    OMail.Display
    
    ' 释放对象
    Set rng = Nothing
    Set doc = Nothing
    Set OMail = Nothing
    Set OApp = Nothing
End Sub

关键修改说明： #

• 避免全选覆盖：不再使用doc.Select，而是通过doc.Range精准定位位置，先粘贴图片，再在末尾插入签名，彻底避免覆盖问题。
• 增强兼容性：改用后期绑定Word对象，用户无需手动添加「Microsoft Word Object Library」引用，代码可直接运行。
• 修复变量错误：移除原代码中未定义的sBody变量，消除运行报错隐患。
• 优化排版：在图片和签名之间添加空行，让邮件内容排版更清晰。

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