عندي فورم لتقديم اجازة من قبل الموظف
هذا الفورم فية مجموعة من الحقول مثل
رقم الموضف واسمة وعدد الايام المطاوبة للاجازة وتاريخ بداء الاجازة وتاريخ انتهائها

اريد بعد مايخلص الموضف ادخال هذه البيانات يظغط على زر فيتم ارسال ايميل بالبيانات المعبائة الى مديرة المسؤول عنة




كييييييييييييييييف اقدر انفذ هذه الخطوة؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

ساعدوني رجاءا

السلام عليكم
مرفق اجراء ارسال الميل

PROCEDURE sendEmail(smtp_server  VARCHAR2,
                                     from_userid  VARCHAR2,
                                     to_userid    VARCHAR2,
                                     subject      VARCHAR2,
                                     body         VARCHAR2,
                                     from_name    VARCHAR2 := NULL,
                                     to_name      VARCHAR2 := NULL,
                                     content_type VARCHAR2 := NULL)
IS
 new_line VARCHAR2(2) := CHR(13);
 c utl_smtp.connection;
 from_domain VARCHAR2(200) := SUBSTR(from_userid,INSTR(from_userid,'@')+1);
 PROCEDURE header(name VARCHAR2, value VARCHAR2) IS
 BEGIN utl_smtp.write_data(c, name || ': ' || value || new_line );--|| utl_tcp.CRLF);
 END;
BEGIN c := utl_smtp.open_connection( smtp_server );
 utl_smtp.helo(c, from_domain );
 utl_smtp.mail(c, from_userid );
 utl_smtp.rcpt(c, to_userid );
 utl_smtp.open_data©;
 header('From','"'||NVL(from_name,from_userid)||'" <'||from_userid||'>');
 header('To','"'||NVL(to_name,to_userid)||'" <'||to_userid||'>');
 header('Subject', subject );
 header('Content-Type', NVL(content_type,'text/plain'));
 utl_smtp.write_data(c, new_line || body );
 utl_smtp.close_data©;
 utl_smtp.quit©;
EXCEPTION
 WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
   utl_smtp.quit©;
   --raise_application_error(-20199,'Error sending mail: ' || sqlerrm);
END;

تم تعديل 24 نوفمبر 200817 سنة بواسطة msayed.evara