La méthode 'Folders' de l'objet '_NameSapce' a échoué

Bonjour à tous

J'avais trouvé une procédure pour parcourir Outlook, pour rechercher les répertoires pour une adresse mail donnée, ce qui me permettait ensuite, soir de lire le contenu d'un mail situé dans un répertoire particulier, soit d'enregistrer la ou les pièces jointes sur mon disque dur

Suite au crash, de mon PC, Windows a été réinstallé , Office 2016 également (identique à avant)

Depuis ma procédure qui fonctionnait ne fonctionne plus

Voyez vous comment corriger le problème ?

' ----------------------------------------------------------------
' Procédure: CompteMail_Définit
' But: Inscrit le compte mail et recherche dans Outlook : définit alors la variable DossierMail
' Type de procédure: Sub
' Accès à la procédure: Public
' Date: 16/08/2021
' ----------------------------------------------------------------
Public Sub CompteMail_Définit(AdresseMail As String)

Dim I As Long
Dim OK As Boolean
Dim Ol As New Outlook.Application
Dim Ns As Outlook.Namespace
Dim DOSSIER As Outlook.MAPIFolder

' on enregistre l'adresse mail
AdressePourMail = AdresseMail
'On Error Resume Next
' on recherche le répertoire intial
Set Ns = Ol.GetNamespace("MAPI")
For I = 1 To .Folders.Count ' .Folders.Count

Set DOSSIER = Ns.Folders(I) ' détermine le premier compte : d.hanib@chenevert.vet
If DOSSIER.Name = AdresseMail Then
Set DossierMail = DOSSIER
OK = True
Exit For
End If
Next
If Not OK Then
Set DossierMail = Ns.Folders(1)
End If
Set Ns = Nothing
End Sub

ça bloque sur le mot ".folders.count"

merci

bonsoir,

j'ai un sérieux doute que ce code ait jamais fonctionné. Le point devant folders fait référence à un objet introduit par une instruction With. Que je ne vois nulle part.

essaie ceci :

For I = 1 To Ns.Folders.Count ' .Folders.Count

Bonjour

Merci pour ta réponse

C'est exact j'ai fait une mauvaise recopie

Il y avait With Ns

et End with bien sûr

Public Sub ExportePiecesJointes(DossierOLChoisi As String, RépertoireDest As String, MarqueLu As StatutLecture)

Dim I As Long

Dim OK As Boolean

Dim Ol As New Outlook.Application

Dim Ns As Outlook.Namespace

Dim DOSSIER As Outlook.MAPIFolder

Set Ns = Ol.GetNamespace("MAPI")

For I = 1 To Ns.Folders.Count

Set DOSSIER = Ns.Folders(I) ' détermine le premier compte

If DOSSIER.Name = CompteMail Then

OK = True

Exit For

End If

Next

If Not OK Then

Set DOSSIER = Ns.Folders.Item(1)

End If

SearchFolders DOSSIER, DossierOLChoisi, RépertoireDest, MarqueLu

X = 0

End Sub