[Lizard]

tell application "OmniFocus" to tell default document
set savePath to choose file name with prompt "Where shall I save this stuff?"
save in savePath as "HTML"
end tell

(with a little help from p.365 of Matt Neuberg's AppleScript:The Definitive Guide)