السلام عليكم وحممة الله وبركاته




انا اريد انشاء شاشة لارسال رسالة الى بريد الكتروني


في الشاشة


من

الى

الموضوع

الرسالة

استطيع ان ارسل لشخص او مجموعة اشخاص


ارجووووووووو المساعدة

تم تعديل 27 أكتوبر 200916 سنة بواسطة the past

اتمنى على الاعضاء والمشرفين تزويدنا بالشاشة والكود نظرا لاني انا كمان محتاجها وهي موجودة على الموقع ولكن لا تعمل على اخر نسخة وشكرا

معقولة لايوجد حل



ارجوووووووووووو المساعدة

اليك هذا المثال عسى ان ينفعك

المرفق موجود الآن

SEND_EMAIL.rar

شكرا على مجهودك


ولكن يا اخي جربنا هذه الشاشة في مشاركات سابقة ولم تعمل

وكمان مش الشاشة المطلوبة

ارجووووووووووو المساعدة

في انشاء هذه الشاشة

CREATE OR REPLACE FUNCTION SEND_MAIL
(pIssuer IN VARCHAR2,
pReceiver IN VARCHAR2,
pSender IN VARCHAR2,
pSubject IN VARCHAR2,
pMessage IN VARCHAR2) RETURN VARCHAR2 IS

c utl_smtp.connection;
respuesta utl_smtp.reply;
pServer VARCHAR2(50) := 'SERVER';

BEGIN

c := utl_smtp.open_connection(pServer);
RECPECT := utl_smtp.helo(c, pServer);

تشغيل البريد المرسل
RECPECT := utl_smtp.mail(c, pSender);

بدء الاستقبال
RECPECT := utl_smtp.rcpt(c, pReceiver);

RECPECT := utl_smtp.open_data(c);
-- كتابة الايميل
utl_smtp.write_data(c, 'From: ' || pIssuer || utl_tcp.CRLF);
utl_smtp.write_data(c, 'To: ' || pReceiver || utl_tcp.CRLF);
--كتابة الموضوع
utl_smtp.write_data(c, 'Subject: ' || pSubject || utl_tcp.CRLF);
-- كتابة النص
utl_smtp.write_data(c, utl_tcp.CRLF || pMessage);
utl_smtp.write_data(c, utl_tcp.CRLF || '.');

RECPECT := utl_smtp.close_data(c);

RECPECT := utl_smtp.quit(c);

RETURN '0';

EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
utl_smtp.quit(c);
RETURN sqlerrm;
end;