أخواني الأفاضل
أرفق لكم 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('ssss@se.com.sa','mmmmmm@se.com.sa','text message','CRB-HDQ-MSG02') from dual;
السؤال يا أخوان كيف بإمكاني تنفيذ هذا الكود والتعامل معه من داخل الفورمز
حاولة عدة محاولات باءت بالفشل
واذا كان هنالك طريقة مثالية وافضل لإرسال ايميل من داخل الفورمز آمل ان تزودونا بها مشكورين
وشكراً للجميع[/color][/align][/size]
ملفات مرفقة
-
send_mail.txt 667بايت
778 عدد مرات التحميل
أعلى
