Upptäckte nyligen att scriptet inte lirade riktigt med Lion, så jag tog bort en rad. Nu ser det ut så här:
set thesenders to {}set thesenderstext to ""
tell application "Mail"
set themessage to the selection
repeat with i from 1 to the number of items in themessage
set thesender to (extract address from (the sender of (item i of themessage)))
if thesenders does not contain thesender then
set thesenders to thesenders & {thesender}
end if
end repeat
set AppleScript's text item delimiters to ", "
set thesenderstext to thesenders as rich text
set AppleScript's text item delimiters to ""
set newMessage to make new outgoing message
tell newMessage
set visible to true
make new bcc recipient with properties {address:thesenderstext}
end tell
set toAddress to email addresses of item 1 of accounts as rich text
tell newMessage
make new to recipient with properties {address:toAddress}
end tell
activate
end tell
Jag gjorde så här, men det finns kanske smidigare sätt att få tillgång till scriptet inifrån Mail.
1) Kopiera ovanstående kod
2) Öppna programmet AppleScript-redigerare
3) Klistra in koden, spara som program, t.ex. med namnet Svara alla markerade
4) Jag har lagt till programmet i Dock (bredvid Mail-ikonen).
5) Markera de brev du vill svara på i Mail, klicka sedan på programmet