- Thank you received: 9
Welcome to the fracta.net forum!
Share your coding ideas or ask questions.
Share your coding ideas or ask questions.
Solved VBA run Call Monitoring (auto popup )
- mozako
- Topic Author
- Visitor
9 years 1 month ago #487
by mozako
VBA run Call Monitoring (auto popup ) was created by mozako
Hi,
I tried open call monitoring using script but fails.I have 12 call monitoring need to open.
i set call monitoring refresh every 5 sec.
can u help me.
I tried open call monitoring using script but fails.I have 12 call monitoring need to open.
i set call monitoring refresh every 5 sec.
can u help me.
Please Log in or Create an account to join the conversation.
9 years 1 month ago #488
by roller
Replied by roller on topic VBA run Call Monitoring (auto popup )
What's call monitoring and where is the script you used?
Please Log in or Create an account to join the conversation.
- mozako
- Topic Author
- Visitor
9 years 1 month ago #489
by mozako
Replied by mozako on topic VBA run Call Monitoring (auto popup )
'LANGUAGE=ENU
'SERVERNAME=..........
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Queue/Agent: Status: Display"
'## Parameters.Add "Report: Real-Time: Queue/Agent: Status: Display","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "4","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Real-Time\Queue/Agent\Status","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-60","_Top"
'## Parameters.Add "-60","_Left"
'## Parameters.Add "19320","_Width"
'## Parameters.Add "13680","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "5","_RefreshInterval"
'## Parameters.Add "The report Real-Time\Queue/Agent\Status was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "1030","Split/Skill"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G7,8,12;-1,2,2","data"
'## Parameters.Add "*","_EndViews"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Queue/Agent\Status")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Queue/Agent\Status was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Queue/Agent\Status was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 19320
Rep.Window.Height = 13680
Rep.TimeZone = "default"
Rep.SetProperty "Split/Skill","1030"
Rep.ReportView.Add "G7,8,12;-1,2,2","data"
Rep.RefreshInterval = 5
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
'SERVERNAME=..........
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Report: Real-Time: Queue/Agent: Status: Display"
'## Parameters.Add "Report: Real-Time: Queue/Agent: Status: Display","_Desc"
'## Parameters.Add "Reports","_Catalog"
'## Parameters.Add "4","_Action"
'## Parameters.Add "0","_Quit"
'## Parameters.Add "Real-Time\Queue/Agent\Status","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "-60","_Top"
'## Parameters.Add "-60","_Left"
'## Parameters.Add "19320","_Width"
'## Parameters.Add "13680","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "5","_RefreshInterval"
'## Parameters.Add "The report Real-Time\Queue/Agent\Status was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "1030","Split/Skill"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "G7,8,12;-1,2,2","data"
'## Parameters.Add "*","_EndViews"
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Queue/Agent\Status")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Queue/Agent\Status was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Queue/Agent\Status was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 19320
Rep.Window.Height = 13680
Rep.TimeZone = "default"
Rep.SetProperty "Split/Skill","1030"
Rep.ReportView.Add "G7,8,12;-1,2,2","data"
Rep.RefreshInterval = 5
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
Please Log in or Create an account to join the conversation.
9 years 1 month ago #490
by roller
Replied by roller on topic VBA run Call Monitoring (auto popup )
OK I see which report you are using, can you post your VBA code to see what you did please?
Please Log in or Create an account to join the conversation.
- mozako
- Topic Author
- Visitor
9 years 1 month ago #491
by mozako
Replied by mozako on topic VBA run Call Monitoring (auto popup )
I tried use many script but this one of my option
Public Sub Main()
Const cmsid As String = "83548"
Const Pass As String = "@lid5321"
Server = "10.21.151.17"
Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, Log As Object, b As Object
Dim cvsLog As Object
Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")
Set Log = CreateObject("ACSERR.cvsLog")
If cvsApp.CreateServer(cmsid, "", "", Server, False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.Login(cmsid, Pass, Server, "ENU") Then
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Agent\Agent Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Agent\Agent Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Agent\Agent Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 19320
Rep.Window.Height = 15030
Rep.TimeZone = "default"
Rep.SetProperty "Split/Skill", "1030"
Rep.RefreshInterval = 5
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
Public Sub Main()
Const cmsid As String = "83548"
Const Pass As String = "@lid5321"
Server = "10.21.151.17"
Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, Log As Object, b As Object
Dim cvsLog As Object
Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = CreateObject("ACSUPSRV.cvsServer")
Set Rep = CreateObject("ACSREP.cvsReport")
Set Log = CreateObject("ACSERR.cvsLog")
If cvsApp.CreateServer(cmsid, "", "", Server, False, "ENU", cvsSrv, cvsConn) Then
If cvsConn.Login(cmsid, Pass, Server, "ENU") Then
On Error Resume Next
cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Real-Time\Agent\Agent Report")
If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Real-Time\Agent\Agent Report was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("ACSERR.cvsLog")
Log.AutoLogWrite "The report Real-Time\Agent\Agent Report was not found on ACD 1."
Set Log = Nothing
End If
Else
b = cvsSrv.Reports.CreateReport(Info, Rep)
If b Then
Rep.Window.Top = -60
Rep.Window.Left = -60
Rep.Window.Width = 19320
Rep.Window.Height = 15030
Rep.TimeZone = "default"
Rep.SetProperty "Split/Skill", "1030"
Rep.RefreshInterval = 5
b = Rep.Run
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If
End If
End If
End If
Set Info = Nothing
'## cvs_cmd_end
End Sub
Please Log in or Create an account to join the conversation.
9 years 1 month ago #492
by roller
Replied by roller on topic VBA run Call Monitoring (auto popup )
to make it work change this line:
If cvsApp.CreateServer(cmsid, "", "", Server, False, "ENU", cvsSrv, cvsConn) Then
to this:
If cvsApp.CreateServer(cmsid, "", "", Server, True, "ENU", cvsSrv, cvsConn) Then
If cvsApp.CreateServer(cmsid, "", "", Server, False, "ENU", cvsSrv, cvsConn) Then
to this:
If cvsApp.CreateServer(cmsid, "", "", Server, True, "ENU", cvsSrv, cvsConn) Then
Please Log in or Create an account to join the conversation.
Time to create page: 0.724 seconds