N
noone
Is it possible to add a check to the code below to ensure
that what is/are selected is/are emails, and say, not something
from Contacts, or anywhere else ?
Set objApp = CreateObject("Outlook.Application")
Set objSelection = objApp.ActiveExplorer.Selection
For Each objItem In objSelection
SendKeys "^f" 'ctrl keys
SendKeys "#Unsolicited Email"
SendKeys "%s"
SendKeys "{DELETE}"
Next
Thanks.
that what is/are selected is/are emails, and say, not something
from Contacts, or anywhere else ?
Set objApp = CreateObject("Outlook.Application")
Set objSelection = objApp.ActiveExplorer.Selection
For Each objItem In objSelection
SendKeys "^f" 'ctrl keys
SendKeys "#Unsolicited Email"
SendKeys "%s"
SendKeys "{DELETE}"
Next
Thanks.