Entourage

Does anyone have any code they will share with me that will let my script send multiple emails in Entourage to a user-inputted address, without having to type in the address for each email.

This one is easy!

set theSubjects to {"message 1", "message 2", "message 3"}
set theMsgs to {"body 1", "body 2", "body 3"}
set theRecipient to text returned of (display dialog "Enter a mail address..." default answer "user@input.com")

tell application "Microsoft Entourage"
	repeat with i from 1 to theSubjects's length
		set theSubject to theSubjects's item i
		set theMsg to theMsgs's item i
		set k to (make new outgoing message at out box folder with properties {subject:theSubject, recipient:theRecipient, content:theMsg})
		--> uncomment the following to also send the message
		-- send k
	end repeat
end tell