ad_page_contract { Sends email confirmation to user after they've been created @cvs-id $Id: user-add-3.tcl,v 1.11 2018/01/21 00:38:38 gustafn Exp $ } -query { email message first_names last_name user_id:naturalnum,notnull {referer "/acs-admin/users"} } -properties { context:onevalue first_names:onevalue last_name:onevalue export_vars:onevalue } set admin_user_id [ad_conn user_id] set context [list [list "./" "Users"] "New user notified"] set admin_url [acs_community_member_admin_url -user_id $user_id] set admin_email [db_string get_admin_email {}] set subject "You have been added as a user to [ad_system_name] at [ad_url]" if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $admin_email -subject $subject -body $message} errmsg]} { ad_return_error "Mail Failed" [subst {
The system was unable to send email. Please notify the user personally. This problem is probably caused by a misconfiguration of your email system. Here is the error message:
[ns_quotehtml $errmsg]