ACFS PROGRAMMING?

[sos2715]

NEAX 2400IPX

I NEED TO PROGRAM 200+ EXTENSIONS WITH CALL FORWARDING AND I WAS WONDERING IF THERE'S AN IMPORT COMMAND I CAN USE TO INPORT THE PROGRAMMING INSTEAD OF USING THE MAT TERMINAL?

 

[OzzieGeorge]

In a word no. It may be available in offline mat which is an install tool but I have never used it. However if you know what you are doing you can write a macro in excel using the "sendkeys" command to make excel programme them through ACFS. I suppose I should give an example. The code below is used by having ANDD open with the mat connected to the system. When you run the macro it inserts the names from the associated worksheet into ANDD for the associated extensions. The worksheet for this should have three columns of information A=tennant number of extension B=Extension number C=name

I should also add that this only works with new installs as there is no way of getting back whether there is a current entry and if there is it fails. I have been toying with a way of making it work for existing installs but have yet to work that one out.

Sub Names()

    totrows = Range("A1").CurrentRegion.Rows.Count
'First check for duplicates
    Cells.Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("G9").Select
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-8]=R[1]C[-8],1,"""")"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J" & totrows), Type:=xlFillDefault
    Range("J2:J" & totrows).Select
    anscheck = totrows + 2
    Range("J" & anscheck).Select
    Formula = "=sum(J2:J" & totrows & ")"
    ActiveCell = Formula
    Range("J" & anscheck).Select
    If ActiveCell = 0 Then GoTo here1
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "There Are Duplicate Entries. Check Column J for ""1""s to find the duplicates"    ' Define message.
    Style = vbOKOnly    ' Define buttons.
    Title = "Number Checker"    ' Define title.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbOK Then End
here1:
    Columns("J:J").Select
    Selection.ClearContents
'End of duplicate check
    nameslen = 0
    namestr = ""
    For Count = 2 To totrows
    Range("A" & Count).Select
    tenno = ActiveCell
    Range("B" & Count).Select
    extnno = ActiveCell
    Range("C" & Count).Select
    namestr = ActiveCell
    AppActivate "ANDD"
'    For x = 1 To 600
'    Next x
    SendKeys tenno, True
    SendKeys ("{tab}"), True
    SendKeys extnno, True
    SendKeys ("{tab} "), True
    If nameslen > 0 Then
    For namecount = 1 To nameslen
    SendKeys ("{backspace}"), True
    Next namecount
    End If
    SendKeys namestr, True
    SendKeys ("{enter} "), True
    nameslen = Len(namestr)
Next Count
End Sub

Hope this helps