从Excel获取对象Outlook时发生自动错误

我正在Excel中编写VBA代码，以便根据Excel文件中的某些信息发送Outlook邮件。 一切正常，它在我的电脑和其他电脑上运行良好。但当我为Outlook应用程序获取对象时，有一台计算机出错

错误是自动化错误

代码如下所示：

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)

---

确保您的参考已设置

Microsoft outlook对象库

Microsoft Word对象库

Microsoft excel对象库

Set fso = CreateObject("Scripting.FileSystemObject")

---

一开始我会尝试像

尝试在失败的机器上编译代码。 尝试将outlook定义声明为对象。这将导致软件在运行时查找代码。

---

对我来说，这更像是一个特定于该p.c.的注册类型问题。

这可能是由于防病毒软件阻止自动访问Outlook造成的。感谢您的回复，但我们所有人都使用相同的Symantec Endpoint Protection。只有一台计算机无法获取Outlook.Applications，请您发表评论，但它无法工作。我刚刚重新安装了电脑，现在代码运行良好。谢谢-