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

时间:2014-09-14 03:02:12

标签: excel vba email outlook

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

“运行时错误'-2147287038(80030002)': 不能打开文件: C:\我的\路径\ 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

感谢您的帮助!!!

0 个答案:

没有答案