I need to extract Recipient Email Addresses - is it impossible?

Question

Hi I spent way too much time tonight trying to solve this problem, I hope someone brilliant can help.
I have a web store, and am CC'd on the receipts sent to my customers. So I have accumulated a large mailbox full of emails addressed to recipients other than myself.
I now need to extract those recipient email addresses into a .txt file.
Through my travels I discovered the simple script below. It's awesome except that it only works for sender addresses! When I try to tweak the code to extract recipient addresses it gives me an error.
Can anyone either modify this code, or point me in the right direction?
I just can't believe this should be so hard! (And it probably isn't except for me.)
Thanks.
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))
repeat with eachMessage in theseMessages
set theFrom to (extract address from sender of eachMessage)
do shell script "echo " & quoted form of theFrom & return & " >> ~/documents/extracted.txt"
end repeat
end tell
------------------

Answer 1

Nice! Austin Kinsella1 your script works well but in some cases return this:
<Undisclosed-Recipient:;@studio.com>
I think this mail was sended with multiple addresses.
Try this one, I made some little changes.
Good Luck!
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))
repeat with eachMessage in theseMessages
set headerMessage to all headers of eachMessage as string
set recipientMessage to {}
set start to false
set char_f to ""
set char_o to ""
set char_r to ""
set char__ to ""
set previousChar to ""
repeat with c in headerMessage
set c to c as string
if start is true then
if c is ">" then exit repeat
copy c to the end of recipientMessage
end if
if c is "<" " then set start to true
if char_r is "r" and previousChar is "r" and c is " " then set char__ to " "
if char_o is "o" and previousChar is "o" and c is "r" then set char_r to "r"
if char_f is "f" and previousChar is "f" and c is "o" then set char_o to "o"
if c is "f" then set char_f to "f"
set previousChar to c
end repeat
set recipientMessage to recipientMessage as text
do shell script "echo " & quoted form of recipientMessage & return & " >> ~/documents/recipients.txt"
end repeat
end tell