Exécuter une macro dans une boite mail générique

Bonjour ,

Voila ce qui m'embete depuis des jours, je travaille avec une équipe où on utilise une boite courriels commune. donc je posséde 2 boites, la mienne et celle qu'on partage. J'aimerai bien savoir si je peux utiliser une macro qui me retourne le nombre de sous dossiers de chaque dossier qui existe sur cette boite (Commune ) .

Quelqu'un aurait-il des idées ?

Je vous remercie !

Bonjour,

Vous souhaitez donc faire cela avec Excel ?

Why not !!!!!

Mais il va nous falloir plus d'info, tel que la messagerie utilisée et si vous passez par Outlook ?

Le VBA est un outils Microsoft et consulter des base de données différentes n'est pas chose aisée si vous ne donnez pas toutes les informations nécessaires, pour un peu que ce soit possible !!!!

Bien à vous

Jp

Bonjour ,

oui je compte faire ca sur outlook. je vous ci joint un code qui me retourne le nombre des dossiers de ma boite personnel .mon probleme c'est que je n'arrive pas a le modifer pour l'utiliser sur la boite generique.

Merci pour votre temps

Public Sub CountFoldersInOutlook()

Dim outapp As Outlook.Application
Set outapp = CreateObject("Outlook.Application")
Dim olNs As Outlook.NameSpace
Set olNs = outapp.GetNamespace("MAPI")

MsgBox "Total Folders: " & GetSubFolderCount(olNs.GetDefaultFolder(olFolderInbox).Parent)

End Sub

Private Function GetSubFolderCount(objParentFolder As MAPIFolder) As Long

Dim currentFolders As Folders
Dim fldCurrent As MAPIFolder

Set currentFolders = objParentFolder.Folders
If currentFolders.Count > 0 Then
   Set fldCurrent = currentFolders.GetFirst
   While Not fldCurrent Is Nothing
      TempFolderCount = TempFolderCount + GetSubFolderCount(fldCurrent)
      Set fldCurrent = currentFolders.GetNext
   Wend
   GetSubFolderCount = TempFolderCount + currentFolders.Count
Else
    GetSubFolderCount = 0
End If

End Function