次の方法で共有

Search.SearchSubFolders プロパティ (Outlook)

  • [アーティクル]

ブール値 の指定した検索範囲に検索するフォルダーのサブフォルダーが含まれているかどうかを示す値を返します。 読み取り専用です。

構文

式。 SearchSubFolders

式Search オブジェクトを表す変数。

注釈

このプロパティは、AdvancedSearch メソッドの SearchSubfolders 引数によって決定され、検索が開始されたときに指定されます。 かどうか は True 、 検索 オブジェクト、指定したフィルター パス内のすべてのサブフォルダーを検索します。

例

次の Microsoft Visual Basic for Applications (VBA) の例では、 Search オブジェクトを作成します。 検索範囲としてユーザーの 受信トレイを指定し、 SearchSubFolders プロパティが True に設定します。 検索が完了し、新しいオブジェクトと同様、検索結果の タグ および スコープ のプロパティを表示するとイベント サブルーチンが実行されます。

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 のサポートおよびフィードバックを参照してください。