OUTLOOK VBA 收到新邮件后自动保存包含特定字符的附件到指定文件夹

Posted 2023-03-22

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim olApp As New Outlook.Application
Dim nmsName As Outlook.NameSpace
Dim fldFolder As Outlook.folder

Dim vItem As Object
Dim ATT As Attachments
Dim path As String

Set nmsName = olApp.GetNamespace("MAPI")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
path = "C:\Users\Desktop\PO\"

If fldFolder.UnReadItemCount > 0 Then
For Each vItem In fldFolder.Items
If vItem.UnRead = True Then

For Each ATT In vItem.Attachments
If ATT.FileName Like "*" & "13-" & "*" Then
ATT.SaveAsFile path & ATT.FileName
End If
Next

vItem.UnRead = False
End If
Next
End If
End Sub

我这么写运行总是出错,也不会保存到指定文件夹,请问怎么才能做到我要的目的呢?

参考技术A 订阅了不少邮件列表，管理起来很麻烦，你可以利用邮件规则让Outlook　express将不同的邮件列表分门别类存放到不同的文件夹中。下面以“电脑爱好者网络版”为例进行介绍。　　首先在Outlook　express左侧的“文件夹”窗格中右击“收件箱”并新建一个名为“电脑爱好者网络期刊”的文件夹；打开“邮件规则”设置窗口22单击“新建”按钮，选择“选择规则条件”中勾选“若‘主题’行中包含特定的词”（“电脑爱好者网络版”邮件列表的主题行前几字都是“电脑爱好者网络版”）；接着在“选择规则操作”中勾选　“移动到指定的文件夹”ycg在“规则说明”中单击“包含特定的词”这一超级链接在“键入特定文字”对话框中输入“电脑爱好者网络版”，点“添加→确定”　　再点击“移动到指定的文件夹”中的蓝色字“指定的”，选择事先建立好的“电脑爱好者网络期刊”文件夹。追问

我指的是附件,不需要移动邮件,而且我要管理附件,不是管理邮件

参考技术B 我帮你完成这个