نعديل على كوود مسار الملف برنامج ارسال رسالة بالبريد من خلال الاكسس

[الميزار]

السلام عليكم ورحمة الله وبركاته 
 
عملت برنامج يقوم بنحضير الطلاب وبعد الانتهاء من التحضير يتم تغييب الطلاب الذيم لم يحضروا في هذا اليوم ثم تصدير تقدير باسماء الطلاب الغائبون في هذا اليوم على صورة اكسل و pdf  وحتى لا يشكل علي في ملفات الغياب جعلت البرنامج يعطي الملف بعد التصدير اسم تاريخ اليوم وبهذا يكون لدينا ملفات الاكسل بعدد ايام الغياب وبهذا يكون ملف الاكسل أو pdf بهذه الصورة 24-09-1436 .
 
المشلكة هي:
في برنامج من الاخ ........... محمد صالح .....
وهو ارسال البريد من الاكسس مباشرة ، المشلكة عند الضغط على رز الارسال للارسال وتحميل ملف الاكسل أو pdf ، لا يتعرف البرنامج على الملف حيت يعطي أن الملف غير موجود في المسار المحدد 
 
كود تصدير التقرير الى اكسل و pdf وحفظهم في ملف باسم saleh

Private Sub ÃãÑ2_Click()
Dim MyFiLeName As String
MyFiLeName = "C:\saleh\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls"
DoCmd.OutputTo acOutputReport, "tbl_hdoor_t", acFormatXLS, MyFiLeName, True, acExportQualityPrint
End Sub

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

.AddAttachment CurrentProject.Path & "\saleh\" & (Date) & ".xls"

والسلام ختام 

[ابوخليل]

وعليكم السلام

انت صدرت الملف باسم

ايضا الارسال يكون بالاسم نفسه

بمعنى سيكون مسار الارسال هكذا :

.AddAttachment CurrentProject.Path & "\saleh\" & Format(Date, "yyyy-mm-dd") & ".xls"

[الميزار]

يسلموووووووووووووووووووا   

 

حاولت كثير ولا أدري ما المشكلة كانت مع أني اذكر اني كتبت تقريبا نفس الكود ولم يعمل   

ولكن بركاتك علينا في هذه العشر المباركة 

 

بارك الله فيك ولا حرمك الله الاجر 

 

والسلام ختام