general update?!
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2891 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
67
Modules/mip_email.pck
Normal file
67
Modules/mip_email.pck
Normal file
@@ -0,0 +1,67 @@
|
||||
create or replace package mip_email is
|
||||
|
||||
-- Author : MULLENMD
|
||||
-- Created : 02/11/2007 13:46:43
|
||||
-- Purpose : Allow the system to send emails.
|
||||
|
||||
-- Public type declarations
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN VARCHAR2,
|
||||
p_subject IN VARCHAR2);
|
||||
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN VARCHAR2,
|
||||
p_body_html IN VARCHAR2,
|
||||
p_subject IN VARCHAR2);
|
||||
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN CLOB,
|
||||
p_body_html IN CLOB,
|
||||
p_subject IN VARCHAR2);
|
||||
|
||||
end mip_email;
|
||||
/
|
||||
create or replace package body mip_email is
|
||||
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN VARCHAR2,
|
||||
p_subject IN VARCHAR2) IS
|
||||
|
||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
||||
BEGIN
|
||||
apex_mail.send(p_to => p_RECIPIENT,
|
||||
p_from => l_from,
|
||||
p_body => p_body,
|
||||
p_subj => p_subject);
|
||||
END;
|
||||
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN VARCHAR2,
|
||||
p_body_html IN VARCHAR2,
|
||||
p_subject IN VARCHAR2) IS
|
||||
|
||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
||||
BEGIN
|
||||
apex_mail.send(p_to => p_recipient,
|
||||
p_from => l_from,
|
||||
p_body => p_body,
|
||||
p_body_html => p_body_html,
|
||||
p_subj => p_subject);
|
||||
END;
|
||||
|
||||
PROCEDURE send_email(p_recipient IN VARCHAR2,
|
||||
p_body IN CLOB,
|
||||
p_body_html IN CLOB,
|
||||
p_subject IN VARCHAR2) IS
|
||||
|
||||
l_from VARCHAR2(50) := 'Mike.Hock@AdvanticaGroup.com';
|
||||
BEGIN
|
||||
apex_mail.send(p_to => p_recipient,
|
||||
p_from => l_from,
|
||||
p_body => p_body,
|
||||
p_body_html => p_body_html,
|
||||
p_subj => p_subject);
|
||||
END;
|
||||
|
||||
end mip_email;
|
||||
/
|
||||
Reference in New Issue
Block a user