البحث في الموقع

كيف يمكن لي ان اطلب خدمة وتعديل على قاعدة بيانات خاصة بي اكسس واضافة صلاحيات المستخدمين فقط وتشفير وحماية النظام برقم القرص الصلب هل يمكن لاخد مساعدتي بمقابل مادي ويتم التواصل معي لو سمحتوا لي مشاريع كثيرة واريد احد يساعدني بارك الله فيكم كيف يمكن الوصول الى شخص فاهم بشكل غير عادي معه مبلغ مادي وينجز طلبي خلال ايام وهل يسمح لي بطرح رقم هاتفي واتساب في المنتدى ؟ تواصل معي واتساب / 00967784455777

مسائكم خير وسعادة وافراح ان شاء الله هذا برنامج مرسل واتساب من عمل الأستاذ أبو خليل جزاه الله خير أحتاج اضافة نموذج يكون عمله يرسل لكل اسم صوره مختلفه عن الاسم الثاني sendwatsWebAll.rar

السلام عليكم استاذة كرام هذا الملف سوف يكون مكون تقريبا من 7 الاف إلى 8 آلاف اسم ..... أحتاج ان يرسل رسالة إلى رقم الواتساب اذا كان لديه واتساب وان يتجاوز الرقم اذا لم يكن لديه واتساب 1) يرسل صورة في عمود (صوره الكتاب) احيانا مشتركة ل100 شخص نفس الصورة واحيانا لشخص واحد 2) يرسل صوره في عمود ( الكارت ) نفس الصورة لجميع الأشخاص 3) يرسل رسالة موحده في عمود ( الرسالة ) نفس الرسالة لجميع الاشخاص ارسال رسائل الى الواتساب1.accdb

