如何从Outlook窗体删除旧的签名？

Question

我修改一个现有的形式，并将其保存在我的桌面作为.OFT文件上。 每当发送此形式I有一个旧的签名表示。

如果我双击该文件.OFT我看到身体与旧的签名，然后我更新的一个下方。我想删除旧的签名是停留在体内。是什么让我困惑的是，当我打开Outlook窗体它从来没有包括消息的签名，这是文件为什么当我跑我不明白除非我把它这个签名的形式，我看到它在预览当我打开消息我看到因为它应该是我的Outlook形式。

---

我设法保存该文件为html。我看到签名在页面的底部。

如何删除或修改HTML文件来删除签名，回到原来的再三文件。

我还试图保存为html，除去签名，保存，然后使用宏加载HTML。但无法保存回再三。

Sub MakeHTMLMsg()
Set objMsg =3D Application.CreateItem(olMailItem)
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set ts =3D fso.OpenTextFile("c:\testfile.htm", 1)=20
strText =3D ts.ReadAll
objMsg.HTMLBody =3D strText
objMsg.Display
Set fso =3D Nothing
Set ts =3D Nothing=20
Set objMsg =3D Nothing
End Sub

Answer 1

得到它， 添加消息框。然后去执行这种形式。瞧。 删除不需要的签名。 保存为

感谢您

Answer 2

如果您或您的合作者小心保存在邮件正文中RTF（包括签名），这个富文本将永远停留在.OFT，据我可以告诉（除非你决定一个.OFT Outlook窗体砍它在十六进制编辑器）。正如其他人在网络的黑暗角落建议，你可以运行形式，删除邮件正文，并将其保存为.oft - 但不幸的是，这并不RTF工作。该RTF被卡住。我发现隐藏此文本的唯一方法是使用该VBScript的展望宏观到的MailItem的BodyFormat类型更改为纯文本。该RTF字节将留在你的.OFT，但至少没有人会看着他们。

Sub ChangeToPlainTextAndPublishForm()
    Dim objOL       ' As Outlook.Application
    Dim objItem     ' As Outlook.ContactItem
    Dim objFD       ' As Outlook.FormDescription
    Const olPersonalRegistry = 2
    Const olDiscard = 1

    Set objOL = CreateObject("Outlook.Application")
    Set objItem = objOL.CreateItemFromTemplate("C:\MyPath\MyForm.oft")
    Set objFD = objItem.FormDescription

    objItem.BodyFormat = OlBodyFormat.olFormatPlain

    'Publish to personal forms library
    With objFD
        .DisplayName = "myForm"
        .PublishForm olPersonalRegistry
    End With
    objItem.Close olDiscard

    Set objFD = Nothing
    Set objItem = Nothing
    Set objOL = Nothing
End Sub