Discussion :

[tonio-lille]

Bonjour à tous,

Est-il possible de récupérer le nom du dossier de base outlook appelé par défaut "Dossiers Personnels"?

Code :

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

1
2
3
4
5
6
Dim mynamespace As Outlook.Namespace
    Dim mySentbox As Outlook.MAPIFolder
 
    Set mynamespace = msOutlook.GetNamespace("MAPI")
    On Error GoTo generationRep
    Set mySentbox = mynamespace.Folders("Dossiers personnels").Folders("mails_automatique")

Mon problème provient du fait que certains utilisateurs ont remplacé la dénomination de base et le code ci-dessus n'est plus viable.

J'ai cherché du côté de getDefaultFolder mais la fonction ne renvoie que les sous-répertoires du répertoire "Dossiers Personnels".

Merci d'avance

[carden752]

Bonjour,

Il est possible d'utiliser la commande for each pour lister les dossiers.

Code :

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

1
2
3
For Each mySentbox in mynamespace.Folders
 Debug.Print (mySentbox.FolderPath)
Next

[tonio-lille]

Merci pour ta réponse et désolé pour le temps de réponse.

ça fonctionne très bien puisque chaque utilisateur a un seul dossier personnel.