בקשת עזרה | תקשור דרך אקסס

יעקב139

@אריה שלום ראיתי שעזרת להרבה אנשים פה אם תוכל לעזור לי אני צריך לשלוח SMS דרך אקסס ניסיתי לבד לכתוב קוד לפי ההוראות של ימות המשיח כאן ולא הצלחתי אם תוכל לעזור לי אודה לך מאוד מצו"ב מה שכתבתי ```

Sub sendsms(UserName As String, Password As String, message As String, phones As String)

   If ContactYemot(UserName, Password) = False Then Exit Sub    


Dim MapsClient As New WebClient
MapsClient.BaseUrl = "https://private.call2all.co.il/ym/api/sendsms"

Dim DirectionsRequest As New WebRequest
DirectionsRequest.Method = WebMethod.HttpPost
DirectionsRequest.format = WebFormat.json

DirectionsRequest.AddQuerystringParam "token", Token
DirectionsRequest.AddQuerystringParam "message", message
DirectionsRequest.AddQuerystringParam "phones", phones

Dim Response As WebResponse
Set Response = MapsClient.Execute(DirectionsRequest)
If Response.data("responseStatus") = "OK" Then
MsgBox "התבצע בהצלחה", vbInformation, "שליחת SMS"
Else
MsgBox ErrorsResponse(Response.data("responseStatus"), Response.data("message")), vbCritical, "שליחת SMS"
End If

End Sub

תודה מראש

אריה

@יעקב139
הקוד שאתה מצרף נראה תקין מבחינת הפורמט של תקשור עם api של ימות המשיח
תוכל לפרט יותר מהי התקלה שאתה חווה? מה הקוד מחזיר?

יעקב139

@אריה וואו מה זה תודה שאתה עונה לי
הוא מחזיר לי הבקשה גרמה לחריגה בשרת

יעקב139

Sub sendsms(UserName As String, Password As String, from As String, message As String, phones As String)
    
    If ContactYemot(UserName, Password) = False Then Exit Sub
    
    Dim MapsClient As New WebClient
    MapsClient.BaseUrl = "https://private.call2all.co.il/ym/api/sendsms"

    Dim DirectionsRequest As New WebRequest
    DirectionsRequest.Method = WebMethod.HttpPost
    DirectionsRequest.format = WebFormat.json

    DirectionsRequest.AddQuerystringParam "token", Token
    DirectionsRequest.AddQuerystringParam "from", from
    DirectionsRequest.AddQuerystringParam "message", message
    DirectionsRequest.AddQuerystringParam "phones", phones
    
    Dim Response As WebResponse
    Set Response = MapsClient.Execute(DirectionsRequest)
    If Response.data("responseStatus") = "OK" Then
    MsgBox "התבצע בהצלחה", vbInformation, "שליחת SMS"
    Else
    MsgBox ErrorsResponse(Response.data("responseStatus"), Response.data("message")), vbCritical, "שליחת SMS"
    End If
           
End Sub

ובפקודה של ההפעלה כתבתי

Private Sub פקודה0_Click()
sendsms "0712345678", "1234", "0712345678", "שלום", "0712345678"
End Sub

יעקב139

כמובן עם פרטי הכניסה שלי ב2 הפרמטרים הראשונים ובFROM כתבתי את המספר שממנו אני מוציא גם דרך האתר ואח"כ תוכן ההודעה ואח"כ מספר הטלפון שאליו אני רוצה לשלוח

amp Software 0

@יעקב139
ה api של ימות רגיש לאותיות רישיות
תשנה את ה BaseUrl ל https://private.call2all.co.il/ym/api/SendSms
(שני ה-S באותיות גדולות)

בהצלחה!

יעקב139

@אריה תראה את כל מה שכתבתי ב2 התגובות האחרונות אולי שם אני טועה?

amp Software 0

@יעקב139 אמר בבקשת עזרה | תקשור דרך אקסס:

Private Sub פקודה0_Click() sendsms "0712345678", "1234", "0712345678", "שלום", "0712345678" End Sub

כאן כמובן זה טעות כיון שאתה שולח 5 פרטמרים במקום 4 (המספר אליו אתה שולח מופיע לפני ההודעה ואחרי), האקסס לא יתן לך להריץ את הפעולה

יעקב139

@אריה תודה תודה רבה עובד מצוין!!!!

יעקב139

@amp-software-0 אמר בבקשת עזרה | תקשור דרך אקסס:

@יעקב139 אמר בבקשת עזרה | תקשור דרך אקסס:

Private Sub פקודה0_Click() sendsms "0712345678", "1234", "0712345678", "שלום", "0712345678" End Sub

כאן כמובן זה טעות כיון שאתה שולח 5 פרטמרים במקום 4 (המספר אליו אתה שולח מופיע לפני ההודעה ואחרי), האקסס לא יתן לך להריץ את הפעולה

כי בקוד ששלחתי בפעם השניה כתבתי 5 פרמטרים בכל אופן כמו שכתבתי זה עובד תודה תודה רבה שוב!!!!!

צבי 10

@אריה אם אתה כבר פה. אני לא יודע למה זה מחזיר לי שגיאה בהעלאת שלוחה. "שגיאה בהתחברות נסה שוב"
מלאתי את הטבלה, ואת כל הפרטים. יכול להיות שיש קובץ מעודכן יותר?

אריה

@צבי-10
שגיאה בהתחברות בדרך כלל זה בגלל טעות בשם משתמש וסיסמה, או פנייה לשרת רגיל במקום לפריווט וכדומה
תנסה לבודד את הבעיה, להפעיל את הקוד דרך url פשוט בדפדפן, אם זה לא עובד, תמשיך הלאה לקוד בסיסי של ימות
מכיון שהבעיה היא במספר המערכת והסיסמה הסצפיפים שלך אין לי אפשרות לענות לך בצורה יותר מפורטת, מכיון שאין לי אותם.. אוכל לעזור בפרטי אם תרצה

צבי 10

@אריה ככה? אין לי מושג ב API.

https://www.call2all.co.il/ym/api/ymtUplodingFileToServer%20%220253523456789%22,%222929367%22,%22/88%22,%22IdListMessage.ini%22,%220501234567=l-/1/1.f-000%22

אריה

@צבי-10
ככה

https://www.call2all.co.il/ym/api/UploadTextFile?token=0773137770:1234&what=ivr2:/88/IdListMessage.ini&contents=0501234567=l-/1/1.f-000

אם זה עובד לך, יתכן שספק האינטרנט שלך לא מאפשר תקשורת שלא דרך הדפדפן, באיזה ספק אינטרנט אתה משתמש?

צבי 10

@אריה הקוד החזיר {"responseStatus":"OK","message":"ok","yemotAPIVersion":6}
לא נוצרה תיקייה 88 ולא נוצרו קבצים. שיניתי לשלוחה 2 וזה עובד.
?ספק האינטרנט? אתרוג.

amp Software 0

@צבי-10
תראה כאן

צבי 10

@amp-software-0 @אריה תקנו אותי אם טעיתי
ב - contact שיניתי שורה זו,

 Dim MapsClient As New WebClient
 MapsClient.BaseUrl = "https://.call2all.co.il/ym/api/Login"

עריכה: מחזיר אותה שגיאה. (כי שכחתי להוריד בקוד את הנקודה הזאת - .call2all
עריכה סופית: עובד!!!! תודה רבה!!!
@יהודה-הוצלר-0 יכול להיות שזה פיתרון בשבילך.

אריה

@צבי-10 כמובן צריך לשנות בכל המודולים הרלוונטים