By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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)