尝试使用excel VBA打开Outlook电子邮件模板

尝试使用excel VBA打开Outlook电子邮件模板,excel,vba,email,outlook,Excel,Vba,Email,Outlook,我正在尝试用Excel打开Outlook 2010电子邮件模板。我得到以下错误: “运行时错误“-2147287038(80030002)”: 无法打开文件: C:\My\Path\MyTemplate.oft。该文件可能不存在,您可能没有打开它的权限,或者它可能已在其他程序中打开。右键单击包含该文件的文件夹,然后单击“属性”检查您对该文件夹的权限。“ 该文件存在(在正确的位置),我已检查了权限(据我所知),并且该文件尚未打开 这是我的密码: Sub Mail_experiment()

我正在尝试用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

谢谢你的帮助

“我在另一台计算机上尝试了我的代码,它成功了。我返回并更改了模板的文件名,因为以前的名称都是大写的(没关系吧?)。我收到一条消息,说需要成为管理员才能这样做,我觉得很奇怪,因为这是我的个人家用计算机。但是,当我单击时”continue“它继续并更改了名称。现在可以工作了。”–2014年9月14日13:23“

您的代码在我的系统上运行良好。如果文件不存在,我会得到一个运行时错误42。(在自动化操作期间未找到文件名或类名)。实际上,我可以在代码运行时手动打开模板,而不会出现错误。当您浏览到模板文件“C:\My\Path\MyTemplate.oft”并尝试手动打开它时会发生什么情况?我可以手动打开它。我就是不能用VBA。我在Outlook打开和Outlook关闭的情况下进行了尝试。我可以使用代码发送新电子邮件。我就是打不开模板。凯文,我忘了感谢你的努力。非常感谢。好的,任何读到这篇文章的人都必须明白我是个新手。我在另一台计算机上尝试了我的代码,它成功了。我返回并更改了模板的文件名,因为以前的名称都是大写的(应该没关系吧?)。我收到一条信息,说需要成为管理员才能完成这项工作,我觉得很奇怪,因为这是我的个人家用电脑。但是,当我单击“继续”时,它继续并更改了名称。现在它起作用了。也许你们中的一些人知道这里发生了什么;我不知道,社区维基。答案在评论中。任何在搜索中找到这个主题的人都会看到答案,并且更有可能寻找一个有用的答案。