共用方式為

Outlook) (RecurrencePattern.Interval 屬性

  • 發行項

會傳回或設定 Long ，指定發生次數之間指定週期類型的單位數。 讀取/寫入。

語法

expression。 Interval

表達 代表 RecurrencePattern 物件的 變數。

註解

在設定 PatternEndDate 之前，必須先設定 Interval 屬性。

例如，將 Interval 屬性設定為 2，並將 RecurrenceType 屬性設定為 olRecursWeekly ，會導致模式每隔一周發生一次。

RecurrenceType 設定為 olRecursYearNth 或 olRecursYear 時，Interval 屬性就表示發生週期性工作之間的年數。 例如，Interval 等於 1 表示每年循環、Interval 等於 2 表示每 2 年循環，依此類推。

範例

這個 Visual Basic for Applications 範例會使用GetRecurrencePattern來取得新建立AppointmentItem的RecurrencePattern物件。 RecurrenceType、DayOfWeekMask、PatternStartDate、Interval、PatternEndDate和Subject屬性已設定，會儲存約會，然後以模式顯示：「從 2003 年 1 月 21 日到 2004 年 12 月 21 日下午 2：00 到下午 5：00，每隔 3 周 () 一次。」

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 支援與意見反應。