ارسال sms عن طريق الاكسيس باللغة العربية

[romeo4]

السلام عليكم

عندي قاعدة بيانات فيها ارقام محمول واريد ارسال رسائل عن طريق API من خلال الاكسيس

استخدمت هذا الكود للارسال

Dim result As String
Dim myUrl As String
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myUrl = "http://www.nsms.ps/api.php?comm=sendsms&user=ttak&pass=0000&to=970595099847&message=السلام عليكم&sender=TrueMark"
winHttpReq.Open "GET", myUrl, False
winHttpReq.Send
result = winHttpReq.responseText

وتم الارسال الي الجوال لاكن لا يدعم العربية تظهر الرسالة كالتالي ::

ط§ظ„ط³ظ„ط§ظ… ط¹ظ„ظٹظƒظ…

مع العلم اذا كانت الرسالة بالانجلش يرسلها بدون مشاكل

[qathi]

أخي @romeo4 حتى وأن جعلت مصدر الرسالة حقل هل يكون نفس المشكلة لديك ؟؟؟

[Ali Mohamed Ali]

استاذ

romeo4

الأمر بسيط وسهل عليك بتعديل اعدادات اللغة العربية لديك من لوحة التحكم

 

[أبوبسمله]

جزاك الله خيرا اخى @Ali Mohamed Ali

 

[ابو ياسين المشولي]

اخي romeo4

ممكن ترسل كلمه المرور واسم المستخدم على الخاص 

وابشر بالحل باذن الله

لانك انت الان عامل الكود بالافتراضي 

[romeo4]

ارسلت لك يا صديقي البيانات

[ابو ياسين المشولي]

جرب هذا

Dim R As String
Dim result As String
Dim myUrl As String
R = ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1603) & ChrW(1605)
Dim winHttpReq As Object
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myUrl = "http://www.nsms.ps/api.php?comm=sendsms&user=truemark&pass=truemark2019&to=970595099847&message=r&sender=TrueMark"
    winHttpReq.Open "GET", myUrl, False
    winHttpReq.send

    result = winHttpReq.responseText

 

[sandanet]

أخي @ابو ياسين المشولي هل لديك مثال عملي لكيفية ارسال sms مجاني من الاكسس؟

[ابو ياسين المشولي]

للاسف والله ليس لدي مجاني

كلها مدفوعه مثل موقع مملكه الرسائل وغيرها

[sandanet]

استاذ الفاضل @ابو ياسين المشولي ممكن ترفق لنا مثال من جعبتك مع الشرح لكيفية عمل ذلك لو أمكن   

[الحلبي]

الاساتذه الافاضل 

اؤكد نفس سؤال خبيرنا / @sandanet

لان هذا الموضوع يشغل بال كثير من معى في العمل ويارب خبيرنا / @ابو ياسين المشولي يشرح لنا كيف يكون مجانا او مدفوع 

فهو لا يقصر في مساعدة الاخرين .

[ابو ياسين المشولي]

راجع

هنا

وهنا

هنا

وهنا

المنتدى ملئي بالامثله

وهذا للمعلم القدير استاذي الجليل ابو خليل  

ابو خليل

تم تعديل ديسمبر 5, 2019 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

وانا ارشح لكم موقع مملكة الرسايل هو الافضل

وهذا الرابط

http://www.kingsms.ws/Members/

[sandanet]

مشكور جداً .. بارك الله فيك استاذ ابو ياسين

[الحلبي]

اخوانى انا اطلعت على مرفقات خبيرنا / @ابو ياسين المشولي

ولكن مازلت لم اعرف اي شئ ما المطلوب حتي ارسل رسائل ياريت الخطواط فى نقاط بسيطة حتى نتعلم

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

انا محتاح الشرح في نقاط بسيطة وفى اضيق الحدود حتى اتمكن من ارسال هذه الرسائل الى الموبايلات

جزاكم الله خيرا

[qathi]

أضم صوتي لصوتك أخي @حلبي

[Barna]

راجع قراءة موضوع حبيبنا @ابوخليل هنا