اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4,444

  • تاريخ الانضمام

  • Days Won

    192

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    بعض ما عندكم أخي العزيز
  2. أ / محمد صالح
    كما أخبر أستاذ @Shivan Rekany هذا حل عدم ظهور اللغة العربية بصورة صحيحة في محرر الفيجوال بيسك وبالنسبة لرسالة الخطأ الظاهرة ربما لعدم وجود المكتبات DLL المطلوبة في الملف وربما بسبب مشكلة اللغة وعلاج المكتبات من قائمة tools نختار references ستظهر نافذة ومكتوب بجانب بعض المكتبات missing يعني مفقود ولك فيها حلان تحميل ملفات DLL الناقصة أو الاستغناء عنها إذا استمر عمل البرنامج بدونها وفقنا الله وإياكم لكل خير
  3. أ / محمد صالح
    مشكور أستاذ عبد الفتاح فعلا هذا البرنامج يزود الجهاز بطابعة وهمية تطبع كملف pdf ولكن هل تحقق طلب الأستاذ hemabeb في عدم تغيير فواصل الصفحات وترحيل الفقرات أم مازالت المشكلة قائمة؟
  4. أ / محمد صالح
    جزاك الله كل خير أستاذ @ابا جودى ........... الغريب أن الملف تمت مشاهدته وتحميله كثيرا ولا يوجد تعليقات من الأصدقاء سواء بالسلب أو الإيجاب ................................. لعل المانع خير
  5. أ / محمد صالح
    شكرا لمروركم الكريم أحبابي في الله تم تحميل الملف ولا يوجد أي مشكلة من مكتبة الموقع حاول مرة أخرى أخي الكريم أبا جودي
  6. أ / محمد صالح
    مزيد من المعلومات حول "إرسال البريد من الأكسس"

    Version 1.0.0

    676 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله
  7. أ / محمد صالح
    اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس
  8. أ / محمد صالح
    إذا كنت تقصد مشكلة الرسالة فحلها بسيط ولا يحتاج لأكواد فقط فك دمج العناوين المدمجة مثل الاسم ثم الوقوف في الصف السفلي للعناوين (أول صف أعلى البيانات مباشرة) والضغط على فلتر للعلم أستعمل أوفيس ٢٠١٦ ولا تظهر معي رسالة الخطأ هذه ولكن حضرتك مصمم على أن تصعب الحياة على نفسك باستعمال أوفيس ٢٠٠٣ وفقكم الله لكل خير
  9. أ / محمد صالح
    كل عام أنتم جميعا بكل خير الملف الموجود في المشاركة الثانية مع بعض التعديل ليتوافق مع المطلوب هنا والسطور المشروحة موجودة فعلا بالكود
  10. أ / محمد صالح
    زيادة في التوضيح هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo وبعد سطر البريد والباسوورد هذه أهم سطور .replyto = "mm@mm.com" 'myemail or any other .cc = Me.cc 'with coma (,) separated .bcc = Me.bcc 'with coma (,) separated .to = Me.tomail .From = """" & Me.myname & """ <" & myemail & ">" .Subject = Me.sub .BodyPart.Charset = "UTF-8" '.TextBody = "plain text" 'send pain text '.CreateMHTMLBody "http://www.google.com" 'send web page '.CreateMHTMLBody "file://c|/temp/test.htm" 'send hrml file .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'></div>" .AddAttachment (Me.attach) 'you can attach more repeat this line with full file path شرح هذه السطور للرد إلى بريدي أو أي بريد آخر إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع رؤية كل واحد لجميع المرسل إيهم إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع عدم رؤية كل واحد لجميع المرسل إيهم المرسل إليه الأساسي اسم المرسل وبريده نرميز جسم الرسالة إمكانية إرسال نص فقط في جسم الرسالة إمكانية إرسال ثفحة ويب فقط في جسم الرسالة إمكانية إرسال ملف هتمل html فقط في جسم الرسالة إمكانية إرسال كود html فقط في جسم الرسالة إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق وفقنا الله وإياكم لكل ما يحب ويرضى
  11. أ / محمد صالح
    ربما يفيدك هذا الملف
  12. أ / محمد صالح
    يجب تمكين التطبيقات من الدخول لجي ميل من هنا https://myaccount.google.com/lesssecureapps ولا تخف فهم يعتبرون استعمال البريد بهذه الطريقة غير آمن
  13. أ / محمد صالح
    معناها يجب فك الخلايا المدمجة ثم تحديد الصف السفلي وتنفيذ خطوات الفرز
  14. أ / محمد صالح
    لتنفيذ المطلوب حدد خلية الاسم F5 ثم من تبويب بيانات data اضغط على تصفية filter ستظهر أسهم في كل عنوان اضغط على سهم الاسم واختر أول أمر في القائمة فرز من أ إلى ي sort a to z وهكذا في كل شيت موفق إن شاء الله
  15. أ / محمد صالح
    أخي الكريم أبو قاسم الملف المرفق به كود لنفس الغرض ويعمل بكفاءة ولكنه يحتاج فقط إلى إضافة كلمة مرور لفك حماية الشيت Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False Dim MyRange As Range Dim IntersectRange As Range Set MyRange = Range("j9:j33,h9:h33,i9:i33") Set IntersectRange = Intersect(Target, MyRange) On Error GoTo SkipIt If IntersectRange Is Nothing Then Exit Sub Else ActiveSheet.Unprotect Application.ScreenUpdating = False Target = Format(Time, "h:m") ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xllockedCells End If ActiveSheet.Unprotect Rows("1:1").Select SkipIt: Exit Sub Application.ScreenUpdating = True End Sub ويمكن اختصاره لهذا الكود مع إضافة كلمة مرور هي 123 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False Dim MyRange As Range Dim IntersectRange As Range Set MyRange = Range("j9:j33,h9:h33,i9:i33") Set IntersectRange = Intersect(Target, MyRange) If IntersectRange Is Nothing Then Exit Sub Else Cancel = 1 ActiveSheet.Unprotect ("123") Target = Format(Time, "hh:nn") ActiveSheet.Protect ("123") End If Application.ScreenUpdating = True End Sub بارك الله لك أستاذ ياسر كود ولا أروع ويمكن زيادة حماية الشيت بكلمة مرور (123) حتى يتحقق شرط الأخ صاحب السؤال الإدخال بدبل كلك فقط ولا يمكن التعديل اليدوي ليصبح الكود مثلا Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row > 8 Then If Target.Column = 8 Or Target.Column = 9 Or Target.Column = 10 Then Cancel = True ActiveSheet.Unprotect ("123") Target.Value = Format(Time, "hh:mm") ActiveSheet.Protect ("123") End If End If End Sub كل عام والجميع بخير وسعادة رمضان مبارك
  16. أ / محمد صالح
    حل هذه المشكلة هو تغيير السطر الذي يحتوي على dlookup عن كلمة المرور للبريد المكتوب بإحاطة البريد بفاصلة مفردة لأنه نص .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>كلمة المرور للبريد : <font style='color:red'>" & Me.txtMail & "</font><br /><br /><br />هي :<br /><font style='color:green'>" & DLookup("[Password]", "UsersT", "[Email]='" & Me.txtMail & "'") & "</font></div>" لاحظ هذا الجزء '" & Me.txtMail & "'" أما بخصوص رسالة الخطأ الثانية فهي تعني أن البريد المكتوب لا يتوافق مع صيغة البريد وهي username@website.com وعلى العموم يمكن حذف كود التأكد من صحة تكوين عنوان البريد في الحدث Private Sub txtMail_AfterUpdate() وفقنا الله وإياكم لكل ما يحب ويرضى
  17. أ / محمد صالح
    بارك الله لك أستاذ خالد تصحيح بسيط لمعلومة مذكورة في المنشور بعد تحميل الملف تبين أنه تم عمل اللازم من خلال Data validation أو باللغة العربية التحقق من صحة البيانات وليس التنسيق الشرطي حيث أن التنسيق الشرطي هو عبارة عن تغيير في تنسيقات الخلايا (لون الخط وحجم الخط ولون الخلفية وهكذا) بناء على شروط معينة كتلوين الخلايا الأقل من 100 أو حسب أي شرط من الشروط والله تعالى أعلى وأعلم
  18. أ / محمد صالح
    مشكور أستاذ @Shivan Rekany على التوضيح ولكن الآلية المتبعة في البرنامج هي يختار أو يكتب اسم المستخدم في شاشة الدخول فإذا نسي كلمة المرور يضغط على نسيت كلمة المرور فيفتح نموذج آخر به مربع نص لكتابة البريد الخاص باسم المستخدم الذي تم اختياره في النموذج الأول فإذا كان البريد صحيحا يتم إرسال كلمة المرور المسجلة في جدول المستخدمين إلى البريد الذي تم التأكد من صحته باستخدام بريد جي ميل المبرمج أو القائم على الأمر أرجو أن يكون الأمر اتضح وفقنا الله جميعا لكل خير
  19. أ / محمد صالح
    سوف يرسل لهم بريد بكلمة المرور الخاصة بهم من حسابك في جي ميل
  20. أ / محمد صالح
    تفضل أخي الكريم هذا مثالك بعد بعض التعديلات فقط يلزمك وضع بريدك في جميل وكلمة مروره في الكود الخاص بزر الإرسال mas_forgetpassword_email.rar
  21. أ / محمد صالح
    شكرا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة وفقنا الله وإياكم لكل خير
  22. أ / محمد صالح
    بارك الله لك على حرصك على التعلم والتطبيق والجواب سهل جدا فقط يلزمك تغيير الاخاصية column width عرض العمود إلى 0,3 وتعني أن العمود الأول لا يظهر فعرضه 0 زالعمود الثاني (الاسم) يظهر وعرضه 3 سم لاحظ هذا المرفق mas_Networks.rar
  23. أ / محمد صالح
    بعد اذن أستاذنا خالد الحل سهل جدا ضع في الخلية C2 =LEFT(B2,1) واسحب المعادلة لأسفل
  24. أ / محمد صالح
    المطلوب غير واضح بصورة كافية برجاء التوضيح بمنتهى التفصيل حيث أن المتطوع للإجابة لا يعرف شيئا عن البرنامج إلا من خلال ما تدلي به من معلومات
  25. أ / محمد صالح
    أعتقد في الصفحات التي وجدت فيها هذه الأكواد ستجد بها النموذج الذي تم العمل عليه لأنه بعد فحص الأكواد وجدتها غير كاملة ولا تؤدي غرضا محددا
×
×
  • اضف...

Important Information

  I accept