次の方法で共有

Application.AdvancedSearchComplete イベント (Outlook)

  • [アーティクル]

ここ が完了したときに発生します。

構文

式。AdvancedSearchComplete (SearchObject)

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

パラメーター

名前 必須 / オプション データ型 説明
SearchObject 必須 Search ここ から返された Search オブジェクトです。

注釈

AdvancedSearchComplete イベントを使用して、 ここ で作成されたオブジェクトを取得します。 このイベントは、 ここ がプログラムによって実行されたときにのみ発生します。

例

次のVisual Basic for Applications (VBA) の例では、件名が "テスト" と等しいアイテムを受信トレイで検索し、検索によって返された電子メール アイテムの送信者の名前を表示します。 イベント プロシージャはAdvanceSearchComplete、検索が完了したときにブール値を True に設定しますblnSearchComp。 このブール変数は、検索が TestAdvancedSearchComplete() 完了したタイミングを判断するためにプロシージャによって使用されます。 このサンプル コードは、 ThisOutlookSession などのクラス モジュールに配置する必要があります。 イベント プロシージャを TestAdvancedSearchComplete() Microsoft Outlook から呼び出す前に、プロシージャを呼び出す必要があります。

Public blnSearchComp As Boolean 

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired." 
 
 blnSearchComp = True 
 
End Sub 
 
Sub TestAdvancedSearchComplete() 
 
 Dim sch As Outlook.Search 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS As String = "Inbox" 
 
 Set sch = Application.AdvancedSearch(strS, strF) 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = sch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。