Discussion :

[pc75]

Bonjour,

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

Merci.

[Oliv-]

Salut,
De mémoire il faut un serveur exchange:

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
Private Sub Is_OutofOffice()
' ne marche que si on a les droits admin je crois
    Const UserB = "MON NOM"
 
    Dim oSession As MAPI.Session                ' Session object
    'Dim oCalendar As MAPI.Folder                    ' Folder object
 
    ' Create a new session and log on.
    Set oSession = CreateObject("MAPI.Session")
 
    ' To do: Change ServerName to the name of your Exchange server.
    strProfile = "SERVEUR" & vbLf & UserB
    oSession.Logon , , False, True, , True, strProfile
 
    MsgBox oSession.OutOfOffice
    oSession.Logoff
End Sub

[pc75]

Re,

Merci pour la réponse, mais sous outlook, le code plante sur cette ligne :

Code :

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

1
2
 
Set oSession = CreateObject("MAPI.Session")

Avec ce code, ça roule :

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
 
    Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
    Dim olkIS As Outlook.Store, olkPA As Outlook.PropertyAccessor, bolOOF As Boolean, varChoice As Variant
    For Each olkIS In Session.Stores
        If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then
            Set olkPA = olkIS.PropertyAccessor
            bolOOF = olkPA.GetProperty(PR_OOF_STATE)
            Exit For
        End If
    Next
    If bolOOF Then
        varChoice = MsgBox("Le gestionnaire d'absence du bureau est actif. Voulez-vous le désactiver ?", vbInformation + vbYesNo + vbApplicationModal, "Gestionnaire d'absence du bureau")
        If varChoice = vbYes Then
            olkPA.SetProperty PR_OOF_STATE, False
        End If
    End If
    Set olkIS = Nothing
    Set olkPA = Nothing