For/each question for multiple selected emails

[noone]

I have added a macro button to my toolbar, which calls this
code:

Sub Spam()
SendKeys "%aw"
SendKeys "#Unsolicated Email"
SendKeys "%s"
SendKeys "{DELETE}"
End Sub

It basically forwards the email to our spam addy, then deletes it.
However, when multiple emails are selected, they are forwarded
as one message as attachments.

Is there any way to mod this code, sort of like, "for each message
selected" ?

Thanks.