Interval 属性

返回或设置给定定期类型的两次发生之间的间隔。Long 类型。例如，将 Interval 属性设置为 2，并将 RecurrenceType 属性设置为“按周”，将使该模式每两周发生一次。可读写。

注意  Interval 属性必须在设置 PatternEndDate 前设置。还要注意，Interval 属性对“按年”定期模式无效。

expression   必选。该表达式返回 RecurrencePattern 对象。

示例

本 Visual Basic for Applications 示例使用 GetRecurrencePattern 获得最近创建的 AppointmentItem 的 RecurrencePattern 对象。设置 RecurrenceType、DayOfWeekMask、PatternStartDate、Interval、PatternEndDate 和 Subject 属性，并保存该约会，然后按模式“每 3 周的周一下午 2:00 到 5:00 之间发生，有效时间为 98 年 1 月 21 日到 2001 年 12 月 21 日之间”显示约会。

Set myOlApp = New Outlook.Application
Set myApptItem = myOlApp.CreateItem(olAppointmentItem)
Set myRecurrPatt = myApptItem.GetRecurrencePattern

myRecurrPatt.RecurrenceType = olRecursWeekly
myRecurrPatt.DayOfWeekMask = olMonday
myRecurrPatt.PatternStartDate = #1/21/98 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2001 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myApptItem = Application.CreateItem(1)
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = 1
myRecurrPatt.DayOfWeekMask = 2
myRecurrPatt.PatternStartDate = #1/21/98 2:00:00 PM#
myRecurrPatt.Interval = 3
myRecurrPatt.PatternEndDate = #12/21/2001 5:00:00 PM#
myApptItem.Subject = "Important Appointment"
myApptItem.Save
myApptItem.Display