In an article in the current issue of Macworld (March 2011) David Chartier reported a scripting method to gather the text from one or more emails selected in Mail to a single text file. I slightly modified the scripted posted in the article to instead create an RTF with the message text(s) in DTPO. Save the script in /Libary/Scripts/Mail Scripts and run from the global scripts menu in the OS X menu bar. This is for users who want just the text of a message (no headers, no attachments).
(In theory, the script could be further rewritten to use in a Rule in Mail that automatically filters messages into a mailbox and sends the text to DTPO.)
-- this script was excerpted from this article:
-- http://macworld.com/6809
-- on Feb 4, 2011
-- and modified to send the text to DTPO as an RTF in the prompted group
tell application "Mail"
set selectedMessages to selection
if (count of selectedMessages) is equal to 0 then
display alert "No Messages Selected" message "Select the messages you want to collect before running this script."
end if
set theText to ""
repeat with theMessage in selectedMessages
set theText to theText & (content of theMessage) as string
end repeat
end tell
set theText to replaceText("Begin forwarded message:", "", theText)
tell application id "com.devon-technologies.thinkpro2"
set theGroup to display group selector
create record with {content:theText, type:rtf} in theGroup
end tell
-- BEGIN replaceText
-- based on
-- http://macscripter.net/viewtopic.php?id=18551
-- and similar postings to macscripter.net
on replaceText(find, replace, subject) -- from MacScripter
set prevTIDs to text item delimiters of AppleScript
set text item delimiters of AppleScript to find
set subject to text items of subject
set text item delimiters of AppleScript to replace
set subject to "" & subject
set text item delimiters of AppleScript to prevTIDs
return subject
end replaceText
-- END replaceText