通过附件文件名搜索Outlook文件夹

Question

我当前正在使用Outlook 2010，并且当前能够通过使用“更多”按钮并添加附件来手动在Outlook中搜索文件夹：是，附件包含：我在其中输入文件名以查找电子邮件并从其获取时间戳记寄了，送了。 我有成千上万个需要为此执行的附件，我想使该过程自动化，但是我是Outlook vba noobie，并且我不知道按附件名称执行搜索的命令，我尝试使用谷歌搜索此命令，但是没有如有任何帮助，将不胜感激，谢谢！

Answer 1

您可以使用限制https://msdn.microsoft.com/en-us/library/office/ff869597.aspx

此处的示例： http : //www.jpsoftwaretech.com/save-all-attachments-from-selected-folder/

Set newItems = itms.Restrict("[Attachment] > 0")

结合：

attName = MsgAttach.Item(attachmentNumber)

If InStr(attName, "search string here") Then
    Debug.Print "- " & attName
End If

Answer 2

Outlook对象模型将不允许您搜索具有特定附件文件名的项目。 您可以显式循环浏览文件夹中的所有项目并检查附件文件名，但是这样做效率极低。

在扩展MAPI级别（C ++或Delphi）上，可以在附件上创建子限制。 如果使用赎回是一个选项，则它允许在RDOItems中指定附件。 查找 /限制：

set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set vFolder = Session.GetFolderFromID(Application.ActiveExplorer.CurrentFolder.EntryID)
set vItems = vFolder.Items
set vMsg = vItems.Find("Attachments LIKE '%.zip%' ")
while not (vMsg Is Nothing)
  MsgBox vMsg.Subject
  set vMsg = vItems.FindNext
wend