☰

макрос, чтобы Outlook предлагал мне при открытии/закрытии включить/выключить режим «Нет на месте»

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2007 automation macros out-of-office
макрос, чтобы Outlook предлагал мне при открытии/закрытии включить/выключить режим «Нет на месте»

Я хотел бы добавить макрос в Outlook 2007, который спрашивает меня, когда я его закрываю, хочу ли я включить помощника Out of Office, а затем спрашивает меня, когда я открываю Outlook, хочу ли я отключить помощника Out of Office. Я нашел инструкции по созданию запроса при закрытии (наOutlook 2010: как автоматически включить функцию «Нет на месте» при закрытии Outlook?иhttp://itknowledgeexchange.techtarget.com/itanswers/automating-out-of-office/) но я не знаю, как написать макрос для приглашения при открытии.

решение1

Глянь сюда http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html

Private Sub Application_Quit()
    OutOfOffice True
End Sub

Это та часть, которая вас интересует.

Private Sub Application_Startup()
    OutOfOffice False
End Sub

Sub OutOfOffice(bolState As Boolean)
Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
Dim olkIS As Outlook.Store, olkPA As Outlook.PropertyAccessor
For Each olkIS In Session.Stores
    If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then
        Set olkPA = olkIS.PropertyAccessor
        olkPA.SetProperty PR_OOF_STATE, bolState
    End If
Next
Set olkIS = Nothing
Set olkPA = Nothing
End Sub

Есть примечание: «код не тестировался с Outlook 2010».

Также «CDO (Collaboration Data Objects) должен быть установлен на компьютере. Если вы обнаружите, что CDO не установлен, вы можете загрузить его с этой страницы Microsoft».

http://www.microsoft.com/downloads/details.aspx?familyid=2714320d-c997-4de1-986f-24f081725d36&displaylang=en

Связанный контент