New email as RTF?

How can I create a new rich text email? I am creating an email just fine as it stands now but I want to make it in rich text format and am failing at making this work.

Thanks,

Jeremy

Are you using Mail.app?

In Preferences>Composing do you have Message Format set to Plain Text? Change that to Rich Text unless you don’t want every message to be rich text.

This script will work on an existing new message with text and with the cursor in the body


tell application "Mail" to activate
tell application "System Events"
	tell process "Mail"
		set frontmost to true
		keystroke "a" using command down--selects the text
		keystroke "T" using command down--changes text format -  same as "t" using shift and command
	end tell

end tell

I tried a new message with content, but the cursor was in the subject field, and I couldn’t get it to tab through to the body.

That’s as much as I had time for, hope it helps.

j