اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ارسال تنبيهات وتقارير من برنامج الاكسس الى موظف مندوب توصيل عبر الموبايل


zezo991

الردود الموصى بها

السلام عليكم..

اخواني خبرتي ضعيفة بالاكسس

ولكن قبل البدء بتصميم قاعدة بيانات وبرنامج للمبيعات لدي بعض الاستفسارات 

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

أو هل تنصحوني بتصميم المشروع عن طريق برنامج اخر.. افضل

رابط هذا التعليق
شارك

نعم تستطيع 

اولاً / اشترك في خدمة الرسائل و انصح بهذه الشركة حيث انها تمنحك مبلغ 15 دولار كهدية للاشتراك

رابط شركة twilio

ثانيا / استخدم API الخدمة سأضعه ضمن الكود

https://api.twilio.com

ثالثا / انشئ Module و الصق الشيفرة التالية فيه

Function SendSMS(fromNumber As String, toNumber As String, body As String)
    Dim SmsUrl As String

    On Error GoTo Error_Handler

    SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & "Accounts_Her" & "/SMS/Messages"

    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60

    http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    Dim postData As String
    postData = "From=" & fromNumber _
        & "&To=" & toNumber _
        & "&Body=" & body

    http.send postData

    Debug.Print http.responseText

    If http.status = 201 Then

    ElseIf http.status = 400 Then
        MsgBox "Failed with error# " & _
                http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    ElseIf http.status = 401 Then
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    Else
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText
    End If

Exit_Procedure:

On Error Resume Next
    Set http = Nothing
    Exit Function
Error_Handler:
    Select Case Err.Number
        Case NOINTERNETAVAILABLE
            MsgBox "Connection to the internet cannot be made or " & _
            "Twilio website address is wrong"
        Case Else
            MsgBox "Error: " & Err.Number & "; Description: " & Err.Description
            Resume Exit_Procedure
        Resume

    End Select
End Function

 

رابعا/ انشئ نموذج يحتوي على ( المرسل اليه - نص الرسالة - ازرار الإرسال )

خامسا / الصق الكود التالي في ازرار الارسال

SendSMS "From_Number", "To_Number", "Text_Msg"

 

ملاحظة سيتم منحك رقم للإستخدام في عملية الارسال و عليك ان تضعه في Form_Number

عن تجربة هذا الخادم سريع في الارسال كما انه في حال ترقية العضوية يمنحك API للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

 

 

 

  • Like 1
رابط هذا التعليق
شارك

11 hours ago, د.كاف يار said:

نعم تستطيع 

اولاً / اشترك في خدمة الرسائل و انصح بهذه الشركة حيث انها تمنحك مبلغ 15 دولار كهدية للاشتراك

رابط شركة twilio

ثانيا / استخدم API الخدمة سأضعه ضمن الكود


https://api.twilio.com

ثالثا / انشئ Module و الصق الشيفرة التالية فيه


Function SendSMS(fromNumber As String, toNumber As String, body As String)
    Dim SmsUrl As String

    On Error GoTo Error_Handler

    SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & "Accounts_Her" & "/SMS/Messages"

    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60

    http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    Dim postData As String
    postData = "From=" & fromNumber _
        & "&To=" & toNumber _
        & "&Body=" & body

    http.send postData

    Debug.Print http.responseText

    If http.status = 201 Then

    ElseIf http.status = 400 Then
        MsgBox "Failed with error# " & _
                http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    ElseIf http.status = 401 Then
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    Else
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText
    End If

Exit_Procedure:

On Error Resume Next
    Set http = Nothing
    Exit Function
Error_Handler:
    Select Case Err.Number
        Case NOINTERNETAVAILABLE
            MsgBox "Connection to the internet cannot be made or " & _
            "Twilio website address is wrong"
        Case Else
            MsgBox "Error: " & Err.Number & "; Description: " & Err.Description
            Resume Exit_Procedure
        Resume

    End Select
End Function

 

