Outlook) (搜索对象
包含有关对 Outlook 项目执行的各种搜索的信息。
Search 对象包含的属性定义了搜索类型和搜索本身的参数。
使用 应用程序 对象的 AdvancedSearch 方法返回 搜索 对象。
使用 AdvancedSearchComplete 事件可确定指定搜索完成的时间。
下面的 Microsoft Visual Basic for Applications (VBA) 示例返回名为"SubjectSearch"的搜索对象和显示对象的 标记 和 筛选器 属性值。 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。