ec_sendmail_from_service email_to reply_to email_subject email_body { additional_headers " " } { bcc " " }What it does:
Use this when you're sending out customer service emails. It's invoked just like ns_sendmail, except that the email will always be from the customer service email address. The reply-to field can be used for the perl/qmail service-345-9848@whatever.com email trick (but it doesn't have to be).Defined in: /web/philip/tcl/ecommerce-email.tclNote: one major difference from ns_sendmail: with ns_sendmail, putting a Cc header does not actually send an extra copy of the email; it just puts Cc: whomever@wherever into the header (and then you'd have to specify whomever@wherever in the bcc argument). This procedure does send the email to the Cc'd email addresses.
Source code:
set extra_headers [ns_set new] ns_set put $extra_headers "Reply-to" $reply_to if { $bcc != "" } { ns_set put $extra_headers "Bcc" $bcc } if { $additional_headers != "" } { ns_set merge $extra_headers $additional_headers } qmail $email_to "\"Customer Service\" <[ad_parameter CustomerServiceEmailAddress ecommerce]>" $email_subject $email_body $extra_headers