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.rarFetching info... تم تعديل مايو 30, 2018 بواسطه elkareee
elkareee قام بنشر مايو 30, 2018 الكاتب قام بنشر مايو 30, 2018 تم حل المشكلة بواسطة مكتبة Outlook Object Library ولكن ظهرت مشكلتين : 1 - فى حالة تعدد المرسل اليهم كيف يتم اضافة اكثر من بريد 2- رسالة تحذير امنية من Outlook لتأكيد الارسال .. هل يمكن تجاوز التحذير ؟ جزاكم الله خير
علي الحداد قام بنشر مايو 30, 2018 قام بنشر مايو 30, 2018 السلام عليكم تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تحياتي Mail.rar 1 1
i_alabdullah قام بنشر مايو 31, 2018 قام بنشر مايو 31, 2018 اخي الكريم ما اشتغل الامر كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟
Hamdi Edlbi-khalf قام بنشر يونيو 1, 2018 قام بنشر يونيو 1, 2018 في 31/5/2018 at 00:40, i_alabdullah said: اخي الكريم ما اشتغل الامر كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟ Expand 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./ اختر المكتبة المطلوبة
i_alabdullah قام بنشر يونيو 2, 2018 قام بنشر يونيو 2, 2018 في 1/6/2018 at 17:52, 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./ اختر المكتبة المطلوبة Expand سويت اللي قلت عليه و سويت بحث هل كذا كله تمام ؟ طبعا طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس للعلم عندي office 2010 شكرا
علي الحداد قام بنشر يونيو 2, 2018 قام بنشر يونيو 2, 2018 في 2/6/2018 at 00:15, i_alabdullah said: سويت اللي قلت عليه و سويت بحث هل كذا كله تمام ؟ طبعا طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس للعلم عندي office 2010 شكرا Expand اخي الكريم الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة Microsoft Outlook 14.0 Object Library اضف هذه المكتبة وقم بازالة المكتبة الناقصة وهي Microsoft Outlook 16.0 Object Library تحياتي
i_alabdullah قام بنشر يونيو 2, 2018 قام بنشر يونيو 2, 2018 في 2/6/2018 at 06:27, علي الحداد said: اخي الكريم الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة Microsoft Outlook 14.0 Object Library اضف هذه المكتبة وقم بازالة المكتبة الناقصة وهي Microsoft Outlook 16.0 Object Library تحياتي Expand مشكور اخي علي الحداد الامر الان يعمل بشكل ممتاز
elkareee قام بنشر يونيو 5, 2018 الكاتب قام بنشر يونيو 5, 2018 في 30/5/2018 at 13:00, علي الحداد said: تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب Expand تمام هو المطلوب جزاك الله خير
i_alabdullah قام بنشر يونيو 5, 2018 قام بنشر يونيو 5, 2018 في 30/5/2018 at 13:00, علي الحداد said: السلام عليكم تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تحياتي Mail.rarFetching info... Expand اخي علي الحداد ممكن بعد اذنك لو اردت انه ما تكون الايميلات بالكود و لكن تكون بالجدول فكيف اسوي ؟ شكرا
علي الحداد قام بنشر يونيو 8, 2018 قام بنشر يونيو 8, 2018 السلام عليكم تفضل اخي الكريم عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا تحياتي Mail222.rar
i_alabdullah قام بنشر يونيو 8, 2018 قام بنشر يونيو 8, 2018 في 8/6/2018 at 14:08, علي الحداد said: السلام عليكم تفضل اخي الكريم عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا تحياتي Mail222.rarFetching info... Expand الف الف شكر اخي علي الحداد بارك الله فيك
علي الحداد قام بنشر يونيو 9, 2018 قام بنشر يونيو 9, 2018 السلام عليكم لا شكر على واجب اخي الكريم وحياك الله.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.