;; 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 (format "%s %s" "perl c:/perl/txt2note.pl"  buffer-file-name)))