send-region-mail.el

(defun send-region-as-email (start end)
  "A hacky function to send a region as mail
   Assumes the region follows the below format
   To: <recepient>
   Subject: <subject>
   <mail body>"
  (interactive (if (use-region-p)
		   (list (region-beginning) (region-end))
		 (list nil nil)))
  (let* ((selection (buffer-substring-no-properties start end))
	 (recepient (s-trim (cadr (s-split ":" (car (s-lines selection))))))
	 (subject (s-trim (cadr (s-split-up-to ":" (cadr (s-lines selection)) 1))))
	 (body (car (last (s-split-up-to "\n" selection 3)))))
    (message-mail recepient subject)
    (message-goto-body)
    (insert body)
    (message-send-and-exit)))

👍