السلام عليكم ورحمه الله وبركاته وبها نبدأ اي موضوع
انا بحاول اربط GREEN API
عباره عن ارسال رسائل من خلال api للاواتساب
بس بحاول احط الكود و بعمل تشغيل ما بجاوب
Sub SendMessage()
Dim URL As String
Dim RequestBody As String
Dim http As Object
' استبدل القيم الفعلية لـ idInstance و apiTokenInstance
URL = "https://console.green-api.com/instanceList/tariff/result?status=success&curTariff=DEVELOPER/waInstance7103936196/sendMessage/e99699119c394b29afa9beb144a8497698eb7f281b084a1089"
' تحديد رقم الهاتف ونص الرسالة
RequestBody = "{""chatId"":""00970599335525@c.us"",""message"":""Hello World""}"
Set http = CreateObject("MSXML2.XMLHTTP")
With http
.Open "POST", URL, False
.setRequestHeader "Content-Type", "application/json"
.Send RequestBody
End With
Set http = Nothing
End Sub
ايش رايكم .