Kleiner Code um ein Anruf über Yealink-Telefone via VBA zu starten:
' Aufruf: CallYaelink "[Telefonummer]"
Public Function CallYaelink(PhoneNumber As String)
Dim oRequest As Object
Set oRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
oRequest.Open "GET", "http://[PhoneIP]/servlet?number=" & PhoneNumber
oRequest.SetCredentials "[admin]", "[Passwort]", 0
oRequest.Send
End Function
Die Parameter sollten klar sein…
Bei Mir ging es nämlich nicht in VBA mit der URL http://[admin]:[Passwort]@[PhoneIP]/servlet?number=[Telefonummer]
Wichtig sind noch folgende Voreinstellungen im Yealink Telefon (alternativ kann man auch “any” eintragen):
