从 Excel 创建 Outlook 应用程序会生成类型不匹配错误

Question

我正在尝试使用 Outlook 模板创建 Outlook 电子邮件。

在Set obApp = Outlook.Application 行，我收到错误：

错误：13 类型不匹配

我似乎使用了与本网站上其他帖子中有关该主题的相同语法。

我也尝试了Set obApp = CreateObject("Outlook.Applciation")，结果相同。

我有 OLE 自动化、Microsoft Outlook 16.0 对象库、Microsoft Office 16.0 库和 Microsoft Excel 16.0 对象库，以及 Visual Basic for Applications 都在 Tools-> References 中选中。

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem

    Set obApp = Outlook.Application 'THE PROBLEM IS HERE
    Set NewMail = obApp.CreateItemFromTemplate("F:\Folder1\Automation\EmailTemplates\TEST TEST.oft")
    NewMail.Display

End Sub

Answer 1

您有两种选择：

选项 1：早期绑定

为了使用早期绑定，你需要设置一个引用：

Microsoft Outlook ##.# Object Library

这可以在 VBE > 工具 > 参考中完成。由于您已经声明变量的方式，我认为这是您更喜欢的方法。

使用此方法的代码中的问题是，在声明 Dim xxxx As Application 中，As Application 指的是 Excel 的对象模型。您需要指定要使用 Outlook。

Sub CreateEmailfromTemplate()

    Dim obApp As New Outlook.Application    '<-- Notice Change
    Dim NewMail As Outlook.MailItem

    Set NewMail = obApp.CreateItemFromTemplate("F:\Folder1\Automation\EmailTemplates\TEST TEST.oft")
    NewMail.Display

End Sub

选项 2：后期绑定

您不需要在此方法中设置引用，但 Outlook 的类型和常量在编译时将不可用。编译器会在运行时获取这些。

Sub CreateEmailfromTemplate()

    Dim obApp As Object
    Dim NewMail As Object

    Set obApp = CreateObject("Outlook.Application")
    Set NewMail = obApp.CreateItemFromTemplate("F:\Folder1\Automation\EmailTemplates\TEST TEST.oft")
    NewMail.Display

End Sub

注意此方法中 Outlook 的对象被声明为Object 类型。