Как включить ООО для Outlook 2010 с помощью VBA? - PullRequest
Новая
       50

Как включить ООО для Outlook 2010 с помощью VBA?

0 голосов
/ 03 мая 2019

Может кто-нибудь сказать мне, как я включаю ответ об отсутствии на работе с VBA в Office 2010? Я могу найти ответы только для предыдущих версий офиса.

В идеале я хочу, чтобы код отключался при открытии Outlook 2010 и включался при его открытии.

Спасибо за вашу помощь!

Phil. 

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

1 Ответ

0 голосов
/ 03 мая 2019

Вы можете использовать Store.PropertyAccessor.SetProperty, чтобы установить для свойства PR_OOF_STATE MAPI (имя DASL http://schemas.microsoft.com/mapi/proptag/0x661D000B) значение true, чтобы включить OOF, и false, чтобы отключить его.

Если вы хотите явно установитьвременной диапазон OOF, вы можете сделать это только с помощью EWS ( SetUserOofSettings операция).Конечно, вам необходимо знать учетные данные пользователя.

...