Événement Application.AdvancedSearchComplete (Outlook)

  • Article

Se produit lorsque la méthode AdvancedSearch est terminée.

Syntaxe

expression. AdvancedSearchComplete (SearchObject)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom Requis/Facultatif Type de données Description
SearchObject Requis Recherche Objet Search retourné par la méthode AdvancedSearch .

Remarques

L’événement AdvancedSearchComplete permet de renvoyer l’objet créé par la méthode AdvancedSearch. Cet événement se déclenche uniquement lorsque la méthode AdvancedSearch est exécutée par programme.

Exemple

L’exemple Visual Basic pour Applications (VBA) suivant recherche dans la boîte de réception les éléments dont l’objet est égal à « Test » et affiche les noms des expéditeurs des éléments de courrier électronique retournés par la recherche. La AdvanceSearchComplete procédure événementielle définit la valeur booléenneblnSearchComp sur True une fois la recherche terminée. Cette variable booléenne est utilisée par la procédure TestAdvancedSearchComplete() pour déterminer à quel moment se termine la recherche. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession. La TestAdvancedSearchComplete() procédure doit être appelée avant que la procédure événementielle puisse être appelée par 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.