Макрос VBA для отправки электронной почты не работает в MS-Project, но работает в MS-Excel - PullRequest
Новая
       30

Макрос VBA для отправки электронной почты не работает в MS-Project, но работает в MS-Excel

0 голосов
/ 14 февраля 2020

Я пытаюсь отправить электронное письмо из MS-Project с помощью MS-Outlook. Задача состоит в том, чтобы уведомить следующий ресурс о завершении задачи. Перед этим я хочу просто отправить электронное письмо, чтобы убедиться, что основные команды верны. Я просматривал Google и нашел очень простой макрос VBA, который создает электронную почту. Я протестировал этот макрос в MS-Excel, и он работает, но тот же макрос не работает в MS-Project. В обоих случаях я добавил ссылку на библиотеку объектов Microsoft Outlook 16.0.

Макрос открывает только окно без отправки электронного письма, просто заполняя поле «Кому»: 

Sub CreateMail()

 Dim OutApp As Outlook.Application
 Dim OutMail As Outlook.MailItem

 Set OutApp = New Outlook.Application
 Set OutMail = OutApp.CreateItem(olMailItem)

 OutMail.Subject = "Mail to myself"

 OutMail.Display

End Sub

В MS-Project макрос останавливается в следующей строке:

Set OutMail = OutApp.CreateItem(olMailItem)

с этим сообщением об ошибке:

Ошибка времени выполнения '287': Application- определено или определено по объекту.

Не могли бы вы помочь мне найти причину проблемы в MS-Project? Я не понимаю, почему один и тот же код работает в MS-Excel, а не в MS-Project.

...