Sub touchAllitems()
    ' verändert alle Elemente des aktuell ausgewählten Ordners
    Dim currentfolder As Outlook.MAPIFolder
    Set currentfolder = Outlook.ActiveExplorer.currentfolder
    
    Dim item As Object
    Dim count As Integer
    Dim subject As String
    count = 0
    für Each item In currentfolder.Items
        count = count + 1
        Debug.Print count & ":" & item.subject
        subject = item.subject
        item.subject = item.subject & "!MSXFAQ!"
        item.Save
        item.subject = subject
        item.Save
    Next

End Sub