مشكلة بكود ارسال بريد عن طريق الأكسس

[elkareee]

السلام عليكم

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

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

[elkareee]

تم حل المشكلة بواسطة مكتبة Outlook Object Library ولكن ظهرت مشكلتين :

1 - فى حالة تعدد المرسل اليهم كيف يتم اضافة اكثر من بريد

2- رسالة تحذير امنية من Outlook لتأكيد الارسال .. هل يمكن تجاوز التحذير ؟ 

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

[علي الحداد]

السلام عليكم

تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب

تحياتي

Mail.rar

[i_alabdullah]

اخي الكريم
ما اشتغل الامر

كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟

[Hamdi Edlbi-khalf]

On May 31, 2018 at 3:40 AM, i_alabdullah said:

 

اخي الكريم
ما اشتغل الامر

كيف تسوي اضافة للمكتبة تبع الاوتلوك ؟

 

To add a reference to a library:

1. Open the database./ افتح قاعدة البيانات 
2. Press ALT+F11 to start Visual Basic Editor./ اضغط alt + f4
3. On the Tools menu, click References./ في tools اضغط على reference 
4. Under Available References, click to select the check box next to the name of the library, and then click OK./ اختر المكتبة المطلوبة 

[i_alabdullah]

6 ساعات مضت, Khalf said:

To add a reference to a library:

1. Open the database./ افتح قاعدة البيانات 
2. Press ALT+F11 to start Visual Basic Editor./ اضغط alt + f4
3. On the Tools menu, click References./ في tools اضغط على reference 
4. Under Available References, click to select the check box next to the name of the library, and then click OK./ اختر المكتبة المطلوبة 

سويت اللي قلت عليه و سويت بحث
 هل كذا كله تمام ؟
طبعا

طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس

للعلم عندي office 2010

شكرا
 

[Hamdi Edlbi-khalf]

المكتبة غير موجودة لديك

Missing 

[علي الحداد]

6 hours ago, i_alabdullah said:

سويت اللي قلت عليه و سويت بحث
 هل كذا كله تمام ؟
طبعا

طبعا شغلت قاعدة البيانات و ضغط على Command0 و على طول بتعلق قاعدة البيانات و اشارة الماوس تدور بس

للعلم عندي office 2010

شكرا
 

اخي الكريم 

الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة 

Microsoft Outlook 14.0 Object Library 

اضف هذه المكتبة

  وقم بازالة المكتبة الناقصة وهي 

Microsoft Outlook 16.0 Object Library

تحياتي

[i_alabdullah]

14 ساعات مضت, علي الحداد said:

اخي الكريم 

الاوفيس عندك 2010 اذن تحتاج الى هذه المكتبة 

Microsoft Outlook 14.0 Object Library  

اضف هذه المكتبة

  وقم بازالة المكتبة الناقصة وهي 

Microsoft Outlook 16.0 Object Library

تحياتي

 

مشكور اخي علي الحداد

الامر الان يعمل بشكل ممتاز

[علي الحداد]

حياك الله اخي الكريم 

 

[elkareee]

في ٣٠‏/٥‏/٢٠١٨ at 15:00, علي الحداد said:

تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب

تمام هو المطلوب جزاك الله خير

[i_alabdullah]

في ٣٠‏/٥‏/٢٠١٨ at 16:00, علي الحداد said:

السلام عليكم

تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب

تحياتي

Mail.rar

اخي علي الحداد

ممكن بعد اذنك

لو اردت انه ما تكون الايميلات بالكود و لكن تكون بالجدول

فكيف اسوي ؟

شكرا

[علي الحداد]

السلام عليكم

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

عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا

تحياتي

Mail222.rar

[i_alabdullah]

5 ساعات مضت, علي الحداد said:

السلام عليكم

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

عليك فقط اضافة الايميلات في الجدول مع تغير الاسماء ايضا

تحياتي

Mail222.rar

الف الف شكر اخي علي الحداد
بارك الله فيك

[علي الحداد]

السلام عليكم

لا شكر على واجب اخي الكريم   وحياك الله.