ارسال ايميل مع مرفق

متابعين

بتاريخ: 30 أكتوبر 201213 سنة

السلام عليكم
هل يوجد طريقه بالاوراكل لارسال ايميل عند تحقق شرط معين

لدي شاشه تحتوي بيانات زبون معين ومن ضمن البيانات ايميل الزبون ونص للاميل.
اريد ارسال هذا النص الى الايميل عند الضغط على زر اعتماد المعاملة

هل يوجد طريقه بالاوراكل لتنفيذ ارسال ايميل

كذلك هل يوجد طريقه ارفاق ملف تقرير ريبورت مثلا او ملف يتم تحديده الكترونيا مثلا مع هذا الايمل بناءا على رقم العميل

اي اريد ارسال ايميل ومرفق تقرير ريبورت مثلا او ملف عقد ايجار او ملف عرض اسعار وهذا الملف يتم ارفاقه الكترونيا من قبل البرنامج بناءا على رقم العميل

وشكرا

اقتباس

تقديم بلاغ

بتاريخ: 30 أكتوبر 201213 سنة

FUNCTION ETS_SEND_FILE(P_Recipient VARCHAR2,
P_Subject VARCHAR2,
p_message varchar2,
P_FILENAME VARCHAR2,
P_FILE_CONTENT VARCHAR2) RETURN VARCHAR2 IS
v_From VARCHAR2(80) := '[email protected]';
v_Mail_Host VARCHAR2(30) := '10.203.101.80';
v_header varchar2(1000);
v_Mail_Conn utl_smtp.Connection;
crlf VARCHAR2(2) := chr(13)||chr(10);
BEGIN[/left]

[left] v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host , 25);
--v_header:='Move order#,Trx_Type_id,Trx_Type_Name,Item_Code,Sub_Inv,Locator,unit,Ordered_Qty,Org_ID,Org_Name,Site_ID';
utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);[/left]

[left] utl_smtp.Mail(v_Mail_Conn, v_From);[/left]

[left] utl_smtp.Rcpt(v_Mail_Conn, P_Recipient);
dbms_output.put_line(P_Recipient);
utl_smtp.Data(v_Mail_Conn,
'Date: ' || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: ' || v_From || crlf ||
'Subject: '|| P_Subject || crlf ||
'To: ' || P_Recipient || crlf ||[/left]

[left] 'MIME-Version: 1.0'|| crlf || -- Use MIME mail standard
'Content-Type: multipart/mixed;'|| crlf ||
' boundary="-----SECBOUND"'|| crlf ||
crlf ||[/left]

[left] '-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
'Content-Transfer_Encoding: 7bit'|| crlf ||
crlf ||p_message||','||crlf ||
--'Dear '||p_message||','||crlf || -- Message body
'-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
' name='||P_FILENAME|| crlf ||
'Content-Transfer_Encoding: 8bit'|| crlf ||
'Content-Disposition: attachment;'|| crlf ||
' filename='||P_FILENAME|| crlf ||
--crlf ||v_header|| -- Content of attachment
crlf ||P_FILE_CONTENT||crlf||[/left]

[left] '-------SECBOUND--' -- End MIME mail
);[/left]

[left] utl_smtp.Quit(v_mail_conn);
RETURN 'S';
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
RETURN 'F';
raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);

END ETS_SEND_ARAMEX_FILE;