• הרשמה
    • התחברות
    • חיפוש
    • דף הבית
    • אינדקס קישורים
    • פוסטים אחרונים
    • קבלת התראות מהדפדפן
    • משתמשים
    • חיפוש בהגדרות המתקדמות
    • חיפוש גוגל בפורום
    • ניהול המערכת
    • ניהול המערכת - שרת private

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

    שאלות ועזרה הדדית
    2
    5
    169
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגיבו כנושא
    התחברו בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • י
      יעקב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

      תודה מראש
      י L 2 תגובות תגובה אחרונה תגובה ציטוט 0
      • י
        יעקב139 מורחק @יעקב139 נערך לאחרונה על ידי

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

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • L
          Liy @יעקב139 נערך לאחרונה על ידי

          @יעקב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

          תודה מראש
          

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

          י תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • י
            יעקב139 מורחק @Liy נערך לאחרונה על ידי

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

            L תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • L
              Liy @יעקב139 נערך לאחרונה על ידי

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

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

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

              תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • הנושא סומן כשאלה  ש שמחה - זו הסיסמא 
              • הנושא סומן כנפתר  ש שמחה - זו הסיסמא 
              • פוסט ראשון
                פוסט אחרון