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

יעקב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 כמובן צריך לשנות בכל המודולים הרלוונטים