View Single Post
It turns out that the use case is clipboard → action + note,

So something like:

on run
		set strText to (the clipboard) as text
	on error
	end try
end run

on MakeTask(strText)
	set lstLines to paragraphs of strText
	if lstLines ≠ {} then
		if (length of lstLines) > 1 then
			set {dlm, my text item delimiters} to {my text item delimiters, linefeed}
			set strNote to (items 2 thru -1 of lstLines) as text
			set my text item delimiters to dlm
			set strNote to ""
		end if
		tell application id "OFOC"
			tell default document to make new inbox task with properties {name:item 1 of lstLines, note:strNote}
		end tell
	end if
end MakeTask