2015-05-15 3 views
0

Я пишу код 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) 
+0

Это может быть вызвано тем, что антивирусное программное обеспечение блокирует автоматический доступ к Outlook. – Lance

+0

Спасибо за ваш ответ, но все мы используем ту же «Symantec Endpoint Protection». И есть только один компьютер не может получить Outlook.Application – dtk142

+0

Спасибо за ваш комментарий, но это не работает. Я просто переустанавливаю компьютер, и теперь код работает хорошо. – dtk142

ответ

0

Убедитесь, что ссылки настроены

Microsoft Библиотека Перспективы Объект

Microsoft Word Object Библиотека

Microsoft Excel объект Библиотека

enter image description here

Set fso = CreateObject("Scripting.FileSystemObject") 
0

Первоначально я хотел бы попробовать что-то вроде ...

  1. Попробуйте скомпилировать код на неисправном компьютере.
  2. Попробуйте объявить определения перспективы как объекта. Это заставит программное обеспечение искать код во время выполнения.

Выглядит больше как вопрос типа регистрации для меня, характерный для этого p.c.

Смежные вопросы