Outlook 2010 VBS, как добавить встречу в определенный календарь

Question

Я пытаюсь настроить VBS для создания собрания в определенном календаре (не по умолчанию), когда нажата командная кнопка. Код у меня работает, но создает встречу в календаре по умолчанию. Я пытался дурачиться с этим, но я новичок в VBS (в основном используется VBA). Я знаю, что VBA и VBS похожи, так что я уверен, что что-то маленькое нужно настроить. Я хочу, чтобы собрания помещались в календарь с именем "Тест", который находится в разделе "Мои календари".

Sub commandbutton1_Click()

If CommandButton1 = False Then
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem

Const olAppointmentItem = 1
Const olMeeting = 1
Const olFree = 0


Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olAppointmentItem)

objAppt.Subject = "My Test Appointment"
objAppt.Start = #8/24/17 3:50:00 PM#
objAppt.Duration = 1
objAppt.Location = "Followup"
objAppt.Body = "Test Verbiage"
objAppt.ReminderMinutesBeforeStart = 1
objAppt.BusyStatus = olFree
objAppt.Save()
Set objAppt = Nothing
Set objOL = Nothing

End If


End Sub

Answer 1

Попробуй это:

Sub commandbutton1_Click()

If CommandButton1 = False Then

Const olAppointmentItem = 1
Const olMeeting = 1
Const olFree = 0

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")

Set objDictionary = CreateObject("Scripting.Dictionary")

objDictionary.Add "August 24, 2017", "My Test Appointment"


colKeys = objDictionary.Keys

For Each strKey in colKeys
dtmApptDate = strKey
strApptName = objDictionary.Item(strKey)

Set objAppt = objOutlook.CreateItem(olAppointmentItem) 
objAppt.Subject = strApptName
objAppt.Start = dtmApptDate & " 3:50 PM"
objAppt.Duration = 1
objAppt.Location = "Followup"
objAppt.Body = "Test Verbiage"
objAppt.ReminderSet = True
objAppt.ReminderMinutesBeforeStart = 1
objAppt.AllDayEvent = True
objAppt.BusyStatus = olFree
objAppt.Save
Next


End If


End Sub