أيهاب ممدوح

للرفع

للرفع

للرفع

للرفع

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

الاخوة الاعزاء الملف به اكواد لتسجيل الحضور وارسال نسخه من الملف الي الايميل ويوجد كود لعمل نسخه للملف كل ما اعمل تسجيل الحضور ويعمل كل الاكواد بنجاح ولكن شرط ان افتح اتخطي اليوزرفورم من خلال ادخال الباسورد كل ما اريده ان يعمل الكود بتخطي الكود الباسورد ehab123 شكرا المستودع.rar

للرفع

للللرفع

للرفع

للرفع

للرفع

اخي ياسر الاخوة الكرام يوجد طلبين الاول جعل الكود يعمل اثناء اخفاء الصفحه ( حاولت لان الكود يوجد داخل الحدث ) الثاني هو دمج الكودين الاول في المديول والثاني في اليوزفورم الاول وهما عبارة عن الكود في اليوزرفورم هو عبارة عن تسجيل الحضور ومن ثم حفظ الملف ثم ارسال الملف الي الايميل الكود الثاني يعمل نسخه من الملف بدون اكواد عايز ادمج الكودين سويا بحيث ان بسجل الحضور ثم ينشأ نسخه من الملف بدون اكواد بنفس الاسم وثم الارسال الي الايميل وارفاق النسخه الي الايميل الباسورد 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 تفضل اخي الكريم الكود مجهز لرسال ملف من الجهاز حدد مسارة داخل الكود الكود يعمل بدون وسيط من الاكسل الي الايميل مباشرة لكن سجل ايميل المرسل منه والباسورد والايميل المراد الارسال اليه لكن شرط اضافه المرجع كما في الصورة ومن الممكن التعديل عليه لارسال نص رساله الي اكثر من ايميل تحياتي

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

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

للرفع