I want to email everyone I have ever emailed to warn them about a spam message I received and *stoopidly* opened!

Question

How do I email everyone I have ever emailed to warn them about a spam message I received and *stoopidly* opened! I don't want to add them separately to an email - there are hundreds. I would like to do it one foul swoop. Thanks in advance of any pears of wisdom x

Answer 1

You probably don't want to do this. At least not as described.
Think about it. You're talking of sending an email to every individual that you've ever emailed, every mailing list you've ever posted to, and more ... and to tell them, what? that you opened an email. Big deal.
I suspect that >95% of the people won't care. The rest will recognize it for what it was - a momentary lapse of judgement, for which you're now broadcasting to a wider audience.
Seriously, millions of people open spam messages every hour. Think of the mess that email would be if every opened spam message generated a few hundred "oops, I'm sorry, I opened a spam message" additional messages to everyone's contacts.
Unless you have specific reason to believe that they will somehow be affected by your opening of the email, you're just going to make yourself look even sillier.
If you do fear that your opening of this message is going to somehow affect them (in ways i can't imagine) then your first action is to determine a list of people that you want to notify (I'm sure "everyone" is not appropriate). You could write a script to extract the recipient of every message in your Sent folder (or, even better, every selected message, so you can pre-filter the list), but I still question its value.
The following AppleScript will extract a unique list of email addresses from the selected messages in Mail.app - select the messages, then run the script and you'll have a list of addresses. Again, I can't stress how much I think you shouldn't bother running this, but it demonstrates one option.
set recipientsList to {}
tell application "Mail"
  set sel to get selection
  repeat with msg in sel
  repeat with recip in recipients of msg
  set addr to address of recip
  if addr is not in recipientsList then
  copy addr to end of recipientsList
  end if
  end repeat
  end repeat
end tell
return recipientsList