使用office outlook（不是windows自带的outlook Express）。调用发送邮件的方法后。显示出邮件编辑界面。如何判断用户是将邮件发送出去，还是关掉了邮件编辑界面（没有发送）？
代码如下：
officeItem.To = clsUser '邮件接收人
officeItem.CC = clsCcUser '抄送
officeItem.Subject = mailSubject '邮件主题
officeItem.Body = mailtext
If LCase(Importance) = "high" Then
officeItem.Importance = olImportanceHigh '重要性
End If
'显示发送窗口
officeItem.Display (True)
'这里如何判断是发送了邮件还是没有发送？
------解决方案--------------------------------------------------------
已经发送出去得，你就不能display了，因为发送出去得会跑到sentitems，而没发得在draft，发送过程中得在Outbox。由于已经移动到不同得folder，原来得obj似乎无法显示了
------解决方案--------------------------------------------------------
如果你是office 2003或者以前版本，你要对message这个form进行编程，截获他得Item_Close, Item_Send之类得事件
如果是Office 2007，把Message得Ribbon进行定制，也截获close和发送事件，否则你都没有地方去写代码查询他是否发送了