Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Dial a Phone Number #2


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

Sub PhoneCall(sNumber As String , sName As String )
Dim lRetVal As Long
lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title,
Trim$(sName), "" )
If lRetVal <> 0 Then
'Couldn't make the call.
'Take appropriate action
End If
End Sub