Select Code to Download

#!/usr/bin/perl -w

...
  # Close and save note.
  $note->close($olc->{olSave});
}

;; Make F9 key copy the entire buffer to a new MS Outlook note
(global-set-key [f9] ' copy-buffer-to-outlook-note)
...
  "Copy current buffer to MS Outlook note."
  (interactive)
  (shell-command-on-region (point-min) (point-max) "perl d:/perl/txt2n
+ote.pl")))