|
|
打开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 
