自动保存指定后缀名的Outlook邮件的附件(利用VBA) RAR
打开outlook, 按ALT-F11,打开microsfot visual basid-vbaProject然后，插入－模块
vba代码如下
Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "Y:\123\", "*.zip"' 路径后面的\一定要带着，不然就保存到上一级目录了
SaveAttachment Item, "D:\456\", "*.rar"' 路径后面的\一定要带着，不然就保存到上一级目录了
' MsgBox "附件已保存"
End Sub
' 保存附件
' path为保存路径，condition为附件名匹配条件
Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
Dim olAtt As Attachment
Dim i As Integer
If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)
' save the attachment
If olAtt.FileName Like condition Then
olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If
Set olAtt = Nothing
End Sub
然后，在outlook中创建 规则，在选择动作的时候， 选运行脚本，然后在弹出的对话框中选择刚才保存的工程模块即可。
有疑问请留言
如果不能保存 第一是宏是不是被禁用了，启用宏的方法自行百度，第二注意查看 路径是不是保存到别的路径了
如果有多个规则可以插入多个模块，每个模块里的函数名称不一样，不同规则调用不同函数
页:
[1]