Как мне удалить старые подписи из Outlook forms?

Question

Я изменил существующую форму и сохранил ее на своем рабочем столе в виде файла .oft .Всякий раз, когда я отправляю эту форму, у меня появляется старая подпись, которая показывает.

Если я дважды щелкну по файлу .oft, я увижу текст с этой старой подписью, а затем мою новую подпись под ним.Я хотел бы удалить эту старую подпись, которая застряла в теле.Что меня смущает, так это то, что когда я открываю этот файл в Outlook forms, он никогда не включает подпись в сообщения, вот почему, когда я запускаю форму, я не вижу эту подпись, за исключением случаев, когда я отправляю ее, я вижу ее в предварительном просмотре, когда я открываю сообщение, я вижу свою форму Outlook такой, какой она должна быть.

---

Мне удалось сохранить файл в формате html.Я вижу подпись внизу страницы.

Как я могу удалить или изменить html-файл, чтобы удалить эту подпись и вернуть исходный oft-файл.

Я также попробовал сохранить как html, удалив подпись, сохранив, затем используя макрос для загрузки html.Но не удалось сохранить обратно в oft.

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

Если вы или соавтор случайно сохраните форму .oft Outlook в формате RTF в теле сообщения (которое включает подписи), насколько я могу судить, этот форматированный текст навсегда застрянет в .oft (если только вы не решите взломать его в шестнадцатеричном редакторе).Как предлагают другие в темных уголках Интернета, вы можете запустить форму, удалить текст сообщения и сохранить его как .oft - но, к сожалению, это не работает с RTF.RTF застрял.Единственный способ, который я нашел, чтобы скрыть этот текст, - это с помощью этого макроса Outlook VBScript изменить тип 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