检查电子邮件地址是否启用了自动回复（OOF）

Question

首先只想感谢您为赎回所做的工作。

我和一位同事想遍历电子邮件地址列表，并检查他们是否已打开OOF（这些将是其他人的电子邮件）。然后，如果可能的话，还要检索OOF文本。

我已经尝试过通过VBA获取OOF的选项，但是通过我自己的反复试验和谷歌搜索，我看到大多数人（和我自己）意识到只能获得自己的OOF信息。

Sub Check_OOF()

    Dim oNS As Outlook.NameSpace
    Dim oStores As Outlook.Stores
    Dim oStr As Outlook.Store
    Dim oPrp As Outlook.PropertyAccessor

    Set oNS = Outlook.GetNamespace("MAPI")
    Set oStores = oNS.Stores

    For Each oStr In oStores
        If oStr.ExchangeStoreType = olPrimaryExchangeMailbox Then
            Set oPrp = oStr.PropertyAccessor
            MsgBox oPrp.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x661D000B")
        End If
    Next

End Sub

所以我现在正在查看赎回，而我的同事正在查看EWS python库。使用Outlook兑现有可能吗？我只能看到与您自己的自动回复进行交互的语法。

谢谢您的帮助。

Answer 1

您将需要使用EWS-GetMailTips operation。

也可以使用Redemption，有关更多信息，请参见RDOMailTips object。