Discussion :

[LANGAZOU]

Bonjour,

Existe-t-il une possibilité de paramétrer le gestionnaire d'absence du bureau via un un script svp ?

Merci

[Oliv-]

Bonjour,

Tu peux essayer avec REDEMPTION : http://www.dimastr.com/redemption/RD...eAssistant.htm

voici une autre méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub activeOOF()
 
    Dim olkIS As Object, olkPA As Object
    Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
 
    Dim oStore As Outlook.Store, oProp As Outlook.PropertyAccessor
    Dim oStorageItem As Outlook.StorageItem
 
    Set oStorageItem = Application.Session.GetDefaultFolder(olFolderInbox).GetStorage("IPM.Note.Rules.OofTemplate.Microsoft", olIdentifyByMessageClass)
    'Microsoft.Exchange.OOF.InternalSenders.Global
    Set oStorageItem = Application.Session.GetDefaultFolder(olFolderInbox).GetStorage("Microsoft.Exchange.OOF.InternalSenders.Global", olIdentifyByMessageClass)
 
    'Microsoft.Exchange.OOF.AllExternalSenders.Global
 
    oStorageItem.Body = "I am out of the office!"
    oStorageItem.Save
 
 
    For Each oStore In Session.Stores
        If oStore.ExchangeStoreType = olPrimaryExchangeMailbox Then
 
            Set oProp = oStore.PropertyAccessor
            oProp.SetProperty PR_OOF_STATE, True 'False pour désactiver
 
        End If
    Next
    Set olkIS = Nothing
    Set olkPA = Nothing
End Sub

Dans certains cas obscurs ces méthodes ne fonctionnent pas !

[LANGAZOU]

Bonjour,

Merci beaucoup Olivier et désolé pour le retard ;-)

[Oliv-]

Salut,
dis moi surtout si cela marche ? et si oui avec quelle solution ?

[LANGAZOU]

Bonjour OLIVIER,

ca marche avec ta deuxième méthode:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub activeOOF(StrID As Outlook.MailItem)
 
    Dim olkIS As Object, olkPA As Object
    Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
 
    Dim oStore As Outlook.Store, oProp As Outlook.PropertyAccessor
    Dim oStorageItem As Outlook.StorageItem
 
    Set oStorageItem = Application.Session.GetDefaultFolder(olFolderInbox).GetStorage("IPM.Note.Rules.OofTemplate.Microsoft", olIdentifyByMessageClass)
    'Microsoft.Exchange.OOF.InternalSenders.Global
    Set oStorageItem = Application.Session.GetDefaultFolder(olFolderInbox).GetStorage("Microsoft.Exchange.OOF.InternalSenders.Global", olIdentifyByMessageClass)
 
    'Microsoft.Exchange.OOF.AllExternalSenders.Global
 
    oStorageItem.Body = "I am out of the office!"
    oStorageItem.Save
 
 
    For Each oStore In Session.Stores
        If oStore.ExchangeStoreType = olPrimaryExchangeMailbox Then
 
            Set oProp = oStore.PropertyAccessor
            oProp.SetProperty PR_OOF_STATE, True 'False pour désactiver
 
        End If
    Next
    Set olkIS = Nothing
    Set olkPA = Nothing
End Sub

Merci pour votre aide.