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

Question

我正试图用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 = "[e-mail]"
        .CC = ""
        .BCC = ""
        .Subject = "This is my Subject line"
        .Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

- David Elphee

---

你的代码在我的系统中很好地运行。如果文件不存在，我会收到一个运行时错误42（在自动化操作期间未找到文件名或类名）。实际上，在代码正在运行时，我可以手动打开模板而没有出现错误。当你浏览到你的模板文件“C:\My\Path\MyTemplate.oft”并尝试手动打开它时会发生什么？ - Kevin Francis

我可以手动打开它。但是我无法使用VBA打开它。我已经尝试过在Outlook打开和关闭的情况下进行操作。我可以使用代码发送新邮件，但我无法打开模板。 - David Elphee

Kevin，我忘了对你的努力表示感激。谢谢！ - David Elphee

好的，任何阅读这篇文章的人都必须明白我是个新手。我在另一台电脑上尝试了我的代码，它可以运行。我回来后更改了模板文件的名称，因为之前的名称全部是大写字母（应该没有关系，对吧？）。我收到了一个关于需要管理员权限的消息，我觉得很奇怪，因为这是我的个人电脑。然而，当我点击“继续”时，它继续更改了名称。现在它可以工作了。也许你们中的一些人知道这里发生了什么；我不知道。 - David Elphee

Answer 1

“我在另一台电脑上尝试了我的代码，它可以工作。我回来改变了模板文件的名称，因为之前的名称都是大写字母（这应该没有关系，对吧？）。我收到了一个消息，说需要管理员权限才能执行此操作，但我认为这很奇怪，因为这是我的个人家用电脑。然而，当我点击“继续”时，它继续更改了名称。现在它可以工作了。” - David Elphee 2014年9月14日13:23

- niton

---

您IP地址为143.198.54.68，由于运营成本限制，当前对于免费用户的使用频率限制为每个IP每72小时10次对话，如需解除限制，请点击左下角设置图标按钮（手机用户先点击左上角菜单按钮）。 - niton