Compartir a través de

Evento Application.AdvancedSearchComplete (Outlook)

  • Artículo

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.

Comentarios

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.