;; Make F9 key copy the entire buffer to a new MS Outlook note
(global-set-key [f9] ' copy-buffer-to-outlook-note)

; Copy entire buffer to MS Outlook note
(defun copy-buffer-to-outlook-note ()
  "Copy current buffer to MS Outlook note."
  (interactive)
  (shell-command-on-region (point-min) (point-max) "perl d:/perl/txt2note.pl")))