从Excel中获取GetObject Outlook时出现自动化错误

Question

我在Excel中编写VBA代码，根据Excel文件中的某些信息发送Outlook邮件。 一切都很好，它在我的电脑和其他人身上运行良好。但是当我使用GetObject for Outlook Application时，有一台计算机出错了。

错误是＆＃34;自动化错误＆＃34;

代码如下所示：

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)

Answer 1

确保您的参考设置

Microsoft Outlook对象库

Microsoft Word对象库

Microsoft excel对象库

Set fso = CreateObject("Scripting.FileSystemObject")

Answer 2

最初我尝试类似......

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

看起来更像是特定于该p.c。

的注册类型问题