Creating an Automator service to add email messages to Reminders.app I've created an Automator service that creates a reminder based on the selected text.  What I really want is to create a keyboard shortcut that gets the same result that you get by dragging an email into the Reminders.app.

The service I have just uses the text to create the title of the reminder, but when you drag an email into Reminders.app it uses the subject of the email as the title and adds a link to the email its self.

Is there a way to create a keyboard shortcut for this action or an Automator service?
I don't have the keyboard shortcut, but I just finished an Actionscript that adds the email Subject as the Reminder Title, the email Body as the Reminder Content and then adds a link to the actual email at the bottom of the Reminder. Hope this helps!
on run {input, parameters}
tell application &quot;Calendar&quot; to activate
tell application &quot;Calendar&quot;
    set miniaturized of window 1 to true
    tell application &quot;Mail&quot;
        set theSelection to selection
        set theMessage to item 1 of theSelection
        set theurl to &quot;message://%3c&quot; &amp; theMessage's message id &amp; &quot;%3e&quot;
        set thedes to theMessage's content &amp; &quot;Show in Mail &quot; &amp; &quot;message://%3c&quot; &amp; theMessage's message id &amp; &quot;%3e&quot;
        set input to theMessage's subject
    end tell
end tell
tell application &quot;Calendar&quot;
    tell application &quot;Reminders&quot;
        make new reminder at end with properties {name:input, body:thedes}
        tell application &quot;Reminders&quot; to activate
    end tell
end tell
return input

end run