خطأ فى كود ارسال الواتس

[tiger wanted]

قمت بعمل هذا الكود بناء على موقع اجنبى لارسال واتس من اكسس ولكن يقوم بارسال الواتس برجاء التوضيح 

Private Sub send_Click()
Dim strurl As String
Dim strdata As String
Dim struser As String
Dim strpwd As String
Dim objrequest As ServerXMLHTTP60
strurl = "https://api.twilio.com/2010-04-01/Accounts/AC844a9cca973d4a95a55b0e9198255350/Messages.json"
strdata = "From=whatsapp:14155238886"
strdata = strdata & "&To=whatsapp:" & Me!whatsAppto
strdata = strdata & "&body=" & Me!whatsAppmsg
struser = "sid id"
strpwd = "token"

Set objrequest = New ServerXMLHTTP60
objrequest.Open "POSt", strurl, False, struser, strpwd
objrequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objrequest.send strdata

Debug.Print objrequest.responseBody
End Sub
 

[Barna]

14 دقائق مضت, tiger wanted said:

قمت بعمل هذا الكود بناء على موقع اجنبى لارسال واتس من اكسس ولكن يقوم بارسال الواتس برجاء التوضيح

هل بحث في المنتدى عن الأمثلة الكثيرة عن هذا الموضوع

[Foksh]

مشاركة مع الأستاذ @Barna ، لاحظ أخي الكريم @tiger wanted أن الكود الذي ارفقته سيعتمد على :-

1. القيمتين SID و Token من حسابك في شركة Twilio الخاص بك ، فهل تملك حساب للحصول على المفتاحين لتستطيع استخدام الخدمة ؟؟
2. لاحظ في هذه العبارة From=whatsapp:14155238886 ، أن المستخدم خصص رقم هاتف لأرسال رسالة واتس أب ، فهل هذا رقمك ؟؟؟؟؟؟
3. في معظم الخدمات التي تستخدم خدمات API يجب توافر مكتبة JSON الخاصة بالخدمة لتستطيع الأرسال و تلقي الرد من خلال آكسيس .

 

لذا فأن الكود لن يعمل معك لأنك ستحتاج ارقام خاصة بحسابك في هذه الخدمة لدمجها في الكود .