Outlook 2010: как автоматически выключить Out of Office при закрытии Outlook?

Другой способ обойти это (поскольку я не верю, что вы можете изменить параметры даты / времени для Out Of Office Assistant через VBA) - это выполнить следующие шаги:

1. Создайте правило в "Правилах и оповещениях" для того, когда приходит сообщение, и пусть это правило автоматически отвечает на каждое электронное письмо, где вы находитесь в части "Кому".
2. Установите правило для ответа, используя "иметь ответ сервера, используя определенное сообщение"
3. Заполните "конкретное сообщение" стандартным шаблоном ответа (примерный пример: Уважаемый почтовый клиент, я в данный момент нахожусь в офисе. Рабочие часы с 8:00 до 17:00. Я отвечу незамедлительно по возвращении. С уважением, <-insert signature->)
4. Назовите правило "HomeTime" (или что-то значимое - это понадобится для кода VBA ниже)
5. Измените безопасность макросов VBA в Outlook, чтобы обеспечить надлежащее выполнение макросов
6. Включите следующий код, который выполняется во время Application_Start а также Application_Quit включить / отключить правило:

Option Explicit

Private Sub Application_Quit()
   SetRuleEnabled True
End Sub

Private Sub Application_Startup()
   SetRuleEnabled False
End Sub

Private Sub SetRuleEnabled(ByVal bEnable As Boolean)
   Dim oSession    As Outlook.NameSpace
   Dim oRule       As Outlook.Rule
   Dim oRules      As Outlook.Rules
   Dim oPA         As Outlook.PropertyAccessor

   Set oSession = Application.Session
   Set oRules = oSession.DefaultStore.GetRules()
   Set oPA = oSession.DefaultStore.PropertyAccessor

   '*** If the Out-Of-Office is already on (eg. holidays, sick leave etc.) 
   '*** then it might be best to force this rule permanently off
   If oPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x661D000B") Then
      bEnable = False
   End If

   For Each oRule In oRules
      If oRule.Name = "HomeTime" Then
         oRule.Enabled = bEnable
         oRules.Save
         Exit For
      End If
   Next

End Sub

Следует помнить, что этот ответ будет запускаться каждый раз при каждом последующем ответе. В отличие от помощника по отсутствию на рабочем месте, который игнорирует последующие ответы.

PS. С проверкой Out of Office в VBA выше, вам понадобится ссылка на библиотеку CDO. Если вы не хотите проверять наличие Out-Of-Office, вам не понадобится CDO.

Потрясающие! Спасибо Котро. Я установил его на MS Outlook 2003. Ниже приведен фрагмент кода - я просто обернул его в pre и код, чтобы все не было в одной строке.

Private Sub Application_Quit() 
Dim objMAPISession As Object
Set objReminders = Nothing
If MsgBox("Would you like to turn the Out of Office Assistant on?", vbYesNo, "Activate Out of Office Assistant") = vbYes Then
    Set objMAPISession = CreateObject("MAPI.Session")
    objMAPISession.Logon , , True, False
    objMAPISession.OutOfOffice = True
    objMAPISession.Logoff
End If
Set objMAPISession = Nothing
End Sub

Это хорошо, но возможно ли запустить его в будущем дне / времени? Это будет реальным плюсом, потому что если у вас запланирован отпуск и вы забыли выключить, он автоматически включится без вмешательства человека... а?

Похоже, что Outlook генерирует событие Application_Quit при закрытии, которое можно подключить для установки OOF. Нажатие Alt-F11 в Outlook вызывает редактор макросов. Начни там ковыряться.