Add to Junk Senders

[Keith Tromer]

I am trying to write a macro that will add the email of SELECTED items to
the Blocked Senders List. I don't see anything in the object browser that
would enable access to the list.

Here is my code. Can anyone tell me what would replace this line:
'**ADD_to_Blocked_Senders_List .SenderEmailAddress

Sub AddJunkMail()
Dim oEmail As MailItem
For Each oEmail In ActiveWindow.Selection
With oEmail
'** ADD_to_Blocked_Senders_List .SenderEmailAddress
End With
Next
End Sub

Thanks,
Keith