如何将 excel 中的内容放在 Outlook 签名上方

问：

我正在尝试通过VBA将excel内容自动化到outlook中 但是，excel内容一直出现在我的Outlook签名下方

如何修改我的代码，以便 excel 内容在我的签名之前显示？提前谢谢大家

以下是我的代码：

Private Sub CommandButton1_Click()

Dim outlookapp As Outlook.Application
Dim outlookmail As Outlook.MailItem
Dim outlookins As Outlook.Inspector

Dim OlWordDoc As Word.Document
Dim OlWordRng As Word.Range

Dim ExcelRng As Range

Set outlookapp = New Outlook.Application
Set outlookmail = outlookapp.CreateItem(olMailItem)

Set ExcelRng = Sheet5.Range("A3:C6")

 With outlookmail

    .BodyFormat = olFormatHTML
    .Display
    
    .To = "[email protected]"
    .Subject = "Commodity Allocation"
    .HTMLBody = "Below are the allocations" & .HTMLBody
    
    'Get the Active Inspector
    Set outlookins = .GetInspector
    
    'Get the Word Editor
    Set OlWordDoc = outlookins.WordEditor
    
    
    'Specify the Range in the Document
    Set OlWordRng = OlWordDoc.Application.ActiveDocument.Content
        OlWordRng.Collapse Direction:=wdCollapseEnd
        
    'Insert a page break
        OlWordRng.InsertParagraph
        OlWordRng.InsertBreak
        
    'Copy the Excel Range
    ExcelRng.Copy
    
    'Paste into Word document
    OlWordRng.PasteSpecial DataType:=wdPasteHTML

 End With

End Sub