Index: openacs-4/packages/project-manager/www/send-mail.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/send-mail.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/send-mail.adp	4 Aug 2005 17:06:12 -0000	1.1
@@ -0,0 +1,18 @@
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<!-- 
+
+       Parameters:
+
+       party_ids   = List of party_id's to send a message. Here they are project assignees
+       export_vars = variables that you want to be present on the include form (For example project_id)
+       return_url  = Url to redirect after the process is finished
+       file_ids    = revision_id of files you wan't to include in your message
+
+ -->
+
+<include src="/packages/acs-mail-lite/lib/email" party_ids=@party_ids@ export_vars=@export_vars@ return_url=@return_url;noquote@>
+
+
Index: openacs-4/packages/project-manager/www/send-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/send-mail.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/www/send-mail.tcl	4 Aug 2005 17:06:12 -0000	1.1
@@ -0,0 +1,32 @@
+# packages/project-manager/www/send-mail.tcl
+
+ad_page_contract {
+    Use acs-mail-lite/lib/email chunk to send out going mail messages.
+} {
+    project_id:integer,notnull
+    {party_ids:multiple ""}
+}
+
+# Get the project_item_id and the project_name
+set project_item_id [pm::project::get_project_item_id -project_id $project_id]
+set project_name [pm::project::name -project_item_id $project_item_id]
+
+set title [_ project-manager.send_message_to]
+set context [list [list "one?project_id=$project_id" $project_name] $title]
+
+# Values to send to the include
+set export_vars [list project_id]
+set return_url "one?project_id=$project_id"
+
+
+# First we get all users assigned to this project
+set users_list [pm::project::assignee_role_list -project_item_id $project_item_id]
+
+set options [list]
+
+set party_ids [list]
+foreach user $users_list {
+    lappend party_ids [lindex $user 0]
+}
+
+