ارسال البيانات من الاكسيل الي الواتساب

ارسال البيانات من الاكسيل الي الواتساب

ارسال البيانات من الاكسيل الي الواتساب لعل الواتساب من اكثر تطبيقات التطبيقات انتشارا  بين المستخدمين و ذلك لسهوله استخدامه و العديد من المزايا الرائعه فنقدم لكم اليوم مجموعه من الافكار البرمجيه لاستخدام الاكسيل في ارسال رسائل الي الواتساب و يمكنك تطوير هذه الافكار بالشكل المناسب لطبيعه عملك

استخدام الاكسيل في ارسال رسائل الي الواتساب

يوجد العديد من الافكار البرمجيه التي يمكن تطويرها لتتناسب مع هذا العمل و لكن في البدايه دعنا نفكر بشكل منطقي اكثر

ليتم ربط الاكسيل بالواتساب او باي موقع ويب فالموضوع هنا يمكن تنفيذه باحدي طريقتين

اما عن طريق استخدام واتساب api او عن طريق استخدام طريقه الارسال اليدويه في الارسال باستخدام المتصفح

و سوف نتعرف علي كل من هذه الطريقتين بشئ من التفصيل

استخدام api في عمليه الارسال

اولا بالنسبه الي استخدام api يستخدم api في الربط بين الويب و اي تطبيق او الربط بين الموقع و بعضها و هو وسيله امنه الي حد ما حيث يكون محدد بصلاحيات الوصول و عن طريق الكود يتم ارسال الرساله مره واحده بشكل كامل علي العكس الطريقه اليدويه و التي تعتمد علي انتهاء تنفيذ الخطوات ليتم الدخول في خطوه تاليه من خطوات الارسال و في هذه الطريقه يكون الكود فقط للتاكد من البيانات التي يجب توافرها و التاكد من صحه api و الاتصال لتنفيذ الاجراء المطلوب

 

الطريقه اليدويه في عمليه الارسال

و المقصود بطريقه الارسال اليدويه هنا هو الارسال باستخدام ازرار الكيبورد  و المتصفح

وذلك باستخدام اوامر لتنفذ هذه الضغطات بشكل ممتالي بفارق زمني حتي يتم تنفيذ كل امر برمجي و اكتمال تنفيذ هذا الامر و الانتقال الي الخطوه التاليه

و تقوم هذه الطريقه علي فتح المتصفح ثم الانتقال الي موقع الواتساب ويب

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

الفرق بين الطريقه اليدويه في الارسال و استخدام api

و من الجدير بالذكر ان استخدام api مع الاوفيس يحتاج الي مطور لديه المزيد من الخبره عكس الطريقه اليدويه التي تحتاج الي خبره بسيطه

يعد افكار استخدام api افكار اكثر احترافيه علي العكس الطريقه اليدويه حيث ان في الطريقه اليدويه اذا لم تنجح اي خطوه من خطوات الاسال بسبب تاخر تحميل الصفحه فان الكود لن يتوقف و يستمر في العمل مع ان العمليه سوف تنتهي بالفشل في الارسال

عند استخدام api في ارسال الي الواتساب لا تحتاج الي فتح الواتساب او فتح المتصفح لاتمام عمليه الارسال علي العكس الطريقه اليدويه التي تحتاج الي فتح الواتساب و استخدام الواتساب ويب في المتصفح مما يعطي للطريقه اليدويه الكثير من نقاط الضعف

من مزايا الطريقه اليدويه انك تري كل خطوه من خطوات الاسال بشكل كامل مما يقلل من احتمال حظر الرقم خاصا اذا كنت تستخدم الواتساب في ارسال رسائل لارقام ليست في جهات اتصالك

يمكن تطوير كل من الطريقتان لعمل برنامج متكامل يتناسب مع طبيعه عملك

 

سوف نستعرض كل من الكودين المستخدمين في كل حاله و عليك الاختيار بين هذه الطرق

