برنامج Intranet Mail للمنشآت الصغيرة

جزاك الله خير ، فكرة متميزة وجاري الإطلاع والتجربة وإلى الأمام .

تحياتي

وإياك أخي dbprog .. وننتظر رأيك بعد التجربة

يعطيك العافية أخي الكريم مجهود تشكر عليه سوف نجرب ونعطيك الرأي إن شاء الله ...

أخي الكريم koao

بعد التجربة على الجهاز طبعاً وليس الشبكة اقول لك فعلاً إبداع في قمة الروعة بارك الله لك في علمك وعملك أخي الكريم ..

البرنامج شغال 100000%

إلى الأمام دائماً

وإياك أخي أبو رهف .. وأسأل الله أن يجمعنا وأياك ومن يقرأ بدار كرامته

مشاركة مميزة أخ koao وفقك الله

السلام عليكم

عمل رائع وفكرة جميلة يمكن تطويرها من أحد الأعضاء المتميزين ولكن قبل ذلك لي استفسار وهو لماذا حددت نوع المرفقات ولم تتركها مفتوحة لارفاق أي نوع من الملفات؟

والاستفسار الثاني لماذا لا يظهر اسم الراسل في مربع

From

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

على أية حال فكرة جميلة ورائعة ودعوات من القلب بالتوفيق.

عندي شبكة منزلية استخدم جزء منها للعمل.. اعدك بالتجربة بامانة عليها وابداء الراي

بارك الله في على جهودك وبالتوفيق

كله تمام اخي الكريم بعد التجربة..

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

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

تحياتي

وإياك أخي mrnooo2000 .. وشاكر لك مرورك الكريم

أخي team2000 أشكر لك كلماتك الجميلة .. وهنا ردي على ملاحظاتك بالتفصيل

اقتباس

لماذا حددت نوع المرفقات ولم تتركها مفتوحة لارفاق أي نوع من الملفات؟

ليس لسبب إلا لإعطاء أكبر كم من الأكواد التي يستفيد منها من يجرب البرنامج .. ولك أن تزيل الكود المسبب لذلك

اقتباس

لماذا لا يظهر اسم الراسل في مربع

From

لم يظهر لأنك فتحت نموذج New Message من نافذة الأكسيس .. أي لم تبدأ بنموذج Log In .. ولم تسجل بيانات الدخول .. ولم يعطى المتغير الذي ينقل الإسم قيمة.

وفكرتك الكريمة للتطوير .. نتقبلها ونتمنى من أحد الأعضاء أن يطورها.

مشرفنا وحبيبنا وأستاذنا .. همام أبو عرقوب .. شرف لي ردك في موضوعي .. وكلامتك المحفزة

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

وبالنسبة لتغيير إسم الملف لـ 1 فهذا شئ داخل مجلد المشاركة فقط ولكن لو فتح المدير الرسالة وحمل الملف إلى جهازه فستجد ان الملف عاد لـ (خامس علامات) ... ولذلك عملت حقلين في جدول Messages الأول حقل إسم الملف الأصلي والثاني حقل إسم الملف في مجلد المشاركة .. والسبب كما تفضلت لأمنع تعارض الأسماء ورغم ذلك لا أريد أن أفقد إسم الملف الأصلي.

اقتباس

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

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

أما طريقتك التي ذكرتها .. فلم أجربها ولكن قد يفتح نفس النسخة أكثر من مستخدم عن طريق الإختصار الذي عنده ... وصراحة لا أعرف إذا يكون هناك مشكلة أم لا.

******************

ولقد إكتشفت خطأ صغير في كود النموذج New Messages في حدث زر إرسال الرسالة .. فلقد كان هكذا

