如何判断outlook邮件没有发送出去
使用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和发送事件,否则你都没有地方去写代码查询他是否发送了