将从模板创建的 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:UsersSome UserMeeting.oft"
Set myTemplate = olApp.CreateItemFromTemplate(template)
myTemplate.Recipients.Add ("[e-mail]")
myTemplate.Start = "16/04/2019 10:30"
myTemplate.Display
myTemplate.Send
End Sub

此问题类似，但会将不是从模板创建的新会议保存到非默认日历。

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

Answer 1

Application.CreateItemFromTemplate函数采用第二个(可选(参数 - MAPIFolder必须创建约会的位置。

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