どのように私は、Outlookフォームから古い署名を削除しますか？

Question

私は、既存のフォームを変更し、.OFTファイルとして私のデスクトップに保存されました。 私はこのフォームを送信するたびに、私は示し古い署名を持っています。

私は.OFTファイルをダブルクリックすると、

私はその古い署名し、それ以下の私の新しい1で体を参照してください。私は、体内で立ち往生している古い署名を削除したいと思います。どのような私を混乱することは、私はOutlookでそのファイルを開いたときに形成し、それは私が、私はそれを送信する場合を除いて、この署名が表示されていないフォームを実行したときに、私が開いたときに、私はプレビューでそれを参照してください理由である、メッセージ内の署名が含まれないことですそれがあるべきように私は私のOutlookフォームを参照してください。

メッセージ <時間>

私は、HTMLとしてファイルを保存するために管理しました。私は、ページの下部に署名を参照してください。

どのように私はその署名を削除し、元のOFTファイルを取り戻すためにhtmlファイルを削除または修正することができます。

Iはまた、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

あなたや協力者が誤って（署名を含んで）メッセージ本文にRTFと.OFT Outlookのフォームを保存した場合、あなたがすることを決定しない限り、

、このリッチテキストは永遠に（私の知る限り、.OFTで立ち往生されます）バイナリエディタでそれをハック。他の人がウェブの暗い隅に提案として、あなたは、フォームを実行し、メッセージ本文を削除し、.OFTとして保存することができます - しかし、残念ながら、これはRTFでは動作しません。 RTFはスタックしています。私はこのテキストを非表示に発見した唯一の方法は、プレーンテキストにMailItemのBodyFormatの種類を変更するには、このVBScriptのOutlookのマクロです。 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