Discussion :

[krhyme]

Bonjour,

Connaissez-vous le code pour vérifier l'existence d'un dossier dans Outlook ?

[Laurent CUENET]

Bonsoir,

Donc 2 méthodes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim fld As Outlook.MAPIFolder
 
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
 
 
             For Each fld In myFolder.Folders
                     If fld.Name = "Eric" Then
                        MsgBox ("coucou")
                     End If
             Next

Ou en gérant l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim myOlApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim fld As Outlook.MAPIFolder
 
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox).Folders("ZOZO")
 
on error goto errorfolder

A bientôt,