הודעות שפורסמו על ידי מתעניין

@פלמנמוני שאפשר לקבל סמס מגוגל, עד היום זה לא עבד או עבד חלקית.

@יעקב-יצחק תפתח את השני בפריווט
https://private.call2all.co.il/ym/login.php?c=ivr2

@איש-האשכולות כן עם מספר משני שמנותב לניתוביה
או שאתה תלחץ פשוט על שלוחת הנתוביה.

@eliyahu אם אפשר לבקש שיהיה פילטר לפי שיחה חוזרת.
יפתור את כל הקומבינות שצריך בשביל שכל מתקשר יקבל שיחה חוזרת.

@מוזר מה הבעיה להגדיר את השלוחה כפילטר?
זה לא עזר?

@מוזר אין כזה דבר שלוחה ללא type=

@haiims כתב בהשמעת קבצים חדשים:

א. מישהו יודע אם יש אפשרות שכל השיעורים החדשים שעולים לקו יתקבצו לשלוחה אחת ? וככה מי רוצה לשמוע תוכן חדש נכנס לשם.
ב. ואם יש אפשרות להגדיר שימחקו אחרי זמן מסויים ? ככה שתמיד יהיה רק קבצים חדשים?
תודה מראש .
אני יודע שבקול הלשון יש אפשרות כזו לשמוע קבצים אחרונים.

כן זה נקרא לינק ראה בהגדרות שלוחת הקלטות

copy_record_link=yes

זו הגדרה ברירת מחדל שישמעו את כל החדשים בכוכבית 4

@מתעניין כתב בסיכום שיחות:

וכמובן בקובץ האקסס של אריה

מה זה?

https://f2.freeivr.co.il/post/419
וכאן תיקון לטוקן החדש
https://f2.freeivr.co.il/post/168884

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

https://tiny-gingersnap-1b24c1.netlify.app/login
כאן אפשר
וכמובן בקובץ האקסס של אריה

@אופיר עובד.
אני מוחק את ההודעות

@אופיר כתב בתגובה - קודים לתקשור עם מערכת טלפונית דרך אקסס - התאמה לטוקן:

@מתעניין תריץ שוב את הפעולה, וכשזה נתקע ומופיעה שגיאה תלחץ על Debug כדי לראות היכן זה נתקע, ואז בצד ימין למעלה תפתח את Locals

תעלה צילו"מ מהחלון שיפתח

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

@אופיר כאן

וזה כל הקוד בדף

Option Compare Database
Option Base 1

Function DownloadFile(UserName As String, Password As String, Address As String, FileName As String) As String
If ContactYemot(UserName, Password) = False Then Exit Function

Dim text As String
text = GetFile("https://call2all.co.il/ym/api/DownloadFile?token=" & Token & "&path=ivr" & Address & "/" & FileName)
        
        If text = "" Or IsNull(text) Then
            MsgBox "אין נתונים להורדה בקובץ " & file & " בשלוחה " & Address, vbMsgBoxRight + vbCritical + vbMsgBoxRtlReading, "הורדת קבצים"
            Exit Function
        ElseIf text = "Requested file does not exist" Then
            MsgBox "הקובץ " & FileName & " לא נמצא בשלוחה " & Address, vbMsgBoxRight + vbCritical + vbMsgBoxRtlReading, "הורדת קבצים"
            Exit Function
        End If
TempVars("ymgrName") = FileName
DownloadFile = text

End Function



Sub ImportTextToTable(strText As String, strTableName As String, Optional OnExists As Integer = 1, Optional RowToStart As Long, Optional RowToEnd As Long)
        
        Dim startRowInStr As Long, numRow  As Integer
        chrStartRow = Mid(strText, 1, 1)
        startRow = Chr(13) & Chr(10) & chrStartRow
        numRow = 1
        If RowToStart Or RowToEnd Then
            Do
            numRow = numRow + 1
            startRowInStr = InStr(startRowInStr + 1, strText, startRow)
            If startRowInStr = 0 Then Exit Do
            If numRow = RowToStart Then inStrRowToStart = startRowInStr + 1
            If numRow = RowToEnd Then inStrRowToEnd = startRowInStr - 1: Exit Do
            Loop
        If numRow <= RowToStart Then Exit Sub
        End If
        If RowToEnd = 0 Then inStrRowToEnd = Len(strText)
        
        strText = Mid(strText, 1 + inStrRowToStart, Len(strText) - inStrRowToStart + inStrRowToEnd - Len(strText))
                 
        NamesFildsFile = GetNameFilds(strText)
        
        strText = "[{""" & strText
        strText = Replace(strText, "#", """:""")
        strText = Replace(strText, "%", """,""")
        strText = Replace(strText, startRow, """},{""" & chrStartRow)
        strText = strText & """}]"
         
        Dim json As Object, Currentid As Variant
        Set json = JsonConverter.ParseJson(strText)
        Set rs = CurrentDb.OpenRecordset(CreatingTable(strTableName, NamesFildsFile, OnExists))
        
        For Each Currentid In json
            rs.AddNew
            For Each filds In NamesFildsFile
            valJson = Currentid(filds)
            rs(filds) = valJson
            Next
            rs.Update
        Next

End Sub

Function GetFile(ByVal strURL As String) As String
On Error GoTo err:

    Dim Http As Object
    Set Http = CreateObject("MSXML2.XMLHTTP")
    
    With Http
       .Open "POST", strURL, False
       
       .SetRequestHeader "Content-Type", "multipart/form-data"
    
       .Send
    End With
    
    DoEvents
   
    GetFile = Http.ResponseText
  
    Set Http = Nothing
    Exit Function
err:
    
   Select Case err
   Case -2146697211, -2146697210
   GetFile = "אין חיבור לאינטרנט"
   End Select
End Function



Function GetNameFilds(ByVal strText As String)
Dim tmpNamesFildsFile(100) As String
        
        s = 1
        Do
        filds = Mid(strText, s, InStr(s, strText, "#") - s)
        cntFilds = cntFilds + 1
        tmpNamesFildsFile(cntFilds) = filds
        strText = Replace(strText, "%" & filds, "")
        s = InStr(s, strText, "%") + 1
        If s = 1 Then Exit Do
        Loop
        
        Dim NamesFildsFile() As Variant
        ReDim NamesFildsFile(cntFilds)
        
        For f = 1 To cntFilds
        NamesFildsFile(f) = tmpNamesFildsFile(f)
        Next
        GetNameFilds = NamesFildsFile
End Function

@אופיר כן
הקובץ מובא בקישור
פתח אותו וראה
ההתחברות היא באוביקט
Contact