如何使用VBA为Outlook 2010打开OOO？

Question

有人可以告诉我如何在Office 2010中使用VBA打开外出答复吗？我只能找到以前Office版本的答案。

理想情况下，我希望在打开Outlook 2010时禁用该代码，而在打开它时启用该代码。

感谢您的帮助！

菲尔。

Private Sub Test()

    Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
    Dim olkIS As Outlook.Store
    Dim olkPA As Outlook.PropertyAccessor

    For Each olkIS In Session.Stores
        If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then
            Set olkPA = olkIS.PropertyAccessor
            olkPA.SetProperty PR_OOF_STATE, True
        End If
    Next

    Set olkIS = Nothing
    Set olkPA = Nothing

End Sub

Answer 1

您可以使用Store.PropertyAccessor.SetProperty将PR_OOF_STATE的MAPI属性（DASL名称http://schemas.microsoft.com/mapi/proptag/0x661D000B）属性设置为true以打开OOF，而将false设置为关闭。

如果要显式设置OOF时间范围，则只能使用EWS（SetUserOofSettings操作）进行设置。您当然需要知道用户凭证。