Método Search.Save (Outlook)
Salva os resultados da pesquisa em uma Pasta de Pesquisa.
Sintaxe
expressão. Salvar (SchFldrName)
Expressão Uma variável que representa um objeto Search .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
SchFldrName | Obrigatório | String | Uma sequência de caracteres que representa o nome da Pasta de Pesquisa. |
Comentários
O método Save exibe um erro se já existir uma pasta de pesquisa com o mesmo nome.
Exemplo
Os seguintes Microsoft exemplo Visual Basic for Applications (VBA) localiza a caixa de entrada itens cujo assunto igual a 'Test' e salva os resultados em uma pasta de pesquisa. O AdvanceSearchComplete
procedimento de evento define o boolianoblnSearchComp
como True quando a pesquisa é concluída. Essa variável Boolean é usada pelo procedimento TestAdvancedSearchComplete()
para determinar quando a pesquisa estiver concluída. O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession
, e o TestAdvancedSearchComplete()
procedimento deve ser chamado antes que o procedimento de evento possa ser chamado pelo 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
sch.Save("Subject Test")
End Sub
Confira também
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de