Application Advanced Searchcomplete イベント (Outlook)Application.AdvancedSearchComplete event (Outlook)

ここ が完了したときに発生します。Occurs when the AdvancedSearch method has completed.

構文Syntax

詳細 search完了(Searchobject)expression.AdvancedSearchComplete (SearchObject)

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
Searchobject.resultsSearchObject 必須Required SearchSearch ****ここ**** から返された Search オブジェクトです。The Search object returned by the AdvancedSearch method.

解説Remarks

AdvancedSearchComplete イベントを使用して、 ここ で作成されたオブジェクトを取得します。The AdvancedSearchComplete event is used to return the object that was created by the AdvancedSearch method. このイベントは、 ここ がプログラムによって実行されたときにのみ発生します。This event only fires when the AdvancedSearch method is executed programmatically.

Example

次の Visual Basic for Applications (VBA) の例は、受信トレイで件名が "Test" に等しいアイテムを検索し、検索によって返される電子メールアイテムの差出人の名前を表示します。The following Visual Basic for Applications (VBA) example searches the Inbox for items where the subject is equal to "Test" and displays the names of the senders of the email items returned by the search. イベントAdvanceSearchCompleteプロシージャは、検索がblnSearchComp完了したときに、ブール型 (boolean) の値をTrueに設定します。The AdvanceSearchComplete event procedure sets the boolean blnSearchComp to True when the search is complete. このブール型の変数は、 TestAdvancedSearchComplete()検索が完了したことを確認するためにプロシージャで使用されます。This boolean variable is used by the TestAdvancedSearchComplete() procedure to determine when the search is complete. このサンプル コードは、 ThisOutlookSession などのクラス モジュールに配置する必要があります。The sample code must be placed in a class module such as ThisOutlookSession. また、イベント プロシージャが Microsoft Outlook によって呼び出されるためには、それより前に TestAdvancedSearchComplete() プロシージャが呼び出される必要があります。The TestAdvancedSearchComplete() procedure must be called before the event procedure can be called by 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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.