Question

outlook2007 自动打开 附件 VBA 求教

outlook里面建立了一些规则，满足这个规则的邮件都是有附件的，并且都是xls或者是xlsx的。只要满足这个规则的邮件自动打开附件，这个要怎么来实现。看了规则里面本身是没有这个选项的，不知道用VBA要怎么才能实现。

Answer 1

下面的SaveAttach函数可以保存附件中的文档到D盘根目录下。
用ALT+F11打开VBA编辑器插入代码：
Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "D:\", "*.xls;*.xlsx" '这里的D:\为要保存的路径
End Sub

Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
' path为保存路径，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)
If olAtt.FileName Like condition Then

olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If
Set olAtt = Nothing
End Sub
利用Office Outlook 2007的规则，它可以设定对满足一定条件的邮件自动运行脚本，然后选择脚本为SaveAttach函数。这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。