我正在尝试使用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
感谢您的帮助!!!