Dim sFolderPath As String
	sFolderPath = Nz(DLookup("[Shared_Folder_Path]", "Settings", "[Id] = 1"), "")
	If Nz(Me!Attach, "") <> "" And sFolderPath = "" Then
		If MsgBox("The Shared Folder has not been set. Therefore, the attachment can " & _
				"not be added." & vbCrLf & "Please, inform the administrator about it." & _
				vbCrLf & vbCrLf & "However, do you want to send the message without " & _
				"attachment?", vbYesNo + vbExclamation, "IntranetMail") = vbNo Then Exit Sub
	End If
	Dim fs As Object
	Set fs = CreateObject("Scripting.FileSystemObject")
	Dim FileCopied As Boolean
	Dim c As Integer
	Dim MyDB As DAO.Database
	Dim AddMsg As DAO.Recordset
	Dim sFileName, sFilePath As String
	Set MyDB = CurrentDb()
	Set AddMsg = MyDB.OpenRecordset("Messages", DB_OPEN_DYNASET)
	sFileName = CStr(Nz(DMax("[Msg_SAttName]", "Messages"), 0) + 1)
	For c = 0 To Me!ToList.ListCount - 1
		AddMsg.AddNew
		AddMsg!Msg_From = Me!FromTxt
		AddMsg!Msg_To = Me!ToList.ItemData(c)
		AddMsg!Msg_Subject = Me!MsgSubject
		AddMsg!Msg_Message = Me!MsgBody
		AddMsg!Msg_Date = Format(Date, "dd/mm/yy")
		AddMsg!Msg_Time = Format(Now(), "hh:nn")
		If Nz(Me!Attach, "") <> "" Then

الخطأ في اخر سطر كان يجب أن يكون كالتالي (طبعا هذا نصف كود الحدث والسطر الذي فيه الخطأ ليس بآخر الكود)

If Nz(Me!Attach, "") <> "" And sFolderPath <> "" Then

ونأسف على الخطأ المطبعي .. ودمتم سالمين

وعليكــم السـلام ورحمة الله وبركاتـه..

سلمت يداك اخي العزيز koao مثال رائع وجميل وممكن تطوير الفكرة لنظام بريد ومتابعة ..

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

اخوك ابو عنان ..

الشكر موصول لك أخي أبوعنان .. لتشريفك موضوعي ودعمك لي بردك الجميل.

السلام عليكم

مشكور اخي على البرنامج الرائع افادني كثيرا ....

سأقوم بتجربته في العمل اذا سمحت لي بعد تعريب الواجهة؟؟؟

وعليكم السلام اخي w1w1w1 .. وحلال عليك البرنامج .. وعلى كل مسلم .. جمعنا الله وإياكم ووالدينا في الفردوس الأعلى.

السلام عليكم البرنامج صغير ورائع واستخدامه سهل هل من اضافه امكانية التنبيه عند ورود رساله ؟؟؟

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

عمل جميل ورائع

أخي wail_brg أشكر لك كلامك الجميل

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

في البرنامج أضفت حقل في جدول Settings لتخزين قيمة TimerInterval لعداد الوقت الموجود في نموذج Inbox وقيمته تكون بألف من الثانية .. أي الدقيقة تساوي 60000 MilliSeconds ... وعند كل دقيقة يختبر البرنامج وجود رسائل جديدة ويشعر المستخدم بذلك

وطريقة الإشعار وكنوع من التغيير والتفنن أضفت وحدة نمطية بإسم AssistantBalloon وظيفتها إشعارك بمساعد الأوفس المعروف وهو الرسوم المتحركة التي تظهر لك الرسائل في برامج الأوفيس عوضا عن الرسالة العادية ... طبعا لا يظهر مساعد الاوفيس إذا كان معطل ولتفعيله .. أنقر على قائمة تعليمات من نافذة برنامج الأكسيس .. ثم إختر "إظهار مساعد Office" ... وبعد عمل ذلك سيقوم برنامجنا بإشعار بورود رسالة جديدة من خلاله ... عموما حتى ولو لم تعجبك فكرة مساعد الأوفيس .. ولم تفعله .. فستظهر لك التنبيهات برسالة عادية فلا تقلق

المشكلة التي أخرتني تتضح عند فهم فكرة التبيه ... فهناك ثلاث حالات

1 - أن يكون نموذج Inbox هو النموذج النشط ..... وفي هذه الحاله ستظهر رسالة التنبيه من دون مشاكل

2 - أن يكون برنامج آخر غير الأكسيس هو النشط كالإكسبلورر أو الوورد .... فسيكون برنامجنا غير نشط ولكن ستظهر الرسالة خلف البرنامج النشط من دون لا تظهر للمستخدم وهذه مشكلة .. ولحل المشكلة وبعد البحث والتدقيق وجدت هذا الكود

AppActivate "Microsoft Access"

والذي كما هو واضح ينشط برنامج الأكسيس فوضعته في حدث عداد الوقت وإنحلت المشكلة

