tell application "Mailsmith 1.1"
    set s to selection as text
end tell

tell application "BBEdit 5.0"
    activate
    make new window with properties {contents:s}
end tell