2009-05-12 18 views
0

私は既存のフォームを修正し、デスクトップに.oftファイルとして保存しました。 私はこの書類を送るときはいつも私は古い署名を持っています。Outlookフォームから古いシグネチャを削除するにはどうすればよいですか?

.oftファイルをダブルクリックすると、その古いシグネチャのボディとその下の新しいシグネチャが表示されます。私は体に詰まっているその古い署名を削除したいと思います。私が混乱しているのは、Outlookフォームでそのファイルを開いたときにメッセージに署名が含まれないということです。フォームを実行すると、送信時以外はこの署名が表示されません。 Outlookフォームが表示されるはずのメッセージが表示されます。


ファイルをhtml形式で保存できました。私はページの下部に署名を見る。

htmlファイルを削除または変更してその署名を削除し、元のoftファイルを取り戻すにはどうすればよいですか。

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

答えて

0

gotuch、 メッセージボックスを追加します。このフォームを実行してください。ボイルラ。 不要な署名を削除します。

として保存 は、あなたや協力者が誤って(署名を含んで)メッセージ本文にRTFと.OFT Outlookのフォームを保存した場合、このリッチテキストは永遠のように、.OFTで立ち往生されますあなたの

+0

私はこのソリューションをかなり試してみましたが、問題を解決できませんでした。私は、新しいフォームにコントロールをコピーして貼り付ける必要がありました(メール設定で自己署名を無効にした後でした)。これも私のフィールドを転送します。 – nardnob

1

に感謝しますあなたがそれを16進エディタでハックすることを決めていない限り、私はそれを伝えることができます。 Webの暗いコーナーで他の人が示唆するように、フォームを実行したり、メッセージ本体を削除したり、.oftとして保存したりすることはできますが、残念ながらRTFでは動作しません。 RTFがスタックされています。このテキストを非表示にする唯一の方法は、このVBScript Outlookマクロを使用して、MailItemの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 
関連する問題