A sendmail example

namespace eval ::XUtils {

        source $::env(HOME)/ParseConf.itcl
        XConfig ::XUtils::cfgobj

        # mailTo: one or more email addresses separated by a comma,
        # mailFrom: a regular email address, not a simple text!
        # mailBody: a mime initalized TCL entity
        # mailSubj: a simple text
        # Note,note,note: if empty email address supplied the procedure
        # pulls the config value out of the 'admemail' key
        proc Mailer { mailTo mailFrom mailBody mailSubj } {
                set retcode 0
                if { [string length $mailTo] == 0 } {
                        set mailTo [cfgobj getConfigValue "admemail"]
                }
                catch {
                        smtp::sendmessage $mailBody \
                        -servers [cfgobj getConfigValue "emailsrv"] \
                        -usetls 0 \
                        -header [list From "$mailFrom"] \
                        -header [list To "$mailTo"] \
                        -header [list Subject "$mailSubj"]
                } result
                if { [string length $result] > 0 } {
                        puts stderr $result
                        set retcode 1
                }
                return $retcode
        }
}