Entourage Forward as Attachment script

Question

Does anyone know if this exists, and if not, might some kind soul out there create one for us? As you may know Entourage is the only email program out there which wont properly forward html messages, and instead forces you to forward the html message as an attachment. But I can't find a script which will do this.
Thanks again.

Answer 1

and to clean up any archived copies
on run {input, parameters}
set listRecipients to {"[email protected]", "[email protected]", "[email protected]"}
tell application "Mail"
repeat with i from 1 to the count of input
set selectedMessage to item i of input
set findID to message id of selectedMessage
set archivesMailbox to mailbox "Archive"
set theName to name of archivesMailbox
set archivedMessages to messages in archivesMailbox
repeat with i from 1 to count of archivedMessages
set archivedMessage to item i of archivedMessages
if message id of archivedMessage is equal to findID then
set junk mail status of archivedMessage to true
move archivedMessage to mailbox "Trash"
exit repeat
end if
end repeat
set junk mail status of selectedMessage to true
set read status of selectedMessage to true
set theAccount to name of account of mailbox of selectedMessage as string
move selectedMessage to mailbox "Junk" of account theAccount
set selectedSubject to subject of the selectedMessage as string
set messageSource to the source of selectedMessage as string
set unixTimestamp to (do shell script "date +%s") as string
set sourceFile to "Macintosh HD:tmp:forwards:" & selectedSubject & ".eml"
set f to open for access sourceFile with write permission
set eof of f to 0
write messageSource to f
close access f
set newMessage to (make new outgoing message with properties {subject:"Fwd: " & selectedSubject})
tell newMessage
repeat with toRecipient in listRecipients
make new recipient at end of to recipients with properties {address:toRecipient}
end repeat
tell content to make new attachment with properties {file name:sourceFile as alias} at after the last paragraph
end tell
send newMessage
set removeSourceFileCmd to "rm " & quoted form of POSIX path of sourceFile
do shell script removeSourceFileCmd
end repeat
end tell
return input
end run