通过

Search.SearchSubFolders 属性 (Outlook)

  • 项目

返回一个 boolean 类型的值 ，该值指示指定的搜索范围是否包括所搜索的任何文件夹的子文件夹。 此为只读属性。

语法

expression。 SearchSubFolders

表达 一个代表 Search 对象的变量。

备注

此属性由 AdvancedSearch 方法的 SearchSubfolders 参数确定，并在启动搜索时指定。 如果 为 True ， 搜索 对象通过指定的筛选器路径中的任何子文件夹的搜索。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例创建 搜索 对象。 用户的 收件箱指定搜索的范围并将 SearchSubFolders 属性设置为 True 。 当搜索完成后，显示为搜索结果或新对象的 Tag 和 Scope 属性触发事件子例程。

Public blnSearchComp As Boolean 
 
 
 
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired for " & SearchObject.Tag & _ 
 
 " and the scope was " & SearchObject.Scope 
 
 blnSearchComp = True 
 
End Sub 
 
 
 
Sub TestAdvancedSearchComplete() 
 
 'List all items in the Inbox that do NOT have a flag: 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = "urn:schemas:httpmail:messageflag IS NULL" 
 
 Const strS As String = "Inbox" 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF1 As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS1 As String = "Inbox" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS1, Filter:=strF1, _ 
 
 SearchSubFolders:=True, Tag:="FlagSearch") 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = objSch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

另请参阅

搜索对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。