按钮添加自定义签名到字母Outlook 2007的末尾

Question

我有这个宏的按钮：

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

但是这会创建一个新的消息，我首先需要用空白字母写一些文本，然后在字母的末尾添加一个或多个自定义签名。我该怎么办？

Answer 1

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

1. Body。
2. HTMLBody。
3. Word编辑器。 Inspector类的WordEditor属性返回表示邮件正文的Word文档实例。因此，您可以使用Word对象模型对邮件正文执行任何操作。

有关详细信息，请参阅Chapter 17: Working with Item Bodies。

取决于您选择哪种方式，在HTMLBody属性的情况下，您需要找到结束</body>标记并在其之前插入有效的签名HTML标记（对于新创建的项目）。

P.S。如果在Outlook中运行代码，则无需创建新的Application实例。相反，您需要使用Application属性。