ActiveX 组件无法为 Outlook VBA 创建对象

Question

我正在尝试运行宏以通过 Outlook 发送电子邮件。

我的代码如下所示：

Sub Mail_small_Text_Outlook()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"

    On Error Resume Next
    With OutMail
        .To = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

在这一行： Set OutApp = CreateObject("Outlook.Application") ，它给出了一个错误：

runtime error '429': ActiveX Component can't create object.

我在cmd中运行了这一行：

regsvr32 /i "c:\windows\system32\outlvba.dll".

然后它给了我这个错误：

The module "c:\windows\system32\outlvba.dll" failed to load.
Make sure the binary is stored at the specified path or debug it to check
for problems with the binary or dependent .DLL files. The specified
module could not be found.

在这方面需要一些指导。

Answer 1

您是否在有问题的 PC 上安装了 Click2Run 版本的 Office？

Office 2010 的 Click2Run 版本不支持自动化。 有关详细信息，请参阅Office 2010 与加载项的即点即用兼容性。 您还可以找到如何：验证 Outlook 是否是计算机上的即点即用应用程序一文。

有关详细信息，请参阅自动化 Office 应用程序时收到运行时错误 429 。