将Skype替换为Teams，并使用VBA代码进行呼叫

Question

从Skype切换到团队后，我的vba代码无法正常工作

在skype上，我使用了c：\ Program Files \ Microsoft Office \ root \ Office16 \ lync.exe” 电话：+ 41xxxxxxx
打电话

如果在切换到团队后尝试此操作，则会打开一个窗口-您已切换到团队- 如果单击确定，将打开Skype呼叫窗口。
这样我可以忍受，但是有更好的解决方案吗？
我正在从Access应用程序中启动此代码，双击电话号码即可启动Skype进行呼叫

Cmd = "c:\Program Files\Microsoft Office\root\Office16\lync.exe" Tel:+41xxxxxxx
Set sh = CreateObject("WScript.Shell")
sh.Run Cmd, 3