Voici le code complet pour éventuellement faire un test dans votre environnement:

Function ReceptPJ()
Dim i As Integer, FichPATH As String
Dim myNameSpace As NameSpace, MyFolder, Folder, MyItem As MailItem, Fichier As Attachment
Set fso = CreateObject("Scripting.fileSystemObject")
Set objOutlook = New Outlook.Application
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set MyFolder = myNameSpace.Folders("Dossiers Personnels")
Set Folder = MyFolder.Folders("Temp")
For i = 1 To Folder.Items.Count
    Set Email = Folder.Items(i)
    If InStr(1, Email, "(Test)") = False Then GoTo SuiteMess
    For Each Fichier In Email.Attachments
        FichPATH = "D:\" & Fichier.FileName
        Fichier.SaveAsFile FichPATH
SuiteFile:
    Next
SuiteMess:
Next
End Function

Sauvegarde des pièces jointes dont l'objet du mail est : (Test) et il se trouve dans le dossier Outlook : Temp. Les pièces jointes sont sauvardées dans : D:\