Свойство Search.Tag (Outlook)

Статья
04/07/2023

Возвращает значение String , указывающее имя текущего поиска. Свойство Tag используется для идентификации определенного поиска. Только для чтения.

Синтаксис

expression. Тег

Выражение Переменная, представляющая объект Search .

Замечания

Свойство Tag задается с помощью метода AdvancedSearch при создании объекта Search .

Пример

В следующем примере Visual Basic для приложений (VBA) выполняется поиск всех элементов без флага в папке "Входящие" пользователя. Поиску присваивается имя FlagSearch, заданное свойством Tag . После AdvanceSearchComplete завершения поиска процедура события задает логическое blnSearchComp значение True . Эта логическая переменная используется процедурой TestAdvancedSearchComplete() для определения завершения поиска. Пример кода должен быть помещен в модуль класса , например ThisOutlookSession, и подпрограмма TestAdvancedSearchComplete() должна быть вызвана, прежде чем процедура события может быть вызвана Outlook. Процедура AdvanceSearchComplete события отображает тег для пользователя, чтобы пользователь смог определить, какой поиск был выполнен, так как обычно поиск является асинхронным (используйте свойство IsSynchronous , чтобы определить, будет ли поиск синхронным или асинхронным), и вы можете выполнить несколько поисков одновременно.

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

См. также

Объект поиска

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через