Macro til Outlook 2007

Hej,

Jeg har en macro, som virker fint, men jeg ville gerne have den til også at markere de valgte mails som "read" før den flytter dem til en bestemt folder. Er der nogen, der kan hjælpe med det?

VH

Anders

Her er koden:

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.Move objFolder

            End If

        End If

    Next





    Set objItem = Nothing

    Set objFolder = Nothing

    Set objInbox = Nothing

    Set objNS = Nothing

End Sub