[khaled12345]

(31-05-17, 09:44 PM)khaled12345 كتب :

(31-05-17, 09:25 PM)alma2 كتب : غريب ان تنسخ الكود كما هو دون تغيير ما يناسب برنامجك،
هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟
هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟

أخي تحتاج للتركيز في الأكواد ولا تنسخها على عماها

ملف book1.xlsm الخاص بك موجود في مجلد المشروع أي Application.StartupPath وليس \:C

كود :

xlWorkBook = xlApp.Workbooks.Open(Application.StartupPath & "\book1.xlsm")

الماكرو الموجود في ملفك اسمه Mail_Selection_Range_Outlook_Body وليس RunMe

كود :

xlApp.Run("Mail_Selection_Range_Outlook_Body")

اتمنى أن تستفيد من أخطائك في المرات القادمة


شكرا استاذي علي النصيحة

هل ملف الاكسل لديك اسمه book1.xlsm وموجود في \:C كما أراه في الصورة؟

نعم عملت دي


هل الزر مرتبط بماكرو اسمه RunMe كما أراه في الصورة؟


الصراحة لا   بس هاعملها الحين

ان شاء الله استفيد من الاخطاء


==================================================================================

السلا عليكم استاذي الفاضل alam 2

عملت ملف اكسيل جديد ووضعته علي ال desktop

وعملت بداخله ماكرو اسمه RunMe

واسم الشيت الاول workbook

 و الزر مرتبط بماكرو اسمه RunMe

ولكن يرضه لسه مش تمام معايا