Работал ли CreateObject раньше в Outlook.Application? Похоже, проблема регистрации COM на вашем компьютере. Я не знаю, какие версии вы используете, но вам может понадобиться зарегистрировать Outlook типа lib. Пожалуйста, опубликуйте версии всех участников
прочтения того, как использовать автоматизацию для отправки сообщения, мне неясно, можно ли избежать открытия нового экземпляра Outlook, если он у меня уже открыт. Если это так, я не уверен, как искать примеры, определяющие, открыт ли существующий экземпляр Outlook.
----- Включая предложение --------
У меня есть следующий фрагмент, но я обнаружил, что не могу правильно создать экземпляр. Я в основном следуюэтот пример, Я либо получаюэтот скриншотили ошибка «Пользовательский тип не определен». Какие-либо предложения?
Sub Example()
'Dim w As Outlook.Application
Const ERR_APP_NOTRUNNING As Long = 429
On Error Resume Next
' Handle Microsoft outlook
Set w = GetObject(, "Outlook.Application")
If Err = ERR_APP_NOTRUNNING Then
'Set w = New Outlook.Application
Set w = CreateObject("Outlook.Application")
End If
End Sub