我可以在发送电子邮件之前检查收件人是否有自动回复吗? [英] Can I check if a recipient has an automatic reply before I send an email?
问题描述
我设置了一个宏，该宏将自动向数十位经理发送电子邮件.有时他们不在，我必须检查离开信息，然后手动将其转发给为他们遮盖的人.
I have a macro set up that will automatically send out emails to dozens of managers. Sometimes they're away and I have to check the away message and manually forward it to the person covering for them.
在寻求帮助之前，我会尝试找到解决方案，所以请怜悯我！我发现了类似的问题，但当时没有太多帮助，在从草稿中的收件人中提取自动回复方面，我找不到很多信息.
I try to find a solution before I seek help so have mercy on me! I found a similar question but it wasn't a lot of help, I couldn't find a lot of info on extracting an auto response from a recipient in a draft.
到目前为止，这是我所拥有的:
So far this is what I've got:
Sub CheckAutoReply()
Dim OL As Outlook.Application
Dim EM As Outlook.MailItem
Dim R As Outlook.Recipient
Set OL = New Outlook.Application
Set EM = CreateItem(olMailItem)
With EM
.display
.To = "John.Doe@Stackoverflow.com" 'This is a recipient I know has an autoresponse. Fictitious of course.
End With
Set R = EM.Recipients(1) 'on hover it pops up with "EM.Recipients(1) = "John.Doe@Stackoverflow.com""
Debug.Print R.Name 'this returns "John.Doe@Stackoverflow.com"
Debug.Print R.AutoResponse 'this returns nothing
Set OL = Nothing
Set EM = Nothing
End Sub
推荐答案
The answer to the similar question you found (Remove recipients from Outlook email if automatic reply is activated) still stands. What were you having problem with?
唯一的其他可能性(这是Outlook在显示要发送给收件人的OOF横幅时使用的方法)是使用EWS和GetMailTips操作(请参见
The only additional possibility (and this is what Outlook uses when it displays an OOF banner for a recipient you are about to send to) is to use EWS and the GetMailTips operation (see https://msdn.microsoft.com/en-us/library/office/dd877060(v=exchg.150).aspx).
这篇关于我可以在发送电子邮件之前检查收件人是否有自动回复吗?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
