如何让outlook自动保存特定发件人发来的邮件中的附件.docxVIP

一、 打开Outlook ,首先启用宏: 文件-选项- 信任中心-信息中心设置-宏设置-启用所有宏-确定-确定 二、 按下 Alt+F11 点击插入-模块 拷贝下面的代码 Public Sub SaveAttach(Item As Outlook.MailItem) SaveAttachment Item, z:\Quality_Control\Taqman\ MsgBox 已经把Taqman结果保存在了公共盘 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 Note:第二行后面有一个文件的路径 这个是就是自己想要保存文件的的位置,自己输入后然后保存 如下图: 点击 保存，然后关闭窗口 三、打开Outlook点击: 文件--管理规则和通知-新建规则-对我接收的邮件应用规则 –下一步---在发件人为个人或公用组 前面点上对勾，然后点击— 个人或公用组 发件人中输入需要输入的发件人，比如 tca@ 这一条可以根据自己的需要来写，或者有其他需要的话都可以自己定制要求，大家都可以试试 （有些人的通讯簿里会有联系人 就可以双击一下就会直接到发件人里了，这条因个人而异） 确定—完成 就可以了 （规则的名称可以自己根据需要来命名）