طريقه الاسال عن طريق استخدام api

Sub Main_Routine()

  WhatsAppMessage_Send "12345670101", "تمت المهمه بنجاح"  
End Sub


Sub WhatsApp_Message_Send(ByRef strNumber As String, ByRef strMessage As String)
' افتراض المتغيرات التي يحتاج اليها عمليه الارسال
  Dim INSTANCE_IDapp As String, CLIENT_ID As String, CLIENT_SECRET_ID As String, whatsapp_API_URL As String
  Dim strJson As Variant
  Dim sHTML As String
  Dim oHttp As Object
  
  '''متغيرات البيانات من api , رمز التحقق و
  INSTANCE_IDapp = "YOUR_INSTANCE_IDapp_ID_HERE"
  CLIENT_ID = "YOUR_CLIENT_ID_HERE"
  CLIENT_SECRET_ID = "YOUR_CLIENT_CLIENT_SECRET_ID_HERE"
  whatsapp_API_URL = "http://api.whatsmate.net/v3/whatsapp/single/text/message/" & INSTANCE_IDapp
' امر الارسال باستخدام api
  strJson = "{""number"": """ & strNumber & """, ""message"": """ & strMessage & """}"

  Set oHttp = CreateObject("Msxml2.XMLHTTP")
  oHttp.Open "POST", whatsapp_API_URL, False
  oHttp.setRequestHeader "Content-type", "application/json"
  oHttp.setRequestHeader "X-WM-CLIENT-ID", CLIENT_ID
  oHttp.setRequestHeader "X-WM-CLIENT-SECRET", CLIENT_SECRET_ID
  oHttp.Send strJson

  sHTML = oHttp.ResponseText
  MsgBox sHTML
End Sub

 

كود الطريقه اليدويه

Sub Test()
'نقوم بافترض متغير لنص الرساله
    Dim text As String
'نقوم بافترض متغير للرقم المراد الارسال له
    Dim contact As String
    text = Range("a2").Value
'يقوم الكود هنا بفتح المتصفح وفتح موقع الواتساب ويب المستخدم في عمليه الارسال
    ActiveWorkbook.FollowHyperlink Address:=" https://web.whatsapp.com/"
    If MsgBox("هل صفحه الواتساب تعمل بشكل كامل?" & vbNewLine & vbNewLine & "اضغط لا لالغاء الامر", vbYesNo + vbQuestion + vbSystemModal, "واتساب") = vbYes Then
' اعطاء مهله انظار
        Fazer (100)
        startrow = 2
        startcol = 2
        Do Until Sheets(1).Cells(startrow, 1) = ""
            contact = Cells(startrow, 1)
            text1 = Sheets(1).Cells(startrow, startcol).Value
' اعطاء مهله انظار
            Fazer (3000)
' امر الضغط علي الازرار
                Call SendKeys("{TAB}", True)
' اعطاء مهله انظار
            Fazer (1000)
                Call SendKeys(contact, True)
' اعطاء مهله انظار
            Fazer (1000)
                Call SendKeys("~", True)
' اعطاء مهله انظار
            Fazer (1000)
                Call SendKeys(text1, True)
' اعطاء مهله انظار
            Fazer (1000)
                Call SendKeys("~", True)
' اعطاء مهله انظار
            Fazer (1000)
            startrow = startrow + 1
        Loop
    Else
    End If
End Sub
'داله مهله الانظار حتي تنتهي العمليه بنجاح
Function Fazer(ByVal Acao As Double)
    Application.Wait (Now() + Acao / 24 / 60 / 60 / 1000)
End Function

 

يمكن ان يعجبك أيضا

الفاتورة الالكترونية لهيئة الزكاة والدخل فى السعودية المرحلة الثانية

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

خطوه في تجهيز برامج الاكسيس للربط مع الويب للتعرف علي الفكره من هنا