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

我打开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

这与此类似，但会将非模板创建的新会议保存到非默认日历中

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单元格中。

应用程序。CreateItemFromTemplate

函数接受第二个（可选）参数-

MAPIFolder

，其中必须创建约会

脚本必须初始化文件夹的

变量，并将其传递给
CreateItemFromTemplate