vba - 检查电子邮件地址是否启用了自动回复 (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

这可以通过 Outlook-Redemption 实现吗？我只能看到与您自己的自动回复交互的语法。

标签： vbaoutlookoutlook-redemption

Answer 1

您将需要使用 EWS- GetMailTips 操作。

您也可以使用Redemption，有关详细信息，请参阅RDOMailTips 对象。