RecurrencePattern.Interval プロパティ (Outlook)
長い 定期的なパターンが出現するとの間の単位数を指定する設定または返します。 値の取得と設定が可能です。
構文
式。 Interval
式RecurrencePattern オブジェクトを表す変数。
注釈
Interval プロパティは、 プロパティ を設定する前に設定しなければなりません。
など 2 し、 RecurrenceType プロパティを olRecursWeekly に、 Interval プロパティを設定すると、2 週間ごとに発生するパターン。
RecurrenceType は、 olRecursYearNth または olRecursYear に設定されている場合、 Interval プロパティは出現間の年の数を示します。 たとえば、 間隔 とすると 1 を示します、定期的なアイテムは、すべての年、 間隔 が 2 では、定期的なアイテムは、すべて 2 年間というようにことを示します。
例
この Visual Basic for Applications の例は、新しく作成された AppointmentItem の RecurrencePattern オブジェクトを取得するのに GetRecurrencePattern を使用します。 プロパティ、 RecurrenceType 、 DayOfWeekMask 、 PatternStartDate 、 間隔 、 プロパティ 、および 件名 が設定されて、予定が保存され、パターンが表示されます:"3 週間ごとの月曜日に発生する効果的な 21/2003 年 1 月 21/2004 年 12 月午後 2時 00分から午後 5時 00分になるまでです」。
Sub CreateAppointment()
Dim myApptItem As AppointmentItem
Dim myRecurrPatt As RecurrencePattern
Set myApptItem = Application.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/2003 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2004 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display
Set myOlApp = Nothing
Set myApptItem = Nothing
Set myRecurrPatt = Nothing
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。