Outlook vba acceder a éléments supprimes

Bonjour,

j'ai un code qui me permet de supprimer des éléments dans un dossier outlook.
par contre les élements supprimés vont automatiquement dans les éléments supprimés.
Je souhaite acceder aux éléments supprimés mais je n'y arrive pas!!!!
ATTENTION!!! la corbeille (éléments supprimés) n'est pas située dans le nom de mon compte mail principal. Elle est située dans "archivage" lié à un dossier PST.
Je ne sais pas si je me suis bien exprimé.
Voici me code vba actuel:
Sub supprextraits()
Dim FldJunk As Outlook.MAPIFolder, nonext As Outlook.MAPIFolder
Dim intDateDiff As Integer
Dim Fld As folder, Message As Outlook.MailItem, lCpt As Long
', Pj As Outlook.Attachment

' Recherche de la boite aux lettres et définition de ses dossiers

For Each Fld In Outlook.Session.Folders
If Fld.Name Like "Archives" Then
Set nonext = Fld.Folders("2-jours déjà extraits")
Set suppr = Fld.Folders("éléments supprimés")
Exit For
End If
Next Fld
' Boucle des messages
For lCpt = nonext.Items.Count To 1 Step -1
Set Message = nonext.Items(lCpt)
intDateDiff = DateDiff("d", Message.SentOn, Now)
If intDateDiff > 6 Then
Message.Delete
End If
Next lCpt

Fin:
Set Fld = Nothing
Set Message = Nothing
Set FldBR = Nothing
Set FldSDM = Nothing
End Sub