Как удалить старые подписи из форм Outlook? - PullRequest
Новая
       78

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

0 голосов
/ 13 мая 2009

Я изменил существующую форму и сохранил ее на рабочем столе в виде файла .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

Ответы [ 2 ]

1 голос
/ 05 февраля 2015

Если вы или соавтор случайно сохраните форму Outlook в .oft с 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
0 голосов
/ 14 мая 2009

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

спасибо

...