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を再起動する

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值