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

[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 للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

 

 

 

[amir_adam83]

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 للواتساب و تويتر و اغلب وسائل التواصل الاجتماعي

 

 

 

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

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

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

[د.كاف يار]

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

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

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

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

 

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

[amir_adam83]

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

 

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

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

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

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

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

[zezo991]

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

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

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

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

شاكراً لكم

[emam asherif]

شكرا لكم جميعا فهذا موذوع جيد