Pessoal,

 

Alguem teria um exemplo da TAPI 3.0 , para fazer chamadas telefonicas

 

Desde já agradeço

Ai vai:

 

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
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
       
    End If
End Sub
Private Sub Form_Load()
    PhoneCall "123456", "Exemplo"
End Sub

   

 

 

Té mais...