Application.AdvancedSearchComplete イベント (Outlook)

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

構文

式。AdvancedSearchComplete (SearchObject)

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

パラメーター

注釈

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

例

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

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