putMessageInOutlook.tcl

#!/bin/sh
# Emacs please open this in -*-Tcl-*- mode
# do not remove this backslash! -> \
    exec tclsh $1 ${1+"$@"}
#
# loosely based on Python code from
# http://disgruntled-programmer.com/notes/emacs-with-outlook.html
#
package require tcom

set body [read stdin]
#
# find Outlook:-
if { [catch {::tcom::ref getactiveobject Outlook.Application} o] } {
    puts "Couldn't find Outlook via COM: $o"
    exit 1
}
# get the current item:-
if { [catch {$o -get ActiveInspector} a] } {
    puts "Couldn't get the ActiveInspector for Outlook via COM: $a"
    exit 2
}
if { [catch {$a -get CurrentItem} i] } {
    puts "Couldn't get the CurrentItem for Outlook via COM: $i"
    exit 3
}
# and finally replace its body
if { [catch {$i -set Body $body} err] } {
    puts "Couldn't replace the Body via COM: $err"
    exit 4
}
# The following (untested) might convert back from RTF in Outlook 2002
catch {$i -set BodyFormat 1}
# that's it