أيهاب ممدوح

للرفع

للرفع

الاخوة الاعزاء شكرا لكم جزيلا وشكرا خاص لاستاذ ياسر والاستاذ ابن مصر والاستاذ طارق نادر بارك الله فيكم جميعا وفي باقي الاخوة الاعضاء

الاخوة الكرام لدي ملف به كشف لوثائق الشركه وتاريخ انتهاء كل وثيقه ويوجد كود ارسال اشعار الي الايميل قبل انتهاء الوثيقه بقترة وهذا الكود من صنه اخي الكريم ابن مصر الف ورده مني اليه لكن عند نقل الكود الي الملف الرئيسي وجدته لا يعمل واكتشفت ان الكود لا يعمل في حاله اخفاء الصفحه ارفقت ملف به صفحه الايجارات مخفيه و لكن لكي يعمل معك الكود ارجوا اضافه ايميل حقيقي والباسورد الي الكود حتي يعمل وبعد انتهاء العمل احذف الايميل الخاص بك والباسورد ehab.rar

اخي الكريم الاخوة الكرام لم ينجح الحل معي !!!! ارجوا المساعده

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

الاخوة الكرام اريد معرفه الطريقه التي تجعل الكود يعمل في حاله اخفاء الورقه ؟؟؟ حيث لدي ملف به صفحه رئيسيه يفتح الملف عليها وجعلت الكود يعمل بمجرد فتح الملف وهنا الصفحه الاخري مخفيه التي يعمل عليها الكود .. لذلك اريد ان اجعل الكود يعمل حتي لو الورقه مخفيه شكرا

للرفع

الاخوة الكرام الكود لا يعمل اثناء اخفاء الصفحه ما الحل ؟؟

للرفع

طيب اخي الكود لا يعمل في حاله اخفاء الصفحه ما الحل؟؟؟

الكود الثاني يقوم بفتح فورم به بعض التنبيهات

شكرا اخي الكريم ارجوا ايجاد حل لدمج كودين عند فتح الملف ehab.rar

اخي ابن مصر شكرا لردك لكن لو تكرمت جعله كما في التنسيق بمعني هو مكتوب بالميلادي لكن ظاهر بالهجري لو امكن اي حل ؟؟

مرفق ملف للتوضيح

Private Sub Workbook_Open() btnSendEmail End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False With SEARCH_4_DOC_SPECIAL .Label1.ForeColor = &HFF& .ListBox1.ForeColor = &HFF& .Label1.Caption = "ÈíÇäÇÊ ÇáÇíÌÇÑÇÊ ÇáãØáæÈå" .TextBox1.text = "ãØáæÈ" .Show End With Application.ScreenUpdating = True End Sub اخي ابن مصر الاخوة الكرام لدي مشكله في تشغيل الكود عند فتح الملف تظهر هذى الرساله ولدي كود سابق يعمل عند فتح الملف ليظهر فورم به بعض التنبيهات ولدي كود الثاني يقوم بتشغيل كود الارسال فور فتح الملف كيف دمج الوظيفتين في الكود شكرا

اخي ابن مصر لو امكن عند ارسال الرساله يظهر التاريخ بالميلادي والملف بالهجري اريده يظهر في الايميل بالهجري او الميلادي كما هو في الملف ؟ ممكن حل شكرا

شكرا جدااااااااااااااااااااااااااا بارك الله فيك هو المطلوب فعلا شكرا جداااااااااااااااااااااا

للرفه

اخي الكريم نفس النص هو هو لجميع الحالات لكن عندما تكون اقامه يكون انتهاء الاقامه السيد...... بتاريخ ..... ومتبقي عليها..... لكن عندما تكون ايجار يكون انتهاء ايجار للمحل .... بتاريخ ..... ومتبقي عليها .... لكن عندما تكون سجلات يكون انتهاء السجلات للمحل ..... بتاريخ .... ومتبقي عليها..... لاحظ ان الفرق الوحيد هو ( السيد عند انتهاء الاقامه لانها تخص شخص) لكن عند انتهاء الايجار او السجل يكتب انتهاء ايجار او سجل للمحل الخلاف فقط للمحل و للسيد شكرا

اخي الكريم ابن مصر الكود ممتاز واللغه اصبحت ممتازة بس فيه طلب بسيط هو القائمه فيها اسماء محلات واسماء اشخاص ونص الرساله فيه لقب السيد الذي يطلق علي الاشخاص نرجوا اضافه كلمه محل اذا كان الايجار و السجل مطلوب الايجار والسجل للمحلات والاقامه للأشخاص وشكرا

Email.BodyPart.Charset = "UTF-8" الاخوة الكرام اخي ابن مصر لقد قرأت كود الاخ ابو تراب لأرسال رساله الي الايميل بواسطه الاوتولوك وكان قد وضع هذا السطر حاولت ان اضيفه لكن لا فائده فهل من مساعده

اخي ابن مصر الكود يعمل جيدا جدااااااااااااااااا يوجد مشكله عندالارسال عنوان الرساله (؟؟؟؟؟؟؟؟؟؟؟؟؟) يظهر علامات استفهام وكذلك نص الرساله ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ علامات استفهام

اخي ابن مصر الاشعار يرسل الي ايميل واحد فقط شكرا

اخي الكريم ابن مصر لدي هذا الكود مسبقا لارسال ملف الي الياهو والموضوع هو . ان الملف المرفق هو الايجارات والمستندات والاقامات اريد عندما يكتب كلمه مطلوب في العمود D يقوم بارسال رساله الي الايميل يكون العنوان اشعار والنص هو ( اشعار انتهاء الاقامه او الايجار او المستند حسب النوع الموجود في العمود B في تاريخ الموجود في العمودF متبقي عليه المده الموجوده في العمودG ثم يقوم بكتابه تم التنبيه في العمود H ولا يرسل تنبيه به مرة اخري طالما موجود كلمه تم التنبيه الايميل المطلوب الارسال اليه EHABMAMDOUH28@YAHOO.COM الايميل المرسل منه اي شئ وشكرا