إنتقال للمحتوى

  • تسجيل الدخول عبر الفيس بوك تسجيل الدخول عبر تويتر Log In with LinkedIn Log In with Google      تسجيل دخول    
  • إنشاء حساب

صورة
- - - - -

طريقة ارسال ايميل من أوراكل


4 رد (ردود) على هذا الموضوع

#1 faisal_mushal

faisal_mushal

    مشترك

  • الأعضــاء
  • 113 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 28 June 2008 - 08:14 AM

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

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

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

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

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


ولكم جزيل الشكر وربنا يدخله ويدخل والديه الجنه الي بيساعدني لاني محتاجه ضروري
[Quraan] إن الله يحب احدكم اذا عمل عملاً أن يتقنه [/Quraan]


faisal_mushal@hotmail.com

#2 MTSHAJALI

MTSHAJALI

    عضو مميز

  • الأعضــاء
  • 683 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 28 June 2008 - 08:22 AM

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 وقد قمت بتنفيذه بنجاح

ما اوقع على شيء ما اعرفه


#3 faisal_mushal

faisal_mushal

    مشترك

  • الأعضــاء
  • 113 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 28 June 2008 - 08:32 AM

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

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

معاك طريقة من اوراكل نفسها باستخدام الـ utl_mail package
[Quraan] إن الله يحب احدكم اذا عمل عملاً أن يتقنه [/Quraan]


faisal_mushal@hotmail.com

#4 MTSHAJALI

MTSHAJALI

    عضو مميز

  • الأعضــاء
  • 683 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 28 June 2008 - 09:15 AM

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

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

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

ما اوقع على شيء ما اعرفه


#5 faisal_mushal

faisal_mushal

    مشترك

  • الأعضــاء
  • 113 مشاركة
  • البـلـد: Country Flag

تاريخ المشاركة 28 June 2008 - 09:54 AM

طيب ممكن تضمني عملك هذا في فورم ولو فيها ثقالة عليك
وجزاك الله خير
[Quraan] إن الله يحب احدكم اذا عمل عملاً أن يتقنه [/Quraan]


faisal_mushal@hotmail.com