we keep it simple
Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Question Excel VBA macro automate Avaya CMS agent groups

  • Tyger0951
  • Visitor
  • Visitor
9 years 9 months ago - 9 years 9 months ago #414 by Tyger0951
Replied by Tyger0951 on topic Excel VBA macro automate Avaya CMS agent groups
OMG Your awesome!!! SMH Didn't Realize that the script option was under actions.




I recorded it :



File Attachment:

File Name: LoginIdent...ons1.txt
File Size:1 KB




Was Able to come up with the code below to regate one person. Now just have to make it loop through all the names in my excel sheet.
Code:
Sub Rename() Dim cvsApp As Object Dim cvsConn As Object Dim cvsSrv As Object Set cvsApp = CreateObject("ACSUP.cvsApplication") Set cvsConn = CreateObject("ACSCN.cvsConnection") Set cvsSrv = cvsApp.Servers(1) cvsSrv.Dictionary.ACD = 2 b = cvsSrv.Dictionary.CreateOperation("Login Identifications", Op) Op.SetProperty "login_id", "2580" Op.SetProperty "ag_name", "Jane Smith" b = Op.DoAction("Modify") Set AgMngObj = Nothing Set cvsApp = Nothing Set cvsConn = Nothing Set cvsSrv = Nothing End Sub


Excel Sheet :
Attachments:
Last edit: 9 years 9 months ago by Tyger0951. Reason: Adding Txt file

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

  • Tyger0951
  • Visitor
  • Visitor
9 years 9 months ago #415 by Tyger0951
Replied by Tyger0951 on topic Excel VBA macro automate Avaya CMS agent groups
I got it! Thank you very much for your help.


Code:
Sub Rename() Dim cvsApp As Object Dim cvsConn As Object Dim cvsSrv As Object Dim Agentname As String Dim AgentID As String Set cvsApp = CreateObject("ACSUP.cvsApplication") Set cvsConn = CreateObject("ACSCN.cvsConnection") Set cvsSrv = cvsApp.Servers(1) cvsSrv.Dictionary.ACD = 2 b = cvsSrv.Dictionary.CreateOperation("Login Identifications", Op) For Each Cell In Sheets("MasterId").Range("P:P") Agentname = Sheets("MasterID").Range("O2").Value AgentID = Sheets("MasterID").Range("P2").Value Op.SetProperty "login_id", "" & AgentID & "" Op.SetProperty "ag_name", "" & Agentname & "" b = Op.DoAction("Modify") Sheets("MasterID").Rows("2:2").Select Selection.Delete Agentname = "" AgentID = "" If Sheets("MasterID").Range("P2").Value = "" Then Exit For Next Cell Set AgMngObj = Nothing Set cvsApp = Nothing Set cvsConn = Nothing Set cvsSrv = Nothing End Sub

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

More
9 years 9 months ago #416 by roller
Replied by roller on topic Excel VBA macro automate Avaya CMS agent groups
Jane Smith is a popular name where you work :)

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

  • Tyger0951
  • Visitor
  • Visitor
9 years 9 months ago #417 by Tyger0951
Replied by Tyger0951 on topic Excel VBA macro automate Avaya CMS agent groups
Buahaha too funny! I changed the names just to keep thier anonymity.

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

  • Tyger0951
  • Visitor
  • Visitor
9 years 9 months ago #439 by Tyger0951
Replied by Tyger0951 on topic Excel VBA macro automate Avaya CMS agent groups
So I tried to use this code but Instead of adding the agent to the group it just addes the agent. Is there a way to get this to add an agent to the group you just made ?

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

More
9 years 9 months ago #440 by roller
Replied by roller on topic Excel VBA macro automate Avaya CMS agent groups
You know I spent days and days in the past trying to figure this one out but couldn't. I could add a new group or deleted but never was able to add members to it.

In the VBA object browser they doesn't seem to be any methods to do that, nor is there a script that we can save to pull it apart.

Can you try writing to Avaya directly or call them in the US, long shot but I would be keen to hear what they say.

If we had a ODBC connection to the tables we could do it but not many centre I know off have this setup.

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

Time to create page: 0.553 seconds
Powered by Kunena Forum

Login Form