次の方法で共有

Search.Scope プロパティ (Outlook)

  • [アーティクル]

指定した検索のスコープを指定する 文字列 を返します。 読み取り専用です。

構文

式。 Scope

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

注釈

検索が開始されると、検索のスコープが定義されています。 詳細については、 ここ を参照してください。

例

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

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