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

[MGM IVR]

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

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

איך הבנת משם?
אין כזה דבר
חייבים אונליין בשביל לתקשר עם ימות בapi

[פיסטוק חלבי]

@mgm-ivr @צבי-10
דווקא זה אפשרי
אתה בונה בטבלה של יצירת שלוחות את הקו עם ההגדרות שאתה רוצה ומכניס בנתוני ברירת מחדל את המספר והסיסמה ואז אתה רק לוחץ לאישור לעלות

[MGM IVR]

@פיסטוק-חלבי אמר בבקשת עזרה | תקשור דרך אקסס:

@mgm-ivr @צבי-10
דווקא זה אפשרי
אתה בונה בטבלה של יצירת שלוחות את הקו עם ההגדרות שאתה רוצה ומכניס בנתוני ברירת מחדל את המספר והסיסמה ואז אתה רק לוחץ לאישור לעלות

אז חייב אונליין

[פיסטוק חלבי]

@mgm-ivr
רק בשביל לעלות אבל לא בשביל לבנות
אני בניתי עם זה כמה פעמים אופליין ואח''כ התחברתי

[צבי 10]

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

[פיסטוק חלבי]

@צבי-10
תבדוק שאתה משתמש באקסס של מערכת רגילה למערכת רגילה ולא בשל פרייבט

[צבי 10]

@פיסטוק-חלבי ניסיתי בשניהם, ולא עובד. (אני משתמש במודול 0.3 שנוסף לאחרונה)

[פיסטוק חלבי]

@צבי-10 איזה פקודה ניסת לעשות

[צבי 10]

@פיסטוק-חלבי העלאת שלוחה. שגיאה בהתחברות נסה שוב

[יעקב139]

האם יש אפשרות לשלוח SMS דרך אקסס?

[יעקב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 פרמטרים בכל אופן כמו שכתבתי זה עובד תודה תודה רבה שוב!!!!!