FindNext メソッド (Outlook)Items.FindNext method (Outlook)

Find メソッドを実行すると、このメソッドは、指定されたコレクション内の次の Outlook アイテムを検索して返します。After the Find method runs, this method finds and returns the next Outlook item in the specified collection.

構文Syntax

FindNextexpression.FindNext

Itemsオブジェクトを表す変数を取得します。expression A variable that represents an Items object.

戻り値Return value

コレクション内で見つかった次の Outlook アイテムを表すオブジェクト型 ( Object ) の値を指定します。An Object value that represents the next Outlook item found in the collection.

注釈Remarks

検索操作は、 Find メソッドで設定された式に一致する現在の位置から開始します。The search operation begins from the current position, which matches the expression previously set through the Find method.

呼び出しが成功した場合、メソッドは Outlook アイテムオブジェクトを返します。エラーが発生した場合は、 Null (または Visual Basic ではNothing ) を返します。The method returns an Outlook item object if the call succeeds; it returns Null (or Nothing in Visual Basic) if it fails.

Example

この Visual Basic for Applications (VBA) の例では、 GetDefaultFolder メソッドを使用して、現在のユーザーの既定の予定表フォルダーを表す**folder** オブジェクトを返します。This Visual Basic for Applications (VBA) example uses the GetDefaultFolder method to return the Folder object that represents the default Calendar folder for the current user. 次に、 Find メソッドとFindNextメソッドを使用して、現在発生しているすべての予定を検索し、それらを一連のメッセージボックスに表示します。It then uses the Find and FindNext methods to locate all the appointments that occur today and display them in a series of message boxes.

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

関連項目See also

Items オブジェクトItems Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.