Index: openacs-4/packages/download/www/admin/spam-users-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/www/admin/spam-users-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/download/www/admin/spam-users-2.tcl	12 Sep 2013 10:26:13 -0000	1.7
+++ openacs-4/packages/download/www/admin/spam-users-2.tcl	18 Sep 2013 15:23:40 -0000	1.8
@@ -35,14 +35,10 @@
 # send out email
 set count 0
 foreach to_user_id $user_id_list {
-    db_exec_plsql sendmail {
-        select acs_mail_nt__post_request (
-		    :user_id,    -- p_party_from
-		    :to_user_id, -- p_party_to
-		    :subject,    -- p_subject
-		    :msgbody     -- p_message
-		  );
-    }
+    set from_addr [acs_user::get_element -user_id $user_id -element email]
+    set to_addr [acs_user::get_element -user_id $to_user_id -element email]
+    acs_mail_lite::send -to_addr $to_addr -from_addr $from_addr \
+        -subject $subject -body $msgbody
     incr count
 }