Selektiere den Inhalt der e-mail

⌘-C

Wechsle zu TextEdit

⌘-V
⇧⌘-T
⏎
⌘-P
 

tell application "Mail"
    activate
    set selectedMessages to selection
    if (count of selectedMessages) is equal to 0 then
        display alert "No Messages Selected" message "Select the message you want to get the plain text of before running this script."
    else
        set theMessage to item 1 of selectedMessages
        set theSource to content of theMessage
    end if
end tell
tell application "TextEdit"
    make new document
    set text of document 1 to theSource as text
    print document 1 without print dialog
    close document 1 saving no
end tell

tell application "Mail"
    activate
    set selectedMessages to selection
    if (count of selectedMessages) is equal to 0 then
        display alert "No Messages Selected" message "Select the message you want to get the plain text of before running this script."
    else
        set theMessage to item 1 of selectedMessages
        set theSource to content of theMessage
        set theSubject to subject of theMessage
        my doPrint(theSource, theSubject)
    end if
end tell

on doPrint(theSource, theSubject)
    tell application "TextEdit"
        make new document with properties {name:theSubject}
        set text of document 1 to theSource as text
        print document 1 without print dialog
        close document 1 saving no
    end tell
end doPrint