Outlook VBA教程:DayOfWeekMask属性

返回或设置表示定期约会或任务在星期几发生的掩码。OlDaysOfWeek 常量。按月或按年模式仅对单独的一天有效。按周模式仅在作为 DayOfWeekMask 的 Or 时有效。可读写。

OlDaysOfWeek 可为以下 OlDaysOfWeek 常量之一。
olFriday
olMonday
olSaturday
olSunday
olThursday
olTuesday
olWednesday
 

expression.DayOfWeekMask

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教程:DayOfMonth属性 下页:Outlook VBA教程:DefaultItemType属性

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

Outlook VBA教程:DefaultItemType属性 Outlook VBA教程:DefaultMessageClass属性
Outlook VBA教程:DeferredDeliveryTime属性 Outlook VBA教程:DelegationState属性
Outlook VBA教程:Delegator属性 Outlook VBA教程:DeleteAfterSubmit属性
Outlook VBA教程:Deleted属性 Outlook VBA教程:Department属性
Outlook VBA教程:Description属性 Outlook VBA教程:Dirty属性
Outlook VBA教程:DisplayName属性 Outlook VBA教程:DisplayType属性
Outlook VBA教程:DLName属性 Outlook VBA教程:DocPosted属性
Outlook VBA教程:DocPrinted属性 Outlook VBA教程:DocRouted属性
Outlook VBA教程:DocSaved属性 Outlook VBA教程:DownloadState属性
Outlook VBA教程:DueDate属性 Outlook VBA教程:Duration属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号