Items.IncludeRecurrences プロパティ (Outlook)

  • [アーティクル]

ブール値true を設定する場合は、 Items コレクションは、定期的なパターンを含める必要があります が返されます。 値の取得と設定が可能です。

構文

式。 IncludeRecurrences

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

注釈

このプロパティは、 Items コレクションの予定が含まれています、、昇順の順序で 起動 以外のプロパティでは並べ替えられていない場合のみ効果を持ちます。 既定値は、 false を指定 します。 プロパティを使用してこの特定の日付のすべての予定を取得する場合に、定期的な予定は通常は表示されません、特定の日付に関連付けられているではないためです。 予定表アイテムを定期的な予定の並べ替えし、フィルター処理する必要がある場合は、次の順序で行う必要があります: 昇順でアイテムを並べ替える、 日付 に設定する 場合は True 、およびアイテムのフィルターを適用します。 この順序を示すコード サンプルでは、次の 2 つ目の例を参照してください。 コレクションには、終了日を含む定期的な予定が含まれているプロパティを True に設定、コレクションを無限の数を示すことがあります。 任意のループでこのテストを含めることを確認します。 ループ のプロパティを True に設定を持つ アイテム のコレクションを反復処理するときは、 項目 のコレクションの Count プロパティを使用しないでください。 数 ] の値は未定義の値になります。

注意

[!注意] 出現の並べ替えられた一覧をフィルタ リングすると、正常に動作しないように、 日付 のプロパティが発生します。 たとえば、次のシーケンスは、すべての予定の出現箇所を返します。定期的および非定期的: (1) Start プロパティで並べ替える (2) プロパティを False に設定 (3) 呼び出し Restrict (つまり、フィルター)。

例

次の Visual Basic for Applications (VBA) の例は、定期的な予定を含め、今日と明日に発生する予定の件名を表示します。

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 
 
 myAppointments.Sort "[Start]" 
 
 myAppointments.IncludeRecurrences = True 
 
 Set currentAppointment = myAppointments.Find("[Start] >= """ & _ 
 
 tdystart & """ and [Start] <= """ & tdyend & """") 
 
 While TypeName(currentAppointment) <> "Nothing" 
 
 MsgBox currentAppointment.Subject 
 
 Set currentAppointment = myAppointments.FindNext 
 
 Wend 
 
End Sub

次の例は、定期的な予定が含まれた予定アイテムに対して並べ替えとフィルター処理を行う順序を示します。

Sub SortAndFilterAppointments() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myAppointments As Outlook.Items 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set calendarItems = myNameSpace.GetDefaultFolder(olFolderCalendar).Items 
 
 calendarItems.Sort "[Start]" 
 
 calendarItems.IncludeRecurrences = True 
 
 Set restrictedItems = calendarItems.Restrict("[Organizer]='Dan Wilson'") 
 
End Sub

関連項目

Items オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。