有没有办法在发件箱文件夹中读取电子邮件的里程字段而不会导致电子邮件卡在发件箱中?
在我的应用程序范围内,重新发送所有电子邮件不是一个选项。我必须阅读所有电子邮件的字段值,以决定是否停止邮件并重新发送。
如果我修改了我没有修改的邮件,要求重新发送似乎是合理的。我只是在读它。
我以为我正在通过将对象读取为类型“对象”而不是“mailitem”来找到解决方案,但结果证明这是一个红鲱鱼。
对于简单的 MAPI 电子邮件不会触发应用程序 send_mail 事件的问题,读取该属性是我非常简单且可靠的解决方法。不幸的是,它打破了其他电子邮件的策略。
编辑
按要求。ItemSend 并不总是开火是我无法企及的,不是吗?
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
InitEvents True 'Reinstantiate the custom handlers if necessary
If LCase(TypeName(Item)) = "mailitem" Then
Item.Mileage = ""
PrepToSendMK166 Item
End If
End Sub