andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add general debug routines (mip_debug.pck, mip_debug_constants.pks)

Browse Source 
Send email attachments (mip_quotation.pck, mip_email.pck - templates from WebMIP Email templates.doc)
Add Lifting Gear to 'labour' quotes (mip_quotation.pck)

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3860 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-06 11:53:45 +00:00
parent 824ac1cf55
commit 6604eb2831
11 changed files with 501 additions and 265 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
Modules/mip_email.pck
View File

@@ -1,76 +1,90 @@
create or replace package mip_email is
CREATE OR REPLACE PACKAGE mip_email IS
-- Author : MULLENMD
-- Created : 02/11/2007 13:46:43
-- Purpose : Allow the system to send emails.
g_from_address CONSTANT VARCHAR2(50) := cout_system_configuration.get_configuration_item('EMAIL_FROM_ADDRESS');
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2,
p_from IN VARCHAR2 DEFAULT g_from_address,
p_body IN VARCHAR2,
p_subject IN VARCHAR2);
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2
,p_from IN VARCHAR2 DEFAULT g_from_address
,p_body 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_clob(p_recipient IN VARCHAR2,
p_from IN VARCHAR2 DEFAULT g_from_address,
p_body IN CLOB,
p_body_html IN CLOB,
p_subject IN VARCHAR2);
end mip_email;
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_clob(p_recipient IN VARCHAR2
,p_from IN VARCHAR2 DEFAULT g_from_address
,p_body IN CLOB
,p_body_html IN CLOB
,p_subject IN VARCHAR2);
PROCEDURE add_attachment(p_attachment IN BLOB
,p_filename IN VARCHAR2
,p_mime_type IN VARCHAR2);
END mip_email;
/
create or replace package body mip_email is
CREATE OR REPLACE PACKAGE BODY mip_email IS
g_mail_id NUMBER;
--
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2,
p_from IN VARCHAR2 DEFAULT g_from_address,
p_body IN VARCHAR2,
p_subject IN VARCHAR2) IS
PROCEDURE send_email_plain_text(p_recipient IN VARCHAR2
,p_from IN VARCHAR2 DEFAULT g_from_address
,p_body IN VARCHAR2
,p_subject IN VARCHAR2) IS
BEGIN
apex_mail.send(p_to => p_RECIPIENT,
p_from => p_from,
p_body => p_body,
p_subj => p_subject);
g_mail_id := apex_mail.send(p_to => p_recipient
,p_from => p_from
,p_body => p_body
,p_subj => p_subject);
END send_email_plain_text;
--
--
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) IS
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) IS
BEGIN
apex_mail.send(p_to => p_recipient,
p_from => p_from,
p_body => p_body,
p_body_html => p_body_html,
p_subj => p_subject);
g_mail_id := apex_mail.send(p_to => p_recipient
,p_from => p_from
,p_body => p_body
,p_body_html => p_body_html
,p_subj => p_subject);
END send_email_vchar;
--
--
PROCEDURE send_email_clob(p_recipient IN VARCHAR2,
p_from IN VARCHAR2 DEFAULT g_from_address,
p_body IN CLOB,
p_body_html IN CLOB,
p_subject IN VARCHAR2) IS
PROCEDURE send_email_clob(p_recipient IN VARCHAR2
,p_from IN VARCHAR2 DEFAULT g_from_address
,p_body IN CLOB
,p_body_html IN CLOB
,p_subject IN VARCHAR2) IS
BEGIN
apex_mail.send(p_to => p_recipient,
p_from => p_from,
p_body => p_body,
p_body_html => p_body_html,
p_subj => p_subject);
g_mail_id := apex_mail.send(p_to => p_recipient
,p_from => p_from
,p_body => p_body
,p_body_html => p_body_html
,p_subj => p_subject);
END send_email_clob;
PROCEDURE add_attachment(p_attachment IN BLOB
,p_filename IN VARCHAR2
,p_mime_type IN VARCHAR2) IS
BEGIN
apex_mail.add_attachment(p_mail_id => g_mail_id
,p_attachment => p_attachment
,p_filename => p_filename
,p_mime_type => p_mime_type);
END add_attachment;
--
end mip_email;
END mip_email;
/