récupérer le nombre de mails dans la boite de receprion d'outlook

Question

Bonjour, 
Et merci pour votre site qui est une mine d'or pour mes recherches...que je conseil &#224; tous mon entourage.
Je travaille dans une entreprise qui utilise comme application Outlook 2003ou l'on re&#231;oit diverses demandes par mail, on nous demande tous les mois de comptabiliser le nombre de mails trait&#233;s par domaine, les mails sont archiv&#233;s directement dans une sous arborescence de la bo&#238;te de reception par domaine d'application. Ex: boite de reception \demandes de beta_teste\fait. Ou boite de reception \demandes de beta_teste\En_cours ou boite de reception \demandes de beta_teste\A_faire
Je recherche un script vb qui effecturer une extraction vers un fichier csv des mails se trouvant dans les differentes sous-arborescences de la boite reception je peine &#233;norm&#233;ment et je d&#233;bute sous vbscript...:-(
Auriez-vous la g&#233;n&#233;rosit&#233; de m'indiquer le moyen ou le vbcript le plus appropri&#233; pour ma demande?
Dans l'attente de vous lire.
 Merci d'avance de vous pencher sur mon souci.

doolidodom

michelxld · Answer

bonjour

ce n'est pas du VBS mais j'espee que tu pourras adapter cette macro

Sub boucleDossiersBoiteDeReception()
Dim Ol As New Outlook.Application
Dim Ns As Outlook.NameSpace
Dim Dossier As Outlook.MAPIFolder


Set Ns = Ol.GetNamespace("MAPI")
Set Dossier = Ns.GetDefaultFolder(olFolderInbox)


Debug.Print Dossier.Name & " --> " & Dossier.Items.Count


boucleDossiers Dossier, ""


End Sub



Private Sub boucleDossiers(ByVal Fld As Outlook.MAPIFolder, nomDossier As String)
Dim i As Integer
Dim Dossier1 As Outlook.MAPIFolder
Dim OLmail As Outlook.MailItem


If Fld.Folders.Count > 0 Then
    Do Until i = Fld.Folders.Count
        i = i + 1
        
        Set Dossier1 = Fld.Folders(i)
        Debug.Print Dossier1.Name & " --> " & Dossier1.Items.Count
        
        If Dossier1.Folders.Count > 0 Then boucleDossiers Dossier1, nomDossier
    Loop
End If


End Sub

bonne journ&#233;e
michel

doolidodom · Answer

Bonjour Michel
Un grand merci pour ta r&#233;ponse en effet en potassant le vbscript et surtout en m'inspirant de ta macro, j ai pu pondre ce qui suit.. Mon souci c'est que &#231;a ma marche sous ma session Outlook "c- a-d" ma boite aux lettre mais pas quand il s agit d'une bal d&#233;l&#233;gu&#233;e je seche oups!, mais bon, &#233;tant admin exchange, je fait avec, en m'appropriant la BAL!!  mais je me demande encore comment parcourir une arborescence 'sous-sous-repertoire ".. dons voila ce que cela donne si c'est "simplifiable" je suis prenneuse...
encore merci je grandi!!!!on est encore sous exchange 5.5 et on va bientot pass&#233;e sous echange2003 ce qui sera grandement plus simple..mais en attendant! je part en vacance et apres on verra!&#231;a marche bien!!

.'Compte le Nombre d'&#233;l&#233;ments contenus dans la boite de r&#233;ception est dans ses sous dossiers.


Option Explicit


Dim lns,MonDossier,MesElements,Application,NumItems,I,NbMessages,NumFolders
Dim MesSousDossiers,NbSubFolders,MsgSubFolders,SubFolders


Set Application = CreateObject ("Outlook.Application")  'instancie l'objet application Outlook
Set olns = Application.GetNameSpace("MAPI")
Set MonDossier = olns.GetDefaultFolder(6) 'fixe la bo&#238;te de r&#233;ception comme mon dossier



NumItems = MonDossier.Items.count  'Compte le nombre d'&#233;l&#233;ments contenu dans la bo&#238;te de r&#233;ception.


NumFolders = MonDossier.Folders.count


Set MesElements = MonDossier.items  'D&#233;fini la collection d'&#233;l&#233;ments contenu dans la bo&#238;te de r&#233;ception.


For I = 1 To NumItems  'Compte le nombre de messages dans la bo&#238;te de r&#233;ception
 
 NbMessages = NbMessages + 1


Next


WScript.Echo "Il y a " & NbMessages & " messages dans la bo&#238;te de r&#233;ception."
 
Set MesSousDossiers = MonDossier.Folders 'D&#233;fini la collection de sous-dossiers contenus dans la bo&#238;tes de r&#233;ception.


NbSubFolders = MesSousDossiers.count


Wscript.Echo "Il y a " & NbSubFolders & " sous-dossier(s) dans la bo&#238;te de r&#233;ception."


For I = 1 To NbSubFolders


 SubFolders = MesSousDossiers(I).name
 MsgSubFolders = MesSousDossiers(I).items.count
 
 WScript.Echo "Le sous-dossier " & SubFolders & " contient " & MsgSubFolders & " messages"
 
Next


WScript.Echo "Il y a " & NbMessages & " messages dans la bo&#238;te de r&#233;ception."
 
Set MesSousDossiers = MonDossier.Folders 'D&#233;fini la collection de sous-dossiers contenus dans la bo&#238;tes de r&#233;ception.


NbSubFolders = MesSousDossiers.count


Wscript.Echo "Il y a " & NbSubFolders & " sous-dossier(s) dans la bo&#238;te de r&#233;ception."


For I = 2 To NbSubFolders


 SubFolders = MesSousDossiers(I).name
 MsgSubFolders = MesSousDossiers(I).items.count
 
 WScript.Echo "Le sous-dossier " & SubFolders & " contient " & MsgSubFolders & " messages"
 
Next


Set Application = Nothing
Set olns = Nothing
Set MonDossier = Nothing

doolidodom

Récupérer le nombre de mails dans la boite de receprion d'outlook

2 réponses

Discussions similaires