New To-Do From Entourage 2008 (AppleScript)

This script will take all selected emails and add them to Things via the quick entry HUD. Copy and Paste the code below into the script editor and save the file to ~/Documents/Microsoft User Data/Entourage Script Menu Items/

tell application "Microsoft Entourage"
set theMessages to the current messages
repeat with selectedMessage in theMessages
set mySubject to get the subject of selectedMessage
set mySender to the display name of sender of selectedMessage as string
if mySender is "" then
set mySender to the address of sender of selectedMessage as string
end if
set myContent to get the content of selectedMessage
set toDoName to mySender & ": " & mySubject
tell application "Things"
show quick entry panel with properties {name:toDoName, notes:myContent}
end tell
tell application "System Events"
keystroke return
end tell
end repeat
end tell