Sub main()
Dim mIt As MailItem
Dim mFo As MAPIFolder
 
Set mFo = Session.Folders("Mailbox - username")
' willst Du einen Unterordner haben  musst du so weiter verschachteln. Jeder 
' Ordner häng im Folders Objekt davor.
Set mFo = mFo.Folders("Unterordner")
For Each mIt In mFo.Items
     msbox mIt.Subject ,, mIt.SenderName
 
     ' <...> Dein code
next mIt
 
set mIt = nothing
set mFo = nothing
end sub