Looking to do a couple of things here:
1. I have multiple attachments coming in per email, how can i edit my code to pick up attachments? (code below)

ElseIf (UCase(Msg.Subject) = "SAMPLE") Then
attPath = "PATH ON HD"
Set myAttachments = oItem.Attachments
Att = myAttachments.item(1).DisplayName
myAttachments.item(1).SaveAsFile attPath & Att

2. Is it possible to entirely rename all attachments coming in regardless of their current name? (names of attachments will change daily)