在Outlook中创建双周约会

Question

我正在尝试使用vbscript创建双周约会。但由于某种原因，输出日期总是发生在每隔一个星期四，而应该是每隔一个星期五。我有一个前景设定在周日开始一周。我已经改变并删除了.DayOfWeekMask并且它在周四停留。

Dim endDate 
Dim startDate

endDate = #01/01/2022#
startDate = #01/01/2012#

Const olRecursBiWeekly = 1 
Const olFriday = 6
Set olkEvent = olkApp.CreateItem(1)

olkEvent.Subject = "Pay Day" 
olkEvent.AllDayEvent = True
olkEvent.ReminderSet = False

Set objRecurrence = olkEvent.GetRecurrencePattern

objRecurrence.DayOfWeekMask = olFriday
objRecurrence.RecurrenceType = olRecursBiWeekly
objRecurrence.PatternStartDate = startDate
objRecurrence.Interval = 2
objRecurrence.PatternEndDate = endDate

olkEvent.Save   

感谢您的帮助。

Answer 1

你需要搬家：

  

应该在RecurrenceType属性之后设置DayOfWeekMask   已经设置并且在PatternEndDate和PatternStartDate属性之前   已经确定了。

来自MSDN

Answer 2

没有这样的事情是olRecursBiWeekly。你需要olRecursWeekly（= 1）。

olFriday是＆amp; H20（十进制32）。