使用Excel VBA生成指定结构Outlook邮件（文本-图-文-图-文-签名）的开发问题

原代码排布完全混乱的本质是混用了HTML属性赋值和Word编辑器直接操作两套互斥的逻辑：每次给objOutMail.htmlbody赋值时，Outlook会把整个body内容完全重算覆盖，直接冲掉之前在Word编辑器里粘贴好的图片位置，导致所有元素顺序颠倒错位，根本达不到「文本-图1-文本-图2-文本-签名」的预期链路。
Outlook邮件的底层编辑器是Word，只要你提前调用了.Display方法触发默认签名加载，就必须顺着Word文档的光标流逐步插入所有内容，绝对不要在粘贴图片后再通过重写htmlbody的方式拼接文本。

严格按照要求的元素链路，顺着光标位置逐段插入，全程不修改默认签名的位置：

• 最开头插入第一部分文本：对应工作表B5-B8单元格的内容
• 换行后插入第一张贴图：将rng对应的Excel大表格区域以图片格式粘贴
• 换行后插入第二部分文本：对应工作表B10单元格的内容
• 换行后插入第二张贴图：将rng2对应的Excel小表格区域以图片格式粘贴
• 换行后插入第三部分文本：对应工作表B12单元格的内容
• 剩余位置保留Outlook自动加载的默认签名，完全不改动

Sub EmailGenerate()
    Dim objOutApp As Object, objOutMail As Object
    Dim strText1 As String, strText2 As String, strText3 As String
    Dim rng As Range, rng2 As Range
    Dim r As Long, r2 As Long
    Dim wdDoc As Word.Document
    Dim wdSel As Word.Selection
    
    ' 预先绑定需要引用的Excel区域
    r = shEmail.Cells(Rows.Count, 15).End(xlUp).Row
    Set rng = shEmail.Range("K1:" & Cells(r, 21).Address)
    r2 = shEmail.Cells(Rows.Count, 23).End(xlUp).Row
    Set rng2 = shEmail.Range("W1:" & Cells(r2, 29).Address)
    
    ' 预先准备所有分段文本，统一设置字体样式
    strText1 = "<p style='font-size:11pt;font-family:Calibri;'>" & _
               shEmail.Cells(5, 2).Value & "</p><p></p>" & _
               "<p style='font-size:11pt;font-family:Calibri;'>" & shEmail.Cells(6, 2).Value & "</p>" & _
               "<p style='font-size:11pt;font-family:Calibri;'>" & shEmail.Cells(7, 2).Value & "</p><p></p>" & _
               "<p style='font-size:11pt;font-family:Calibri;'>" & shEmail.Cells(8, 2).Value & "</p>"
    strText2 = "<p style='font-size:11pt;font-family:Calibri;'>" & shEmail.Cells(10, 2).Value & "</p><p></p>"
    strText3 = "<p style='font-size:11pt;font-family:Calibri;'>" & shEmail.Cells(12, 2).Value & "</p><p></p>"
    
    Set objOutApp = CreateObject("Outlook.Application")
    Set objOutMail = objOutApp.CreateItem(0)
    
    With objOutMail
        ' 配置邮件基础属性
        .To = shEmail.Cells(1, 2).Value
        .CC = shEmail.Cells(2, 2).Value
        .BCC = ""
        .Subject = shEmail.Cells(4, 2).Value
        ' 强制显示邮件窗口，触发默认签名自动加载到文档最末尾
        .Display
        .Recipients.ResolveAll
        
        ' 绑定Word文档编辑器和光标选择对象
        Set wdDoc = .GetInspector.WordEditor
        Set wdSel = wdDoc.Application.Selection
        
        ' 光标直接定位到文档最开头（也就是签名的前面位置）
        wdSel.Start = 0
        wdSel.End = 0
        
        ' 1. 插入第一部分文本
        wdSel.TypeText strText1
        wdSel.TypeParagraph ' 插入段间距
        
        ' 2. 粘贴第一张大表格图片
        rng.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        wdSel.PasteAndFormat wdPasteBitmap
        wdSel.TypeParagraph ' 插入段间距
        
        ' 3. 插入第二部分文本
        wdSel.TypeText strText2
        wdSel.TypeParagraph ' 插入段间距
        
        ' 4. 粘贴第二张小表格图片
        rng2.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        wdSel.PasteAndFormat wdPasteBitmap
        wdSel.TypeParagraph ' 插入段间距
        
        ' 5. 插入第三部分文本（刚好停在签名前面）
        wdSel.TypeText strText3
        
        ' 可按需开启自动发送
        '.Send
    End With
    
    ' 释放对象内存
    Set wdSel = Nothing
    Set wdDoc = Nothing
    Set objOutMail = Nothing
    Set objOutApp = Nothing
End Sub

• 全程不要在.Display加载签名后，再去整体赋值objOutMail.htmlbody，否则会直接覆盖之前顺着光标插入的所有图片和文本，回到之前错位的状态
• 用CopyPicture方法代替直接Copy再粘贴，能保证Excel区域导出的图片不会带着原始单元格格式的边框、可编辑对象属性，完全是静态图片效果
• 每一段内容之间插入一个空段落，能还原要求的段落间距，不会出现元素挤在一起的问题

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