Here is a partial script showing the method of doing what you want. To make it easier to understand I used Michelle's script instead of the one I usually use. Her scripts are invariably better written than mine anyway.
(* Create a Filemaker file called Emails or adapt this script. Create fields in it called TheContentOfDrafts and TheAddressOfDrafts and run this script.*)
tell application "Mail"
tell message viewer 1
repeat with thisMessage in the messages of the drafts mailbox
set theContent to the content of thisMessage
repeat with theRecipient in the recipients of thisMessage
set theEmail to the address of theRecipient
my FilemakerRoutine(theContent, theRecipient, theEmail)
end repeat
end repeat
end tell
end tell
on FilemakerRoutine(theContent, theRecipient, theEmail)
tell application "Finder"
activate
open document file "Emails.fp7" of startup disk
end tell
tell application "FileMaker Pro Advanced"
activate
create new record at the end
go to last record
set contents of field "TheContentOfDrafts" of the current record to theContent
set contents of field "TheAddressOfDrafts" of the current record to theEmail
--etc
end tell
end FilemakerRoutine
Peter Baxter
Music creates order out of chaos: for rhythm imposes unanimity upon the divergent, melody imposes continuity upon the disjointed, and harmony imposes compatibility upon the incongruous.
-- Yehudi Menuhin