Excel VBA附件搜索

Question

我正在研究可在Outlook邮件附件中找到字符串的宏。 我有工作模块搜索给定邮箱和文件夹上的主题，正文和附件名称。

问题是我的代码不想在附件函数中模拟Outlook搜索。

代码在邮件主题字段中搜索单词“ office”，并显示找到的邮件：

Sub t22()

Dim myolApp As Outlook.Application
Dim objNS As Outlook.Namespace
Dim objFolder As Outlook.MAPIFolder
Dim ProcessName As String
Dim EmailName As String

Set myolApp = CreateObject("Outlook.Application")
Set objNS = myolApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders("my@mailbox.com")
Set TargetInbox = objFolder.Folders("Inbox")

Dim oItms As Outlook.Items
Dim oItm As Outlook.MailItem
Set oItms = TargetInbox.Items
Dim sFilter As String
Dim EmailTime As String

sFilter = "@SQL=""http://schemas.microsoft.com/mapi/proptag/0x0037001f"" = 'office'"
Set oItm = oItms.Find(sFilter)
'If Not IsEmpty(oltm) Then
    oItm.Display
    Debug.Print oItm.Body
'End If
End Sub

据我了解，“ sFilter”应指向目标搜索字段，但是当我将其值用于附件（0x0EA5001E）时，它将失败。

我也在尝试AdvancedSearch方法，但结果相同-除附件外，其他都可以使用。

Answer 1

Outlook对象模型不提供任何用于搜索附件中的字符串的功能。 您需要找到所有附加了文件的项目，然后遍历所有项目。 进行迭代时，您可以打开附件并在其中搜索字符串。 您可以使用以下搜索条件来查找所有带有附件的项目：

 query ="@SQL=" & chr(34) & "urn:schemas:httpmail:hasattachment" & chr(34) & "=1"

您可能还会发现以下文章有所帮助：

• 如何：使用Find和FindNext方法从文件夹（C＃，VB.NET）中检索Outlook邮件项目
• 如何：使用“限制”方法从文件夹中检索Outlook邮件项目