It turns out that the use case is clipboard → action + note,
So something like:
Code:
on run
try
set strText to (the clipboard) as text
on error
return
end try
MakeTask(strText)
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
else
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