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

0

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

Lucinda
la source
Oui, vérifié ce que vous voyez. Pour une raison quelconque, le code n'active pas la case à cocher "Réponse automatique aux personnes extérieures à mon organisation" lors de son exécution. Je n'ai pas encore trouvé le code pour l'activer.
CharlieRB
Un peu de chance pour trouver une solution? Merci beaucoup de votre attention!
Lucinda
J'ai trouvé de nombreux articles et publications avec ce même code, ainsi que des commentaires ou des questions sur la façon de surmonter le même problème, mais pas de réponse. Malheureusement, je n'ai pas pu trouver l'objet VBA pour changer cette case en true. Pardon.
CharlieRB
Pas de soucis, merci! Peut-être que c'est un bogue et que seul Microsoft connaît la solution ...
Lucinda