Follow up e-mail, linked to task Entourage script

I needed a script to create a new email fro a Task and link the two together. Here it is:

(*
Create task from Message

*)

tell application "Microsoft Entourage"

-- get the currently selected task
set selectedTasks to selection

-- if there are no tasks selected, warn the user and then quit
if selectedTasks is {} then
display dialog "Please select a task first and then run this script." with icon 1
return
end if

repeat with theTask in selectedTasks

-- get the information from the task, and store it in variables
set theName to name of theTask
set theCategory to category of theTask
set thePriority to priority of theTask
set theContent to content of theTask

-- create a new outoing message with the information from the task
set newMessage to make new outgoing message with properties {subject:theName, content:theContent, category:theCategory, priority:normal}

-- create a link between the message and the task
link theTask to newMessage
end repeat

-- if there was only one task selected, then open the new message
if (count of selectedTasks) = 1 then open newMessage
end tell

| posted mrt 2, 12:40 pm