Compartir a través de


Propiedad Search.Filter (Outlook)

Devuelve un valor de tipo String que representa la instrucción DASL que se utiliza para restringir la búsqueda a un subconjunto específico de datos. Solo lectura

Sintaxis

expresión. Filter

Expresión Variable que representa un objeto Search .

Comentarios

Esta propiedad se establece como argumento Filter en el método AdvancedSearch del objeto Application.

Al buscar campos de texto, se pueden usar un apóstrofo (') o comillas dobles ("") para delimitar los valores que forman parte del filtro. Por ejemplo, todas las líneas siguientes funcionan correctamente cuando el campo es de tipo String:

sFilter = "[CompanyName] = 'Microsoft'"
sFilter = "[CompanyName] = ""Microsoft"""
sFilter = "[CompanyName] = " & Chr(34) & "Microsoft" & Chr(34)

Ejemplo:

El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se crea un nuevo objeto Search. La subrutina del evento se desencadena una vez terminada la búsqueda y muestra las propiedades Tag y Filter del objeto Search así como los resultados de la búsqueda.

Sub SearchInboxFolder() 
 
 'Searches the Inbox folder 
 
 Dim objSch As Outlook.Search 
 
 Const strF As String = _ 
 
 "urn:schemas:mailheader:subject = 'Office Holiday Party'" 
 
 Const strS As String = "Inbox" 
 
 Const strTag As String = "SubjectSearch" 
 
 Set objSch = _ 
 
 Application.AdvancedSearch(Scope:=strS, Filter:=strF, Tag:=strTag) 
 
End Sub

Utilice una subrutina de evento AdvancedSearchComplete para garantizar la integridad de los datos almacenados en el objeto Search.

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 Dim objRsts As Outlook.Results 
 
 Dim Item as Outlook.MailItem 
 
 MsgBox "The search " & SearchObject.Tag & "has finished. The filter used was " & _ 
 
 SearchObject.Filter & "." 
 
 Set objRsts = SearchObject.Results 
 
 'Print out number in results collection 
 
 MsgBox objRsts.Count 
 
 'Print out each member of results collection 
 
 For Each Item In objRsts 
 
 MsgBox Item 
 
 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.