Yealink Telefon per VBA Anruf

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):

 

Dieser Eintrag wurde veröffentlicht in VBA von pjd. Setze ein Lesezeichen zum Permalink.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.