السلام عليكم بداية الكود كانت من الاستاذ الفاضل @ابوخليل يشرفني ان ارسل لكم تعديل بارسال المرفقات عبر واتساب ويب اي نوع مرفق يمكن ارساله (مستند / صورة /فديو /اكسيل -وارد - يمكنك اضافة اي امتداد بالكود وسيقوم بارساله - يمكنك ارسال تقرير مياشرة او تحديد مرفق - يقوم بالارسال لعدد غير محدود الارقام المضافة لديكم وغير المضافة . تغير وزيادة نوع المستند او المرفق من هنا AttachmentPath = reportPath ' تحديد نوع المرفق بناءً على المسار المحفوظ If InStr(reportPath, ".pdf") > 0 Then AttachmentType = 1 ' ملف PDF ElseIf InStr(reportPath, ".doc") > 0 Or InStr(reportPath, ".docx") > 0 Or InStr(reportPath, ".xls") > 0 Or InStr(reportPath, ".xlsx") > 0 Or InStr(reportPath, ".ppt") > 0 Or InStr(reportPath, ".pptx") > 0 Then AttachmentType = 1 ' ملف PDF ElseIf InStr(reportPath, ".jpg") > 0 Or InStr(reportPath, ".jpeg") > 0 Or InStr(reportPath, ".png") > 0 Or InStr(reportPath, ".gif") > 0 Or InStr(reportPath, ".bmp") > 0 Or InStr(reportPath, ".tif") > 0 Or InStr(reportPath, ".tiff") > 0 Or InStr(reportPath, ".webp") > 0 Or InStr(reportPath, ".svg") > 0 Then AttachmentType = 2 ' صورة ElseIf InStr(reportPath, ".mp4") > 0 Or InStr(reportPath, ".avi") > 0 Or InStr(reportPath, ".mov") > 0 Or InStr(reportPath, ".wmv") > 0 Then AttachmentType = 2 ' صورة ElseIf InStr(reportPath, ".sticker") > 0 Then AttachmentType = 6 ' ملصق Else ' يمكنك إضافة المزيد من الامتدادات إلى هنا إذا لزم الأمر AttachmentType = 0 ' غير معروف End If ملحوظة عند اي تحديث لواتساب يجب تعديل خاصية send key ( ' إرفاق المرفق إذا كان موجودًا If AttachmentPath <> "" Then ' الانتقال لزر إرسال المرفقات الجديد ' الانتقال لزر إدراج المستندات الجديد SendKeys "+{TAB}" ' الرجوع خطوة واحدة SendKeys "+{TAB}" ' الرجوع خطوة إضافية إذا لزم الأمر SendKeys "~" ' الضغط على الزر Sleep 1000 ' الانتظار لفتح مربع اختيار الملف ) كنت من فتره طورت الكود لصديقي وقفلت الموضوع اليوم طلبه مني صديق اخر احببت اشارك الجميع الكود ربما ينتفع به غيرنا كما تعلمنا من هذا الجروب العظيم يشهد الله اني تعلمت الاكسس من هذا الجروب العظيم وكل شخص فيه له فضل عليا ولم يقصر اي شخص في المساعدة. cash1.rar

اخي العزيز محمد مرحبا بك في منتداك الثاني أكسس الموضوع قتل بحثا هنا ومواضيع كثيرة عن اكسس والواتساب سواء التطبيق او واتساب ويب ويبدوا انك لم تبحث ، لهذا لم تجد مبادرة في الرد في هذه الصفحة وفي موضوع : دروس وشروحات هذا .. اكثر من عنوان لطلبك حاول تعمل على احد تلك الامثلة المناسبة لك وتكيفه حسب احتياجاتك .. والصعوبات التي تواجهها اعرضها هنا

كود برمجي لارسال رساله عبر الواتس اب من الاكسيل الحل المثالي لارسال اكبر عدد من الرسائل من الاكسيل للواتس اب الجديد الكود البرمجي كامل : Sub sendMessage() Dim contact As String Dim text As String num = Application.WorksheetFunction.CountA(Sheets("data").Range("a:a")) - 2 ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/" Application.Wait (Now + TimeValue("00:00:07")) For I = 0 To num contact = Sheets("data").Range("c2").Offset(I, 0).Value text = Sheets("data").Range("g2").Offset(I, 0).Value Call SendKeys("^%{/}", True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys(contact, True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys("~", True) Application.Wait (Now + TimeValue("00:00:05")) Call SendKeys(text, True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("~", True) Application.Wait (Now + TimeValue("00:00:01")) Call SendKeys("^%{/}", True) Next I End Sub إرسال رسائل واتساب من إكسل: تُستخدم هذه العبارة بشكل عام للبحث عن طرق إرسال رسائل واتساب من خلال ملف إكسل. ربط إكسل بواتساب: تُشير هذه العبارة إلى البحث عن حلول لربط ملف إكسل بتطبيق واتساب لتمكين إرسال الرسائل تلقائيًا. ماكرو إكسل لإرسال رسائل واتساب: تُستخدم هذه العبارة للبحث عن أكواد ماكرو مخصصة لإكسل تسمح بإرسال رسائل واتساب. أدوات إرسال رسائل واتساب من إكسل: تُشير هذه العبارة إلى البحث عن برامج أو تطبيقات خارجية تعمل كوسيلة وسيطة لإرسال الرسائل من إكسل إلى واتساب. إرسال رسائل واتساب تلقائيًا من إكسل ربط إكسل بواتساب إرسال رسائل واتساب من إكسل . أتمتة واتساب باستخدام إكسل . VBA لربط إكسل بواتساب . ماكرو إكسل لواتساب . وهذا ملف اخر عدلة كما تريد اسهل طريقة ارسال وربط ملف الاكسيل بالواتس اب وارسال رسائل المدرسة او الشركة من الاكسيل للواتس اب.xlsm

إليك كود VBA في Excel لتحقيق ذلك، مع شرح تفصيلي: شرح الكود المتغيرات: lastRow: لتحديد آخر صف يحتوي على بيانات في العمود A (يمكنك تغيير العمود حسب الحاجة). i: متغير يستخدم في حلقة التكرار للمرور على الصفوف. endDate: لتخزين تاريخ انتهاء العقد. daysRemaining: لحساب عدد الأيام المتبقية حتى انتهاء العقد. emailAddress: لتخزين عنوان البريد الإلكتروني للشخص المعني. messageBody: لتخزين نص الرسالة. حلقة التكرار: تكرر الحلقة على جميع الصفوف التي تحتوي على بيانات. تفترض أن تاريخ انتهاء العقد موجود في العمود B، وأن عنوان البريد الإلكتروني موجود في العمود C، ونص الرسالة موجود في العمود D. يمكنك تغيير هذه الأعمدة حسب الحاجة. يتم حساب عدد الأيام المتبقية حتى انتهاء العقد باستخدام الدالة DateDiff. إذا كان عدد الأيام المتبقية 60 يومًا أو أقل، يتم تنفيذ الخطوات التالية: جلب عنوان البريد الإلكتروني ونص الرسالة. استخدام CreateObject("Outlook.Application") لإرسال البريد الإلكتروني. تحديد عنوان المرسل إليه، الموضوع، ونص الرسالة. عرض البريد الإلكتروني أو إرساله مباشرةً. إرسال واتساب: تتطلب هذه الخطوة استخدام واجهة برمجة تطبيقات (API) خاصة بـ WhatsApp، حيث لا يوجد طريقة مباشرة لإرسال رسائل WhatsApp باستخدام VBA فقط. يمكنك استخدام خدمات مثل Twilio أو MessageBird أو غيرها لإرسال رسائل WhatsApp عبر API. يجب عليك التسجيل في إحدى هذه الخدمات والحصول على مفتاح API. يمكنك استخدام الدالة CreateObject("MSXML2.XMLHTTP") لإرسال طلب HTTP إلى API الخاص بـ WhatsApp. الكود ملاحظات: تأكد من تغيير أسماء الأعمدة في الكود لتتوافق مع بياناتك. لتفعيل إرسال الايميل يجب تفعيل المكتبة الخاصة ب outlook من قائمة tools ثم references ثم اختيار Microsoft outlook Object Library. لإرسال رسائل WhatsApp، ستحتاج إلى إضافة كود إضافي باستخدام API. يمكنك تخصيص نص الرسالة وموضوع البريد الإلكتروني حسب الحاجة. يمكنك جدولة تشغيل هذا الكود تلقائيًا باستخدام وظيفة "جدولة المهام" في Windows. إضافة كود لإرسال رسائل WhatsApp باستخدام API يتطلب بعض الخطوات الإضافية. إليك شرح لكيفية القيام بذلك باستخدام خدمة Twilio، وهي واحدة من الخدمات الشائعة التي توفر واجهة برمجة تطبيقات (API) لإرسال رسائل WhatsApp: 1. التسجيل في Twilio والحصول على مفتاح API: قم بزيارة موقع Twilio وقم بإنشاء حساب. بعد تسجيل الدخول، انتقل إلى وحدة تحكم Twilio واحصل على مفتاح API الخاص بك (Account SID وAuth Token). قم بتمكين WhatsApp في حساب Twilio الخاص بك. احصل على رقم هاتف Twilio يدعم WhatsApp. 2. إضافة مكتبة MSXML2: في محرر VBA، انتقل إلى "Tools" ثم "References". ابحث عن "Microsoft XML, v6.0" أو إصدار أحدث وقم بتحديده. 3. كود VBA لإرسال رسالة WhatsApp: Sub SendEmailOrWhatsApp() Dim lastRow As Long Dim i As Long Dim endDate As Date Dim daysRemaining As Long Dim emailAddress As String Dim messageBody As String lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' تحديد آخر صف في العمود A For i = 2 To lastRow ' ابدأ من الصف الثاني (بافتراض أن الصف الأول هو رأس الجدول) endDate = Cells(i, "B").Value ' تاريخ انتهاء العقد في العمود B daysRemaining = DateDiff("d", Date, endDate) ' حساب الأيام المتبقية emailAddress = Cells(i, "C").Value ' عنوان البريد الإلكتروني في العمود C messageBody = Cells(i, "D").Value ' نص الرسالة في العمود D If daysRemaining <= 60 Then ' إرسال بريد إلكتروني Dim outlookApp As Object Dim outlookMail As Object Set outlookApp = CreateObject("Outlook.Application") Set outlookMail = outlookApp.CreateItem(0) With outlookMail .To = emailAddress .Subject = "تنبيه: انتهاء العقد" .Body = messageBody .Display ' أو .Send للإرسال مباشرةً End With Set outlookMail = Nothing Set outlookApp = Nothing ' إرسال واتساب (يتطلب استخدام API) ' يمكنك إضافة كود لإرسال واتساب هنا باستخدام API End If Next i End Sub Sub SendWhatsAppMessage(phoneNumber As String, messageBody As String) Dim xmlHttp As Object Dim accountSid As String Dim authToken As String Dim twilioNumber As String Dim url As String accountSid = "ACxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" ' استبدل بـ Account SID الخاص بك authToken = "your_auth_token" ' استبدل بـ Auth Token الخاص بك twilioNumber = "whatsapp:+1xxxxxxxxxx" ' استبدل برقم Twilio الخاص بك phoneNumber = "whatsapp:+xxxxxxxxxxx" ' استبدل برقم هاتف المستلم url = "https://api.twilio.com/2010-04-01/Accounts/" & accountSid & "/Messages.json" Set xmlHttp = CreateObject("MSXML2.XMLHTTP") xmlHttp.Open "POST", url, False xmlHttp.setRequestHeader "Authorization", "Basic " & EncodeBase64(accountSid & ":" & authToken) xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlHttp.send "To=" & phoneNumber & "&From=" & twilioNumber & "&Body=" & EncodeUrl(messageBody) If xmlHttp.Status = 201 Then MsgBox "تم إرسال رسالة WhatsApp بنجاح!" Else MsgBox "فشل إرسال رسالة WhatsApp. الحالة: " & xmlHttp.Status End If Set xmlHttp = Nothing End Sub Function EncodeBase64(text As String) As String Dim arrData() As Byte arrData = StrConv(text, vbFromUnicode) Dim objXML As Object Dim objNode As Object Set objXML = CreateObject("MSXML2.DOMDocument") Set objNode = objXML.createElement("b64") objNode.DataType = "bin.base64" objNode.nodeTypedValue = arrData EncodeBase64 = objNode.text Set objNode = Nothing Set objXML = Nothing End Function Function EncodeUrl(text As String) As String Dim objXML As Object Set objXML = CreateObject("MSXML2.DOMDocument") EncodeUrl = objXML.createElement("url").appendChild(objXML.createTextNode(text)).ParentNode.innerHTML Set objXML = Nothing End Function

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar

تحية طيبة للجميع لدي ملف اكسل وظيفته يرسل رسائل (اشعارات) لمستأجرين في عقارات مختلفة محدد صيغتها في العمود D والكود البرمجي يرسل مباشرة للارقام المضافة في العمود C. المشكلة عندي هي أن الكود يرسل مباشرة لجميع الارقام المدخلة بدون إمكانية التحديد و أيضاً في حال كان الرقم لا يوجد عليه واتساب لا يتجاوزه فتتأثر باقي العمليات الي بعدها بسبب هالشيء. فالمطلوب باختصار طريقة لتحديد الارقام المراد إرسال لها رسالة دون حذف الرقم لتجنب الارسال للكل ، و طريقة لمعرفة الارقام التي ليس لديها واتساب أو تجاوزها دونتأثر باقي عمليات الارسال. إن كان هناك حل للملف أكون شاكر وممنون لكم واتساب رسائل المستأجرين-نسخة.xlsm

السلام عليكم ارجو المساعدة في تعديل هذا لكود والله لي أسبوع أو أكثر ولم أتمكن من التعديل الصحيح.... المشكلة تكمن في دالة التكرار ... __مرسال الواتسأب.accdb

السلام عليكم مرفق لكم ملف من تصميم احد الاخوة يعمل على ارسال رسائل واتساب من خلال تطبيق واتساب ويندوز تم التعديل عليه لكن يعمل احيانا ومرات لا يعمل ارجوا المساعدة وتجربته Whatsapp Send 11.zip

هل يمكن تجاهل الرقم غير الموجود فى واتساب نسخة أستاذى / ابو خليل العمل على نموذج SendWhatsWeb المطلوب قبل ادخال الرقم الجديد فى مربع البحث واتساب يتم مسح الرقم القديم والرسالة اى مسح اى كتابة موجودة حتى لا يتوقف البرنامج عن العمل و تغيير الرسالة الى مربع نص بحوار رقم التليفون بالاسفل فى النموذج الفرعى و ذلك لتغير الرسالة لكل شخص على حده وجزاكم الله كل خير sendwatsWebAll.rar

المشكلة عند ارسال صورة لرقم غير مسجل فى واتساب نموذج SendWhatsMoreMsg يتوقف البرنامج عن العمل وتاتى رسالة خروج من الوتساب المطلوب اغلاق رسالة الخروج و العودة الى ادخال الرقم التالى وجزاكم الله كل خير sendwatsWebAll2.rar

السلام عليكم لدي مشكلة في هذا المديول الخاص بارسال رسائل واتس اب حيث انه لا يقوم بالضغط التلقائي علي زر ارسال بعد كتابة الرساله Option Compare Database 'WhatsApp must be installed on your PC Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal duMilliseconds As Long) #End If Public Function Whatsapp_text(phone, Message) Dim Path As String Path = "whatsapp://send?phone=2" & phone & "&text=" & Message CreateObject("Shell.Application").Namespace(0).ParseName(Path).InvokeVerb "Open" ' إرسال الرسالة Sleep 2000 SendKeys "~" Sleep 500 SendKeys "~" Sleep 500 SendKeys "~" SendKeys "{NUMLOCK}", True End Function

ممكن تعلمنا مصدر المشاركة الأخرى، هل هي موقع أكسس آخر أو مجموعة واتساب أو رسالة داخلية أو ذكاء اصطناعي؟

السلام عليكم ورحمه الله وبركاته ممكن اختصارات الواتساب بعد التحديث الجديد

فى هذا النموذج يمكن ارسال رسالة الى جروب واتساب اسم الجروب يتم كتابته فى حقل Remarks فى الجدول كما هو فى الواتس يتم فتح صفحة الواتساب فى متصفح الكروم و يتم ارسال الرسالة من يريد أن يطوره أكثر فاليتفضل مشكورا الفكرة من البحث على الانترنت فى فيديو شاهدته على اليوتيوب Group.accdb

كيف يمكن معرف الارقام التى تم ارسال الرسالة لها و الارقام التى لم ترسل لها رسائل بحيث أنه فى حالة الارسال يكتب تم ارسال الرسالة وفى حاله انه لم يتم الارسال و السبب أن الرقم ليس مسجل فى الواتس يكتب لم يتم ارسال الرسالة وجزاكم الله خيراً WhatsappMessageSender.rar

السلام عليكم الموضوع / ارسال رسالة نصية واتساب التوضيح / عند ارسال الرسالة يجب كتابة اسم المرسل اولا فى سطر منفرد ثم الرسالة النصية ثانيا ثم ظهور المرفق ثالثا ثم عنوان الراسل رابعابسطر منفرد المشكلة / ظهور كل مربعات النص متلاصقة بصورة غير واضحة كما فى الصورة المرفقة المطلوب / تعريف مربعات النص للكود بصورة تظهر ما تم ذكره بصورة منسقة ومرتبه وواضحة وكل الاحترام والتقدير للجميع تجرية.rar

بسم الله الرحمن الرحيم برنامج ارسال الاف الرسائل بسهولة مطلقة علي الواتساب معتمد يصفة اساسية علي الVBA وترجمة الخطوات الروتينية لارسال رسالة واحدة علي الواتس اب وتنفيذها داخل حلقة تكرارية لارسال اي عدد ممكن بشرط الارقام تكون متسجلة علي سجل الهاتف الملف موجود للتحميل ولو اي حاجه وقفت قدامك وان شاء الله ده مش هيحصل فده فيديو شرح للبرنامج وبالمناسبة علشان مطولش علي حضرتكم علشان ليا سؤال عند خبراء المنتدي لو حد الموضوع هيفرق معاه وهيحتاج انه يجيب ارقام عليها واتساب او ينزل ارقام علي الاكسيل لسجل الهاتف الخاص بي ممكن يكتبلي في التعليقات والله العظيم هستغل البرنامج في الخير بس انت حلفت وانت حر بقي ربنا يستر علي الجميع ان شاء الله !! _____________________________________________ اتمني اكون قدمت قبل ما اطلب الخدمة انا في شغلي متبني جدا فكرة العمل الالي للكمبيوتر بتاعي وربنا بيوفقني وبعمل حاجات زمايلي في الادارات التانية مش بيصدقوا ان الكمبيوتر شغال لوحده وبينزل داتا او بيطبع ورق البيانات الي فيه مختلفة بس انا عايز انمي نفسي اوي في الحته دي كل اعتمتادي علي SENDKEYS مثلا او تحريك الماوس في ابعاد معينة والنقر وهكذا وباخد العمل الروتيني ده واحطه في بنية تكرارية من 1 ل 100 علي سبيل المثال وكل عده بيجلب بيانات معينة وينفذها اتمني حد يساعدني بمصدر ادرس منه لكي يكون الموضوع اكثر مهنيه مش مجرد اجتهادات مني بتنجح بامتياز الف حمد والف شكر ليك يارب بس عايز اكون اكثر اطلاع يارب يكون حد فهمني من اساتذتنا الكبار في المنتدي وبااااااااااارك الله فيكم whatsapp.xlsm

السلام عليكم ورحمة الله وبركانه تم وضع خيار نعم في العمود e لتحديد المرسل اليهم زر لتحديد الكل قي العمود e زر لمسح الكل قي العمود eا اظافة للكود لنجاوز اي رقم لا يملك واتس او لايتمكن من الارسال اليه ليس لدي واتس لاقوم بالتجربة واتساب رسائل المستأجرين-نسخة.xlsm

السلام عليكم ورحمة الله وبركاته يوجد بالملف نموذج Form1 عند الضغط على اختيار تقرير يظهر فى الكود ان هناك خلل فى الارسال كما فى الصورة ارجو التصحيح ومعرفة الخطأ ولكم جزيل الشكر تجرية.rar

السلام عليكم الموضوع عند الضغط على زر الوتساب اريد قراءة مربعات النص sub ومربع النص myname ومربع النص attach بنفس الترتيب الموجود فى الكود او بأى طريقة المهم يتم التعريف فى كود ارسال الوتساب ولكم جزيل الشكر rMSG = " || *" & Me.myname.Value & "*" & " ||" & vbcrlf & "|| *" & Me.msg.Value & "*" & " ||" & vbcrlf & "|| *" & Me.attach.Value & "* ||" & vbcrlf & "|| " & "المرسل : *" & Me.sub تجرية.rar

السلام عليكم الموضوع / ارسال رسالة نصية وتساب شرح الفكرة / عند الضغط على زر ارسال يرسل للمرسل رسالة نصية بمرفق او بدون مرفق مع ضرورة واهمية ارسال اسم المرسل ( اسم المرسل يعبر عن مؤسسة العمل ) المشكلة / عند اختيار سجل للارسال ثم الضغط على مفتاح الارسال تظهر رسالة تقول اختار اسم المرسل (برغم من ان تم اختيار سجل المرسل للارسال ) التوصية / معلجة الخطاء مع تجربة جودة كود الارسال مجرد فكرة / ماذا لو تم اخذ الرسالة مباشر من مربع النص الغير منضم ( msg ) ونستغنى عن حقل Message_text فى الجدول اتمنى ان الفكرة تشمل رعايتكم وكل عام وحضرتكم بخير وعام سعيد على الجميع تجرية.rar

السلام عليكم هناك امرين الاول عند اختيار سجل للارسال بيتم الارسال الى جميع السجلات وليس للسجل المختار والامر الثانى بيتم الارسال وهمى بدون وصول الرسالة الى الوتساب شكرا ولكم تحياتى تجرية.rar