次の方法で共有

Items.FindNext メソッド (Outlook)

  • [アーティクル]

Find メソッドが実行されると後、このメソッドは検索して、指定されたコレクション内の次の Outlook アイテムを返します。

構文

式。Findnext

式Items オブジェクトを表す変数。

戻り値

コレクション内で見つかった次の Outlook アイテムを表す文字列型 ( Object ) の値を指定します。

注釈

検索操作は、 Find メソッドで設定された式に一致する現在の位置から開始します。

Outlook アイテム オブジェクトの呼び出しが成功した場合、メソッドを返します。失敗した場合は Null (または 何も Visual Basic で) を返します。

例

このVisual Basic for Applications (VBA) の例では、GetDefaultFolder メソッドを使用して、現在のユーザーの既定の Calendar フォルダーを表す Folder オブジェクトを返します。 次に、 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 のサポートおよびフィードバックを参照してください。