[ تمت الإجابة ]ارسل تقرير بالايميل الى المختصين حسب القيمة! Sendobject

اخي الفاضل فخر الإمارات

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

أولا : حياك الله بيننا دائما وابدا وأهل الإمارات على العين والرأس ولهم منا كل الإحترام والتقدير

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

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

سؤال : فتح تقرير في نموذج - موجود في القسم الفرعي - ارشيف النماذج والنماذج الفرعية

/index.php?showtopic=145199

سؤال : عن كيفية استخدام دالة IF فيما يخص دخول الموظفين - موجود في القسم الفرعي - ارشيف الوحدات النمطية

/index.php?showtopic=136418

سؤال : المشكله في الشبكه ام اكسيس - موجود في المنتدى العام - وقد تم الإجابة عليك من الأستاذ Enjoy ( ابو عبدالله )

/index.php?showtopic=125539

سؤال : اريد مساعد في ضبظ زر السكانز؟ - قمت بوضع السؤال حوالي الساعة 1 ظهرا Apr 16 2007, 12:50 PM ثم قمت بإلغاءه الساعة حوالي الساعة 9 مساء Apr 16 2007, 09:20 PM

/index.php?showtopic=123872

سؤال : كيف نكمل من بعد التكبير الاكسيس, Access to SQL - موجود في المنتدى العام - لو قمت بالبحث في المنتدى لوجدت ان الأعضاء قد وضعوا جميع الحلول لمثل هذا حيث لا يمكن شرح العملية نظري ولكن لابد ان يرافقها عملي مع بعض البرامج المساعدة لذلك .

/index.php?showtopic=124164

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

/index.php?showtopic=131745

عموما حصل خير ان شاء الله واتمنى ان تكون معنا على طول ونأتي للإجابة على سؤالك فيما يخص ارسال التقرير بصيغة Snapshot عبر البريد

1. ننشيء جدول ونضع به حقل واحد خاص بالبريد ( كما في المثال )

2. ننشىء نموذج فارغ ونضع به حقل مربع تحرير وسرد ونجعل مصدر بياناته هو حقل البريد في الجدول حتى يعرض لنا اسماء البريد عند الإختيار منه .

3. الطبع يوجد لدينا تقرير مجهز من قبل لهذا نضع زرين أمر الأول لمعاينة التقرير والثاني لإرسال التقرير بصيغة Snapshot ونضع به هذا الكود

Private Sub send_Click()
Dim strName As String
Dim strSubject As String
strName = Me.ComboBoxEmail.Column(1)
strSubject = "شكر وتقدير"
DoCmd.SendObject acReport, "Report", "SnapshotFormat(*.snp)", strName, "", "", strSubject, "", True, ""
End Sub

شرح الكود :

السطر الأول : قمنا بالتصريح عن عنوان البريد الذي نريد ان نضعه او نختاره من مربع التحرير والسرد في النموذج بـ strName

السطر الثاني : قمنا بالتصريح عن عنوان الموضوع الذي سيتم وضعه في البريد بـ strSubject

السطر الثالث : قمنا بإسناد عنوان البريد وجعلناه يساوي القيمة المختاره من مربع التحرير والسرد في النموذج . وطبعا موجود في مربع التحرير والسرد عناوين البريد التالية www@email و mmm@email و sss@email ( قم بتغييرها من الجدول بعناوين صحيحة - ولا تغيرها من مربع التحرير والسرد )

السطر الرابع : جعلنا الموضوع يساوي كلمة " شكر وتقدير " قم بتغييرها الى اي شيء تريد .

السطر الخامس : امر ارسال التقرير المسمى Report قم بتغييره حسب اسم التقرير لديك ثم الصيغة وهي SnapshotFormat ثم اسم عنوان البريد strName المصرح عنه سابقا وسيأخذ القيمة من مربع التحرير والسرد ثم عنوان الموضوع strSubject لهذا اترك هذين العبارتين كما هما ولا تغير فيمهما شيء لأنه تم التصريح عنها وفي آخر الكود نجد كلمة True وهي خاصة بفتح برنامج البريد بعد ضغط زر الأمر واخذ كافة المعلومات من الأمر فإن رغبت ان لا يتم فتح برنامج البريد فضع العبارة على False وسوف يتم ارسال البريد بدون فتح البريد اذا كان قد تم اعداد برنامج البريد بالإعدادات الصحيحة للإرسال .

zaSendReport.rar

السلام عليكم ورحمة الله وبركاتة :salam:

اولاً..أعتذر من الموقف المحرج مني وتقبلوا مني فائق الاحترام. :unsure:

ثانياً..إن شاء الله ارفق كل مشاركتي بملف المراد وتوضيح.

ثالثاً..اتعهد للمنتدى بالمشاركة الدائمة والمستمرة.

"القنص بركادة .... والتسرع جهاله"

نرجع لهذا المثال..

اولاً.. شكرك جزيل الشكر لتاح الفرصة من قبل الدكتورة: زهرة :cash:

ووسام لي ان اجد حل من سعادة الدكتورة:زهرة

لقد عرفت خطائي في المعادلة "كود".

لاني لا اجيد المعرفة الكاملة الا من الامثلة المتاحة في المنتدى.

ثانياً.. اذا اردنا ان نجعل "body message" عبارة عن التقرير المراد تبينة

وليسى ارسال الملف "المرافق" " "Attached.

طبعا التقرير عبارة عن رسالة وجدول.

مع فائق الاحترام،

اخي الفاضل فخر الإمارات

لقد كان طلبك ارسال التقرير بصيغة SnapshotFormat والآن اختلف رأيك وتريد وضع التقرير يكون في نص الرسالة .

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

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

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

zaSendReportUP.rar

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

أستاذتي زهرة..

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

والفكرتين دخلن في مشروعي.

مع فائق الاحترام،

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة