VBA outlook pb dans une macro

Bonjour, je bloque sur cette macro en VBA sur OUTLOOK, je ne vois pas ce qui bloque, pouvez vous m'aider.. please

je souhaite lire par cette macro, le 2nd mail contenu dans un sous dossier de ma boite de reception nommé "dossierbis". celle ci marche très bien lorsque je veux lire le 2nd mail de la boite de reception en remplacant
Set fdrinbox = librairie.GetDefaultFolder(FolderType:=olFolderInbox) .Folders("dossierbis")
par :
Set fdrinbox = librairie.GetDefaultFolder(FolderType:=olFolderInbox)

outlook me met le message d'erreur sur le
Set monmail = fdrinbox.Items.Item(2)

Merci bcp de la future aide apportée

Sub macro()
Dim librairie As Outlook.NameSpace
Dim fdrinbox As Outlook.MAPIFolder
Dim monmail As Outlook.MailItem

Set librairie = Application.GetNamespace("MAPI") 'permet de prendre la librairie d'outlook
Set fdrinbox = librairie.GetDefaultFolder(FolderType:=olFolderInbox) _
.Folders("dossierbis")

Set monmail = fdrinbox.Items.Item(2)

Set librairie = Nothing
Set fdrinbox = Nothing
Set monmail = Nothing
End Sub