أ / محمد صالح

يوضع السطر الأول في بداية تنفيذ الإجراء (sub) لجعل المؤشر على شكل الساعة الرملية ويوضع السطر الثاني في نهايته لعودة المؤشر كما كان وإذا تم إرفاق مثال منك يمكن التعديل عليه

يمكنك استعمال هذا الكود Application.Cursor = xlIWait Application.Cursor = xlDefault

جرب هذا الكود أخي الكريم Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub TextBox1_Enter() LoadKeyboardLayout "00000409", 1 End Sub Private Sub TextBox2_Enter() LoadKeyboardLayout "00000401", 1 End Sub

جرب هذا الكود أخي الكريم Dim T As Worksheet For Each T In thisworkbook.Worksheets if t.name<>"www" then ComboBox1.AddItem (T.Name) Next T

يفضل وضع مثال به ملف الإكسل وتوضيح موضوع قاعدة البيانات أكثر حتى يتم بإذن الله الوصول للمطلوب

فكرة صائبة وفقنا الله وإياكم لكل ما يحب ويرضى

بارك الله فيك أستاذ أحمد ولكن لماذا لم تكمل السلسلة؟ Shift + Q : الفتحة Shift + W : تنوين بالفتحة Shift + E : الضمة Shift + R : تنوين بالضمة Shift + A : الكسرة Shift + S : تنوين بالكسرة Shift + X : السكون ذ + Shift : الشدة Shift + J : الكشيدة Shift + Y : إ Shift + T : لإ وفقنا الله وإياكم لكل ما يحب ويرضى

مشكور أخي بس أنا دماغي راح لبعيييييييييييييييد والحمد لله رجعت بالسلامة

ما شاء الله بارك الله لك أخي رجب جهد كبير وعمل متعوب فيه وفقك الله لكل ما يحب ويرضى

أخي الكريم الكود لا يخرج أي خطأ لدي يظهر في القائمة الأسماء وعند الضغط على التسمية يتم كتابة البريد في مربع النص لأن السطر الأول في الكود التالي يقوم بتخزين الاسم في القائمة Me.ComboBox1.AddItem objAddressEntry.Name Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address والثاني يخزن عنوان البريد في العمود الثاني للقائمة وعند الضغط على to يتم وضع قيمة العمود الثاني للقائمة (عنوان البريد) في مربع النص to حسب الكود التالي في حدث عند الضغط Me.TextBoxto = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1) وأكيد اختلف الأمر لديك في كود الضغط على to لأنك تقريبا لا تعمل على نفس الملف المرسل وإنما تنقل الأكواد لملف جديد

أخي الكريم أنصحك بانتظار نسخة أوفيس 2012 فقد قامت ميكروسوفت بتطوير نسخة أوفيس 2010 لتتناسب مع الأجهزة اللوحية وشاشات اللمس كما طورت ويندوز 8 لنفس الغرض وينتظهر ظهورها رسمياً بحد أقصى شهر يونية 2012

أخي الكريم الكود الموجود في الملف المرفق يعرض كل جهات الاتصال الموجودة في دفتر العناوين (كما طلبت) جرب أن تضيف جهة اتصال ثم تفتح النموذج ستجد أنها تمت إضافتها (كيف يحدث هذا .....لاني عند استخدامه اليوم لم يتم اظهار العناوين) أما إذا كنت تريد عرض جهات الاتصال الخاصة بقائمة عناوين address list معينة فاستعمل هذا الكود Private Sub UserForm_Initialize() Dim objOutlook As Outlook.Application Dim objAddressList As Outlook.AddressList Dim objAddressEntry As Outlook.AddressEntry Set objOutlook = CreateObject("Outlook.Application") Set objAddressList = objOutlook.Session.AddressLists("Global Address List") For Each objAddressEntry In objAddressList.AddressEntries If objAddressEntry.Address <> "" Then Me.ComboBox1.AddItem objAddressEntry.Name Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address End If Next objAddressEntry Set objOutlook = Nothing Set objAddressList = Nothing Set objAddressEntry = Nothing end sub وفقنا الله وإياكم لكل ما يحب ويرضى

أخي الكريم أنا أستعمل أوفيس 2010 ولهذا رقم المرجع 14 ولا يظهر عندي أي رسائل تحذير أما رقم 12 لديك فلأنك تستخدم أوفيس 2007 ولا مشكلة في تفعيل أي المرجعين ولتعطيل هذه الرسائل التحذيرية بالكود ضع هذا الكود في أول الإجراء الخاص ببدء فتح النموذج OlSecurityManager.DisableOOMWarnings = True المصدر http://www.add-in-express.com/outlook-security/index.php جرب وأخبرني بالنتيجة حيث أني أستخدم 2010 ولا يخرج أي رسائل تحذيرية عندي