رابعا/ انشئ نموذج يحتوي على ( المرسل اليه - نص الرسالة - ازرار الإرسال )

خامسا / الصق الكود التالي في ازرار الارسال


SendSMS "From_Number", "To_Number", "Text_Msg"

 

ملاحظة سيتم منحك رقم للإستخدام في عملية الارسال و عليك ان تضعه في Form_Number

عن تجربة هذا الخادم سريع في الارسال كما انه في حال ترقية العضوية يمنحك API للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

 

 

 

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

تم الاشتراك بالفعل كما تفضلت وشرحت لنا 

ولكن ظهر معي هذه رسالة الخطاء

image.png.f8fba9fa50fc015cda412e5d2f5a0c61.png

رابط هذا التعليق
شارك

8 دقائق مضت, amir_adam83 said:

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

تم الاشتراك بالفعل كما تفضلت وشرحت لنا 

ولكن ظهر معي هذه رسالة الخطاء

image.png.f8fba9fa50fc015cda412e5d2f5a0c61.png

 

فقط قم بإضافة هذه المكتبة و سيعمل مع الكود

a4.jpg.ea27c03ea41c9c22a22416bff8b02c5c.jpg

  • Like 2
رابط هذا التعليق
شارك

1 hour ago, د.كاف يار said:

 

فقط قم بإضافة هذه المكتبة و سيعمل مع الكود

a4.jpg.ea27c03ea41c9c22a22416bff8b02c5c.jpg

مشكور اخي الكريم

ولكن ماسبب هذه الرسالة

image.png.733650a6310612fe3f713233174d5508.png

اليك البرنامج للمرجعه عليه 

ODB_Database.rar

رابط هذا التعليق
شارك

تفضل التعديل و لا تنسى تضيف رقم الحساب و المفتاح

Function SendSMS(fromNumber As String, toNumber As String, body As String)
    Dim SmsUrl, ACCOUNTSID, AUTHTOKEN As String
    ACCOUNTSID = "ACCOUNT SID"  ' ضع هنا رقم الحساب
    AUTHTOKEN = "AUTH TOKEN" ' ضه ضع هنا مفتاح الحساب

    On Error GoTo Error_Handler

    SmsUrl = "https://api.twilio.com" & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages"

    Dim http As MSXML2.XMLHTTP60
    Set http = New MSXML2.XMLHTTP60

    http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    Dim postData As String
    postData = "From=" & fromNumber _
        & "&To=" & toNumber _
        & "&Body=" & body

    http.send postData

    Debug.Print http.responseText

    If http.status = 201 Then

    ElseIf http.status = 400 Then
        MsgBox "Failed with error# " & _
                http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    ElseIf http.status = 401 Then
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText & vbCrLf & vbCrLf
    Else
        MsgBox "Failed with error# " & http.status & _
                " " & http.statusText
    End If

Exit_Procedure:

On Error Resume Next
    Set http = Nothing
    Exit Function
Error_Handler:
    Select Case Err.Number
        Case NOINTERNETAVAILABLE
            MsgBox "Connection to the internet cannot be made or " & _
            "Twilio website address is wrong"
        Case Else
            MsgBox "Error: " & Err.Number & "; Description: " & Err.Description
            Resume Exit_Procedure
        Resume

    End Select
End Function

 

ODB_Database.zip

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

اشكركم جميعاً

اقصد هل يمكن ربط البرنامج بالانترنت مثلاً وربطه بتطبيق بسيط خاص للموظفين ومندوبي التوصيل ليستقبل تقارير او تبيهات مني؟

وماهو الافضل لتصميم البرنامج ان اعمل ربط بين الجداول مباشرةً عبر المفتاح الاساسي ام بطرق اخرى؟

وسؤال اخير هل يمكن ربط النموذج بتطبيق خرائط مثل maps.me عبر الكمبيوتر وبدون انترنت؟

شاكراً لكم

رابط هذا التعليق
شارك

  • 1 month later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information