Comme les liens de kiki29 l'expliquent, plutot que de passer par un objet existant dans une bibliotheque déclarée, autant créér directement l'objet.
Donc dans ton cas, ca serait :
Code :
- Dim Oapp,Toto
- Set Oapp = CreateObject("Outlook.Application" )
- Set Toto = Oapp.Session.Stores
|
Et ensuite je suppose que c'est un truc comme ca que tu veux :
Code :
- For Each Store In Toto
- ValTxt = ValTxt & Store.DisplayName & vbCrLf
- ValTxt = ValTxt & "Fichier : " & Store.FilePath & vbCrLf
- ValTxt = ValTxt & "Mise en cache Exchange: " & Store.IsCachedExchange & vbCrLf
- ValTxt = ValTxt & "Banque avec une extension .pst ou .ost: " & Store.IsDataFileStore & vbCrLf
- ValTxt = ValTxt & "L’indexation est activée : " & Store.IsInstantSearchEnabled & vbCrLf
- ValTxt = ValTxt & "Class : " & Store.Class & vbCrLf
- ValTxt = ValTxt & "Exchange Type : " & Store.ExchangeStoreType & vbCrLf
- ValTxt = ValTxt & "Store ID : " & Store.StoreID & vbCrLf & vbCrLf
- ValTxt = ValTxt & "Root : " & Store.GetRootFolder & vbCrLf & vbCrLf
- 'etc.
- Debug.Print ValTxt
- Next Store
|
Message édité par dje69r le 20-09-2011 à 15:30:23
---------------
Plus tu pédales moins vite, moins tu avances plus vite