AppleScript to TEXT me when certain emails come in

Question

Currently, I have a Mail Rule that forwards certain emails to me, via text.
It comes over unformatted for text, very ugly and hard to read.
I would like an AppleScript to send me a text that only has FROM and SUBJECT. Once I see that, I can get the rest form my iPhone. I just don't want to miss these emails.
Has anyone already written this script?

Answer 1

Thanks for the pointer!
So I got this to work in the AppleScript Editor:
tell application "Mail"
          set newMsg to make new outgoing message
          set content of newMsg to "Test Message from Mail2text.scpt"
          set sender of newMsg to "someone"
          set subject of newMsg to "Test"
          tell newMsg
  make new to recipient at end of to recipients with properties {address:"[email protected]"}
  send
          end tell
  --set visible of newMsg to true
  --display dialog theContent
  --say theContent
end tell
but I cannot get it to work via a rule:
using terms from application "Mail"
          on perform mail action with messages theSelectedMessages for rule theRule
                    tell application "Mail"
                              repeat with eachMessage in theSelectedMessages
                                        tell eachMessage
                                                  set f to sender of eachMessage
                                                  set s to subject of eachMessage
                                                  set ds to date sent of eachMessage
                                                  set dr to date received of eachMessage
  --say theContent
  --display dialog theContent
                                                  set newMsg to make new outgoing message
                                                  set sender of newMsg to f
                                                  set subject of newMsg to s
                                                  set content of newMsg to "Message from" & sender & " sent:" & date sent & ", received:" & date received
                                                  tell newMsg
  make new to recipient at end of to recipients with properties {address:"[email protected]"}
                                                            send
                                                  end tell
  --set visible of newMsg to true
  --display dialog theContent
  --say theContent
                                        end tell
                              end repeat
                    end tell
          end perform mail action with messages
end using terms from