أيهاب ممدوح

للرفع

للرفع

اخي ياسر الاخوة الكرام يوجد طلبين الاول جعل الكود يعمل اثناء اخفاء الصفحه ( حاولت لان الكود يوجد داخل الحدث ) الثاني هو دمج الكودين الاول في المديول والثاني في اليوزفورم الاول وهما عبارة عن الكود في اليوزرفورم هو عبارة عن تسجيل الحضور ومن ثم حفظ الملف ثم ارسال الملف الي الايميل الكود الثاني يعمل نسخه من الملف بدون اكواد عايز ادمج الكودين سويا بحيث ان بسجل الحضور ثم ينشأ نسخه من الملف بدون اكواد بنفس الاسم وثم الارسال الي الايميل وارفاق النسخه الي الايميل الباسورد ehab123 المستودع.rar

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

تسلم اخي ياسر جاررري التجربه

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

اخي الكريم بالنسبه للباركود مفيش مشكله في عمله مع الاكسل بالنسبه للكود ارفق ملفك بالتوفيق

بالتوفيق ان شاء الله

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

اخي الكريم انظر المرفق لعله هو المطلوب إستفسار.rar

اخي الكريم قم بأنشاء ارتباط تشعبي جديد وتأكد انه يعمل معك في الاكسل لانه حدث معي من قبل وبعد البحث وجدت المشكله في الويندوز تحياتي

بالنسبه للباركود ممكن التعامل معه مع الاكسل تحياتي

Sub SentMail() Dim Mail As New Message Dim Config As Configuration Set Config = Mail.Configuration Config(cdoSendUsingMethod) = cdoSendUsingPort Config(cdoSMTPServer) = "smtp.gmail.com" Config(cdoSMTPServerPort) = 25 Config(cdoSMTPAuthenticate) = cdoBasic Config(cdoSMTPUseSSL) = True Config(cdoSendUserName) = "بريدك الاكلتروفي GMAIL" Config(cdoSendPassword) = "الباسوورد" Config.Fields.Update Mail.To = "البريد المرسل ايه" Mail.from = Config(cdoSendUserName) Mail.Subject = "Email Subject" Mail.HTMLBody = "<b>Email body</b>" ' هذا هو الجزء الذي يرسل في هته الحال سيتم ارسال صورة من الجهاز الى بريد ما Mail.AddAttachment "C:\Users\Admin\Pictures\QQ.jpg" On Error Resume Next Mail.Send If Err.Number <> 0 Then MsgBox Err.Description, vbCritical, "There was an error" Exit Sub End If MsgBox "Your email hes sent!", vbInformation, "Sent" End Sub تفضل اخي الكريم الكود مجهز لرسال ملف من الجهاز حدد مسارة داخل الكود الكود يعمل بدون وسيط من الاكسل الي الايميل مباشرة لكن سجل ايميل المرسل منه والباسورد والايميل المراد الارسال اليه لكن شرط اضافه المرجع كما في الصورة ومن الممكن التعديل عليه لارسال نص رساله الي اكثر من ايميل تحياتي

السلام عليكم اخي الكريم بالنسبه للسؤال الاول الخاص بارسال ايميل عند الاغلاق الي ايميل محدد او اكثر من ايميل .... ممكن وشغال بالفعل اما الباقي نترك الرد للخبراء الموجودين تحياتي

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

للرفع

لا اله الا الله محمد رسول الله

للرفع

للرفع

شكرا اخي الكريم استاذ ياسر مش عايز اتعبك اشرحلك الموضوع ببساطه وارجوا المساعده انا عايز ارسل رساله الي الايميل بتاريخ انتهاء الاقامه وهي بالتاريخ الهجري يعني مثلا 19 جماد الاول 1436 هـ ومشكور الاخ الكريم ابن مصر و نفذ الكود الذي في يأخد التاريخ الموجود في الخليه ولكن المشكله ان التاريخ الموجود في الخليه ميلادي وبالتنسيق اصبح في الظاهر هجري ولكن هو اساسا ميلاد ارجوا اي طريقه لجعل التاريخ المرسل الي الايميل بالهجري مثل 19 جماد الاول 1436 ولقد استخدمت الداله التي تحول الي هجري مثل 19/5/1436 وشكرا لكم جميعا

للرفع لمن اراد المساعد

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

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

اخي الكريم ابن مصر لا اريد تحويل التاريخ من هجري الي ميلادي او العكس ما اريده ان تكون قيمه الخليه هي التاريخ الهجري وليس الميلادي اريد عند كتابه 1 مارس 2015 تكتب الخليه التاريخ الهجري كقيمه وليس تنسيق ميلادي الي هجري

الاخوة الافاضل الشرح بالملف ehab.rar