email - VBA in Outlook 2007 -

email - VBA in Outlook 2007 -

i've been working vba+excel several years, , attempting utilize vba outlook.

i'd write code move selected email "junk email" folder , create spam rule email address automatically sends future emails address junk email.

to move message, seek next (of top of head)

if application.activeexplorer.selection.count > 0 set folder = application.session.getdefaultfolder(olfolderjunk) set msg = application.activeexplorer.selection.item(1) msg.move(folder) end if

outlook object model not expose junk mail service settings. if using redemption option, exposes rdojunkemailoptions.blockedsenders.add method.

vba email outlook outlook-vba