Partilhar via

Propriedade Search.Tag (Outlook)

  • Artigo

Retorna uma cadeia de caracteres especificando o nome da pesquisa atual. A propriedade Tag é usada para identificar uma pesquisa específica. Somente leitura.

Sintaxe

expressão. Tag

Expressão Uma variável que representa um objeto Search .

Comentários

A propriedade Tag é definida por meio do método AdvancedSearch quando o objeto de pesquisa é criado.

Exemplo

O exemplo de VBA (Visual Basic for Applications) a seguir pesquisa na caixa de entrada do usuário para todos os itens que não têm um sinalizador. O nome "FlagSearch", especificado pela propriedade marca, é fornecido para a pesquisa. O procedimento de evento AdvanceSearchComplete define o boolean blnSearchComp como True quando a pesquisa é concluída. Essa variável boolean é usada pelo procedimento TestAdvancedSearchComplete() para determinar quando a pesquisa é concluída. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession e a TestAdvancedSearchComplete() sub-rotina deve ser chamada antes que o procedimento de evento possa ser chamado pelo Outlook. O procedimento de evento AdvanceSearchComplete exibe a marca ao usuário para que o usuário pode identificar qual pesquisa foi concluída porque geralmente a pesquisa é assíncrona (use a propriedade IsSynchronous para determinar se a pesquisa será síncrona ou assíncrona) e você pode executar várias pesquisas simultaneamente.

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

Confira também

Objeto Search

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.