Out-of-office автоматически устанавливается для Outlook 2010 для внутренней и внешней организации

Question

В настоящее время я могу автоматически включить ООО (вне офиса) автоматически при закрытии Outlook.

У меня есть следующий код, который разрешает ООО, когда я закрываю Outlook, в настоящее время он работает только для внутренних электронных писем (отвечая на электронные письма, полученные из организации), но не работает для электронных писем, полученных вне организации (например, если я отправляю электронное письмо от своего учетная запись hotmail, чтобы проверить это, я не получаю автоматического ответа).

Любые идеи о том, как это исправить?

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

Большое спасибо за любую помощь, которую вы можете предоставить ...

Оригинальный источник Ольга PS:http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html