Macro til Outlook 2007 - ændring

Hej,

Jeg har nedenstående kode, som virker fint.

Hvordan ændrer jeg den til at smide den valgte mail i en given folder i roden af min postkasse (og ikke i en underfolder til "inbox" som nu)?

VH

Anders


Sub MoveSelectedMessagesToFolder()

On Error Resume Next





    Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder

    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem


    Set objNS = Application.GetNamespace("MAPI")
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objInbox.Folders("@Archived")

'Assume this is a mail folder





    If objFolder Is Nothing Then

        MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"

    End If





    If Application.ActiveExplorer.Selection.Count = 0 Then

        'Require that this procedure be called only when a message is selected

        Exit Sub

    End If





    For Each objItem In Application.ActiveExplorer.Selection

        If objFolder.DefaultItemType = olMailItem Then

            If objItem.Class = olMail Then
                objItem.UnRead = False
                objItem.Move objFolder

            End If

        End If

    Next





    Set objItem = Nothing

    Set objFolder = Nothing

    Set objInbox = Nothing

    Set objNS = Nothing

End Sub