Complicated Macro

[jjanyan]

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 = {"(e-mail address removed)", "(e-mail address removed)", "(e-mail address removed)"}


OnButton1.Click call ClearAllCommunication(ListOfEmails)


Sub ClearAllCommunication(ByVal ListOfEmails() as string)

'/ The hard part goes here.

End Sub


Thanks,
J