أيهاب ممدوح

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

للرفع

للرفع

للرفع

للرفع

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

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 أخي الكريم ... حاول تعدل عليه يمكن ينفعك

اخي الكريم لقد حذفت الملفين و بالفعل عملت ارتباط المكتبه لمحرر الاكواد واشتغل تمام الف مليون شكرا

اخي الكريم جربت ولم يحدث شئ كما هو الحال

اخي الكريم ابو تراب حملت الاداة لكنها لا تعمل معي بالنسبه لاعاده تسجيل المكتبه لا اعرف كيف التعامل معها ................. يوجد لدي ملف قديم يعمل عليه الاداة ولكن لا يضيف كائن جديد تنسيق 2003 الملف الاخر لا يعمل ولا يدرج كائن تنسيق 2010 Microsoft Excel Macro-Enabled Worksheet (.xlsm) ارجوا الافاده

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

للرفع

اخي الكريم شكرا للمتابعه يبقي الحال كما هو

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

حياك الله اخي الكريم هحاول احلها . شكرا لتعبك

up

للرفع

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

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

اخي الكريم في 2007 ... من زر الأوفيس .. ثم خيارات ... ثم مركز التوثيق ... ثم إعدادات مركز التوثيق ... ثم إعدادات الماكرو ... ثم حدد علامة صح على الثقة في الوصول الى طراز كائن مشروع Vba بالفعل موجوده مسبقا

اخي الكريم ممكن ارسال عن طريق موقع www.mbcsms.net بعد التسجيل ممكن الارسال

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

السلام عليكم انا مثلا في السعوديه شبكه موبايلي

نرجوا المساعده

بارك الله فيك ....ارجوا الرد علي الرساله الخاصه