在MailItem事件处理程序中获取MailItem.Send

Question

在我的代码中，我生成一封电子邮件，然后显示给用户，这样他们就可以在发送之前编辑它。在编辑完成后，我想将编辑后的电子邮件存储为一个文件，但我不知道如何在发送后访问它。最合乎逻辑的方法似乎是对发送事件作出反应，在用户发送后立即存储它：

Dim oMail As Outlook.MailItem
'Fill oMail
oMail.Display()
AddHandler oMail.Send, AddressOf MailSent

但是，MailSent的签名必须如下所示：

Private Sub MailSent(ByRef Cancel As Boolean)

我不知道如何访问MailItem in MailSent，因为没有发送者对象或类似的东西。

也许这是不可能的，我应该阅读文件夹“发送”中的最后一项？

Answer 1

使用一个构造函数将MailItem对象包装到您自己的类中，该构造函数以MailItem作为参数，将其保存在一个成员变量中，并设置事件处理程序。当事件处理程序触发时，可以引用类变量。

您还可以使用Application.ItemSend事件，它确实传递要发送的项(可以是MailItem或MeetingRequest对象)作为参数。