Evento Application.AdvancedSearchComplete (Outlook)

Se produce cuando finaliza el método AdvancedSearch.

Sintaxis

expresión. AdvancedSearchComplete (SearchObject)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SearchObject	Obligatorio	Search	El objeto Search devuelto por el método AdvancedSearch.

Observaciones

El evento AdvancedSearchComplete se utiliza para devolver el objeto creado por el método AdvancedSearch. Este evento sólo se desencadena cuando el método AdvancedSearch se ejecuta mediante programación.

Ejemplo

En el siguiente ejemplo de Visual Basic para Aplicaciones (VBA) se buscan elementos en la Bandeja de entrada donde el asunto es igual a "Test" y se muestran los nombres de los remitentes de los elementos de correo electrónico devueltos por 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 se debe colocar en un módulo de clase como ThisOutlookSession. Se TestAdvancedSearchComplete() debe llamar al procedimiento antes de que Microsoft Outlook pueda llamar al procedimiento de evento.

Public blnSearchComp As Boolean 

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) 
 
 MsgBox "The AdvancedSearchComplete Event fired." 
 
 blnSearchComp = True 
 
End Sub 
 
Sub TestAdvancedSearchComplete() 
 
 Dim sch As Outlook.Search 
 
 Dim rsts As Outlook.Results 
 
 Dim i As Integer 
 
 blnSearchComp = False 
 
 Const strF As String = "urn:schemas:mailheader:subject = 'Test'" 
 
 Const strS As String = "Inbox" 
 
 Set sch = Application.AdvancedSearch(strS, strF) 
 
 While blnSearchComp = False 
 
 DoEvents 
 
 Wend 
 
 Set rsts = sch.Results 
 
 For i = 1 To rsts.Count 
 
 MsgBox rsts.Item(i).SenderName 
 
 Next 
 
End Sub

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.