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