غلق وتحكم

رجاء الايضاح ، فلم افهم طلبك  :(

هل قصدك ، انه لديك في الاكسس زر لإرسال الايميل عن طريق الاوتلوك ، وتريد ان تجعل على هذا الزر باسورد؟

جعفر

جزاك الله خيرا على الرد اخى جعفر واليك بعض التوضيح

عندى فى العمل اكثر من موظف يمستخدم جهاز كمبيوتر واحد اريد طريقة تجعلنى انا الوحيد القادر على استعمال الاوت لوك2007 وارسال الايميلات فقط ولا اسمح للباقى لفعل ذلك باى طريقه او(هل يوجد برنامج مصمم بالاكسس يتحكم فى ايميل الاوت لوك يقوم مثلا بعمل غلق بباسورد للايميل)

ارجو ان اكون اوضحت اكثر

سلام أخي

اذا ما تريد احد يستعمل الاوتلوك بالمرّة ، فالموضوع سهل ،

فمثلا تغير اسم ملف الاوتلوك عندما لا تريد استعماله (او حتى تغيّر مكان Outlook.exe الى مجلد آخر) ، فلن يستطيع احد ان يفتحه :)

وللإستعمال ، تغير اسمه الى الطبيعي :)

وهذه الصور للتوضيح:

والكود

ومرفق برنامج MBD :)

وبالتوفيق

جعفر

Outlook_Rename.zip

اخى جعفر

شاكر جدا على المساعدة ولكن للاسف لم استطيع التطبيق فبرجاء مزيد من المساعدة ان امكن

عفوا ما قصدك في:

>ولكن للاسف لم استطيع التطبيق

رجاء ان تتفحل مجلد الاوفيس وتخبرني اين يوجد ملف Outlook.exe حيث انه يعتمد على اي نسخة من الافيس تستعملها.

جعفر

اعزرنى على التاخير اخى الكريم

استعمل اوفس 2007 وهذا هو المسار الذى قد غيرتة فى الكود بالفعل ولكن بدون جدوى وعدم استجابة

D:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE

فقد غيرت الاكواد...ثم جربت البرنامج وعند محاولة تشغيل الاوت لوك ..اجدة يعمل!!!!!

فما هى المشكلة؟

وجزاكم الله خيرا على الاهتمام

أخي أعتقد عندك خطأ في مسار ملف اﻻوتلوك،

فبدل D:/Program

يجب أن يكون C:/Program

جعفر

اخى نسخة الوندوز على الDوالمسار الذى اخبرتك بة صحيح

فهل من حل ؟

ولك جزيل الشكر

اخي العزيز

جرب هذا البرنامج ، بحيث تكبس على الزر لإختيار برنامج الاوتلوك ، وتظهر لك نافذة إختيار البرنامج ، قم بالبحث عن اوتلوك وأختاره ، فيظهر لك اسمه ومساره بعد ذلك.

ثم تختار زر تغيير الاسم (كما كان سابقا).

إن شاء الله يعمل لديك :)

وللعلم ، فإن كود فتح النافذه وإختيار الملف ، فهو مأخوذ من:

http://access.mvps.org/access/api/api0001.htm

جعفر

واذا لأي سبب لم يعمل البرنامج ، فهذا معناه ان هناك (نسخة اخرى) غير الاوتلوك الذي موجود في Program Files\Microsoft Office\Office12

فيجب عليك معرفته ، ثم استعمال البرنامج المرفق لمنع استعماله.

5.Outlook_Rename.zip

شكرا استاذى على الاهتمام والمساعدة الطيبة وجزاك الله خيرا

وجارى التجربة وابلاغك بالنتيجة+1

السلام عليكم

قد قمت بتجربة ماهو قد سبق للتحكم وايقاف الاوتلوك عن العمل واعادة تشغيلة مرة اخرى بلا جدوى ولم تنجح اى تجربة وللعلم انى حاولت على اكثر من جهاز واحد

هل من حل للتحكم فى الاوتلوك ؟

وللكل منى التحية والسلام

فى انتظار

اخي اسمح لي اطلب منك تجربة اخيرة:

انت قلت ان الاوتلوك عندك موجود في:

D:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE

رجاء اذهب الى الملف وغير اسمه الى:

D:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE2

ثم جرب ان تفتح الاوتلوك ، واخبرني بالنتيجة لوسمحت :)

شكرا

جعفر

السلام عليكم

استاذى واخى العزيز جعفر شكرا لك على المتابعة والاهتمام بموضوعى

عندما احاول تعير اسم الملف من OUTLOOK.EXE الى OUTLOOK.EXE2 يستحيل وتظهر رسالة

Cannot rename OUTLOOK: A file with the name you specified already exists.Specify a diferent filename

وبذلك فهمت ان اسم هذا الملف EXE2 موجود فقمت بالبحث عنه ثم قمت بحذفة وقمت بتغيير الاوتلوك الى exe2 بنجاح والفضل لله ثم لك يا استاذ جعفر وعند محاولة فتحه اول مرة لايعمل و يطلب اختيار برنامج لان الملف غير معروف ثم فى محاولة فتحه مرة اخرى بعد ذلك يقوم بعمل تسطيب جديد للاوتلوك ليصبح موجود ملفين اوتلوك.... ملف يعمل EXE +الاخر EXE2 الذى لا يعمل...وبذلك يستمر EXE فى العمل ولا يتم تغيير اسم الملف لان هناك ملف يسمى EXE2 ...فهل من حل فى تعديل للكود او اى حل اخر

ولك جزيل الشكر ووافر الاحترام

الحمدلله :)

نعمل تجربة أخرى لوسمحت:

ابحث عن الملف outlook.pst وكذلك حاول تغيير اﻻسم وحاول فتح اﻻوتلوك.

جعفر

السلام عليكم

اخى جعفر لم اجد ملف بالاسم الذى ذكرت ولكن وجدت ملف باسم OUTLOOK.EXE.MANIFEST فقمت بتغير اسمة ثم حاولت فتح الاوتلوك فاستحال فتحه الا اذا رجعت اسمه الاول وبذلك اكون قد نجحت بفضل الله ثم بفضل توجيهاتك وجزاك الله خيرا

تمت الاجابة

الحمدلله :)

في الواقع اخي ، انت من ساعد نفسه بنفسه ، وإنما كنت بحاجة إلى التوجيه :)

ارجو انك قد استخدمت البرنامج في هذا التغيير :)

وياريت تصلح المسار في البرنامج ثم ترفعه ، حتى يستفيد بقية اﻻعضاء كذلك :)

جعفر

السلام عليكم

احب ان اقول كلمة الشكر وهذا اقل شىء+1 ...واخبرك فعلا اننى استخدمت البرنامج الاول وقمت بتعديل طفيف جدا فى الكود فى الرنامج الاول وتم ارفاقه...كى يستفيد منه الاخوة فى المنتدى

اما الرنامج الثانى فاعتقد انة محتاج استاذ عبقرى مثلك ليتم العديل عليه لانه عند الدخول الى الملفات لايظهر الا امتدادات الEXE فقط

تحياتى لك وللجميع

اخى للاسف الشكل الجديد للمنتدى يجعلنى لا اعرف كيف ارفق الملف؟؟؟؟ فهل من مساعدة؟؟؟

حياك الله :)

اضغط الملف بواسطة zip او rar ثم ارفعه :)

ولك جزيل الشكر

جعفر

اخى انا لم احاول وتم الفشل لا ...بل الملف جاهز بصيغة rar ولكن لا اعرف كيف ارفعه .... لان المنتدى بشكل جديد

الله يعطيك الصحة والعافية إن شاء الله على هذا الجهد المشكور :)

طيب اكتب لي المعادلتين هنا وانا سارفع البرنامج إن شاء الله :)

جعفر

Option Compare Database

Private Sub cmd_Allow_Entry_Click()

On Error Resume Next

Dim OldName, NewName

OldName = "c:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE.MANIFEST2"

NewName = "c:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE.MANIFEST"

Name OldName As NewName

MsgBox "Now the Program CAN be used"

End Sub

Private Sub cmd_No_Entry_Click()

On Error Resume Next

Dim OldName, NewName

OldName = "c:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE.MANIFEST"

NewName = "c:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE.MANIFEST2"

Name OldName As NewName

MsgBox "Now the Program CANNOT be used"

End Sub