تصميم برنامج إرسال ومشاركة الملفات إلى الوتسأب عن طريق الأكسس
في الدرس السابق شرحنا كيفية إرسال رسائل نصية عبر واتساب باستخدام Access.
لكن الكثير من المطورين يحتاجون أيضًا إلى إرسال ملفات مثل:
صور
PDF
مستندات Word
تقارير Access
واتساب لا يوفر API رسمي لإرسال الملفات مباشرة، لكن يمكننا استخدام WhatsApp Web وفتح نافذة إرسال الملف تلقائيًا عبر VBA.
في هذا الدرس نشرح الطريقة العملية لإرسال الملفات من Access إلى واتساب.
📌 مبدأ العمل
واتساب لا يسمح بإرسال الملفات عبر رابط URL مثل الرسائل النصية، لذلك نستخدم طريقة مختلفة:
فتح محادثة واتساب مع رقم معين عبر الرابط:
https://wa.me/رقم_الهاتف
تشغيل WhatsApp Web في المتصفح.
استخدام VBA لفتح نافذة اختيار الملف تلقائيًا.
يقوم المستخدم بالضغط على زر الإرسال.
🧩 أولًا: فتح محادثة واتساب من Access
نستخدم نفس الطريقة السابقة:
vba
Dim Phone As String
Phone = Me!Phone
Application.FollowHyperlink "https://wa.me/" & Phone
📁 ثانيًا: إرسال ملف عبر واتساب باستخدام VBA
لا يمكن إرسال الملف مباشرة عبر الرابط، لكن يمكن فتح نافذة اختيار الملف تلقائيًا باستخدام SendKeys.
✔ مثال كامل لإرسال ملف:
vba
Private Sub btnSendFile_Click()
Dim Phone As String
Dim FilePath As String
' رقم الهاتف
Phone = Me!Phone
' مسار الملف
FilePath = Me!FilePath
' فتح محادثة واتساب
Application.FollowHyperlink "https://wa.me/" & Phone
' الانتظار حتى يفتح المتصفح
Application.Wait (Now + TimeValue("0:00:03"))
' فتح نافذة اختيار الملف (Ctrl + Alt + Shift + A)
SendKeys "^+%a", True
' الانتظار لفتح نافذة اختيار الملف
Application.Wait (Now + TimeValue("0:00:02"))
' كتابة مسار الملف
SendKeys FilePath, True
' الضغط على Enter
SendKeys "{ENTER}", True
End Sub
🔍 شرح الكود
1) فتح محادثة واتساب
يفتح WhatsApp Web مباشرة مع الرقم المطلوب.
2) الانتظار 3 ثوانٍ
حتى يتم تحميل الصفحة بالكامل.
3) فتح نافذة إرسال الملفات
واتساب يستخدم الاختصار:
Ctrl + Alt + Shift + A
لفتح نافذة اختيار الملفات.
4) إدخال مسار الملف
يتم كتابة المسار تلقائيًا داخل نافذة اختيار الملفات.
5) الضغط على Enter
لتأكيد اختيار الملف.
🧪 مثال عملي
إذا كان لديك:
رقم: 966500000000
ملف: C:\Reports\Invoice.pdf
سيقوم Access بـ:
فتح محادثة واتساب
فتح نافذة اختيار الملف
إدخال المسار
تجهيز الملف للإرسال
ويبقى فقط أن تضغط على زر Send داخل واتساب.
⚠️ ملاحظات مهمة
يجب أن يكون المستخدم مسجل دخول في WhatsApp Web.
لا يمكن إرسال الملف تلقائيًا بالكامل بسبب قيود واتساب.
يجب أن يكون مسار الملف صحيحًا.
SendKeys قد يختلف حسب سرعة الجهاز والمتصفح.
يفضل استخدام Google Chrome لأنه الأكثر توافقًا.
⭐ تحسينات إضافية يمكنك إضافتها
اختيار الملف من خلال مربع حوار FileDialog.
إرسال ملفات متعددة في نفس المحادثة.
إرسال ملفات مختلفة لأرقام مختلفة عبر Loop.
إضافة مؤقتات دقيقة حسب سرعة الجهاز.
خلاصة
إرسال الملفات عبر واتساب من خلال Access ممكن باستخدام VBA وWhatsApp Web.
ورغم أن واتساب لا يسمح بالإرسال التلقائي الكامل، إلا أن الطريقة التي شرحناها توفر:
فتح المحادثة
فتح نافذة اختيار الملف
إدخال المسار تلقائيًا
ويبقى فقط إرسال الملف يدويًا، مما يجعل العملية شبه تلقائية وسهلة الاستخدام.
التسميات
برامج مكتبية