× Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

VBA run Call Monitoring (auto popup )

More
5 years 9 months ago #487 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.

Please Log in or Create an account to join the conversation.

More
5 years 9 months ago #488 by roller
What's call monitoring and where is the script you used?

Please Log in or Create an account to join the conversation.

More
5 years 9 months ago #489 by mozako
'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

Please Log in or Create an account to join the conversation.

More
5 years 9 months ago #490 by roller
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.

More
5 years 9 months ago #491 by mozako
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

Please Log in or Create an account to join the conversation.

More
5 years 9 months ago #492 by roller
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

Please Log in or Create an account to join the conversation.

Time to create page: 0.105 seconds
Powered by Kunena Forum