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