كيف يتم إرسال بريد عن طريق البرنامج؟؟؟؟

اخواني ارجوكم سرعه الرد

وما ادري هل الاسئله صعبه او مستحيلت الحل

او طريقه طرحي للسؤال مو واضحه

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

مرحب اخوي شبيه الريح

بالنسبة لرسالة مسج عن طريق الجوال راجع الوصلة هذي

http://www.arabteam2000.com/vb/showthread....&threadid=15777

النسخ الاحتياطي راجع الوصلة هذي

http://www.arabteam2000.com/vb/showthread....&threadid=15777

وانا امس انتهيت من بحث بالشي هذا

طبعا كتابة نسخ الاصل من كتاب اوراكل

اذا كنت تبغاها ماعني مانع مكون من 30 صفحه يتكلم فقط عن الباك اب

شكر لك اخي Mo7B

على ردك ومشاركتك .

وبالنسبه لسؤال المسج للجوال

انا سوف احاول فيها وارد لك واذا كان في احد مجربها ياليت يخبرنا.

اما بالنسبه للنسخ الاحطتياطي

فالرابط الذي وضعته نفس الرابط الذي وضعته لمسج الجوال ( ارجو تعديله )

وبالنسبه إلى البحث انت طيب واحنى نستاهل ;);)

=========

اخواني انتظر اجابه شافيه لجميع اسئلتي

شاكر ومقدرا

اخوكم

شبيــــــه الريح

السلام عليكم

أخي العزيز بالنسبةلإرسال بريد إلكتروني عن طريق البرنامج يمكن ذلك بعدة طرق منها :

1- إرسال رسالة E-mail عن طريق الفورم بإستخدام حزمة برمجية package تقوم بعمل ربط بين النموذج والـــ Microsoft Outlook أو MS Exchange server .

ان شاء الله راح اكملك التفاصيل في اقرب فرصة ....:rolleyes:

وعليكم السلام

الف شكر لك اخي العزيز محمد الشنقيطي

على ردك الطيب .

ولكن طلبي هو عمل ارسال رساله عن طريق البرنامج بشكل الكتروني يعني بدون فتح شاشه الاوتلوك.

يعني مثل اذا تأخر في سداد القسط يتم ارسال رساله الكترونيه إلى البريد

حتى بدون ان يعلم الموضف المختص ( يعني بشكل مخفي)

ارجو ان تكون المعلومه قد وصلت

وانا بأنتظار ردك

وبأنتظار حل باقي الاسئله

شاكرا ومقدرا

اخوك

شبيـــــــه الريح

sbeh_alreah@hotmail.com

السلام عليكم

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

الذي تراه مناسبا لذلك سوف اعطيك الكود وتستخدمه بالطريقة التي تراها انت مناسبة ايضا يجب عليك عمل إعداد للبرنامج البريد الذي سوف تستخدمه لإرسال الرسائل وصراحة انا ماجربت الموضوع إلا مع Microsoft Outlook

طبعا الكود عبارة عن حزمة او package :-

Package Specification :-

PACKAGE Mail_pkg IS

  session OLE2.OBJ_TYPE; /* OLE object handle */ 

args OLE2.LIST_TYPE; /* handle to OLE argument list */ 



procedure logon( Profile IN varchar2 default NULL ); 



procedure logoff; 



procedure send( Recp IN varchar2, 

Subject IN varchar2, 

Text IN varchar2, 

Attch IN varchar2 

); 

END;

:-Package Body

PACKAGE BODY Mail_pkg  IS

  session_outbox OLE2.OBJ_TYPE; 

session_outbox_messages OLE2.OBJ_TYPE; 

message1 OLE2.OBJ_TYPE; 

msg_recp OLE2.OBJ_TYPE; 

recipient OLE2.OBJ_TYPE; 

msg_attch OLE2.OBJ_TYPE; 

attachment OLE2.OBJ_TYPE; 





procedure logon( Profile IN varchar2 default NULL )is 

Begin 



session := ole2.create_obj('mapi.session'); 

/* create the session object */ 

args := ole2.create_arglist; 



ole2.add_arg(args,Profile);/* Specify a valid profile name */ 

ole2.invoke(session,'Logon',args); 

/* to avoid the logon dialog box */ 



ole2.destroy_arglist(args); 



End; 





procedure logoff is 

Begin 



ole2.invoke(session,'Logoff'); 

/* Logoff the session and deallocate the */ 





/* resources for all the OLE objects */ 



ole2.release_obj(session); 

ole2.release_obj(session_outbox); 

ole2.release_obj(session_outbox_messages); 

ole2.release_obj(message1); 

ole2.release_obj(msg_recp); 

ole2.release_obj(recipient); 

ole2.release_obj(msg_attch); 

ole2.release_obj(attachment); 



End; 



procedure send( Recp IN varchar2, 

Subject IN varchar2, 

Text IN varchar2, 

Attch IN varchar2 

)is 

Begin 



/* Add a new object message1 to the outbox */ 



session_outbox := ole2.get_obj_property(session,'outbox'); 

session_outbox_messages := 

ole2.get_obj_property(session_outbox,'messages'); 

message1 := ole2.invoke_obj(session_outbox_messages,'Add'); 



ole2.set_property(message1,'subject',Subject); 

ole2.set_property(message1,'text',Text); 



/* Add a recipient object to the message1.Recipients collection 

*/ 



msg_recp := ole2.get_obj_property(message1,'Recipients'); 

recipient := ole2.invoke_obj(msg_recp,'add'); 



ole2.set_property(recipient,'name',Recp); 

ole2.set_property(recipient,'type',1); 

ole2.invoke(recipient,'resolve'); 



/* Add an attachment object to the message1.Attachments 

collection */ 



msg_attch := ole2.get_obj_property(message1,'Attachments'); 

attachment := ole2.invoke_obj(msg_attch,'add'); 



ole2.set_property(attachment,'name',Attch); 

ole2.set_property(attachment,'position',0); 

ole2.set_property(attachment,'type',1); /* 1 => MAPI 

File Data */ 

ole2.set_property(attachment,'source',Attch); 



/* Read the attachment from the file */ 



args := ole2.create_arglist; 

ole2.add_arg(args,Attch); 

ole2.invoke(attachment,'ReadFromFile',args); 

ole2.destroy_arglist(args); 



args := ole2.create_arglist; 

ole2.add_arg(args,1); /* 1 => save copy */ 

ole2.add_arg(args,0); /* 0 => no dialog */ 



/* Send the message without any dialog box, saving a copy in the 

Outbox */ 



ole2.invoke(message1,'Send',args); 

ole2.destroy_arglist(args); 

message('Message successfully sent'); 



End; 



END;

وايضا هذا النموذج الذي يقوم بإرسال الرسائل جرب واعطينا النتيجة ....

;)أخوك محمد الشنقيطي

mail_work.rar

(مشاركة فارغة)

اخي العزيز محمد

اشكرك مره اخرى على ردك الجميل

بس الصراحه انا ما اعرف استخدم الPACKAGE وبعد تنفيذ الكود الذي كتبته انت في ال SQl لم يقبله وهذى هو الخطاء الذي اخبرني به

==============

SP2-0042: أمر بداية "PACKAGE Ma..." غير معروف- تم تجاهل باقي السطر

==============

على فكره اصدار ال database عندي هو 8.1.5

ياليت اخي الكريم توضحلي شوي

شاكرا ومقدرا

اخوك

شبيـــــه الريح

وين الشباب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

:(:(:(:(:(:(:(

up