将从模板创建的Outlook约会保存到非默认日历

Question

我打开一个Outlook Meeting模板，并希望将创建的约会关联到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

此question类似，但是将不是通过模板创建的新会议保存到非默认日历中。

This方法将html存储在Excel单元格中。

Answer 1

Application.CreateItemFromTemplate函数使用第二个（可选）参数-MAPIFolder，必须在其中创建约会。

您的脚本必须初始化oFolder变量并将其传递给CreateItemFromTemplate。