DBA.Oracle قام بنشر مارس 24, 2010 قام بنشر مارس 24, 2010 (معدل) السلام عليكم ورحمة الله وبركاته هذه اول مشاركة لي علي المنتدي ولكن لم تكن اول مرة ادخل فيها علي المنتدي انا هنا منذ فترة وتعلمت الكثير من الاكواد وشكر لكل من ساهم فى تعليمي ولو كود بسيط استعنت بكود ارسال رسالة كمرفق علي الايميل واردت التعديل عليه بحيث عند الضغط علي زر يظهر فورم يطلب اختيار الصفحات المراد ارسالها كمرفق فأضفت للكود كود اخر من زميل هنا فى المنتدي كان وضعه لاختيار صفحات معينة للاخفاء او الاظهار وادخلت الكودين في بعض واشتغل لكن عند محاولة اختيار 2 شيت من القائمة يقوم بحفظ واحد فقط منهم فى المرفقات فبرجاء المساعدة فى جعله يحفظ الشيتات المختارة كلها فى صفحة واحدة جديدة ولكم جزيل الشكر Send multisheets on attachment with select menu.rar تم تعديل مارس 24, 2010 بواسطه DBA.Oracle
هشام شلبى قام بنشر مارس 24, 2010 قام بنشر مارس 24, 2010 السلام عليكم =========== اخى العزيز اعذرنى انا لست متابعا لهذه المواضيع ولكن ارسلت لك ملف لعله يساعدك فينا تريد SendMail(Attachment)Testers.zip 1
DBA.Oracle قام بنشر مارس 24, 2010 الكاتب قام بنشر مارس 24, 2010 (معدل) الاخ الفاضل / هشام شلبي شكرا علي الرد الملف الذي ارفقته شامل جميع طرق الارسال بالايميل سواء الاكتف شيت او اكثر من شيت معين او خلايا معينة ولكن بالنسبة لكود ارسال اكثر من شيت معاً فى ملف واحد هذا الكود يجب التعديل عليه كل مرة لارسال الشيتات المطلوبة ولكن الفكرة التي اتحدث عنها هي ان المستخدم لن يدخل كل مرة لمحرر الاكواد لتغيير اسم الصفحات المراد ارسالها ActiveWorkbook.Sheets(Array("Sheet4", "Sheet10")).Copy هنا سيتم نقل الشيتات المحددة 4 ، 10 الي ملف جديد شامل الصفحتين ويرسل هذا الملف كمرفق فى رسالة لو اليوزر لا يعرف التعديل علي الاكواد و اراد ارسال صفحات اخري غير المحددة مثلا يريد ارسال 1 ، 3 فلن يستطيع الفكرة تنص علي انه فى كل مرة نضغط فيها علي تشغيل الخاصية هذه يظهر فورم يطلب تحديد الصفحات المراد ارسالها فيصبح الكود Sourcewb.Sheets((.List(iCtr))).Copy حيث Sourcewb = ActiveWorkbook و حيث ان (.List(iCtr) هي الشيتات المختارة من القائمة ولكن المشكلة انه يقوم بنقل كل شيت منفصل عن الاخر في ملف مختلف ويقوم بعمل رفق واحد منهم فقط فهل هناك مشكلة فى كتابة الكود ام ماذا شكرا لمتابعتك ولردك انا فقط اردت التوضيح حتي يستطيع باقى الاخوة الافاضل ممن سيدخلون هذا الموضوع فهم استفساري ببساطة تم تعديل مارس 24, 2010 بواسطه DBA.Oracle
محمد لطفى قام بنشر مارس 3, 2015 قام بنشر مارس 3, 2015 السلام عليكم الاستاذ الفاضل هشام شلبى جزاك الله خيرا ولكن الموضوع محتاج شرح
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.