通过

RecurrencePattern.Interval 属性 (Outlook)

  • 项目

返回或设置一个 Long 指定给定的定期类型的两次发生之间的单位数。 读/写。

语法

expression。 Interval

表达 一个代表 RecurrencePattern 对象的变量。

备注

设置 PatternEndDate 之前，必须设置 时间间隔 属性。

例如，将 时间间隔 属性设置为 2 和 介于 1 到 olRecursWeekly 属性会导致每两周发生的模式。

当 是介于 1 到 olRecursYearNth 或 olRecursYear 设置时， 时间间隔 属性指示两次发生之间的年份数。 例如， 间隔 等于 1 表示重复周期是每年、 时间间隔 等 2 指示重复周期为每 2 年，依此类推。

示例

此Visual Basic for Applications示例使用 GetRecurrencePattern 获取新创建的 AppointmentItem 的 RecurrencePattern 对象。 设置了属性 RecurrenceType、 DayOfWeekMask、 PatternStartDate、 Interval、 PatternEndDate 和 Subject ，保存约会，然后显示该模式：“从 2003/1/21 到 2004/12/21/2004，从下午 2：00 到下午 5：00，每 3 周发生一次 (s) 。

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

另请参阅

RecurrencePattern 对象

方法: 在日历上创建约会为会议

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。