-- select a message in your Outlook then
tell
application "Microsoft Outlook"
set
theMessages to
current messages
set
theHTML to content of
item 1 of theMessages
end tell
set
tempHTMLFile to ((path to
desktop folder) as text) & "test.html"
WriteFile(tempHTMLFile,
theHTML)
set
cmd to "textutil -convert rtf " & quoted form of
POSIX path of tempHTMLFile & " ~/Desktop/test.rtf"
do shell script cmd
on WriteFile(outFile,
myData)
set
fileRef to (open for accessoutFile with
write permission)
set eof of
fileRef
to 0
write (myData)
to fileRefstarting at eofas «class utf8»
close accessfileRef
end WriteFile