smtp e-mail傳送

    set opts {}
    set sendlist {}
    lappend opts -servers [list $server]
    lappend opts -ports [list $serverport]
    lappend opts -header [list "Subject" $subject]
    lappend opts -header [list "From" $from]
    lappend opts -header [list "To" $to]
    set textT [mime::initialize -canonical text/plain -encoding "7bit" -string $body]
    if { [llength $args] > 0 } {
        set i 0
        foreach {file} $args {
            if { [file exists $file] } {
                incr i
                set "mailfile($i)" [mime::initialize -canonical "application/jpg; name=\"$file\"" -file $file]   
                lappend sendlist "$mailfile($i)"
            }
        }
    }
    set multiT [mime::initialize -canonical multipart/mixed -parts [linsert $sendlist 0 $textT]]
    smtp::sendmessage $multiT {*}$opts -queue false -atleastone false -usetls false
    mime::finalize $multiT