Binaryworld - Make a phone call using TAPI ... [ VB -> Tapi ]

If TAPI libraries are installed on your machine, you can easily dial a number from a VB application using a single API call. Here's a function that encapsulates the call and that returns True if the dialing was successful:

Click here to copy the following block

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As _
  String, ByVal AppName As String, ByVal CalledParty As String, _
  ByVal Comment As String) As Long

' make a phone call using TAPI
' return True if successfull

Function PhoneCall(ByVal PhoneNumber As String, ByVal DestName As String, _
  Optional ByVal Comment As String) As Boolean
  If tapiRequestMakeCall(Trim$(PhoneNumber), App.Title, Trim$(DestName), _
    Comment) = 0 Then
    PhoneCall = True
  End If
End Function

This code works on Windows 95, Windows 98, Windows NT 4 SP3 or later, and Windows 2000, and requires TAPI 1.3 libraries or a later version.