如何使用 Excel VBA 打开 Outlook 电子邮件模板？答案

【问题标题】：How to open an Outlook email template with Excel VBA?如何使用 Excel VBA 打开 Outlook 电子邮件模板？
【发布时间】：2014-11-07 21:30:01
【问题描述】：

我正在尝试使用 Excel 打开 Outlook 2010 电子邮件模板。我收到以下错误：

“运行时错误'-2147287038 (80030002)':
无法打开文件：
C:\My\Path\MyTemplate.oft。该文件可能不存在，您可能没有打开它的权限，或者它可能在另一个程序中打开。右键单击包含该文件的文件夹，然后单击“属性”以检查您对该文件夹的权限。”

文件存在（在正确的位置），我检查了权限（据我所知），文件没有打开。

Sub Mail_experiment()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.mailitem
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft")
    On Error Resume Next
    With OutMail
        .to = "myEmail@aol.com"
        .CC = ""
        .BCC = ""
        .Subject = "This is my Subject line"
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

【问题讨论】：

您的代码在我的系统上运行良好。如果文件不存在，我会收到运行时错误 42。（在自动化操作期间找不到文件名或类名）。我实际上可以在代码运行时手动打开模板而没有错误。当您浏览到模板文件“C:\My\Path\MyTemplate.oft”并尝试手动打开它时会发生什么？
我可以手动打开。我只是不能用VBA做到这一点。我已经在 Outlook 打开和 Outlook 关闭的情况下进行了尝试。我可以使用代码发送新电子邮件。我只是无法打开模板。
凯文，我忘了感谢你的努力。谢谢！
好吧，任何读到这里的人都必须明白我是一个新手。我在另一台计算机上尝试了我的代码并且它有效。我回去更改了模板的文件名，因为以前的名称都是大写的（没关系，对吧？）。我收到一条关于需要成为管理员才能执行此操作的消息，我认为这很奇怪，因为这是我的个人家用计算机。但是，当我单击“继续”时，它继续并更改了名称。现在它起作用了。也许你们中的一些人知道这里发生了什么；我不知道。

标签： excel vba email outlook

【解决方案1】：

“我在另一台计算机上尝试了我的代码，它成功了。我返回并更改了我的模板的文件名，因为以前的名称都是大写的（应该没关系，对吧？）。我收到一条消息关于需要成为管理员来执行此操作，我认为这很奇怪，因为这是我的个人家用计算机。但是，当我单击“继续”时，它继续并更改了名称。现在它可以工作了。-David Elphee Sep 14 ' 14 点 13:23"

【讨论】：

社区维基。答案在评论中。在搜索中找到该主题的任何人都会看到答案，并且更有可能寻找有用的答案。