时间戳

首页 > 解决方案 > 如何通过即时搜索 Outlook 的结果进行搜索

vba - 如何通过即时搜索 Outlook 的结果进行搜索

问题描述

我有以下代码在 Outlook 中进行即时搜索，但我不确定现在如何循环遍历这些结果以进行进一步检查。

任何指点将不胜感激！

Sub SearchByAddress()

    Dim myOlApp As New Outlook.Application
    Dim ns As Outlook.NameSpace
    Dim strFilter As String
    Dim oMail  As Outlook.MailItem

    Set ns = myOlApp.GetNamespace("MAPI")

          strFilter = "joebloggs@hotmail.com"

    Set myOlApp.ActiveExplorer.CurrentFolder = ns.GetDefaultFolder(olFolderInbox)
         txtSearch = "from:(" & Chr(34) & strFilter & Chr(34) & ") AND " & Chr(34) & "Check" & Chr(34)
         myOlApp.ActiveExplorer.Search txtSearch, olSearchScopeAllFolders

    Set myOlApp = Nothing



End Sub

标签： vbaoutlook

解决方案

改用Application.AdvancedSearch - 它返回Search对象的一个​​实例。

推荐阅读