Sub neubenennen()
Dim olExplorer As Explorer
Dim olfolder As MAPIFolder
Dim olSelection As Selection
Set olExplorer = Application.ActiveExplorer
Set olfolder = Application.ActiveExplorer.CurrentFolder
Set olSelection = olExplorer.Selection
Anzahl = Outlook.ActiveExplorer.CurrentFolder.Items.Count
For x = 1 To Anzahl
SName = olSelection.Item(x).FirstName & " " & olSelection.Item(x).LastName
olSelection.Item(x).FileAs = SName
olSelection.Item(x).FullName = SName
olSelection.Item(x).Save
Next x
End Sub