Vbscript 在Outlook中创建每周两次的约会

我正在尝试使用vbscript创建一个每两周一次的约会。但由于某些原因，输出日期总是在每隔一个星期四出现，而实际上应该是每隔一个星期五。我已将outlook设置为在周日开始本周。我已更改并删除了.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   

---

谢谢您的帮助。

您需要移动东西：

DayOfWeekMask应设置在RecurrenceType属性的之后 已设置且在PatternEndDate和PatternStartDate属性之前 一切就绪

---

从

来看，没有这样的事情是每两周一次的。你需要每周一次

---

olFriday是&H20（32位小数）。

很有趣。有趣的是，仅仅强迫它为1就可以工作。但是如果我没有像Andy G说的那样重新排列代码，它也不会起作用。希望有一种方法能让你的两个答案都成为精选答案谢谢安迪！重新安排确实与德米特里的建议相结合。