This was done earlier, but I have since had to change it to match changes in the incoming data. Some of which is a big mystery. In particular a new line character that is input as the “line separator” Unicode character. It would end up in the clipboard as line feed, so I just started plugging in white space character id’s until one hit the mark. Lucky me.
With that in mind, this is tuned for my specific data, but should be readily taken apart and tweaked to work for others. It’s mostly simple text item delimiter filtering, which is only done a few times.
Things to note:
There is a first and/or last “character” removal subroutine that really does text items, and has no mechanism to check what is being left out of the return string.
There is a LOT of logging peppered in the main part of the script. Hopefully it (and how to turn it off) is easy to work with. It’s really the only way to nail down what you’re getting and where you’re getting it.
Last but certainly not least, and the star of our show, there is a (US) state names abbreviation subroutine. Could easily be run in reverse or even set-up with a switch. Also, next is to add abbreviations for “Boulevard”, “Street”, “North”, and the like. BTW, you’re welcome. 😀
-- http://strawhousepig.net/
set _subject to "This is the text that we look for"
-- Text that the subject should match (contains or is). Could be any number of other e-mail parts.
set debug to true
-- If things don't work out as planned, set to true and look at the Replies pane below.
set theAddresses to ""
-- Variable to collect addresses.
set theCount to 0
-- Record of how many selected e-mails had what we're looking for. Mostly for presentation.
set errors to ""
-- Variable to store error messages.
tell application "Mail"
set _messages to selection as list
repeat with m in _messages
try
if subject of m contains _subject then
set _content to content of m as text
-- First rough cuts.
set my text item delimiters to {"Name", "Email", "Address", "United States"}
set _name to text item 2 of _content
set _address to text item 4 of _content
if debug is true then
log "_name :" & _name
log "_address :" & _address
end if
-- Finer cuts for what is left.
set my text item delimiters to {character id 10, character id 13, character id 8232}
-- 10 = line feed, 13 = carriage return, 8232 = line separator
if debug is true then
log "_name :" & text items of _name
log "_address :" & text items of _address
end if
set _name to text item 3 of _name
set _address1 to text item 3 of _address
set _address2 to text item 4 of _address
if debug is true then
log "_name: " & text items of _name
log "_address1: " & text items of _address1
log "_address2: " & text items of _address2
end if
set my text item delimiters to {",", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
set _city to text item 1 of _address2
set _state to text item 2 of _address2
set my text item delimiters to {space}
set _zip to last text item of _address2
if debug is true then
log "_city: " & _city
log "_state: " & _state
log "_zip: " & _zip
end if
set _state to my state_abr(my trim_char(_state, "both"))
if debug is true then
log "_state: " & _state
end if
set theAddresses to theAddresses & _name & return & _address1 & return & _city & ", " & _state & " " & _zip & return & return
set theCount to theCount + 1
else
set errors to "Selected e-mail subject does not contain \"" & _subject & "\""
end if
on error theErr
set errors to errors & theErr & return & return
end try
end repeat
if theCount is not 0 then
set the clipboard to theAddresses
display dialog (theCount as string) & " addresses ready to paste." with icon 1
else
display dialog "No addresses were extracted from selected e-mails. :(" with icon 2
end if
if errors is not "" then display dialog "Some funny business was reported:" & return & return & errors
end tell
on trim_char(the_input, first_last_both)
set my text item delimiters to {}
-- Remember this will affect everything after this routine is called.
set trim_count to count of text items of the_input
if first_last_both is "first" then return text items 2 thru trim_count of the_input as string
if first_last_both is "last" then return text items 1 thru (trim_count - 1) of the_input as string
if first_last_both is "both" then return text items 2 thru (trim_count - 1) of the_input as string
end trim_char
on state_abr(_state) -- This is some hot garbage right here.
set long_state to {"Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire", "New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming"}
set short_state to {"AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FL", "GA", "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", "OR", "PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY"}
repeat with n from 1 to count of long_state
if item n of long_state is _state then return item n of short_state
end repeat
-- If someone doesn't know how to spell we need to send the original back.
return _state
end state_abr