Код vba неожиданно обнаруживает проблемы с перечислением

Question

Этот визуальный базовый c код, связанный с Outlook, раньше работал без проблем

Sub cmdExample()

    Dim myOlApp As Object
    Set myOlApp = CreateObject("Outlook.Application")
    Set myoSession = myOlApp.Session
    Set myoCalendar = myoSession.GetDefaultFolder(olFolderCalendar)
End Sub

Теперь я получаю ошибку времени выполнения 5 (Недействительный вызов процедуры или аргумент)

Причина найдена из отладка: во время выполнения olFolderCalendar пуст (кстати, такая же проблема для других перечислений, таких как olAppointmentItem, olBusy). Мое обходное решение в приведенном выше коде - вызов .GetDefaultFolder (9).

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

Answer 1

Если вы хотите передавать буквальные константы вместо чисел, вам нужно добавить ссылку COM в Outlook. Подробнее об этом читайте в статье Как добавить ссылку на библиотеку объектов в VBA .

Также вы можете попробовать перед получением папки используйте метод Logon. См. NameSpace.Logon для получения дополнительной информации.