Mapper i Outlook Hvordan?

Hej,

HAr følgende kode

Private Sub Command4_Click()

Dim golApp          As Outlook.Application
  Dim gnspNameSpace  As Outlook.NameSpace
  Dim item            As Outlook.MailItem
  Dim mapifolder      As Outlook.mapifolder
     
  Set golApp = Outlook.Application
 
  Set gnspNameSpace = golApp.GetNamespace("MAPI")

  Set mapifolder = gnspNameSpace.GetDefaultFolder(olFolderInbox)

For Each item In mapifolder.Items
  text8.Text = item.Body
  xx = MsgBox("vælg næste", vbYesNo, "Næste ?")
  If xx = 7 Then Exit For
Next


Vil gerne have den til KUN at kikke i en forudbestemt mappe i outlook, og når den er færdig med mailen, skal de flyttes over i en anden mappe. er det muligt, og hvordan ?

MVH
ForceMaster