اخواني الاعزاء أريد منكم المساعدة

اريد احد يكون جرب يرسل ايميل من الفورم تبعه أو يكون معاه معلومات عن ارسال الايميل

اريد طريقة كاملة من الاعدادات لل package حتي التنفيذ
بااستخدام utl_mail

مثلا الخطوة الاولي اعداد الصلاحيات
الخطوة الثانية تنفيذ بكج معينة
الخطوة الثالثة تنفيذ اجراء معين

ولو في مثال عملي في فورم مثلا بيكون أفضل


ولكم جزيل الشكر وربنا يدخله ويدخل والديه الجنه الي بيساعدني لاني محتاجه ضروري

DECLARE


OutlookApp OLE2.OBJ_TYPE;
NameSpace OLE2.OBJ_TYPE;
MailItem OLE2.OBJ_TYPE;
OLEPARAM OLE2.LIST_TYPE;
Send OLE2.OBJ_TYPE;
Attachments OLE2.OBJ_TYPE;
Attachment_dummy OLE2.OBJ_TYPE;
var1 varchar2(100);


Begin OutlookApp := OLE2.CREATE_OBJ('Outlook.Application');


OLEPARAM := OLE2.CREATE_ARGLIST;


OLE2.ADD_ARG(OLEPARAM,'MAPI');

NameSpace := OLE2.INVOKE_OBJ(OutlookApp,'GetNameSpace',OLEPARAM);

OLE2.DESTROY_ARGLIST(OLEPARAM);
OLEPARAM := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(OLEPARAM,0);
MailItem := OLE2.INVOKE_OBJ(OutlookApp,'CreateItem',OLEPARAM);
OLE2.DESTROY_ARGLIST(OLEPARAM);


OLE2.SET_PROPERTY(MailItem,'From',:EMAIL_FROM);
OLE2.SET_PROPERTY(MailItem,'To',:EMAIL_to);
OLE2.SET_PROPERTY(MailItem,'Subject',:subject);
OLE2.SET_PROPERTY(MailItem,'Body',:INBOX_TEXT);

if :attach_file is not null then

--add an attachment
Attachments := OLE2.GET_OBJ_PROPERTY(MailItem,'Attachments');
OLEPARAM := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(OLEPARAM,:ATTACH_FILE);
Attachment_dummy := OLE2.INVOKE_OBJ(Attachments,'add',OLEPARAM);
OLE2.DESTROY_ARGLIST(OLEPARAM);


Send := OLE2.INVOKE_OBJ(MailItem,'Send');

--destroy objects
OLE2.RELEASE_OBJ(MailItem);
OLE2.RELEASE_OBJ(NameSpace);
OLE2.RELEASE_OBJ(OutlookApp);


else
Send := OLE2.INVOKE_OBJ(MailItem,'Send');

--destroy objects
OLE2.RELEASE_OBJ(MailItem);
OLE2.RELEASE_OBJ(NameSpace);
OLE2.RELEASE_OBJ(OutlookApp);

end if;

END;

هذا الكود منقول من احد الاعضاء جزاه الله كل خير وجربته باستخدام OUTLOOK وقد قمت بتنفيذه بنجاح

جزاك الله خير اخي العزيز وبارك الله فيك

ولكن انت استخدمت استدعاء الـ outlook

معاك طريقة من اوراكل نفسها باستخدام الـ utl_mail package

لا والله اخوي ماجربتها

انا عملتها بهاي الطريقة لأنو العمل طلب مني هاذي الطريقة...

بس اذا بتلاقيها ابعتها الي الله يجزيك الخير

طيب ممكن تضمني عملك هذا في فورم ولو فيها ثقالة عليك
وجزاك الله خير