י יעקב139
29 בדצמ׳ 2021, 11:21

שלום אם מישהו יוכל לעזור לי אני צריך לשלוח SMS דרך אקסס ניסיתי לכתוב קוד לפי ההוראות של ימות המשיח כאן ולא הצלחתי מצו"ב מה שכתבתי ```
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

תודה מראש