Solved VBA run Call Monitoring (auto popup )

Also one more thing by the way, the above will open the report and display it but it will close at the end of the sub. If you put a STOP at the last line it will remain open.

VBA destroys all objects at the end of the sub to clean up memory. To keep the report running even after the sub finishes you have to declare the Objects outside the sub like this:

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

Public Sub Main()
etc....

Hi,

I already change but still same no popup

It worked for me with your code and the changes, here's the full code I used - did you do the same?

Just copy and paste the below in a module and try it, confirm if you did exactly as below.

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

Public Sub Main()

Const cmsid As String = "83548"
Const Pass As String = "@lid5321"
Server = "10.21.151.17"


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, True, "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

It same with my code,however i copy paste your code also same still not appear in my desktop.I already check at task manager i can saw but when i double click nothing happen.

check your Gmail email, I am sending you a PM.

I can't think of anything other than maybe you have too many orphaned processes from running it so many time before. Restart your PC and try again. Also like I mentioned in my email to you if you are able to do a remote session maybe I can work out what is happening over at your end. The code definitely works over here I tried it few times with no problem so must be something simple that you are overlooking!