Outlook) (搜尋物件
會包含對 Outlook 項目執行個別搜尋的相關資訊。
Search 物件中包含定義搜尋類型及搜尋本身參數的屬性。
使用 Application 物件的 AdvancedSearch 方法可傳回 Search 物件。
使用 AdvancedSearchComplete 事件來判斷指定的搜尋何時完成。
下列 Microsoft Visual Basic for Applications (VBA) 範例會傳回名為 「SubjectSearch」 的搜尋物件,並顯示物件的 Tag 和 Filter 屬性值。 一旦完成時,Tag 屬性會用於識別指定的搜尋。
Sub SearchInboxFolder()
'Searches the Inbox
Dim objSch As Search
Const strF As String = _
"urn:schemas:mailheader:subject = 'Office Christmas Party'"
Const strS As String = "Inbox"
Const strTag As String = "SubjectSearch"
Set objSch = Application.AdvancedSearch(Scope:=strS, _
Filter:=strF, SearchSubFolders:=True, Tag:=strTag)
End Sub
下列 VBA 範例會顯示搜尋及搜尋結果的相關資訊。
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)
Dim objRsts As Results
MsgBox "The search " & SearchObject.Tag & "has completed.
Set objRsts = SearchObject.Results
'Print out number in Results collection
Debug.Print objRsts.Count
'Print out each member of Results collection
For Each Item In objRsts
Debug.Print Item
Next
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。