如何删除 HTML 正文中签名上方自动生成的行？

When I .Display邮件，要添加签名，签名上方添加两行空行。有没有办法删除它们，使邮件看起来更好，而不丢失签名格式？

With objOutlookMsg
    .SentOnBehalfOfName = "[email protected] /cdn-cgi/l/email-protection"
    .To = "[email protected] /cdn-cgi/l/email-protection"
    .CC = "[email protected] /cdn-cgi/l/email-protection"
    .Subject = "Stackoverflow"

    ' Tekst
    .Display 
    .HTMLBody = "<p style='font-family:arial;font-size:13'>" & _
    "Hej" & "</p>" & _
    vbNewLine & vbNewLine & _
    "<p style='font-family:arial;font-size:13'>" & _
    "Test Test Test Test Test Test" & "</p>" & _
    .HTMLBody

    .Display
End With

显示邮件和签名的图片，开头没有空行。

自从你问这个问题以来已经有几年了，我只是在同样的问题上挣扎，我希望签名能够工作，无论谁发送。我想我仍然会在这里分享，以防其他人遇到类似的问题。

我不是一个伟大的编码员，但我能够通过一堆不同的文章/帖子将东西拼凑在一起以使某些东西发挥作用，因此可能有一种更有效的方法来执行此操作。

为了获得签名，它有效地显示一封带有默认签名的空电子邮件，删除空白，保存它，然后清空并丢弃该电子邮件，然后再转到最终的电子邮件发送（在我的计算机上只是丢弃左侧）最终电子邮件顶部的签名）。签名附在该电子邮件的末尾，.HTMLBody 用于这两个实例。

以下是带有“默认”输入的完整代码，供其他可能偶然发现的人使用：

Sub sig_and_email_send()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim signature As String

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

  'gets default signature from e-mail
    With OutMail
        '2 = HTMLBody Format
        .BodyFormat = 2
        .Display
        'deletes blank space present before signature
        signature = Replace(OutMail.HTMLBody, "<p class=MsoNormal><o:p>&nbsp;</o:p></p>", "")
        'removes entire e-mail contents and then closes with discard
        OutMail.HTMLBody = Replace(OutMail.HTMLBody, OutMail.HTMLBody, "")
        OutMail.Close 1
    End With
    
    On Error Resume Next
    With OutMail
        .to = "[email protected] /cdn-cgi/l/email-protection"
        .CC = "[email protected] /cdn-cgi/l/email-protection"
        .BCC = "[email protected] /cdn-cgi/l/email-protection"
        .Subject = "Subject"
        .Attachments.Add "\\network\folder\documents\file.xlsx"
        .HTMLBody = .HTMLBody & "Hi," & "whateveryourtextis" & _
        "<br>" & "Thanks," & "<br><br>" & signature
        .Display 'or use .Send
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub