OutLook的附件自动存到本地

1.[スタート]-[すべてのプログラム]-[Microsoft Office]-[Microsoft Office ツール] にある [VBA プロジェクトのデジタル証明書] を起動し、
  [デジタル証明書の作成] ダイアログの [証明書の名前] に自分の名前を入力します。
2.Outlook を起動し、Alt+F11 キーを押します。すると Visual Basic Editor が起動します。
  下記ソースを貼り付け、保存する
 
Public Sub SaveAttachments(objMsg As MailItem)
    Const SAVE_PATH = "D:\test\"
    Dim objFSO As Object ' FileSystemObject
    Dim objAttach As Attachment
    Dim strFileName As String
    Dim c As Integer: c = 1
    Dim dateFormat
    dateFormat = Format(Now, "yyyymmdd hhmmss")
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
'
    For Each objAttach In objMsg.Attachments
        With objAttach
           '
            strFileName = SAVE_PATH & objAttach.FileName
            '
            If objFSO.FileExists(strFileName) Then
                strFileName = SAVE_PATH & Left(.FileName, InStrRev(.FileName, ".") - 1) _
                    & "-" & dateFormat & Mid(.FileName, InStrRev(.FileName, "."))
                'c = c + 1
            End If
            '
            .SaveAsFile strFileName
        End With
    Next
    Set objMsg = Nothing
    Set objFSO = Nothing
   
End Sub

 
3.[ツール]-[デジタル署名]-[選択]-[1で作成した証明書]を選択
4.仕分けルールを作成
作成途中で、[スクリプトを実行する]をチェックし、上記作成したVBAを選択する
5.Outlookを再起動する