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

יעקב139

שלום אם מישהו יוכל לעזור לי אני צריך לשלוח 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

תודה מראש

יעקב139

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

Liy

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

שלום אם מישהו יוכל לעזור לי אני צריך לשלוח 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

תודה מראש

למה אתה כותב פעמיים??
כאן

יעקב139

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

Liy

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

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

פעם הבאה, אין טעם לפרסם פעמיים.