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

[יעקב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 נכון כבר הסתדרתי

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