Function tapiRequestMakeCall& Lib "TAPI32.DLL" (Byval DestAdress$, Byval
AppName$, Byval CalledParty$, Byval Comment$)
2. Sub Dial Number
Sub DialNumber(strNumber As String, strAppName As String, strName As String)
Dim lngResult As Long
Dim strBuffer As String
lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "")
If lngResult <> 0 Then 'error
strBuffer = "Error connecting to number: "
Select Case lngResult
strBuffer = strBuffer & " 'PhoneDailer not installed?"
strBuffer = strBuffer & "Error : " & Cstr(lngResult) & "."
3. Initialize (for an Agent) or Click (for button) Event
Dim PhoneNumber As String
Dim PhoneName as String
PhoneNumber = "18005551212"
PhoneName = "800 Information"
Call DialNumber(PhoneNumber$, " Auto Dialer", PhoneName)