From d55465f85d24328145a2b7147259421069d84d06 Mon Sep 17 00:00:00 2001 From: OB Date: Tue, 1 Jul 2025 12:28:39 +0530 Subject: [PATCH] Add: event action to send evaluation emails to employees - custom menu --- .../Send_Email_cpgSendEvaluationMail.sql | 35 +++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 CUSTOM_MENU/OBHOISTLK/Send_Email_cpgSendEvaluationMail.sql diff --git a/CUSTOM_MENU/OBHOISTLK/Send_Email_cpgSendEvaluationMail.sql b/CUSTOM_MENU/OBHOISTLK/Send_Email_cpgSendEvaluationMail.sql new file mode 100644 index 0000000..e3736a6 --- /dev/null +++ b/CUSTOM_MENU/OBHOISTLK/Send_Email_cpgSendEvaluationMail.sql @@ -0,0 +1,35 @@ +DECLARE + from_mail_ VARCHAR2(400); + rowkey_ VARCHAR2(32000); + subject_ VARCHAR2(1000); + content_ VARCHAR2(32000); + + CURSOR get_employye_list IS + SELECT company_id, emp_no + FROM Company_Person_CfV + WHERE NVL(CF$_online_pmp_db, 'FALSE') = 'TRUE'; + + CURSOR get_email_data IS + SELECT CF$_subject, CF$_content + FROM C_EVALUATION_MAIL_CLV + WHERE OBJKEY = rowkey_; +BEGIN + rowkey_ := substr('&NEW:ROWKEY', 2, INSTR('&NEW:ROWKEY', '$EVENT_ACTION_ROWKEY', 1, 1) - 3); + from_mail_ := 'sender@domain.com'; + open get_email_data; + fetch get_email_data + into subject_, content_; + close get_email_data; + + FOR rec_ IN get_employye_list LOOP + Command_SYS.Mail(sender_ => 'sender@domain.com', + from_ => from_mail_, + to_list_ => 'Pers_comms_Work_API.Get_Work_Email(rec_.company_id, + rec_.emp_no)', + cc_list_ => '', + bcc_list_ => '', + subject_ => subject_, + text_ => content_, + attach_ => ''); + END LOOP; +END; \ No newline at end of file