tell application "Microsoft Entourage" set selectedMessages to current messages repeat with theMessage in selectedMessages -- get the information from the message, and store it in variables set theName to subject of theMessage -- remove [calendar] from the subject set theName to (text 12 thru (length of theName) of theName) set theCategory to category of theMessage set theContent to content of theMessage -- create a new note with the information from the message set newEvent to make new event with properties ¬ {subject:theName, category:theCategory, content:theContent, has reminder:yes, remind time:0} ¬ -- create a link between the message and the new note link theMessage to newEvent end repeat end tell