3 - أن يكون برنامج الأكسيس الذي به النموذج Inbox غي نشط .. ومشروع أكسيس آخر مفتوح هو النشط .. وهذا الذي عذبني ويعطيني رسالة خطأ ... وبحثت كثيرا لأنقل التنشيط من مشروع أكسيس مفتوح إلى آخر غير نشط .. من دون جدوى ... فكل أوامر الكائن النشط في الأكسيس هي للقراءة فقط ... ولا أستطيع إسناد قيمة له ...

فاتمنى من أهل الخبرة أن يساعدوننا في هذه المسألة ... عموما لحل المشكلة وضعت الكود التالي

On Error Resume Next

في أعلى كود الوحدة النمطية الخاصة بمساعد الأوفيس .. وأنا أعلم أن هذا حيلة العاجز ... ولكن قلة الخبرة هي السبب

عموما أليك البرنامج في المرفقات

koaoNewMessageAllert.zip

جزاك الله كل خير تم التحميل

وسيتم التجربه وابداء الرأى

تمنيتى لك بالتوفيق +1 مقدما

اخواني الكرام

ظهر لدي هذا الخطأ عند ارسال الرسالة كما بالصورة

ارجو توضيح المشكلة

وبارك الله فيكم

الاخ malik2010

بعد التحية والاحترام

اعتقد بان مشكلتك هي في عدم وجود Microsoft office 12 object library

وحل المشكلة كما اوضح صاحب الموضوع مشكورا هي:

اقتباس

ملحوظة : قد تظهر لك رسالة خطأ عند بداية البرنامج .. بحكم أني إستخدمت كود لإظهار مربع الفتح التقليدي للأوفيس فكان لزاما أن أضيف مكتبة مرجعية "References" وهي Microsoft office 12 object library"" ولكن لاحظت وعند تجربة البرنامج على جهاز آخر ظهر الخطأ بسبب أن المكتبة بهذا الإصدار (12) ليست موجودة .. والموجود هو الإصدار (11)

ولحل المشكلة شغل البرنامج ثم أضغط على مفتاحي Alt+F11 معا لتظهر نافذة تحرير الأكواد ثم أنقر على القائمة Tools وانقر على References ستظهر لك نافذة أزل الصح عن Microsoft office 12 object library"" ثم إبحث مثيلتها بالقائمة ولكن بإصدار (11) ثم ضع عليها صح ثم موافق.

---------------

او بامكانك الحصول على تلك المكتبة من موقع مايكروسوفت اذا رغبت

http://www.microsoft.com/downloads/en/details.aspx?familyid=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=en

او

http://www.microsoft.com/downloads/details.aspx?familyid=941b3470-3ae9-4aee-8f43-c6bb74cd1466&displaylang=ar

واتوقع بان الحصول على تلك المكتبة هو الاختيار الافضل لانك ستحتاج لها في برامج اخرى ايضا

تحياتي

بارك الله فيك اخي Enjoy

كلة تمام والمشكلة كانت في المكتبة صحيح +1

اخر العزيز هناك ملاحظة مهمة

وهي عند ارفق ملفات pdf لا يقوم البرنامج بارفاقها

ارجو التكرم باضافته لتحميل مثل هذا النوع من الملفات ( ضروري جدا)

وجعله الله في ميزان حسناتك

للرفع

اقتباس

اخي العزيز هناك ملاحظة مهمة

وهي عند ارفق ملفات pdf لا يقوم البرنامج بارفاقها

ارجو التكرم باضافته لتحميل مثل هذا النوع من الملفات ( ضروري جدا)

للرفع

شغل مبارك وجهد تشكر عليه وأفكار رائعة وإلى الأمام ...

فيه بعض المقترحات :

1- لو يكون فيه رسائل تخبر المستخدم بورود رسالة .

2- لو أمكن أن يكون أرفاق أي ملف واي عدد من الملفات .

3- لو فيه خاصية او تقرير تخبر الأدمن بمن استلم الرسالة ومن لم يستلمها .. يعني هل تم قراءتها او لا

4- لو كان اسماء المستخجمين تقسم إلى مجموعات .... مثل مجموعة الإداريين .. مجموعة المدرسين ... وعند إرسال الرسالة ممكن نختار مجموعة أو مجموعات معينة وممكن نستشني منهم أي شخص ...

الأفكار كثيرة ... لكن هذا جهد منك مبارك وتشكر عليه .

بارك الله في علمك ونفع الله بك ...