Vba 将自定义签名按按钮添加到outlook 2007信函末尾

我有一个宏按钮：

Sub Mail_Outlook_With_Signature_Html_1()     
    Dim strbody As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "custom signature"
    On Error Resume Next
    With OutMail
        .Display 
        .HTMLBody = strbody & "<br>" & .HTMLBody
    End With
End Sub

带有签名的子邮件\u Outlook\u Html\u 1（）
像弦一样暗的链子
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
strbody=“自定义签名”
出错时继续下一步
发邮件
.展示
.HTMLBody=strbody&“
”和.HTMLBody
以
端接头

---

但这会创建一个新的消息，我需要先在空白字母中写一些文本，然后在字母末尾添加一个或多个自定义签名。如何操作？

Outlook对象模型没有为签名提供任何特殊属性或方法。它们只是消息体的一部分。因此，可以使用与编辑或设置邮件正文相同的属性。Outlook对象模型提供了三种处理项目主体的主要方法：

编辑这个词。Inspector类的属性返回表示消息正文的Word文档的实例。因此，您可以使用Word对象模型对消息体执行任何需要的操作 有关更多信息，请参阅

选择哪种方式取决于您，如果是HTMLBody属性，您需要找到结束标记

并在其前面插入有效的签名HTML标记（对于新创建的项目）

另外，如果在Outlook中运行代码，则无需创建新的应用程序实例。相反，您需要使用应用程序属性