Compartir a través de

Propiedad Search.Tag (Outlook)

  • Artículo

Devuelve una cadena que especifica el nombre de la búsqueda actual. La propiedad Tag se usa para identificar una búsqueda específica. Solo lectura.

Sintaxis

expresión. Etiqueta

Expresión Variable que representa un objeto Search .

Comentarios

La propiedad Tag se establece mediante el método AdvancedSearch cuando se crea el objeto Search.

Ejemplo:

El siguiente ejemplo de Visual Basic para Aplicaciones (VBA) busca en la Bandeja de entrada del usuario todos los elementos que no tienen una marca. El nombre "FlagSearch", especificado por la propiedad Tag, se asigna a la búsqueda. El procedimiento de evento AdvanceSearchComplete establece el booleano blnSearchComp en True cuando finaliza la búsqueda. Esta variable booleana es utilizada por el procedimiento TestAdvancedSearchComplete() para determinar cuándo finaliza la búsqueda. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession y se debe llamar a la TestAdvancedSearchComplete() subrutina antes de que Outlook pueda llamar al procedimiento de evento. El procedimiento de evento AdvanceSearchComplete muestra la etiqueta al usuario para que el usuario pueda identificar la búsqueda que ha finalizado porque suele ser asincrónica (Utilice la propiedad IsSynchronous para determinar si la búsqueda será sincrónica o asincrónica) y se pueden ejecutar varias búsquedas simultáneamente.

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

Consulte también

Objeto de búsqueda

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.