Événement Application.AdvancedSearchComplete (Outlook)
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.