View Single Post
I might do something like this:

tell application "OmniWeb"
	tell application "System Events" to keystroke "c" using command down
	set pageTitle to name of front browser as text
end tell
set mySelection to the clipboard
tell application "OmniOutliner Professional"
	set myDoc to first document whose name contains "webclips"
	tell myDoc
		set myRow to make new row at end of rows
		set value of cell 2 of myRow to pageTitle as text
		set value of note cell of myRow to mySelection
		set note expanded of myRow to true
	end tell
end tell