Applescript get text from mail message

Question

Hi,
I've got a nested script that ideally would work with a multiple selection of emails. Most of the script does but I've recently found the need to add the sender's delivery address to the outgoing message. I've found a way to insert the clipboard but that leaves me only being able to send out one message at a time and I have to copy the address for each message to the clipboard first. I made a script to do that bit once I'd selected the text but this only works from Applescript Editor and not Quicksilver which is what I normally use.
So, what I'm hoping is someone would be able to help me with the a, select the right bit of text between Delivery address: and Instructions to merchant: of each message and have that work with Quicksilver and b, tell me why the following script only partially works from Quicksilver, i.e. the top bit, copy to clipboard, doesn't work.
Thanks.
tell application "System Events"
  tell application "Mail" to activate
  key code 8 using command down
end tell
tell application "Mail"
  set thesenders to {}
  set thesenderstext to ""
  set myaddress to the clipboard
  set theMessages to the selection
  repeat with eachMessage in the theMessages
  repeat with i from 1 to the number of items in eachMessage
  set theAccount to "[email protected]"
  set theSender to (extract address from (the reply to of (item i of eachMessage)))
  if thesenders does not contain theSender then
  set thesenders to {theSender}
  end if
  set replyName to (extract name from (the sender of (item i of eachMessage)))
  set titleCaseString to (do shell script "/bin/echo" & space & quoted form of replyName & space & "| /usr/bin/perl -p -e 's/(\\w+)/\\u\\L$1/g;'") as Unicode text
  set firstName to word 1 of titleCaseString
  end repeat
  set AppleScript's text item delimiters to ", "
  set thesenderstext to thesenders as rich text
  set AppleScript's text item delimiters to ""
  set newMessage to make new outgoing message
  set theSubject to "instructions"
  set theContent to "Dear " & firstName & ",
Thanks so much for your order.
You will receive a despatch notice by email when your order is sent.
Your  Order is being sent to:
" & myaddress & "
Kind Regards
Jim
  set newMessage to make new outgoing message with properties {subject:theSubject, content:theContent, visible:true}
  set theAttachment1 to POSIX file "/Users/Jim/qrcode.13177607.png"
  set theAttachment2 to POSIX file "/Users/Jim/qrcode.13177658.png"
  set theAttachment3 to POSIX file "/Users/Jim/qrcode.13177665.png"
  tell newMessage
  set visible to true
  make new to recipient with properties {address:thesenderstext}
  --make new bcc recipient at end with properties {address:theBccRecipient}
  make new attachment with properties {file name:theAttachment1} at after the last paragraph
  make new attachment with properties {file name:theAttachment2} at after the last paragraph
  make new attachment with properties {file name:theAttachment3} at after the last paragraph
  -- send
  end tell
  tell application "Mail"
  set a to selection
  repeat with s in a
  set flag index of s to -1 as integer
  end repeat
  set theSelection to the selection
  repeat with theMessage in the theSelection
  move theMessage to mailbox "orders" -- of account theAccount
  activate
  end repeat
  end tell
  end repeat
  set read status of every message of mailbox "orders" to true
end tell

Answer 1

Shoot! I wrote this huge reply and then quit Safari by accident. I'm too tired to type it all over again (I should install a keylogger).
Anyway, check out the screen shot of my workflow. the AppleScript section is where it xfers the URL from a text editor (BBEdit) to Safari. It's pretty dirty but it works.
http://www.jameskocsis.com/urlworkflow.jpg
post antother reply if you need more data on this process.
Good luck.
-James