Hors du bureau défini automatiquement pour Outlook 2010 pour les organisations internes et externes

Je suis actuellement en mesure d'activer automatiquement OOO (absent du bureau) automatiquement lorsque Outlook est fermé.

J'ai le code suivant qui active OOO lorsque je ferme Outlook, il ne fonctionne actuellement que pour les courriers électroniques internes (réponse aux courriers électroniques reçus de l'intérieur de l'organisation), mais il ne fonctionne pas pour les courriers électroniques reçus en dehors de l'organisation (comme si j'envoyais un courrier électronique de ma part. compte hotmail pour le tester, je n’obtiens aucune réponse automatique).

Des idées pour résoudre le problème?

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

Merci beaucoup pour toute aide que vous pouvez fournir ...

Olga ps source originale: http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html