Я пытаюсь открыть шаблон электронной почты Outlook 2010 с помощью Excel. Я получаю следующее сообщение об ошибке:Попытка открыть шаблон электронной почты Outlook с помощью excel VBA
«Ошибка выполнения„-2147287038 (80030002)“: Не удается открыть файл: C:. \ My \ Путь \ 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 = "[email protected]"
.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 закрыт. Я могу отправить NEW электронные письма с помощью кода. Я просто не могу открыть шаблон. –
Кевин, я забыл выразить свою признательность за ваши усилия. Спасибо! –