elkareee قام بنشر مايو 30, 2018 مشاركة قام بنشر مايو 30, 2018 (معدل) السلام عليكم اساتذتى الافاضل .. بعد البحث كثيرا عن طريقة ارسال تقرير اكسس بالميل دون تدخل من المستخدم وجدت الكود التالى Private Sub Command0_Click() Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim fileName As String, todayDate As String 'Export report in same folder as db with date stamp todayDate = Format(Date, "MMDDYYYY") fileName = Application.CurrentProject.Path & "\myReport" & todayDate & ".pdf" DoCmd.OutputTo acReport, "myReport", acFormatPDF, fileName, False 'Email the results of the report generated Set oEmail = oApp.CreateItem(olMailItem) With oEmail .Recipients.Add "hamada.kamal", "Amr.Ashraf" .Subject = "Test Access Data" .body = "رسالة تلقائية لتجربة ارفاق تقرير لأكثر من مستخدم" .Attachments.Add fileName .send End With MsgBox "Email successfully sent!", vbInformation, "EMAIL STATUS" End Sub ولكن تظهر لى رسالة الخطأ التالية عند تشغيل الكود compile error User-defined type not defined للسطر Dim oApp As New Outlook.Application تأكدت من References وان مكتبة Object Library موجودة ومفعلة ولكن المشكلة لم تحل ... المثال فى المرفق Mail.rar تم تعديل مايو 30, 2018 بواسطه elkareee رابط هذا التعليق شارك More sharing options...
elkareee قام بنشر مايو 30, 2018 الكاتب مشاركة قام بنشر مايو 30, 2018 تم حل المشكلة بواسطة مكتبة Outlook Object Library ولكن ظهرت مشكلتين : 1 - فى حالة تعدد المرسل اليهم كيف يتم اضافة اكثر من بريد 2- رسالة تحذير امنية من Outlook لتأكيد الارسال .. هل يمكن تجاوز التحذير ؟ جزاكم الله خير رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر مايو 30, 2018 مشاركة قام بنشر مايو 30, 2018 السلام عليكم تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تحياتي Mail.rar 1 1 رابط هذا التعليق شارك More sharing options...
i_alabdullah قام بنشر مايو 31, 2018 مشاركة قام بنشر مايو 31, 2018 اخي الكريم ما اشتغل الامر كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟ رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر يونيو 1, 2018 مشاركة قام بنشر يونيو 1, 2018 On May 31, 2018 at 3:40 AM, i_alabdullah said: اخي الكريم ما اشتغل الامر كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟ To add a reference to a library: Open the database./ افتح قاعدة البيانات Press ALT+F11 to start Visual Basic Editor./ اضغط alt + f4 On the Tools menu, click References./ في tools اضغط على reference Under Available References, click to select the check box next to the name of the library, and then click OK./ اختر المكتبة المطلوبة رابط هذا التعليق شارك More sharing options...
i_alabdullah قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 6 ساعات مضت, Khalf said: To add a reference to a library: Open the database./ افتح قاعدة البيانات Press ALT+F11 to start Visual Basic Editor./ اضغط alt + f4 On the Tools menu, click References./ في tools اضغط على reference Under Available References, click to select the check box next to the name of the library, and then click OK./ اختر المكتبة المطلوبة سويت اللي قلت عليه و سويت بحث هل كذا كله تمام ؟ طبعا طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس للعلم عندي office 2010 شكرا رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 المكتبة غير موجودة لديك Missing رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 6 hours ago, i_alabdullah said: سويت اللي قلت عليه و سويت بحث هل كذا كله تمام ؟ طبعا طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس للعلم عندي office 2010 شكرا اخي الكريم الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة Microsoft Outlook 14.0 Object Library اضف هذه المكتبة وقم بازالة المكتبة الناقصة وهي Microsoft Outlook 16.0 Object Library تحياتي رابط هذا التعليق شارك More sharing options...
i_alabdullah قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 14 ساعات مضت, علي الحداد said: اخي الكريم الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة Microsoft Outlook 14.0 Object Library اضف هذه المكتبة وقم بازالة المكتبة الناقصة وهي Microsoft Outlook 16.0 Object Library تحياتي مشكور اخي علي الحداد الامر الان يعمل بشكل ممتاز رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر يونيو 4, 2018 مشاركة قام بنشر يونيو 4, 2018 حياك الله اخي الكريم رابط هذا التعليق شارك More sharing options...
elkareee قام بنشر يونيو 5, 2018 الكاتب مشاركة قام بنشر يونيو 5, 2018 في ٣٠/٥/٢٠١٨ at 15:00, علي الحداد said: تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تمام هو المطلوب جزاك الله خير رابط هذا التعليق شارك More sharing options...
i_alabdullah قام بنشر يونيو 5, 2018 مشاركة قام بنشر يونيو 5, 2018 في ٣٠/٥/٢٠١٨ at 16:00, علي الحداد said: السلام عليكم تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تحياتي Mail.rar اخي علي الحداد ممكن بعد اذنك لو اردت انه ما تكون الايميلات بالكود و لكن تكون بالجدول فكيف اسوي ؟ شكرا رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 السلام عليكم تفضل اخي الكريم عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا تحياتي Mail222.rar رابط هذا التعليق شارك More sharing options...
i_alabdullah قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 5 ساعات مضت, علي الحداد said: السلام عليكم تفضل اخي الكريم عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا تحياتي Mail222.rar الف الف شكر اخي علي الحداد بارك الله فيك رابط هذا التعليق شارك More sharing options...
علي الحداد قام بنشر يونيو 9, 2018 مشاركة قام بنشر يونيو 9, 2018 السلام عليكم لا شكر على واجب اخي الكريم وحياك الله. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.