הודעות שפורסמו על ידי יעקב139

https://f2.freeivr.co.il/topic/2616/מודול-שליחת-sms-ללקוח-בכניסה-לשלוחה-ומעבר-לשלוחה-אחרת?_=1689685291558

במודול שבקישור הנ"ל משום מה הוא לא שולח לי את הטקסט שאני נותן לו רק undefined

@eliyahu אולי אתה תדע למה

בתודה מראש

@אריה אמר בAPI לשליחת קמפיין הודעות אישיות דרך אקסס:

@יעקב139
זה קוד קצר ובסיסי לשליחת בקשת GET דרך אקסס
תשלח את ה URL כפרמטר לקוד

Sub SendURL(strURL)
Dim Http As Object
Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Http.Open "GET", strURL, False
Http.send
Debug.Print Http.responseText
End Sub

@אריה מה צריך לשנות בקוד הזה כדי שישלח את הפקודה בPOST ולא בGET?

או מישהו אחר שיודע אולי?

@שמואל או @eliyahu האם ניתן לנתב שיחה לIP עם זיהוי של מספר משנה? רגיל זה שולח את הזיהוי כשם האם זה אפשרי לשלוח מספר משנה?

@eliyahu הפונקצייה sendtts מקריא את הטקסט פעמיים, זה בדווקא ככה? והאם יש אפשרות לשנות את זה?
ושאלה נוספת האם יש אפשרות להוציא צינתוק לאנשים עם קוד אימות שיופיע להם על הצג כמספר שמתקשר?

תודה מראש

@עמנואל את הקוד הזה מכניסים במודול ואז איפה שאתה רוצה להפעיל את הפקודה אתה קורא לפקודה ובסוגריים מכניס את כל הקישור
לדוגמא:
SendURL("https://www.call2all.co.il/ym/api/RunCampaign?token=0795555:7070&withSMS=1&ttsMode=1&phones={"0583212345":"TTS","0587777777":"SMS"}")

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

תודה מראש

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

@אריה שלום עזרת לי פעם תוכל לעזור לי גם הפעם? אודה לך מאוד.

לקחתי את זה מפה
https://f2.freeivr.co.il/topic/811/קמפיין-הודעות-אישיות-בapi-אפשרות-שהלקוח-יחזור-למספר-וישמע-את-ההודעה-שלו/2

האם מישהו יודע איך לכתוב את הפקודה הזאת באקסס

https://www.call2all.co.il/ym/api/RunCampaign?token=0795555:7070&withSMS=1&ttsMode=1&phones={"0583212345":"TTS","0587777777":"SMS"}

בתודה מראש

@liy נכון כבר הסתדרתי

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

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

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

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

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

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

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

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

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

הכל בתוך הקובץ שהורדתי מכאן

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