Excel VBAsearch邮件的Outlook

我正在开发一个项目，里面有一个Account ID的列表，我正在做的是创build一个与Outlook接口的macros，在特定条件下search我的收件箱中的任何电子邮件，然后返回“ Y“或”N“，如果find，发送邮件的人和发送的时间。 以下是我正在使用的代码; 我需要macros来search电子邮件正文而不是主题行。 当我将[主体]replace为[主体]时，macros运行没有错误，但没有返回邮件（我放置了几个testing邮件来捕捉它）。 我正在运行Excel和Outlook 2007，并且已经引用了VBA中的MS 12.0 Excel和Outlook库。

Sub Work_with_Outlook() Set outlookApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim sir() As String Set outlookApp = New Outlook.Application Set olNs = outlookApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] = ""123456""") If Not (olMail Is Nothing) Then olMail.Display End If End Sub 

Answer 1

您不能在Find（Filter）中使用Body，请参阅Items.Find方法（Outlook） ，作为解决方法，您可以使用VBAstringsearchfunction：

 Sub sofWorkWithOutlook20082550() Dim outlookApp Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim myTasks Dim sir() As String 'Set outlookApp = New Outlook.Application Set outlookApp = CreateObject("Outlook.Application") Set olNs = outlookApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items ' 'Set olMail = myTasks.Find("[Subject] = ""123456""") ' For Each olMail In myTasks ' If (InStr(1, olMail.Body, "My-Text-to-Search", vbTextCompare) > 0) Then olMail.Display Exit For End If Next End Sub