<div align=\"right\"></div>السلام عليكم ورحمة الله وبركاته

أخواني الأفاضل
أرفق لكم Function ممتاز يستخدم لإرسال إيميل لأي شخص من خلال قاعدة البيانات SQL وهو مجرب 100%

CREATE OR REPLACE function send_mail (sender IN VARCHAR2,recipient IN VARCHAR2,message IN VARCHAR2,mhost IN VARCHAR2) return number
IS
mailhost VARCHAR2(30) :='10.128.13.97'; 
mail_conn  utl_smtp.connection;
BEGIN mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.data(mail_conn, message);
utl_smtp.quit(mail_conn);
return(sqlcode);
EXCEPTION
WHEN OTHERS THEN return(sqlcode);
-- Handle the error
END;

هذا كود التنفيذ

select send_mail('[email protected]','[email protected]','text message','CRB-HDQ-MSG02') from dual;

السؤال يا أخوان كيف بإمكاني تنفيذ هذا الكود والتعامل معه من داخل الفورمز
حاولة عدة محاولات باءت بالفشل

واذا كان هنالك طريقة مثالية وافضل لإرسال ايميل من داخل الفورمز آمل ان تزودونا بها مشكورين

وشكراً للجميع[/color][/align][/size]

send_mail.txt

تنفيذ الـ function من دخل الـ form عن طرق Program Units تضيف عن طريقها function هذي اهي طريقة وضع الـ function على لـ form لكن ما أدري هل هي تضبط على الـ function اللي وضعنها هذي ولا لا ...؟؟
جربها وعطنا النتيجة .......

مشكور على ردك اخي AAAA والحقيقة بأني اعرف كيف اضع هذا الكود في الفورمز موضع التنفيذ
ولكن سؤالي عن كيفية الإستفادة منه واستدعاءه على الشاشة المصممة لدي

آمل إذا كان لديك إجابة أوضح عن كيفية تنفيذ هذا الكود من خلال إحدى شاشات الفورمز

وشكراً لك

thanks

declare
hh number;
begin
hh:=send_mail ;
end;



inside cmd button
for ex
when button press



more info
[email protected]

للأسف تعطي الخطأ التالي :
Ora-29540
أرجو المساعدة
[email protected]

جاري التجربة ... وشكرا

الأخ الفاضل
مشكور جهدك المميز
ولكن لم ينج عندي ويعطي رسائل خطأ إتصال
وبحثت في المنتدي وفي غيره عن سبب مشكلة utl_smtp
وأتضح أنها بسبب الجافا ولم أعثر علي حل
فهل ممكن تساعدني
[email protected]

فتح الله عليك ونفع بك