Создать событие календаря из Excel с помощью VBA

Question

Я пытаюсь создать событие в Outlook, используя данные из Excel.

Вот так выглядит мой код:

Dim objOutlook As Object
Dim ObjAppt As Object
Dim objNamespace As Object
Dim objFolder As Object
Dim OpenMAPIFolder As Object
Dim objCalendar As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(9).Folders("Calendar")
Set ObjAppt = objFolder.Items.Add 'create task item
With ObjAppt
            .Body = Range("A1")
            .Start = Range("A17")
            .End = Range("B17")
            .AllDayEvent = True
            .ReminderSet = True
            .ReminderMinutesBeforeStart = 1440
            .Save
End With

Set ObjAppt = Nothing
Set objFolder = Nothing
Set objNamespace = Nothing
Set objOutlook = Nothing

Всякий раз, когда я запускаю это, он говорит, что имя папки неверно.

Однако это название календаря по умолчанию, поэтому я не знаю, почему это вызывает проблемы.

Answer 1

Чтобы перейти к папке календаря по умолчанию, попробуйте

objNamespace.GetDefaultFolder(olFolderCalendar)

Метод NameSpace.GetDefaultFolder (Outlook)

также см. Справочная папка Outlook из Excel

{ ссылка }