I need a macro that will permanently delete all e-mails that contain
certain e-mail addresses.
This includes sent items, deleted items, inbox items, etc..
I was thinking a button I click at the end of the day OR for it to
check whenever an action was taken (this seemed processor intensive).

For example:

ListOfEmails = ", ", "}


OnButton1.Click call ClearAllCommunication(ListOfEmails)


Sub ClearAllCommunication(ByVal ListOfEmails() as string)

'/ The hard part goes here.

End Sub


Thanks,
J

wrote in message
ups.com...
I need a macro that will permanently delete all e-mails that contain
certain e-mail addresses.
This includes sent items, deleted items, inbox items, etc..
I was thinking a button I click at the end of the day OR for it to
check whenever an action was taken (this seemed processor intensive).

For example:

ListOfEmails = ", ", "}


OnButton1.Click call ClearAllCommunication(ListOfEmails)


Sub ClearAllCommunication(ByVal ListOfEmails() as string)

'/ The hard part goes here.

End Sub


Thanks,
J

Why not customize a view filtered on the list of email addresses - using the
Advanced section of the filter dialog, and yes, you can do this against all
folders. Then all you have to do is highlight all, shift+delete

--
John Blessing

http://www.LbeHelpdesk.com - Help Desk software priced to suit all
businesses
http://www.room-booking-software.com - Schedule rooms & equipment bookings
for your meeting/class over the web.
http://www.lbetoolbox.com - Remove Duplicates from MS Outlook, find/replace,
send newsletters