макрос, чтобы Outlook подсказывал мне открыть / закрыть, чтобы выключить или включить Out of Office

1691
zomigi

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

3

1 ответ на вопрос

1
niton

Смотрите здесь 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

Похожие вопросы