BAM - Project Task Email-to?

Yahoo Archive
1
Hi Group,

I have the follwing BAM to send email when the task status change.

BUT I could not find a way to send the email out to the "People List"
in the Project Header.

Anyone has any idea or suggestion how to do that?

Thanks,

Nam

{ud/GlbAlert.i &TableName = "ProjectTask"}
IF ProjectTask.TaskStatus = "N"
THEN
ASSIGN Email-To= "nvong@..."
Email-Subject = "Project Task Status" + USERID
Email-Text = "Project Details: ~n~n"
+ " Project ID: " + string
(ProjectTask.ProjectID) + "~n"
+ " Status: " + "No Change (or New)" + "~n"
+ " Task ID: " + STRING(ProjectTask.TaskID)
+ "~n"
+ " Description: " + STRING
(ProjectTask.Description) + "~n"
+ " Assigned to: " + STRING(ProjectTask.PersonID)
+ "~n"
+ " StartDate: " + STRING
(ProjectTask.StartDate) + "~n"
+ " DueDate: " + STRING(ProjectTask.DueDate)
+ "~n"
+ " DateComplete: " + STRING
(ProjectTask.DateComplete) + "~n"
+ " Comment: " + ProjectTask.CommentText.
ELSE IF ProjectTask.TaskStatus = "I" THEN
ASSIGN Email-To= "nvong@..."
Email-Subject = "Project Task Status" + USERID
Email-Text = "Project Details: ~n~n"
+ " Project ID: " + string
(ProjectTask.ProjectID) + "~n"
+ " Status: " + "In Progress" + "~n"
+ " Task ID: " + STRING(ProjectTask.TaskID)
+ "~n"
+ " Description: " + STRING
(ProjectTask.Description) + "~n"
+ " Assigned to: " + STRING(ProjectTask.PersonID)
+ "~n"
+ " StartDate: " + STRING
(ProjectTask.StartDate) + "~n"
+ " DueDate: " + STRING(ProjectTask.DueDate)
+ "~n"
+ " DateComplete: " + STRING
(ProjectTask.DateComplete) + "~n"
+ " Comment: " +
ProjectTask.CommentText.
ELSE IF ProjectTask.TaskStatus = "C" THEN
ASSIGN Email-To= "nvong@..."
Email-Subject = "Project Task Status" + USERID
Email-Text = "Project Details: ~n~n"
+ " Project ID: " + string
(ProjectTask.ProjectID) + "~n"
+ " Status: " + "Completed" + "~n"
+ " Task ID: " + STRING(ProjectTask.TaskID)
+ "~n"
+ " Description: " + STRING
(ProjectTask.Description) + "~n"
+ " Assigned to: " + STRING(ProjectTask.PersonID)
+ "~n"
+ " StartDate: " + STRING
(ProjectTask.StartDate) + "~n"
+ " DueDate: " + STRING(ProjectTask.DueDate)
+ "~n"
+ " DateComplete: " + STRING
(ProjectTask.DateComplete) + "~n"
+ " Comment: " +
ProjectTask.CommentText.
ELSE DO:
END.