Outlook VBA教程:Interval属性

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

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

expression.Interval

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

VBA示例

本 Visual Basic for Applications 示例使用GetRecurrencePattern 获得最近创建的AppointmentItemRecurrencePattern对象。设置RecurrenceTypeDayOfWeekMaskPatternStartDateIntervalPatternEndDateSubject属性,并保存该约会,然后按模式“每 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

上页:Outlook VBA教程:InternetFreeBusyAddress属性 下页:Outlook VBA教程:IsConflict属性

Outlook VBA教程:Interval属性:相关链接

Outlook VBA教程:IsConflict属性 Outlook VBA教程:ISDNNumber属性
Outlook VBA教程:IsOnlineMeeting属性 Outlook VBA教程:IsReadOnly属性
Outlook VBA教程:IsRecurring属性 Outlook VBA教程:IsSynchronous属性
Outlook VBA教程:IsUserProperty属性 Outlook VBA教程:IsVisible属性
Outlook VBA教程:Item属性 Outlook VBA教程:ItemProperties属性
Outlook VBA教程:Items属性 Outlook VBA教程:JobTitle属性
Outlook VBA教程:Journal属性 Outlook VBA教程:Language属性
Outlook VBA教程:LanguageSettings属性 Outlook VBA教程:LastFirstAndSuffix属性
Outlook VBA教程:LastFirstNoSpace属性 Outlook VBA教程:LastFirstNoSpaceAndSuffix属性
Outlook VBA教程:LastFirstNoSpaceCompany属性 Outlook VBA教程:LastFirstSpaceOnly属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号