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

Question

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

Если я дважды щелкнул файл .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

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