send_email_attachment_from_file {-to "" -from "" -subject "" -msg "" -src_pathname "" -dst_filename ""}What it does:
Send an email message using ns_sendmail, with a MIME base64 encoded attachment of the file src_pathname. src_pathname is an absolute pathname to a file in the local server filesystem. dst_filename is the name given to the file attachment part in the email message.Defined in: /web/philip/tcl/email-utils.tcl
Source code:
arg_parser_for_send_email_attachment_from_file $args
    set default_base64_encoder "[ad_parameter PathToACS]/bin/encode64.pl"
    set base64_encoder [ad_parameter "Base64EncoderCommand" "email" $default_base64_encoder]
    set encoded_data [exec $base64_encoder "<$src_pathname"]
    set mime_boundary "__==NAHDHDH2.28ABSDJxjhkjhsdkjhd___"
    set extra_headers [ns_set create]
    ns_set update $extra_headers "Mime-Version" "1.0"
    ns_set update $extra_headers "Content-Type" "multipart/mixed; boundary=\"$mime_boundary\""
    append body "--$mime_boundary
Content-Type: text/plain; charset=\"us-ascii\"
$msg
--$mime_boundary
Content-Type: application/octet-stream; name=\"$dst_filename\"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=\"$dst_filename\"
"
    append body $encoded_data
    append body "\n--[set mime_boundary]--\n"
    ns_sendmail $to $from $subject $body $extra_headers