Search.Tag, propriété (Outlook)

Article
04/07/2023

Renvoie une valeur de type String qui spécifie le nom de la recherche active. La propriété Tag permet d’identifier une recherche spécifique. En lecture seule.

Syntaxe

expression. Étiquette

Expression Variable qui représente un objet Search .

Remarques

La propriété Tag est définie à l’aide de la méthode AdvancedSearch lors de la création de l’objet Search .

Exemple

L’exemple Visual Basic pour Applications (VBA) suivant recherche dans la boîte de réception de l’utilisateur tous les éléments qui n’ont pas d’indicateur. La recherche reçoit le nom « FlagSearch », spécifié par la propriété Tag. 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, et la TestAdvancedSearchComplete() sous-routine doit être appelée avant que la procédure événementielle puisse être appelée par Outlook. La AdvanceSearchComplete procédure événementielle affiche la balise à l’utilisateur afin que l’utilisateur puisse identifier la recherche terminée, car la recherche est généralement asynchrone (utilisez la propriété IsSynchronous pour déterminer si la recherche sera synchrone ou asynchrone), et vous pouvez exécuter plusieurs recherches simultanément.

Public blnSearchComp As Boolean 
 
 
 
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired for " & _ 
 
 SearchObject.Tag & " and the scope was " & SearchObject.Scope 
 
 blnSearchComp = True 
 
End Sub 
 
 
 
Sub TestAdvancedSearch111Complete() 
 
 'List all items in the Inbox that do NOT have a flag: 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = "urn:schemas:httpmail:messageflag IS NULL" 
 
 Const strS As String = "Inbox" 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF1 As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS1 As String = "Inbox" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS1, Filter:=strF1, _ 
 
 Tag:="FlagSearch") 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = objSch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

Voir aussi

Objet de recherche

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.

Partager via