どのように私は、Outlookフォームから古い署名を削除しますか?
-
21-08-2019 - |
質問
私は、既存のフォームを変更し、.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
解決 2
は、それを得ました メッセージボックスを追加します。その後、このフォームを実行するために行きます。出来上がり。 不要な署名を削除します。
として保存ありがとうございました。
他のヒント
、このリッチテキストは永遠に(私の知る限り、.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