email selected rows: applescript or action

[Curt Clifton]

Steve,

On Apr 28, 2006, at 7:50 PM, nachodog at mac.com wrote:

> Is there a way to email selected rows via an applescript or  
> automator action?  Or, at least is there a way to email a hoisted  
> selection?

Here's a script that I use that mostly satisfies your first request.   
The script does not maintain outline structure.

-- Creates a new email message from selected rows.
-- by Curt Clifton, May 23, 2005
tell front document of application "OmniOutliner Professional"
	set theTopics to topic of selected rows
end tell

set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set theMessage to theTopics as text
set AppleScript's text item delimiters to oldDelim

tell application "Mail"
	activate
	set newMessage to make new outgoing message with properties  
{content:theMessage}
	set visible of newMessage to true
end tell


Cheers,

Curt