Fora do escritório configurado automaticamente para o Outlook 2010 para organizações internas e externas

Question

Atualmente, posso ativar automaticamente o OOO (fora do escritório) automaticamente quando o Outlook está fechado.

Eu tenho o seguinte código que permite o OOO quando fecho o outlook, ele atualmente funciona apenas para e-mails internos (respondendo a e-mails recebidos de dentro da organização), mas não funciona para e-mails recebidos fora da organização (como se eu enviasse um e-mail da minha conta do hotmail para testá-lo, não recebo resposta automática).

Alguma idéia de como corrigir isso?

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

Muito obrigado por qualquer ajuda que você possa fornecer ...

Olga p.s. fonte original: link