تعديل على برنامج ارسال رسائل SMS

جرب هذا التعديل

db4.rar

أحسنت يا أستاذ

هل يمكن اختيار جميع الأرقام بالضغط على زر واحد ؟

ضع هذا الكود فى الزر

CurrentDb.Execute ("update tb1 set send=true")

الله يعطيك العافية

إذا أردت ارسال معلومات عن العميل تحوي ( الاسم والمبلغ ) حيث أنه عند الاختيار يتم ارسال المعلومات برسالة SMS بضغطة زر واحدة لكل عميل مثلا :

يرسل إلى أول عميل : amin 300

ثم يرسل للعميل الآخر على رقمه اسمه ومبلغه وهكذا حتى آخر عميل ..

فكيف يتم معالجة ذلك في الكود ؟

db4.rar

هذا يتوقف على كود الارسال

لانك فى هذه الحالة لن تحتاج الى نقل الارقام و لكن سيتم الارسال حسب البيانات فى النموذج الفرعى مباشرة

إذا كيف يمكن تعديل كود الإرسال ؟

ارفق كود الارسال الذى تستخدمه للتعديل عليه

هذا البرنامج بكامل الأكواد

db42.rar

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

مع مراعاة اضافة اسم المستخدم و كلمة المرور

Dim pswd, user As String
user = ""            'ضع اسم المستخدم هنا
pswd = ""            'ضع كلمة السر هنا
Dim txtnum As String, i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.subfrm.Form.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst

For i = 1 To R
If rs!send = True Then
send user, pswd, rs!mname & "  " & rs!amount, Me.txtSender, rs!mobile
End If
rs.MoveNext
Next

rs.Close
Set rs = Nothing

هل يتم استبدال الكود أعلاه بالكود الموجود سابقاً :

Dim txtnum As String, i As Integer
Dim rs As Recordset
Set rs = Me.subfrm.Form.RecordsetClone
rs.MoveFirst
For i = 1 To rs.RecordCount
If rs!send = True Then
txtnum = txtnum & rs!mobile & ","
End If
rs.MoveNext
Next

txtnum = Left(txtnum, Len(txtnum) - 1)
Me.txtNumbers = txtnum

rs.Close
Set rs = Nothing

جربت وضع الكود الذي كتبته بدل الكود السابق وعند الضغط على زر الارسال تظهر الرسالة " تأكد من الرقم على الصيغة الدولية "

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

اخى الكريم

هذا الكود يوضع فى زر الارسال

تم وضع الكود في زر الإرسال وعند فتح الفورم تظهر الرسالة التالية :

هلا وضعت الكود في مكانه المناسب وتعيد تحميله من جديد :)

اخى السبب ان حدث عند الضغط على زر الارسال مكرر

تم ايقاف الكود السابق وابداله بالجديد

وعند الضغط على الارسال تظهر الرسالة التالية :

طيب أخى

ضع هذه الدالة فى النموذج

Private Sub sendmultiMessages()
Dim t As String
Dim pswd, user As String
Dim txtnum As String, i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.subfrm.Form.RecordsetClone
rs.MoveLast
R = rs.RecordCount
rs.MoveFirst

For i = 1 To R
If rs!send = True Then
t = send(URLEncode(UserName), URLEncode(Password), ConvertToUnicode(rs!mname & "  " & rs!amount), txtSender.Text, rs!mobile)
ShowResult (t)

End If
rs.MoveNext
Next

rs.Close
Set rs = Nothing
End Sub

و فى كود زر الارسال ضع هذا

sendmultiMessages
    updateBalance

للاسف لا يمكننى التجريب عندى

100% سلمت يديك أستاذي العزيز ..

وجزاك الله ألف خير .

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

اخوي انا مشترك بموقع اخر غير موقع موبايلي كيف استطيع ربطه بهذا البرنامج ؟ او هل يوجد طريقه اخرى رغم الموقع يدعم قاعدة بيانات وهذا رابط الموقع

http://www.resalh.net/arabic/static/HTTP_API.asp

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

وشكرا

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

أخي العزيز :

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

بإمكانك متابعة الموضوع وقراءة المزيد على الرابط التالي :

موقع شركة موبايلي .. رسائل جوال SMS باستخدام MS Access

مشكور اخوي وفقك الله جاري التجربة

جدا موقع ممتاز ولكن فيه ستفسار بسيط هل استطيع اضيف نص والمبلغ سوى ولا فقط الاسم والمبلغ ؟؟؟

انا الان بحاول ادخل اسم المستخدم وكلمة المرور ماحصلتها كود؟؟؟؟

jafar089 كتب:

100% سلمت يديك أستاذي العزيز ..

وجزاك الله ألف خير .

السلام عليكم اخي ممكن ترسلي البرنامج بعد التعديل الاخير لان مازبط معي ؟؟

تفضل نموذج للبرنامج :

مع ملاحظة تعبئة اسم المستخدم والرقم السري واسم المرسل لكي يشتغل البرنامج بشكل صحيح .

db4.rar

مشكور اخوي ماقصرت بس طلع عندي خطاء ؟؟؟ وهذي صوره له

السبب عدم وجود الوحدة النمطية الخاصة بـ Unicode

تفضل البرنامج بعد التعديل :

db4.rar