Rettelse til VBA kode i Outlook

Jeg har en VBA kode som fungerer godt - dog med en enkelt undtagelse.

Den printer vedhæftede pdf-dokumenter i mails der ligger i en mappe der hedder

.To print

Herefter flyttes mailen til mappen

..Printed


Men jeg kunne godt tænke mig, at den printede og flyttede samtlige mails i mappen .To print - men den tager kun en mail og man skal derfor vente til den er printet og så køre makroen igen for hver mail der ligger i mappen.

På en eller anden måde skal den kontrollere om mappen .To print er tom og hvis den ikke er så skal den starte forfra indtil mappen er tom.

Kan nogle hjælpe??

Koden er som følger:

Public Sub PrintAttachments()
    Dim Inbox As MAPIFolder
    Dim Item As MailItem
    Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer

    Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("..To Print")
    Set Printed = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item(".Printed")

    For Each Item In Inbox.Items
        For Each Atmt In Item.Attachments
          If Right(Atmt.FileName, 3) = "pdf" Then
            FileName = "H:\Temp\" & Atmt.FileName
          Atmt.SaveAsFile FileName
            Shell """C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"" /h /p """ + FileName + """", vbHide
          End If
        Next
    Item.Move Printed
    Next

    Set Inbox = Nothing
End Sub