السلام عليكم ورحمة الله بركاته

أقدم لكم اليوم موضوع جديد يخص إرسال رسائل نصية باستخدام الأكواد في الإكسيل .. المواقع التي تتعامل مع الرسائل النصية تتطلب دفع مبالغ مالية مقابل كل عدد محدد من الرسائل ولكني سأقدم لكم اليوم موقع يعطيك حوالي 15 دولار كرصيد يمكنك استخدامه ، ومن ثم تجربة الموقع فإذا كنت في حاجة إلى استخدام الخدمة منهم فتعرف على الأسعار التي يقدمونها من خلال الرابط Pricing والذي يوضح لك الأسعار وعدد الرسائل مقابل كل سعر.

عموماً سنقوم بتجربة الموقع والأكواد ويمكنكم بعد ذلك استخدام الخدمة بشكل مجاني بالرصيد الذي يعطيه لك الموقع ، وعندما ينتهي الرصيد وتريد المزيد يمكنك التسجيل في الموقع بإيميل جديد والتسجيل لن يستغرق منك سوى بضع دقائق.

سأشرح كيفية التسجيل بالصور حتى لا يلتبس عليكم الأمر


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



















والآن بعد أن تعرفنا على كيفية التسجيل في الموقع والبيانات التي سنقوم بنسخها إليكم الكود كمثال لكيفية إرسال رسالة نصية إلى الموبايل

Sub Send_SMS_Messages_Twilio_API_Using_VBA()

    Rem Use Your Credentials ----
    Const AccountSID As String = "Your Account SID"
    Const AUTHTOKEN As String = "Your AUTH TOKEN"
    Rem -------------------------
    
    Dim http As Object, SendFrom As String, SendTo As String, SendText As String, SendBody As String, sURL As String
    
    Rem Twilio Phone Number -----
    SendFrom = "+12000000000"
    Rem -------------------------
    
    Rem Your Phone Number -------
    SendTo = "+20120455000"
    Rem -------------------------
    
    SendText = "Hello Excel-Egy Members" & ", " & vbCrLf & "This Is Test Message From Twilio Testing API Request Sending SMS"
    SendBody = "To=+" & SendTo & "&From=" & SendFrom & "&Body=" & SendText
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    sURL = "https://api.twilio.com/2010-04-01/Accounts/" & AccountSID & "/Messages.json"
    With http
        .Open "POST", sURL, False, AccountSID, AUTHTOKEN
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send SendBody
        If InStr(.responseText, "queued") <> 0 Then
            Debug.Print "Success"
        Else
            Debug.Print "Failure"
        End If
    End With
    
End Sub

إذا ظهرت لديك في النافذة الفورية كلمة Success فهذا يعني أنه تم إرسال الرسالة بنجاح ...

كان معكم أخوكم في الله / ياسر خليل أبو البراء