Я пишу код VBA в Excel для отправки почты Outlook на основе некоторой информации в файле Excel. Все в порядке, хорошо работает на моем компьютере и других. Но есть один компьютер, который получил ошибку, когда я GetObject для Outlook приложения.Ошибка автоматизации, когда GetObject Outlook из Excel
Ошибка "Ошибка автоматизации"
код выглядит следующим образом:
Dim olApp As Outlook.Application
Dim oltask As Outlook.taskitem
On Error Resume Next
'check if Outlook is running - **The code stopped here**
Set olApp = GetObject("outlook.application")
If Err <> 0 Then
'if not running, start it
Set olApp = CreateObject("outlook.application")
End If
Set oltask = olApp.CreateItem(olTaskItem)
Это может быть вызвано тем, что антивирусное программное обеспечение блокирует автоматический доступ к Outlook. – Lance
Спасибо за ваш ответ, но все мы используем ту же «Symantec Endpoint Protection». И есть только один компьютер не может получить Outlook.Application – dtk142
Спасибо за ваш комментарий, но это не работает. Я просто переустанавливаю компьютер, и теперь код работает хорошо. – dtk142