למה לסבך?
לוחצים על
וזהו

הוראות
1 חלץ את הקובץ
2 פתח את הטופס יצירת שלוחות מטבלה
3 הקש מס מערכת וסיסמא ובחר את הטבלה ולחץ העלאה
4 הכנס הודעת תפריט בשלוחה 9/1
5 הכנס קבצי שמע בשלוחה 9/1/1
וכן צריכים ולהשתיק את הודעה M1167
וסימנו.
שימו לב זה מוגדר לשלוחה 9
אם ברצונכם לשנות את השלוחה
תשנו בטבלא בסדר עוקב
כדי שלא ישתבש
ותודה ל @מוטלה על העזרה
אם ברצונכם לייצר כזו טבלה לקומבינה שלכם תראו כאן
תקשור עם מערכת טלפונית למוזיקה בהמתנה.7z
החלפתי כי הקדם היה עם טעות קטנה

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

העתקתי את המדריך של edb1997 ממתמחים טופ והקרדיט לו
ב

ההגדרות המלאות

להלן ההגדרות המלאות למספר הוירטואלי הנייד או למודול המס' האישי

כדי לעדכן את כתובת המייל יש להיכנס לאתר הניהול בכתובת הזאת ולעדכן תחת לשונית הגדרות משתמש את השם ואת כתובת המייל (כמובן לא לשכוח ללחוץ על "שמור" בסיום)
כדי לעדכן את הגדרות המערכת במס' הנייד יש להיכנס לאתר הניהול החדש בכתובת הזאת ולאחר מכן להיכנס ללשונית השלוחות במערכת

במס' האישי קבצי ההגדרות נמצאים בשלוחה הראשית

וגם אם תגדיר 2 שלוחת כאלו ההגדרות יחולו על שתיהם
התיקיות והקבצים הרלוונטיים הם:

תיקיית PrivateDIDGuestRecord בה נמצאות ההקלטות של השיחות הנכנסות
תיקיית PrivateDIDRecord בה נמצאות ההקלטות של השיחות היוצאות
תיקיית PrivateDIDVoiceMail בה נמצאות ההקלטות של התא הקולי
תיקיית Trash - סל המחזור שם נמצאים הקבצים שנמחקו מהמערכת
קובץ הגדרות PrivateDIDSettings - בהמשך יפורט
קובץ הגדרות PrivateDIDSpeedDial - בהמשך יפורט

ב

קובץ הגדרות למספר אישי PrivateDIDSettings.ini

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

CallerID=DID

ניתן לשנות לזיהוי של המתקשר

CallerID=Phone

זיהוי שיחה נכנסת:
ברירת מחדל נכנס עם הזיהוי של המתקשר בתוספת הספרה 1 כאילו מוגדר כך

CallerIDIn=PhoneAdd1

ניתן לשנות שהזיהוי יהיה של המתקשר ללא תוספות

CallerIDIn=Phone

או לשנות שהזיהוי יהיה של המערכת

CallerIDIn=DID

הקלטת שיחה יוצאות:
ברירת מחדל לפני כל שיחה שואל אם להקליט כאילו מוגדר כך

RecordCall=AskMe

ניתן להגדיר שתמיד יקליט

RecordCall=Yes

ניתן להגדיר שאף פעם לא יקליט

RecordCall=No

שליחת ההקלטה לדוא"ל
ברירת מחדל לא שולח כאילו מוגדר כך

SendMail=No

ניתן להגדיר שישלח

SendMail=Yes

הקלטת שיחה נכנסת:
ברירת מחדל מקליט את השיחות כאילו מוגדר כך

RecordInCall=Yes

ניתן להגדיר שלא יקליט

RecordInCall=No

שליחת ההקלטה לדוא"ל
ברירת מחדל לא שולח כאילו מוגדר כך

SendInMail=No

ניתן להגדיר שישלח

SendInMail=Yes

שליחת ההקלטות שבתא הקולי לדוא"ל
ברירת מחדל שולח כאילו מוגדר כך

SendVoiceMail=Yes

ניתן להגדיר שלא ישלח

SendVoiceMail=No

קובץ הגדרות חיוג מקוצר PrivateDIDSpeedDial.ini

יש להכניס את המספרים כך

1=0500000000

כלומר 1 שווה 0500000000
ניתן להגדיר חיוג מקוצר בין ספרה אחת לשמונה ספרות
לשנוי זיהוי יוצא למספר משני עיין כאן
בהצלחה
חדש!
ניתן לראות את כמות הדקות שנכנסו אתר החדש!

