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

【问题标题】：Send an Outlook email through MS-Project通过 MS-Project 发送 Outlook 电子邮件
【发布时间】：2020-05-30 03:03:38
【问题描述】：

我正在尝试使用 MS-Outlook 从 MS-Project 发送一封电子邮件，以便在任务完成时通知下一个资源。
我想发送一封电子邮件来验证主要命令是否正确。
通过 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”：应用程序定义或对象定义。

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

【问题讨论】：

我想我已经看到了问题所在。在我的 PC 上安装了 MS-Outlook 时，我正在运行虚拟化的 MS-Project 应用程序。虚拟 MS-Project 与已安装的 MS-Outlook 的集成似乎存在问题。有人有这方面的经验吗？

标签： vba email outlook ms-project

【解决方案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

【讨论】：