changed the procedure names and added the from field from the sys config table.
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3286 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
@@ -4,64 +4,73 @@ create or replace package mip_email is
|
|||||||
-- Created : 02/11/2007 13:46:43
|
-- Created : 02/11/2007 13:46:43
|
||||||
-- Purpose : Allow the system to send emails.
|
-- Purpose : Allow the system to send emails.
|
||||||
|
|
||||||
-- Public type declarations
|
g_from_address CONSTANT VARCHAR2(50) := cout_system_configuration.get_configuration_item('EMAIL_FROM_ADDRESS');
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
|
||||||
p_body IN VARCHAR2,
|
|
||||||
p_subject IN VARCHAR2);
|
|
||||||
|
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2,
|
||||||
p_body IN VARCHAR2,
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
p_body_html IN VARCHAR2,
|
p_body IN VARCHAR2,
|
||||||
p_subject IN VARCHAR2);
|
p_subject IN VARCHAR2);
|
||||||
|
|
||||||
|
PROCEDURE send_email_vchar(p_recipient IN VARCHAR2,
|
||||||
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
|
p_body IN VARCHAR2,
|
||||||
|
p_body_html IN VARCHAR2,
|
||||||
|
p_subject IN VARCHAR2);
|
||||||
|
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
PROCEDURE send_email_clob(p_recipient IN VARCHAR2,
|
||||||
p_body IN CLOB,
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
p_body_html IN CLOB,
|
p_body IN CLOB,
|
||||||
p_subject IN VARCHAR2);
|
p_body_html IN CLOB,
|
||||||
|
p_subject IN VARCHAR2);
|
||||||
|
|
||||||
end mip_email;
|
end mip_email;
|
||||||
/
|
/
|
||||||
create or replace package body mip_email is
|
create or replace package body mip_email is
|
||||||
|
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
--
|
||||||
p_body IN VARCHAR2,
|
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2,
|
||||||
p_subject IN VARCHAR2) IS
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
|
p_body IN VARCHAR2,
|
||||||
|
p_subject IN VARCHAR2) IS
|
||||||
|
|
||||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
|
||||||
BEGIN
|
BEGIN
|
||||||
apex_mail.send(p_to => p_RECIPIENT,
|
apex_mail.send(p_to => p_RECIPIENT,
|
||||||
p_from => l_from,
|
p_from => p_from,
|
||||||
p_body => p_body,
|
p_body => p_body,
|
||||||
p_subj => p_subject);
|
p_subj => p_subject);
|
||||||
END;
|
END send_email_plain_text;
|
||||||
|
--
|
||||||
|
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
--
|
||||||
p_body IN VARCHAR2,
|
PROCEDURE send_email_vchar(p_recipient IN VARCHAR2,
|
||||||
p_body_html IN VARCHAR2,
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
p_subject IN VARCHAR2) IS
|
p_body IN VARCHAR2,
|
||||||
|
p_body_html IN VARCHAR2,
|
||||||
|
p_subject IN VARCHAR2) IS
|
||||||
|
|
||||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
|
||||||
BEGIN
|
BEGIN
|
||||||
apex_mail.send(p_to => p_recipient,
|
apex_mail.send(p_to => p_recipient,
|
||||||
p_from => l_from,
|
p_from => p_from,
|
||||||
p_body => p_body,
|
p_body => p_body,
|
||||||
p_body_html => p_body_html,
|
p_body_html => p_body_html,
|
||||||
p_subj => p_subject);
|
p_subj => p_subject);
|
||||||
END;
|
END send_email_vchar;
|
||||||
|
--
|
||||||
|
|
||||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
--
|
||||||
p_body IN CLOB,
|
PROCEDURE send_email_clob(p_recipient IN VARCHAR2,
|
||||||
p_body_html IN CLOB,
|
p_from IN VARCHAR2 DEFAULT g_from_address,
|
||||||
p_subject IN VARCHAR2) IS
|
p_body IN CLOB,
|
||||||
|
p_body_html IN CLOB,
|
||||||
|
p_subject IN VARCHAR2) IS
|
||||||
|
|
||||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
|
||||||
BEGIN
|
BEGIN
|
||||||
apex_mail.send(p_to => p_recipient,
|
apex_mail.send(p_to => p_recipient,
|
||||||
p_from => l_from,
|
p_from => p_from,
|
||||||
p_body => p_body,
|
p_body => p_body,
|
||||||
p_body_html => p_body_html,
|
p_body_html => p_body_html,
|
||||||
p_subj => p_subject);
|
p_subj => p_subject);
|
||||||
END;
|
END send_email_clob;
|
||||||
|
--
|
||||||
end mip_email;
|
end mip_email;
|
||||||
/
|
/
|
||||||
|
|||||||
Reference in New Issue
Block a user