Makro som flytter post til et underbibliotek

Skal den tage alt læst post i indbakken og lægge disse mails i en undermappe der ligger som direkte undermappe af Indbakken?

/Christian
ck@officekonsulenterne.dk

Ja

her er koden

Sub moveAllReadmessagesToSubFolder()
    Dim item As MailItem
    Dim fld As MAPIFolder
    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("ReadItem")
    For Each item In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
        If item.UnRead = False Then
            item.Move fld
        End If
    Next
End Sub



/Christian
http://www.officekonsulenterne.dk/help/flytItems.aspx

Hej kedde65
Det virker!
Lav lige svar, så du kan få point!
vh Raketten

Mærkeligt - nu får jeg "Run time error 13"
Type mismatch"
Det virkede lige før.

I hvilken linie får du runtime fejlen?

/Christian

Nu får jeg den ikke. Mystisk.
(det var ellers
"For Each item In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items"
linien
Du få point! Tak for hjælpen.

Det var så lidt, du siger bare til en anden gang *SS*