VoiceMail Applescript

Question

Hi,
I am trying to write an applescript that works as follows:
If Mail.app receives a message from my phone provider that contained a voice mail message (just an email with a WAV attached) it would:
1) Read the body of the message (e.g. "You have a voicemail from <2048513621>")
2) Lookup the phone number in Addressbook
3) Take the associated name from the Addressbook
4) Change the sender (My Provider) into the name associted with the number.
In this way I could easily see who had left a voice message, and I could sort these message by sender, etc.
Here's what I have so far, but it doesn't seem to work....
on performmailaction(info)
tell application "Mail"
set theMessages to |SelectedMessages| of info
repeat with thisMessage in theMessages
set AppleScript's text item delimiters to {""}
set thisSender to content of thisMessage as string
set brkpos to offset of "<" then
set AppleScript's text item delimiters to {"\""}
set thisSender to text item 2 of thisSender as string
end if
else
if (brkpos is equal to 1) then
set thisSender to (text items 2 through -1) of thisSender as string
end if
set AppleScript's text item delimiters to {"@"}
set thisSender to text item 1 of thisSender as string
end if
tell application "Address Book"
repeat with thePerson in the people
set theNumber to value of phone of thePerson as string
if theNumber contains thisSender then
set theName to name of thePerson as string
--else
--set theName to WhatNumber
end if
end repeat
end tell
set sender of eachMessage to theName
end repeat
end tell
end performmailaction
<br>
G5 Quad   Mac OS X (10.4.10)  

Answer 1

I've updated the code so all i need is a way to put a the variables 'first_name & last_name' into the subject of an existing mail.app message
thanks!
on performmailaction(info)
tell application "Mail"
set theMessages to |SelectedMessages| of info
repeat with thisMessage in theMessages
set AppleScript's text item delimiters to {""}
set thisSender to content of thisMessage as string
set brkpos to offset of "<" then
set AppleScript's text item delimiters to {"\""}
set thisSender to text item 2 of thisSender as string
end if
else
if (brkpos is equal to 1) then
set thisSender to (text items 2 through -1) of thisSender as string
end if
set AppleScript's text item delimiters to {"@"}
set thisSender to text item 1 of thisSender as string
end if
set phn to thisSender
set a1 to (first character of phn)
set a2 to (second character of phn)
set a3 to (third character of phn)
set f1 to (fourth character of phn)
set f2 to (fifth character of phn)
set f3 to (sixth character of phn)
set s1 to (seventh character of phn)
set s2 to (eighth character of phn)
set s3 to (ninth character of phn)
set s4 to (tenth character of phn)
set phn to "(" & a1 & a2 & a3 & ")" & " " & f1 & f2 & f3 & "-" & s1 & s2 & s3 & s4
tell application "Address Book"
set found to false
repeat with u in people
set ph to (every phone of u whose value contains phn)
if ph is not {} then
set found to true
exit repeat
end if
end repeat
if found then
set first_name to first name of u
set last_name to last name of u
end if
end tell
-- move thisMessage to mailbox "VoiceMail" of account of mailbox of thisMessage
end repeat
end tell
end performmailaction