Dealing with spam

[Allen]

I receive 50-75 spam messages each day. I know that the
From addresses are fake. Many of the messages include my
address as one of a long list of addresses. I have started
a contact folder with some of these other addresses as
contacts and a rule which says that if these other
addresses are part of the To field then move the message
to the Junk folder.

The problem I have is that there are now over 400 spam
messages with multiple addresses that need to be added to
the contact folder. How can I automate this?

I think the process would be:
1 Go to the "Junk e-mail/temp" folder
2 Open the first message
3 Extract the address list
4 Extract the first address
5 If the address does not exist in the "SpamAddress"
contact folder then create an entry for it
6 Loop through all addresses
7 Loop through all spam messages
8 Delete my own email address from the "SpamAddress" folder
9 Delete all addresses in the "SpamAddress" rule
10 Add all addresses from the "SpamAddress" folder to the
rule.
11 Delete all messages in the "Junk e-mail/temp" folder

I don't know enough about VBA or the Outlook object model
to tackle this myself. Any help would be appreciated.

Yt,
Allen
..