Сохранить встречу Outlook, созданную из шаблона, в календарь не по умолчанию

Question

Я открываю шаблон собрания Outlook и хочу связать созданную встречу с календарем не по умолчанию в Outlook.Прикрепленный код сохраняет в календарь по умолчанию.

Sub Whatever()
Dim olApp As Object
Set olApp = GetObject(, "Outlook.Application")
Dim oApt As Outlook.AppointmentItem
Dim myTemplate As Object
Dim ns As Outlook.Namespace
Dim nsOther As Outlook.Recipient

Dim oFolder As Outlook.Folder
Dim template As String

template = "C:\Users\Some User\Meeting.oft"
Set myTemplate = olApp.CreateItemFromTemplate(template)
myTemplate.Recipients.Add ("someuser@contoso.com")
myTemplate.Start = "16/04/2019 10:30"
myTemplate.Display
myTemplate.Send

End Sub

Этот вопрос похож, но сохраняет новое собрание, не созданное из шаблона, в календарь не по умолчанию.

Этот подход сохраняет HTML в ячейке Excel.

Answer 1

Application.CreateItemFromTemplate функция принимает второй (необязательный) параметр - MAPIFolder, где должна быть создана встреча.

Ваш скрипт должен инициализировать переменную oFolder и передать ее в CreateItemFromTemplate.