السلام عليكم ورحمة الله وبركاته
كما هو موضح في عنوان الموضوع أنني اريد ادراج تقرير داخل جسم Body البريد نفسه
وليس مجرد Attachment في الميل
حيث أنه افضل من حيث سرعة استجابة قاريء البريد .
ولا اخفي عليكم انني قمت البحث عن هذه الامكانية ولم اصل لها
ولكم جزيل الشكر
--------------------------------------------------------
السلام عليكم ورحمة الله وبركاته
لو الموضوع مستحيل ، الرجاء من مشرفي وخبراء المنتدى ابلاغي حتى اتوقف عن المحاولة والبحث .
ولكم جزيل الشكر والعرفان
هاني ابو عمر كتب:السلام عليكم ورحمة الله وبركاته
لو الموضوع مستحيل ، الرجاء من مشرفي وخبراء المنتدى ابلاغي حتى اتوقف عن المحاولة والبحث .
ولكم جزيل الشكر والعرفان
ممكن ذلك تابع هذه الرابط
تحياتي ..
افتراحي هو التالي
تصدير البيانات من التقرير على شكل نص
يتم الدخول الى امر الحافظة ونسخ البيانات ثم لصقها في جسم البريد
اما ان يتم وضع شي اخر داخل البريد غير المرفق ونوع ملف غير النص لا اعتقد..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
محمد أبو عدنان كتب:
اشكرك جدا يا استاذنا العزيز همام
بس انا مش متعود في منتدنا على عدم امكانية عمل شيء
وبالاخص لو بجد مطلوب لأن عندما يكون المحتوى في جسم البريد نفسه اسرع وقع
و على العموم انا هستمر في البحث حيث أنني شفت هذه الامكانية ببرنامج مصمم بالفوكس برو
واسأل الجميع المساعدة ولكم الشكر
كل عام وانتم بخير
تم تعديل هذه المشاركة بواسطة هاني ابو عمر في 18 نوفمبر 2010 في 14:44
تحياتي لك واهلا بعودتك
وكل عام وانت بالف خير
دعني اقترح شيئا اخر..
تثدير التقرير على شكل ملف htm ويكون هو نفسه عبارة عن مرفق..هكذا عندما يفتح الزبون البريد سيجد صفحة بريده عبارة عن مرفق htm
لا اعرف ان كانت جميع مزودات خدمة البريد تدعم ذلك
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
من مواضيعي
برنامج لإدارة مؤسسة نقل الطالبات
_______________________
سبحان الله وبحمده سبحان الله العظيم
dbprog كتب:السلام عليكم
أخي الكريم تفضل شوف الملف المرفق وإن شاء الله يكون فيه ماتريد.
تقبل تحياتي
اشكر الاستاذ الجميل همام على تذكره لي
واشكر الاستاذ المحترم محمد أبو عدنان على اهتمامه بالرد على سؤالي
واشكر الاستاذ / DBprog بس المطلوب ليس ارسال رسالة مكتوبة لا ارسال تقرير م الاكسيس نفسه
الله يجزاكم الف خير على تعاونكم الدائم
المهم بعد البحث لقيت الكود دة وعمل المطلوب بشكل معقول
لو سمحتم جربوه ومنتظر رأيكم لانه محتاج لتطوير عشان التنسيق
------------------------------------------------------------------
Function exporthtml()
Dim strline, strHTML
Dim OL As Outlook.Application
Dim MyItem As Outlook.MailItem
Set OL = New Outlook.Application
Set MyItem = Outlook.Application.CreateItem(olMailItem)
'DoCmd.OutputTo acOutputReport, "YourReportName", acFormatHTML,
'"C:\YourReportName.html"
DoCmd.OutputTo acReport, "YourReportName", "HTML(*.html)", "C:\YourReportName.html", False, "", 0
Open "C:\YourReportName.html" For Input As 1
Do While Not EOF(1)
Input #1, strline
strHTML = strHTML & strline
Loop
Close 1
' If OL2002 set the BodyFormat
If left(OL.Version, 2) = "10" Then
MyItem.BodyFormat = olFormatHTML
End If
MyItem.HTMLBody = strHTML
MyItem.Display
End Function
-----------------------------------------------------------------------
وذلك بعد تفعيل Microsoft outlook 11.0 object library
في Reference
ولكم جزيل الشكر
تم تعديل هذه المشاركة بواسطة هاني ابو عمر في 19 نوفمبر 2010 في 23:54
هاني ابو عمر كتب:اشكر الاستاذ الجميل همام على تذكره لي
واشكر الاستاذ المحترم محمد أبو عدنان على اهتمامه بالرد على سؤالي
واشكر الاستاذ / DBprog بس المطلوب ليس ارسال رسالة مكتوبة لا ارسال تقرير م الاكسيس نفسه
الله يجزاكم الف خير على تعاونكم الدائم
المهم بعد البحث لقيت الكود دة وعمل المطلوب بشكل معقول
لو سمحتم جربوه ومنتظر رأيكم لانه محتاج لتطوير عشان التنسيق
------------------------------------------------------------------
Function exporthtml()
Dim strline, strHTML
Dim OL As Outlook.Application
Dim MyItem As Outlook.MailItem
Set OL = New Outlook.Application
Set MyItem = Outlook.Application.CreateItem(olMailItem)
'DoCmd.OutputTo acOutputReport, "YourReportName", acFormatHTML,
'"C:\YourReportName.html"
DoCmd.OutputTo acReport, "YourReportName", "HTML(*.html)", "C:\YourReportName.html", False, "", 0
Open "C:\YourReportName.html" For Input As 1
Do While Not EOF(1)
Input #1, strline
strHTML = strHTML & strline
Loop
Close 1
' If OL2002 set the BodyFormat
If left(OL.Version, 2) = "10" Then
MyItem.BodyFormat = olFormatHTML
End If
MyItem.HTMLBody = strHTML
MyItem.Display
End Function
-----------------------------------------------------------------------
وذلك بعد تفعيل Microsoft outlook 11.0 object library
في Reference
ولكم جزيل الشكر
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…