Applescript to extract name and email address

Someone else responded to another post I had out on the web and was able to adjust the script for me. It worked exactly as I needed.

Thanks though for your input.

Diane

Mike,

Her is the script I used. It pulls the name and email address from the following: to:, from: and cc: A couple of comments...

I had several thousand emals in my mailbox and at first the script hung up. So I divided my mailbox into several mailboxes with a limit of 1000 emails in each box and performed the script one at a time on each box. It took anywhere from 10-40 min. to perform the script depending on the amount of names in each mail message. I found with some names, if they were a contact sometimes the email didn't show, just the person's name. Also the script will pull just the email address if no name is included with it.

You only need to select the first email in the mailbox to perform the script. Once completed the script will place a text file in your documents folder labeled "extracted.txt". Thanks to StefanK at MacScipter for his assistance.

Hope this works for you.

Diane

tell application "Mail"
set selectionMessage to selection -- just select the first message in the folder
set thisMessage to item 1 of selectionMessage
set theseMessages to (every message in (mailbox of thisMessage))
set listOfEmails to {}
repeat with eachMessage in theseMessages
try
tell (sender of eachMessage)
set theFromName to (extract name from it)
set theFromAddress to (extract address from it)
end tell
set theFrom to my composeNameAndAddress(theFromName, theFromAddress)
if listOfEmails does not contain theFrom then
copy theFrom to the end of listOfEmails
end if

repeat with toRecipient in (get to recipients of eachMessage)
set theToName to name of toRecipient
set theToAddress to address of toRecipient
set theTo to my composeNameAndAddress(theToName, theToAddress)

if listOfEmails does not contain theTo then
copy theTo to the end of listOfEmails
end if

end repeat

repeat with ccRecipient in (get cc recipients of eachMessage)
set theCCName to name of ccRecipient
set theCCAddress to address of ccRecipient
set theCC to my composeNameAndAddress(theCCName, theCCAddress)

if listOfEmails does not contain theCC then
copy theCC to the end of listOfEmails
end if
end repeat

end try
end repeat
end tell

set theFile to (path to documents folder as text) & "extracted.txt"
set SortedListOfEmails to simple_sort(listOfEmails)
try
set theFileID to open for access file theFile with write permission
repeat with i from 1 to count of SortedListOfEmails
write item i of SortedListOfEmails & return to theFileID as «class utf8»
end repeat
close access theFileID
on error
try
close access file theFile
end try
end try

on simple_sort(my_list)
set the index_list to {}
set the sorted_list to {}
repeat (the number of items in my_list) times
set the low_item to ""
repeat with i from 1 to (number of items in my_list)
if i is not in the index_list then
set this_item to item i of my_list as text
if the low_item is "" then
set the low_item to this_item
set the low_item_index to i
else if this_item comes before the low_item then
set the low_item to this_item
set the low_item_index to i
end if
end if
end repeat
set the end of sorted_list to the low_item
set the end of the index_list to the low_item_index
end repeat
return the sorted_list
end simple_sort

on composeNameAndAddress(theName, theAddress)
if theName is missing value then
return theAddress
else
return theName & space & theAddress
end if
end composeNameAndAddress