Detail: Tapi Tester

08.10.2009 - Tapi Tester

Durch ein Kundenprojekt war es erforderlich ein VBS-Script zu entwerfen, welches die aktuelle TAPI-Line prüft und ein Call initiiert.

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.10.08 Vers 1.0

' Settings
strPhoneNumber = "+49 (6202) 1268480"
strTapiLine = "AG manuelle Anwahl" 'Name der TAPI-Line angeben
' Settings End

bolFoundLine = False
lAddressType = LINEADDRESSTYPE_PHONENUMBER
Set objTapi = CreateObject("TAPI.TAPI.1")

objTapi.Initialize
objTapi.EventFilter = TAPI3_ALL_TAPI_EVENTS
Set objCollAddresses = objTapi.Addresses

'Line suchen
For lLoop = 1 To objCollAddresses.Count

Set objCrtAddress = objCollAddresses.Item(lLoop)

'Name der TAPI-Line prüfen
If (objCrtAddress.AddressName = strTapiLine )Then
Set gobjAddress = objCrtAddress

'Line gefunden
bolFoundLine = True
Exit For
End If
Next

'Wenn Line stimmig
If bolFoundLine = true Then
msgbox "Automatische Anwahl JETZT"
Set TestCall = gobjAddress.CreateCall(strPhoneNumber, lAddressType,LINEMEDIAMODE_INTERACTIVEVOICE)' lMediaTypes)'Set
TestCall.connect(False)
Else
'Wenn Line nicht stimmig
MsgBox"Keine TAPI-Line gefunden."
End If

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl