Lotus-Notes Agent: Recover only the files from the current email

Question

Currently in my agent, I browse my email files like this:

    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim do