OUTLOOK自动保存指定邮件标题的附件

 时间:2024-10-14 13:11:53

1、在主菜单中,选择“规则”-“创建规则”

OUTLOOK自动保存指定邮件标题的附件

2、在“主题包含”和“收件人”中填入相应的信息,以便OUTLOOK可以确定需要操作的邮件是哪些。

OUTLOOK自动保存指定邮件标题的附件

3、勾选“主题中包含”来确定操作的邮件主题。

OUTLOOK自动保存指定邮件标题的附件

4、在“如何处理该邮件”选项中,勾选“运行脚本”

OUTLOOK自动保存指定邮件标题的附件

5、选择编写脚本(后续有详细的脚本哦)

OUTLOOK自动保存指定邮件标题的附件

6、按ALT+F11打开耔阵式肥脚本编辑窗口,将如下脚本写入编辑器中。Option ExplicitPublic Sub SaveAttach(Item As Outlook.MailItem) SaveAttachment Item, "S:\Holding\", "*.xls" 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 = NothingEnd Sub

OUTLOOK自动保存指定邮件标题的附件
  • Excel 2007中,VBA开发工具中Combobox的使用
  • 怎样使用VBA将选区公式转换成数值?
  • excel中使用vba来判断单元格内是否有公式
  • VBA怎么判定数据重复录入
  • EXCEL数据有效性中关于序列引用公式的探讨
  • 热门搜索
    红薯圆子的做法 鸭子的做法 没关系用英语怎么说 禺怎么读 豆豉做法 菜丸子的家常做法 窝头的做法 葱花烙饼的家常做法 茶叶蛋的家常做法 扫描件怎么弄