Как автоматически позвонить пользователю Skype с помощью Excel VBA - PullRequest
Новая
       14

Как автоматически позвонить пользователю Skype с помощью Excel VBA

0 голосов
/ 28 января 2019

Я создаю пользовательские формы в Excel, которые автоматически вызывают помощь при нажатии кнопки.

В настоящее время система работает по гиперссылке в формате «tel: +1 (234) 5678901», которая автоматически открывает Skype для совершения вызова.

Проблема в том, что нашаверсия Skype не может совершать звонки на стационарный телефон, поэтому я хотел бы иметь возможность автоматически совершать вызовы пользователю Skype.Библиотека SKYPE4COM не работает для Skype для бизнеса.

Есть ли хороший способ сделать VOIP-вызов автоматически через VBA?

РЕДАКТИРОВАТЬ с помощью sendkeys Я создал очень дерзкий способ сделать это.Все еще ищу предложения о лучших путях. 

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
...