通过 MS-Project 发送 Outlook 电子邮件

Question

我正在尝试使用 MS-Outlook 从 MS-Project 发送电子邮件，以便在任务完成时通知下一个资源.
我想发送电子邮件以验证主要命令是否正确.
在 Google 上，我找到了一个创建电子邮件的 VBA 宏.
我在 MS-Excel 中测试了这个宏，它可以工作， 但相同的宏在 MS-Project.
我在这两种情况下都添加了对 Outlook 16.0 对象库Microsoft引用。

宏将打开一个窗口而不发送电子邮件，以填写"收件人"字段：

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"：应用程序定义或对象定义。

我正在运行虚拟化的MS-Project应用程序，而MS-Outlook已安装在我的PC上。虚拟 MS-Project 与已安装的 MS-Outlook 的集成似乎存在问题。

Answer 1

您需要将Outlook添加到项目引用或将所有变量视为泛型object：

Sub CreateMail()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

OutMail.Subject = "Mail to myself"

OutMail.Display

End Sub