Discussion :

[charliem]

Bonjour à tous,

Je ne sais pas trop comment formuler ma demander mais je vais essayer;
Dans mon entreprise il existe différentes procédure de sauvegarde et de restauration (SCCM + un script maison) qui facilite les remplacements et les réinstallation des PC.
Nos collaborateurs retrouvent alors tout leurs favoris, raccourcis, documents etc.
Cependant nous n'avons trouvé aucun moyen d'automatiser l'ajout des boites mail partagés dans Outlook.
Je voulais savoir si quelqu'un pensais avoir une piste sur comment s'y prendre avec un script par exemple.

Pas que cela soit trop chronophage a faire manuellement mais si on peut l'automatiser ce ne serais pas de refus

Merci.

[Oliv-]

Bonjour,

pour lister tu peux utiliser via une macro EXCEL,par exempel et il te faut REDEMPTION
http://www.dimastr.com/redemption/Redemption.zip

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
Sub LISTE_delegate()
    Set OL = CreateObject("outlook.application")
    Set Session = CreateObject("Redemption.RDOSession")
    Session.MAPIOBJECT = OL.Session.MAPIOBJECT
    Set Accounts = Session.Accounts
    ActiveSheet.Range("a1").Value = "'======= Deletegate Stores ======="
    l = 2
    For Each Account In Accounts
        If Account.AccountType = 3 Then    'atExchange - we have RDOExchangeAccount object
            For Each store In Account.DelegateStores
                ActiveSheet.Range("a" & l).Value = store.Name
                l = l + 1
            Next
        End If
    Next
End Sub

par contre cela mélange les boites définies dans le compte Exchange directement et les boites ajoutée manuellement .

http://www.dimastr.com/redemption/RD...Collection.htm

Pour l'ajout tu peux essayer avec ce code qui utilise aussi REDEMPTION mais je suis pas sûr que cela fonctionne.

Code :

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

1
2
3
4
5
6
7
Sub adddelegate()
    Set OL = CreateObject("outlook.application")
    Set Session = CreateObject("Redemption.RDOSession")
    'use the MAPI session from Outlook Object Model
    Session.MAPIOBJECT = OL.Session.MAPIOBJECT
    Session.Stores.AddDelegateExchangeMailBoxStore "LE NOM"
End Sub