How do you gather all addresses...

Question

How do you gather all email addresses in your IN box in Apple Mail?

Answer 1

You can use this AppleScript to create a comma delimited file with name and address of each of the selected emails.
set theList to "name,address" & return
tell application "Mail"
          set oldDelims to AppleScript's text item delimiters
          set theMessages to selected messages of message viewer 0
          repeat with aMessage in theMessages
                    set theSender to (sender of aMessage)
                    set AppleScript's text item delimiters to " <"
                    set theName to first text item of theSender
                    set theAddress to second text item of theSender
                    set AppleScript's text item delimiters to ">"
                    set theAddress to first text item of theAddress
                    set AppleScript's text item delimiters to oldDelims
                    set theList to theList & theName & "," & theAddress & return
          end repeat
          set theRecipients to (recipients of aMessage)
          repeat with aRecipient in theRecipients
                    set theList to theList & name of aRecipient & "," & address of aRecipient & return
          end repeat
end tell
tell application "TextEdit"
          set myDoc to (make new document at after documents)
          set the text of myDoc to theList
end tell