أرسال رسائل وتسأب عن طريق الاكسس Send Whatsapp

يحتاج الكثير من مطوري Microsoft Access إلى طريقة لإرسال رسائل واتساب مباشرة من قاعدة البيانات، سواء لإرسال رسائل للعملاء، الموظفين، أو للتذكير بالمواعيد.

ورغم أن واتساب لا يوفر مكتبة رسمية لـ VBA، إلا أنه يمكن إرسال الرسائل بسهولة عبر رابط WhatsApp API الذي يعمل من خلال المتصفح.

في هذا الدرس نشرح الطريقة الكاملة لإرسال رسالة واتساب من Access باستخدام كود VBA بسيط.

📱 أولًا: فكرة إرسال رسالة واتساب من Access

واتساب يوفر رابطًا رسميًا لفتح محادثة مع رقم معين وإرسال رسالة جاهزة:

https://wa.me/رقم_الهاتف?text=الرسالة

مثال:

https://wa.me/966500000000?text=مرحبا%20يوسف

عند فتح الرابط:

يتم تشغيل واتساب ويب أو تطبيق واتساب

يتم فتح المحادثة مباشرة

تظهر الرسالة الجاهزة للمستخدم لإرسالها

Access يستطيع فتح هذا الرابط بسهولة باستخدام VBA.

🧩 ثانيًا: تجهيز جدول البيانات في Access

أنشئ جدولًا يحتوي على:

الحقل الوصف

ClientName اسم العميل

Phone رقم الهاتف بصيغة دولية

Message نص الرسالة

مثال للرقم:

966500000000

🖥️ ثالثًا: كود VBA لإرسال رسالة واتساب

ضع زرًا في النموذج، ثم استخدم الكود التالي:

vba

Private Sub btnSendWhatsApp_Click()

    Dim Phone As String

    Dim Msg As String

    Dim URL As String

    ' قراءة البيانات من النموذج

    Phone = Me!Phone

    Msg = Me!Message

    ' استبدال المسافات بـ %20

    Msg = Replace(Msg, " ", "%20")

    ' إنشاء الرابط

    URL = "https://wa.me/" & Phone & "?text=" & Msg

    ' فتح الرابط في المتصفح

    Application.FollowHyperlink URL

End Sub

🔍 ماذا يفعل هذا الكود؟

يقرأ رقم الهاتف من النموذج

يقرأ نص الرسالة

يحول المسافات إلى %20 حتى يعمل الرابط

ينشئ رابط واتساب

يفتحه في المتصفح

واتساب يقوم بالباقي

🧪 رابعًا: مثال عملي

إذا كان لديك:

رقم: 966500000000

رسالة: مرحبا يوسف، تم تسجيل حضورك.

سيقوم Access بفتح الرابط التالي:

https://wa.me/966500000000?text=مرحبا%20يوسف،%20تم%20تسجيل%20حضورك.

وسيظهر واتساب جاهزًا لإرسال الرسالة.

📤 خامسًا: إرسال رسائل جماعية (Loop)

إذا أردت إرسال رسائل لعدة أشخاص:

vba

Private Sub SendToAll_Click()

    Dim rs As DAO.Recordset

    Dim URL As String

    Dim Msg As String

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clients")

    Do While Not rs.EOF

        Msg = Replace(rs!Message, " ", "%20")

        URL = "https://wa.me/" & rs!Phone & "?text=" & Msg

        Application.FollowHyperlink URL

        rs.MoveNext

    Loop

    rs.Close

End Sub

ملاحظة: واتساب لا يسمح بالإرسال التلقائي بالكامل، لذلك سيحتاج المستخدم للضغط على زر الإرسال لكل رسالة.

⭐ نصائح مهمة

يجب أن يكون الرقم بصيغة دولية بدون "+"

استخدم Replace لتحويل المسافات

يمكنك إضافة رموز مثل %0A لعمل سطر جديد

لا تستخدم الإرسال التلقائي الكامل لأنه مخالف لسياسة واتساب

الأفضل استخدام واتساب للأعمال (WhatsApp Business)

خلاصة

إرسال رسائل واتساب من خلال Access أمر سهل وعملي باستخدام رابط WhatsApp API وكود VBA بسيط. يمكنك إرسال رسائل فردية أو جماعية، ودمجها مع قواعد البيانات لإرسال تنبيهات أو رسائل تلقائية للعملاء.

تصميم برنامج يقوم بإرسال الرسائل من الكمبيوتر إلى الوتسأب 

تم تصميم البرنامج بالأكسس 

البرنامج يقوم بإرسال الرسائل إلى العملاء ويتم اخذ ارقام العملاء تلقائياً من الجدول 

وبعد ذلك يقوم بإرسال الرسائل بدون تدخل منك 

بإمكانك استخدام الموضوع كرسائل عامة أو إضافته إلى نظام وارسال اشعارات

 ( فواتير وسندات قبض وغيرها إلى الوتسأب )

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

رابط الملفات المرفقة في جميع الشروحات تجدها على البوت في التلجرام 

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

رابط طلبات المتابعين ( اترك طلبك وسيتم الرد عليه قريباً إن شاء الله )