时间戳

首页 > 解决方案 > 将从模板创建的 Outlook 约会保存到非默认日历

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

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

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

标签： excelvbaoutlook

解决方案

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

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

推荐阅读