メールのやり取りを何度もすると、件名がRE:RE:RE:など長くなる
＜方法＞
件名にRE、FWの文字を表示させないようにする方法
?@デジタル証明書の作成
スタート ⇒すべてのプログラム ⇒Microsoft Office
⇒Microsoft Office ツール ⇒VBAプロジェクトのデジタル証明書
⇒証明書の作成 ⇒証明書の名前[ myouji namae ]（自分の名前を入力）
⇒[ OK ]
?Aマクロの作成
Outlook2007（起動） ⇒ツール ⇒マクロ
⇒Visual Basic Editer ⇒ツール ⇒デジタル署名
⇒選択 ⇒証明書の選択（先ほど作成した証明書） ⇒[ OK ]
※２つ表示されている場合は２個とも選択
Project1(VbaProject.OTM) ⇒Microsoft Office Outlook Objects
⇒ThisOutlookSession（Wクリック） ⇒以下をコピー＆貼り付けする
＊＊＊次の行からコピーします＊＊＊
Option Explicit
Private WithEvents myInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Set myInspectors = Application.Inspectors
End Sub
Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
Dim s As String
If TypeName(Inspector.CurrentItem) = "MailItem" Then
If Left$(Inspector.CurrentItem.Subject, 3) = "RE:" Then
s = Mid$(Inspector.CurrentItem.Subject, 5)
Inspector.CurrentItem.Subject = s
End If
End If
End Sub
＊＊＊上の行までコピーします＊＊＊
ファイル ⇒VbaProject.OTMの上書き保存
⇒ファイル ⇒終了してMicrosoft Officeへ戻る
Outlook ⇒ツール ⇒セキュリティ設定 ⇒マクロのセキュリティ
⇒署名されたマクロに対しては警告を…（チェック有）
⇒[ OK ]
?Bマクロの実行
Outlook(終了） ⇒VBAプロジェクト VbaProcect.OTMへ変更を保存しますか？
⇒はい
※このメッセージが表示されない場合は、適用されていません
※eTokenパスワード入力画面が表示されたら、パスワード入力後OK
Outlook（起動）
メール返信時にRE・FWなどの表示を削除するようになります
＜免責事項＞
このブログの中で紹介されている方法を実行される場合は、自己責任でお願いします。
【このカテゴリーの最新記事】
- no image
-
- no image
