Taille des dossiers et recherche

[glmrenard]

Bonjour,

Je cherche un moyen d'obtenir par script la taille d'un dossier spécifique qui est au même niveau que boite de réception (c'est un dossier pour les mails à archiver) ainsi que la taille globale de toute la boîte aux lettres d'un utilisateur, j'ai ça mais je n'arrive pas à le faire marcher pour mon dossier Archives

Code :

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
 
Const olFolderInbox = 6
Const olFolderSentMail = 5
 
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
 
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
Set colItems = objFolder.Items
Wscript.Echo "No. of items in Inbox: " & colItems.Count
 
For Each objItem in colItems
    intSize = intSize + objItem.Size
Next
 
Wscript.Echo "Size of Inbox: " & Int(intSize / 1024) & " KB"
 
intSize = 0
 
Set objFolder = objNamespace.GetDefaultFolder(olFolderSentMail)
Set colItems = objFolder.Items
Wscript.Echo "No. of items in Sent Mail folder: " & colItems.Count
 
For Each objItem in colItems
    intSize = intSize + objItem.Size
Next
 
Wscript.Echo "Size of Sent Mail folder: " & Int(intSize / 1024) & " KB"

D'autre part, est-il possible de faire des recherches dans un dossier spécifique (Archives en l'occurence) selon la date et ensuite de les migrer vers un PST ?

Merci d'avance de votre aide et bonne journée !

[Oliv-]

Salut
essaye avec

Code :

Set objFolder1 = objFolder.Parent.Folders.Item("Dossiers")

Oliv'