@אברהם-אבנר

לאחר כל הפיתוחים האחרונים
הדבר הבא מתבקש
מה שנמצא היום בניהול בשלוחה 4/1/
שמיעת כמות הדקות שנכנסו לקו

שלוחה מיוחדת לשמיעת כמות הדקות הנכנסות למערכת

(נראה לי הדבר האחרון שנשאר שאפשר רק דרך הניהול זה וקבלת הקובץ במייל )

עד היום כשימות רצו לתת אופציה לגשת רק לחלק מהניהול הם הלכו על רעיון של שלוחה מיוחדת לכל דבר
רצתי לתת רעיון לזה בכיוון שונה לחלוטין שימנע את הצורך בפיתוח של הגדרות מיוחדות לכל בקשה וענין
פשוט מאוד לתת הגדרה לחסום מקשים שונים בשלוחת הניהול
למשל שיכל להקיש רק 4 בשביל לשמוע את כמות הדקות
שיוכל להקיש רק 2 לניהול השמעות מתקדם
וגם כרשימה שחורה
שלא יוכל להקיש 6 {נראה לי} לשנות סיסמא
וכן בתתי תפריטים מה יוכל להקיש ומה לא
וכו' וכדו'
ואז נוכל לתת ניהול טלפוני עם סיסמא שונה מהאתר ובכמה רמות שונות
זה יכול לחסוך המון פיתוח
מי מצטרף?
@ימות-המשיח ?

זה נורא. יש לי הרבה שלוחות עם כותרות בקובץ TitleVoice.ini וכן הודעות מערכת ארוכות שפשוט לא עובד כעת.
עכשיו לך תחפש איפה יש הודעה ארוכה...
כבר היה מותר לימות להגיב.

שימו לב ערכתי את המדריך כאן
אם יש לכם שאלות תוכלו לשאול כאן

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

@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

@אופיר א"כ צריך לעשות כך
צריך לשנות בטופס Contact
במקום הקוד הנל
את הקוד הזה

Function GetToken(UserName As String, Password As String) As String
'מקבל שם מערכת וטוקן (במקום סיסמה), ומחזיר את הטוקן בלבד...
        
If Password = "" Then Exit Function
GetToken = Password
End Function

צריך להשים טוקן קבוע במקום הסיסמא
ובמספר המערכת אפשר להכניס 0
וזהו.

@CUBASE מדובר על קובץ בנוי כבר
שעובד עם טופס קיים שבו אתה מזין מס מערכת וססימא
והוא שולח את זה לימות, מקבל טוקן וכך ממשיך לרוץ
השאלה מה עושים מעכשיו.
בא ניתן דוגמא
זה למשל הקוד להתחברות

Function GetToken(UserName As String, Password As String) As String
On Error GoTo err:
'מקבל שם מערכת וסיסמא, ומחזיר טוקן
        
    
    Dim MapsClient As New WebClient
    MapsClient.BaseUrl = "https://private.call2all.co.il/ym/api/Login"

    ' Create a WebRequest for getting directions
    Dim DirectionsRequest As New WebRequest
    DirectionsRequest.Method = WebMethod.HttpPost
    DirectionsRequest.format = WebFormat.json

    DirectionsRequest.AddQuerystringParam "username", UserName
    DirectionsRequest.AddQuerystringParam "password", Password

    Dim Response As WebResponse
    Set Response = MapsClient.Execute(DirectionsRequest)
    If Response.data("responseStatus") = "OK" Then
        GetToken = Response.data("token")
    Else
    Select Case Response.data("message")
        Case "bruteforce protection - account locked"
            MsgBox "כניסתך נחסמה. אנא נסה מאוחר יותר", vbMsgBoxRight + vbCritical + vbMsgBoxRtlReading, "התחברות לימות המשיח"
        Case "user name or password do not match"
            MsgBox "שם המשתמש או הסיסמא אינם תואמים", vbMsgBoxRight + vbCritical + vbMsgBoxRtlReading, "התחברות לימות המשיח"
    End Select
        GetToken = "Error"
    End If
    Exit Function
err:
MsgBox "שגיאה בהתחברות, נסה שוב", vbMsgBoxRight + vbCritical + vbMsgBoxRtlReading, "התחברות לימות המשיח"
GetToken = "Error"
End Function

עכשיו השאלה מה צריך לשנות כדי שזה יעבוד עם הטוקן החדש.

עריכה @אופיר נתן את התשובה בהודעה הבאה
https://f2.freeivr.co.il/post/168957