Método Items.FindNext (Outlook)

Após a execução do método Find, este método localiza e retorna o próximo item do Outlook na coleção especificada.

Sintaxe

expressão. Findnext

Expressão Uma variável que representa um objeto Items .

Valor de retorno

Um valor Object que representa o próximo item do Outlook encontrado na coleção.

Comentários

A operação de pesquisa começa na posição atual, que corresponde à expressão definida anteriormente através do método Find.

O método retorna um item do Outlook do objeto se a chamada tiver êxito; Retorna Null (ou Nothing no Visual Basic) se ele falhar.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o método GetDefaultFolder para retornar o objeto Folder que representa a pasta padrão calendário do usuário atual. Ele usa os métodos Find e FindNext para localizar todos os compromissos que ocorrem hoje e exibem-las em uma série de caixas de mensagem.

Sub DemoFindNext() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim tdystart As Date 
 Dim tdyend As Date 
 Dim myAppointments As Outlook.Items 
 Dim currentAppointment As Outlook.AppointmentItem 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 tdystart = VBA.Format(Now, "Short Date") 
 tdyend = VBA.Format(Now + 1, "Short Date") 
 Set myAppointments = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 Set currentAppointment = myAppointments.Find("[Start] >= """ & tdystart & """ and [Start] <= """ & tdyend & """") 
 While TypeName(currentAppointment) <> "Nothing" 
 MsgBox currentAppointment.Subject 
 Set currentAppointment = myAppointments.FindNext 
Wend 
End Sub

Confira também

Objeto Items

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.