要解决Avaya CMS Automation_Error错误，可以尝试以下解决方法：

1. 重新注册Avaya CMS的COM组件：

   • 打开命令提示符（以管理员身份运行）。
   • 导航到Avaya CMS安装目录下的Bin文件夹（例如C:\Program Files (x86)\Avaya\CMS Supervisor R18\Bin）。
   • 运行以下命令：regsvr32 cmsapi32.dll

2. 确保已安装正确版本的Avaya CMS客户端，并且与VBA代码兼容。如果使用的是不兼容的版本，则可能会导致Automation_Error错误。

3. 确保已正确引用Avaya CMS的COM组件：

   • 在VBA编辑器中，选择“工具”菜单下的“引用”选项。
   • 在弹出的对话框中，找到并勾选Avaya CMS的COM组件（例如Avaya CMS Supervisor API）。
   • 单击“确定”保存更改。

4. 检查VBA代码，确保它与Avaya CMS的COM接口正确交互。以下是一个示例代码，可以通过Avaya CMS的COM接口获取Agent的登录状态：

Dim cmsApp As New CMSApplication
Dim cmsAgent As CMSAgent

' 连接到CMS服务器
If cmsApp.LoginServer("ServerName", "UserName", "Password") = True Then
    ' 获取Agent对象
    Set cmsAgent = cmsApp.Agents.Item("AgentID")
    
    ' 获取Agent状态
    MsgBox "Agent状态：" & cmsAgent.State
    
    ' 断开与CMS服务器的连接
    cmsApp.LogoutServer
Else
    MsgBox "无法连接到CMS服务器"
End If

请注意，以上代码仅作为示例提供，并且可能需要根据实际情况进行调整。

5. 如果问题仍然存在，可以尝试重新安装Avaya CMS客户端，并确保使用的是最新版本。

如果以上方法仍然无法解决问题，建议联系Avaya CMS的技术支持团队以获取进一步的帮助和支持。