Вызов сценария Outlook с помощью макроса Excel

Question

Я столкнулся с проблемами, когда правило Outlook, настроенное для запуска сценария VBA, время от времени приводило к ошибкам.Я знаю, что скрипт работает, потому что я проверил сценарий как Public Sub и протестировал свое правилоОднако мне нужно, чтобы мое правило успешно выполнялось в 100% случаев.

Я не знаю, почему мое правило сталкивается с ошибками, поскольку для ошибок правила Outlook нет описания ошибок.Поэтому для решения проблемы я решил запустить скрипт Outlook, вызвав его из Excel.Тем не менее, я не могу получить правильные соединения еще.Может кто-нибудь помочь мне запустить мой сценарий Outlook VBA из Excel?

Я получаю сообщение об ошибке: Ошибка времени выполнения '438'.Объект не поддерживает это свойство или метод.

Ссылки, которые у меня есть в Excel:

1. Visual Basic для приложений
2. Библиотека объектов Microsoft Excel 16.0
3. OLE Automation
4. Библиотека объектов Microsoft Office 16.0
5. Библиотека объектов Microsoft Outlook 16.0

Ссылки Outlook:

1. Visual Basic для приложений
2. Библиотека объектов Microsoft Outlook 16.0
3. Автоматизация OLE
4. Библиотека объектов Microsoft Office 16.0
5. Объект Microsoft Form 2.0Библиотека
6. Библиотека объектов Microsoft Excel 16.0

Ниже приведен код для Excel:

Public Sub testexcel()

Dim o As Outlook.Application

On Error Resume Next
Set o = GetObject("", "Outlook.Application")
Err.Clear: On error GoTo 0

If o Is Nothing then
Set o = CreateObject("Outlook.Application")
End If

With o
    .Session.Logon
    .Run "testoutlook" <--------- Error Line
End With

o.Close
o.Quit

Set o = Nothing

End Sub

Пример кода Outlook:

Public Sub testoutlook()

Call MsgBox("HellO")

End Sub

Answer 1

После дальнейших исследований я считаю, что совместимость кодирования VBA между Outlook и Excel не имеет функциональности разработчика. Однако я смог выполнить свою задачу, взяв свой макрос VBA из Outlook и вставив его в книгу Excel.

По сути, я удалил любую кодировку VBA из Outlook, чтобы все можно было выполнить с помощью Excel. Если кому-то интересны коды, пожалуйста, дайте мне знать.