اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

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

  • Posts

    4477

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

  • Days Won

    197

 نوع المحتوي 

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

  1. أ / محمد صالح
    هي عملية إرسال بريد عادية ولكن هي اختصار للوقت بدلا من فتح المستعرض والدخول في جي ميل وإرسال رسالة جديدة أو بدلا من فتح برنامج أوت لوك وإرسال رسالة جديدة يتم الإرسال من الأكسس مباشرة وطبعا يتم رفع المرفقات حسب سرعة الانترنت في الجهاز
  2. أ / محمد صالح
    جرب هذا الحل وأخبرني بالنتيجة رمضان مبارك
  3. أ / محمد صالح
    ربما يرجع البطء لحجم المرفقات هل جربت بدون مرفقات؟؟ أستاذ شيڤان
  4. أ / محمد صالح
    بعض ما عندكم أخي العزيز
  5. أ / محمد صالح
    كما أخبر أستاذ @Shivan Rekany هذا حل عدم ظهور اللغة العربية بصورة صحيحة في محرر الفيجوال بيسك وبالنسبة لرسالة الخطأ الظاهرة ربما لعدم وجود المكتبات DLL المطلوبة في الملف وربما بسبب مشكلة اللغة وعلاج المكتبات من قائمة tools نختار references ستظهر نافذة ومكتوب بجانب بعض المكتبات missing يعني مفقود ولك فيها حلان تحميل ملفات DLL الناقصة أو الاستغناء عنها إذا استمر عمل البرنامج بدونها وفقنا الله وإياكم لكل خير
  6. أ / محمد صالح
    مشكور أستاذ عبد الفتاح فعلا هذا البرنامج يزود الجهاز بطابعة وهمية تطبع كملف pdf ولكن هل تحقق طلب الأستاذ hemabeb في عدم تغيير فواصل الصفحات وترحيل الفقرات أم مازالت المشكلة قائمة؟
  7. أ / محمد صالح
    جزاك الله كل خير أستاذ @ابا جودى ........... الغريب أن الملف تمت مشاهدته وتحميله كثيرا ولا يوجد تعليقات من الأصدقاء سواء بالسلب أو الإيجاب ................................. لعل المانع خير
  8. أ / محمد صالح
    شكرا لمروركم الكريم أحبابي في الله تم تحميل الملف ولا يوجد أي مشكلة من مكتبة الموقع حاول مرة أخرى أخي الكريم أبا جودي
  9. أ / محمد صالح
    اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس
  10. أ / محمد صالح
    مزيد من المعلومات حول "إرسال البريد من الأكسس"

    Version 1.0.0

    679 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله
  11. أ / محمد صالح
    إذا كنت تقصد مشكلة الرسالة فحلها بسيط ولا يحتاج لأكواد فقط فك دمج العناوين المدمجة مثل الاسم ثم الوقوف في الصف السفلي للعناوين (أول صف أعلى البيانات مباشرة) والضغط على فلتر للعلم أستعمل أوفيس ٢٠١٦ ولا تظهر معي رسالة الخطأ هذه ولكن حضرتك مصمم على أن تصعب الحياة على نفسك باستعمال أوفيس ٢٠٠٣ وفقكم الله لكل خير
  12. أ / محمد صالح
    كل عام أنتم جميعا بكل خير الملف الموجود في المشاركة الثانية مع بعض التعديل ليتوافق مع المطلوب هنا والسطور المشروحة موجودة فعلا بالكود
  13. أ / محمد صالح
    زيادة في التوضيح هذا المثال كنت قد نفذته في 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 فقط في جسم الرسالة إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق وفقنا الله وإياكم لكل ما يحب ويرضى
  14. أ / محمد صالح
    ربما يفيدك هذا الملف
  15. أ / محمد صالح
    يجب تمكين التطبيقات من الدخول لجي ميل من هنا https://myaccount.google.com/lesssecureapps ولا تخف فهم يعتبرون استعمال البريد بهذه الطريقة غير آمن
  16. أ / محمد صالح
    معناها يجب فك الخلايا المدمجة ثم تحديد الصف السفلي وتنفيذ خطوات الفرز
  17. أ / محمد صالح
    لتنفيذ المطلوب حدد خلية الاسم F5 ثم من تبويب بيانات data اضغط على تصفية filter ستظهر أسهم في كل عنوان اضغط على سهم الاسم واختر أول أمر في القائمة فرز من أ إلى ي sort a to z وهكذا في كل شيت موفق إن شاء الله
  18. أ / محمد صالح
    أخي الكريم أبو قاسم الملف المرفق به كود لنفس الغرض ويعمل بكفاءة ولكنه يحتاج فقط إلى إضافة كلمة مرور لفك حماية الشيت 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 كل عام والجميع بخير وسعادة رمضان مبارك
  19. أ / محمد صالح
    حل هذه المشكلة هو تغيير السطر الذي يحتوي على 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() وفقنا الله وإياكم لكل ما يحب ويرضى
  20. أ / محمد صالح
    بارك الله لك أستاذ خالد تصحيح بسيط لمعلومة مذكورة في المنشور بعد تحميل الملف تبين أنه تم عمل اللازم من خلال Data validation أو باللغة العربية التحقق من صحة البيانات وليس التنسيق الشرطي حيث أن التنسيق الشرطي هو عبارة عن تغيير في تنسيقات الخلايا (لون الخط وحجم الخط ولون الخلفية وهكذا) بناء على شروط معينة كتلوين الخلايا الأقل من 100 أو حسب أي شرط من الشروط والله تعالى أعلى وأعلم
  21. أ / محمد صالح
    مشكور أستاذ @Shivan Rekany على التوضيح ولكن الآلية المتبعة في البرنامج هي يختار أو يكتب اسم المستخدم في شاشة الدخول فإذا نسي كلمة المرور يضغط على نسيت كلمة المرور فيفتح نموذج آخر به مربع نص لكتابة البريد الخاص باسم المستخدم الذي تم اختياره في النموذج الأول فإذا كان البريد صحيحا يتم إرسال كلمة المرور المسجلة في جدول المستخدمين إلى البريد الذي تم التأكد من صحته باستخدام بريد جي ميل المبرمج أو القائم على الأمر أرجو أن يكون الأمر اتضح وفقنا الله جميعا لكل خير
  22. أ / محمد صالح
    سوف يرسل لهم بريد بكلمة المرور الخاصة بهم من حسابك في جي ميل
  23. أ / محمد صالح
    تفضل أخي الكريم هذا مثالك بعد بعض التعديلات فقط يلزمك وضع بريدك في جميل وكلمة مروره في الكود الخاص بزر الإرسال mas_forgetpassword_email.rar
  24. أ / محمد صالح
    شكرا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة وفقنا الله وإياكم لكل خير
  25. أ / محمد صالح
    بارك الله لك على حرصك على التعلم والتطبيق والجواب سهل جدا فقط يلزمك تغيير الاخاصية column width عرض العمود إلى 0,3 وتعني أن العمود الأول لا يظهر فعرضه 0 زالعمود الثاني (الاسم) يظهر وعرضه 3 سم لاحظ هذا المرفق mas_Networks.rar
×
×
  • اضف...

Important Information

  I accept