Ausgewählten Text aus Safari als Email senden

tell application "Safari"

tell document 1

set selected_text to do JavaScript "var txt = '';

if (window.getSelection)

{

    txt = window.getSelection();

}

else if (document.getSelection)

{

    txt = document.getSelection();

}

else if (document.selection)

{

    txt = document.selection.createRange().text;

}

else return;

"

set siteURL to URL

end tell

end tell

tell application "Mail"

activate

make new outgoing message with properties {visible:true, subject:"Something Interesting", content:"" & siteURL & return & return & selected_text}

end tell