Evento Application.AdvancedSearchComplete (Outlook)

Ocorre quando o método AdvancedSearch foi concluída.

Sintaxe

expressão. AdvancedSearchComplete (SearchObject)

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

Parâmetros

Comentários

O evento AdvancedSearchComplete é usado para retornar o objeto que foi criado pelo método AdvancedSearch. Este evento é acionado apenas quando o método AdvancedSearch é executado por meio de programação.

Exemplo

O exemplo de Visual Basic for Applications (VBA) seguinte procura na Caixa de Entrada itens em que o assunto é igual a "Teste" e apresenta os nomes dos remetentes dos itens de e-mail devolvidos pela 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 deve ser colocado em um módulo de classe como ThisOutlookSession. O TestAdvancedSearchComplete() procedimento tem de ser chamado antes de o procedimento do evento poder ser chamado pelo Microsoft Outlook.

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

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.