自动保存指定后缀名的Outlook邮件的附件(利用VBA) RAR

金融it

打开outlook, 按ALT-F11,打开microsfot visual basid-vbaProject
然后，插入－模块

vba代码如下

1. 
   
2. Public Sub SaveAttach(Item As Outlook.MailItem)
   
3. 
   
4. SaveAttachment Item, "Y:\123", "*.zip"  ' 路径后面的\一定要带着，不然就保存到上一级目录了
   
5. SaveAttachment Item, "D:\456", "*.rar"  ' 路径后面的\一定要带着，不然就保存到上一级目录了
   
6. ' MsgBox "附件已保存"
   
7. End Sub
   
8. 
   
9. ' 保存附件
   
10. ' path为保存路径，condition为附件名匹配条件
    
11. Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
    
12. Dim olAtt As Attachment
    
13. Dim i As Integer
    
14. 
    
15. If Item.Attachments.Count > 0 Then
    
16. For i = 1 To Item.Attachments.Count
    
17. Set olAtt = Item.Attachments(i)
    
18. ' save the attachment
    
19. If olAtt.FileName Like condition Then
    
20. olAtt.SaveAsFile path & olAtt.FileName
    
21. End If
    
22. Next
    
23. End If
    
24. Set olAtt = Nothing
    
25. End Sub
    
26. 
    

复制代码

然后，在outlook中创建 规则，在选择动作的时候， 选运行脚本，然后在弹出的对话框中选择刚才保存的工程模块即可。
有疑问请留言

如果不能保存 第一是宏是不是被禁用了，启用宏的方法自行百度，第二注意查看 路径是不是保存到别的路径了


如果有多个规则可以插入多个模块，每个模块里的函数名称不一样，不同规则调用不同函数