＜症状＞
Windowsのシャットダウンに時間がかかるようになった。

＜対処＞
◆Windows Updateの確認
Internet Explorer(起動）　⇒ツール
　⇒WindowsUpdate　⇒高速
　⇒手順に従います。
※PC再起動が必要な場合もあります。

◆自動更新の設定
スタート　⇒コントロールパネル　⇒自動更新
　⇒自動更新を無効にする（チェック入れる）
　⇒[ OK ]　⇒画面閉じる
※自動更新設定は、通常自宅で使用するPCの場合「自動（推奨）」を選択してください。

＜免責事項＞
このブログの中で紹介されている方法を実行される場合は、自己責任でお願いします。

＜症状＞
イベントログに、[ crypt32] ID8が出力される

＜対策＞
スタート　⇒コントロールパネル
　⇒プログラムの追加と削除
　⇒Windows コンポーネントの追加と削除
　⇒.ルート証明書の更新（チェック外す）
　⇒[ OK ]　⇒画面閉じる

＜備考＞
Microsoftによるは、この動作は仕様です。

＜参考＞
文書番号: 317541
< http://support.microsoft.com/kb/317541/ja >

＜免責事項＞
このブログの中で紹介されている方法を実行される場合は、自己責任でお願いします。

＜症状＞
メールのやり取りを何度もすると、件名が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などの表示を削除するようになります

＜免責事項＞
このブログの中で紹介されている方法を実行される場合は、自己責任でお願いします。