...
For olItemIndex = 1 To olUFolder.items.Count
Set msg = olUFolder.items.Item.ReceivedTime
If VonDatum <= .ReceivedTime And .ReceivedTime < BisDatum Then
For aa = msg.Attachments.Count To 1 Step -1
Randomize Timer
strWurf = Int((99999999999# * Rnd) + 1)
sSavePath = (sSaveFolder & msg.Attachments(aa).Filename & "[" & strWurf & "].pdf")
msg.Attachments(aa).SaveAsFile sSavePath
Next
End If
Next
...