Метод Items.FindNext (Outlook)

После выполнения метода Find этот метод находит и возвращает следующий элемент Outlook в указанной коллекции.

Синтаксис

expression. НайтиДалее

Выражение Переменная, представляющая объект Items .

Возвращаемое значение

Значение Object , представляющее следующий элемент Outlook, найденный в коллекции.

Замечания

Операция поиска начинается с текущей позиции, которая соответствует выражению, ранее заданному методом Find .

Метод возвращает объект элемента Outlook, если вызов выполнен успешно; в случае сбоя он возвращает значение NULL (или Nothing в Visual Basic).

Пример

В этом примере Visual Basic для приложений (VBA) используется метод GetDefaultFolder для возврата объекта Folder, представляющего папку Calendar по умолчанию для текущего пользователя. Затем он использует методы Find и FindNext , чтобы найти все встречи, которые происходят сегодня, и отобразить их в ряду полей сообщений.

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

См. также

Объект Items

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.