Search.SearchSubFolders-Eigenschaft (Outlook)

Artikel
10/16/2024

Gibt einen Wert vom Typ Boolean zurück, der angibt, ob der Umfang der angegebenen Suche die Unterordner von durchsuchten Ordnern einschließt. Schreibgeschützt.

Syntax

Ausdruck. SearchSubFolders

Ausdruck Eine Variable, die ein Search-Objekt darstellt.

Hinweise

Diese Eigenschaft wird durch das SearchSubfolders-Argument der AdvancedSearch-Methode bestimmt und beim Initiieren der Suche angegeben. Wenn True, die Suche durchsucht alle Unterordner im Pfad angegebenen Filter-Objekt.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA) wird ein Search -Objekt erstellt. Der Benutzer Posteingang als Umfang der Suche angegeben ist, und die SearchSubFolders -Eigenschaft auf True festgelegt ist. Unterroutine des Ereignisses wird ausgelöst, wenn die Suche abgeschlossen ist und die Eigenschaften Tag und Scope für das neue Objekt sowie die Ergebnisse der Suche zeigt.

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

Siehe auch

Search-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über