如何使用Excel VBA自动呼叫Skype用户

Question

我正在用excel创建用户表单，单击按钮会自动寻求帮助。

我目前正在通过遵循“ tel：+1（234）5678901”格式的超链接来运行系统，该超链接会自动打开skype发出呼叫。

问题是我们的Skype版本无法拨打固定电话，因此我希望能够自动向Skype用户拨打电话。 SKYPE4COM库不适用于商务用Skype。

是否有通过VBA自动发出VOIP呼叫的好方法？

使用sendkeys进行

EDIT我已经创建了一种非常笨拙的方法。仍在寻找更好方法的建议。

Sub skypecall_test()
    Dim returnvalue
    filepath = "C:\Program Files (x86)\Microsoft Office\root\Office16\lync.exe"
    returnvalue = Shell(filepath, 1)
    waitTill = Now() + TimeValue("00:00:05")
    While Now() < waitTill
    Wend
    AppActivate "Skype for Business"
    SendKeys "{HOME}"
    SendKeys "USER NAME"
    SendKeys "{ENTER}"
    waitTill = Now() + TimeValue("00:00:01")
    While Now() < waitTill
    Wend
    SendKeys "{ENTER}"
    waitTill = Now() + TimeValue("00:00:05")
    While Now() < waitTill
    Wend
    SendKeys "{TAB 8}"
    waitTill = Now() + TimeValue("00:00:01")
    While Now() < waitTill
    Wend
    SendKeys "{ENTER 2}"
End Sub