Propriedade Search.Tag (Outlook)

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. Etiqueta

expressão Uma variável que representa um objeto de Pesquisa .

Comentários

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

Exemplo

O exemplo de Visual Basic for Applications (VBA) seguinte procura na Caixa de Entrada do utilizador 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 tem de ser colocado num módulo de classe, como ThisOutlookSession, e o TestAdvancedSearchComplete() subroutine tem de ser chamado antes de o procedimento do evento poder 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.