أخي الكريم في حالة التعامل مع برنامج مثل أوت لوك من خلال الإكسل يجب تنشيط المرجع الخاص ببرنامج أوتلوك في نافذة محرر الفيجوال بيسك للتطبيقات vba وذلك من خلال tools--->references--->Microsoft outlook 0.14 object library وبعد فتح النموذج يتم استدعاء جهات الاتصال في القائمة combobox1 الموجودة أعلى النموذج userform5 تختار منها الاسم ثم تضغط على to فيتم وضع البريد في مربع النص الخاص ب to وهكذا .......... طبعا معروف كيفية فتح النموذج في الإكسل؟؟ إذا لم تكن تعرف يتم إنشاء إجراء sub جديد ضمن وحدة نمطية module بالكود التالي sub mas() userform5.show end sub كما هو موجود في الملف المرفق في المشاركة السابقة

أخي الكريم معتز ما دام الموضوع دخل في شبكة واسعة النطاق والإنترنت يخرج الأكسس من المنافسة ويدخلها الثنائي المعروف php & mysql أو الثنائي البديل asp & sql server ولكن في هذه الحالة يستلزم الأمر معرفة ببرمجة صفحات php ولو كان التعامل مع قاعدة البيانات مجرد إضافة وعرض للسجلات فيوجد برنامج اسمه phpmaker يمكنه مساعدتك في إنشاء كود php http://www.demonoid.me/files/download/2810719/0012909387186/ ............... ولو مصرّ على الأكسس يوجد برنامج اسمه hamatchi يستخدم في عمل شبكة من خلال الإنترنت وكأنك في شبكة لان عادية http://www.filehippo.com/download_hamachi/ أتمنى أن أكون قد وضحت الأمر قليلاً

تفضل أخي الكريم يتم استيراد قائمة جهات الاتصال إلى كومبو في بداية فتح النموذج يمكنك اختيار المستلم من القائمة ثم الضغط على التسمية to أو cc وهكذا ......... تمت معالجة وضع أكثر من عنوان بريدي في الحقل الواحد أتمنى أن يكون هذا هو المطلوب في النموذج رقم 5 mas_IT2.rar

أخي الكريم حسب وصفك للمطلوب في برنامجك أعتقد أنه لا فائدة من فتح نافذة دفتر العناوين ويمكن الاستغناء عنها بقائمة combobox تحتوي على أسما وعناوين بريد جهات الاتصال الموجودين في دفتر العناوين وبديهيا لا يلزمك استخدام فحص الأسماء check names لأن الأسماء والعناوين مأخوذة مباشرة من فتر العناوين وبعد اختيارك لجهة الاتصال يمكن الضغط على زر to أو cc أو bcc لنقل بريد جهة الاتصال المحددة في القائمة إلى مربع النص to وهكذا فإذا كان هذا ما تريده فأخبرني حتى أقوم بتعديل ملفك وإلا ...........................

أخي الكريم استخدامنا لبرنامج ضمن برنامج آخر لا يجعلك تملك جميع خصائص البرنامج الآخر وإلا فيمكن الاستغناء عنه ما دام الأول يقوم بما يقوم به الثاني!!! لأني حسب طلبك (فتح نافذة خاصة بأوت لوك) أقول لك استخدم برنامج أوت لوك مباشرة بدون الحاجة لاستخدام الإكسل؛ لأن طلبك محض في برنامج البريد ......... أما إذا كان الطلب مثلاً استدعاء قائمة العناوين المسجلة في أوت لوك للاختيار من بينها بدلاً من كتابة البريد كله أو إمكانية وجود خطأ في البريد عند كتابته يدويا ....... فهذا ممكن ضمن الإكسل لذلك أرجو تحديد المطلوب بكل دقة وبالتفصيل

أخي الكريم هل المطلوب هو التأكد من أن البريد المكتوب مثلا في حقل to موجود ضمن دفتر العناوين؟ أم ماذا؟

الأخ الكريم سبق أن أخبرتك بنماذج الإكسل excel forms ولك الخيار في استعمال الخصائص الثلاث المذكورة

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

إخوتي الكرام مجرد رأي دولة إسرائيل واقع مرير يجب الاعتراف به وليس حذفها من الملف هو الذي سيعيد الأرض المحتلة أتمنى من الله أن تزول دولة إسرائيل من أرض الواقع ولن يحدث هذا إلا بعودة الناس لدينهم واتحادهم في مواجهة الظلم مواجهة فعلية وليست مواجهة وهمية والله أعلم

أحب أن أحيط علم سيادتكم بأن هذه الميزة موجودة في أوفيس 2010 بصورة أساسية

بعد إذن الأخ أبو حنين طلباتك يا أخ غانم تم تعديل الدول لتظهر كقائمة يتم الاختيار منها أو الكتابة والدولة يتم إكمالها تلقائياً mas_الدول.rar

أخي الكريم هاني إذا كنت تقصد مربعات النص التي يتم إضافتها إلى ورقة الإكسل فالأمر هين بفضل الله قم بالضغط بزر الفارة الأيمن على مربع النص ثم اختر تنسيق شكل تلقائي format shape وفي التبويب مربع نص textbox ستجد ما تريد كما بالصورة أما إذا كنت تقصد مربعات النص في نماذج الإكسل فهذا أيضا ممكن من خلال نافذة الخصائص properties استعمل خاصية autosize و multiline و wordwrap بالطريقة التي تحلو لك أتمنى أن يكون الأمر قد اتضح