Outlook) (Search.Filter 屬性

會傳回 String 值，代表用來將搜尋限制為指定之資料子集的 DASL 語句。 唯讀

語法

expression。 Filter

表達 代表 Search 物件的變數。

註解

這個屬性會在Application物件的AdvancedSearch方法中設定為Filter引數。

在搜尋 Text 欄位時，您可以使用簡縮號 (') 或雙引號 ("") 分隔篩選中的值。 例如，當欄位的類型為 String 時，下列所有行都會正常運作：

sFilter = "[CompanyName] = 'Microsoft'"

sFilter = "[CompanyName] = ""Microsoft"""

sFilter = "[CompanyName] = " & Chr(34) & "Microsoft" & Chr(34)

範例

下列 Microsoft Visual Basic for Applications (VBA) 範例會建立新的 Search 物件。 事件副程式會在搜尋完成後引發，並顯示Search物件的Tag和Filter屬性，以及搜尋的結果。

Sub SearchInboxFolder() 
 
 'Searches the Inbox folder 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = _ 
 
 "urn:schemas:mailheader:subject = 'Office Holiday Party'" 
 
 Const strS As String = "Inbox" 
 
 Const strTag As String = "SubjectSearch" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS, Filter:=strF, Tag:=strTag) 
 
End Sub

使用 AdvancedSearchComplete 事件副程式，以確保儲存在 Search 物件中的資料完整性。

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 Dim objRsts As Outlook.Results 
 
 Dim Item as Outlook.MailItem 
 
 MsgBox "The search " & SearchObject.Tag & "has finished. The filter used was " & _ 
 
 SearchObject.Filter & "." 
 
 Set objRsts = SearchObject.Results 
 
 'Print out number in results collection 
 
 MsgBox objRsts.Count 
 
 'Print out each member of results collection 
 
 For Each Item In objRsts 
 
 MsgBox Item 
 
 Next 
 
 
 
End Sub

另請參閱

Search 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。