我有一个生成和发送电子邮件的VBA脚本。有时，一些电子邮件的收件人不在办公室，打开了"自动回复"功能。由于电子邮件的内容与不在办公室的人无关，我想删除这些特定的收件人。所有电子邮件收件人都在同一个MS Exchange服务器中。有办法做这个手术吗?由于
-
使用Exchange Web Services API检索OOF状态
-
使用扩展MAPI (c++或Delphi)打开其他用户的邮箱(
IMsgStore)并读取PR_OOF_STATE属性 -
使用Redemption(任何语言;免责声明:我是Redemption的开发者)，并使用RDOExchangeMailboxStore。OutOfOfficeAssistant或使用RDOStore读取
PR_OOF_STATE属性。Fields[]。要打开其他用户的邮箱，可以使用rdossession . getsharedmailbox . -
更新。注意，#2和#3需要访问相关邮箱的权限。当你要发送邮件的收件人已离开时，Outlook会在横幅中显示邮件提示，你也可以这样做。使用EWS和GetMailTips操作。Redemption通过RDOAddressEntry公开了这个功能。
GetMailtips和RDOMailTips对象