Author: Calvin Smith
http://www.CalvinSmithSoftware.com/codedisk/sneakpeek.htm

The following code will allow a developer to programmatically
dial a phone number.


'We need the following API declaration first...

Declare Function DialAnyPhoneNumber Lib "tapi32.dll" Alias "tapiRequestMakeCall" ( _
      ByVal strPhoneNumber As String, _
      ByVal strArg1 As String, _
      ByVal strArg2 As String, _
      ByVal strArg3 As String) As Long

Sub PlacePhoneCall(strTelephoneNumberToDial As String)

' ---------------------------------------------------------------------------------
' Author: Calvin Smith - JobForCalvin@Yahoo.com
' Environment(s): MS Access (32-bit) / Visual Basic (32-bit)
' ---------------------------------------------------------------------------------
'
'   *****************************************
'   * Courtesy code from my CodeDisk© product
'   *****************************************
   '
   ' ----------------------------------------------------------------------------
   ' Purpose: Example of how to place a phone call from VB / VBA code
   '
   ' Accepts: strTelephoneNumberToDial as the valid phone number
   '
   ' Returns: Nothing
   '
   ' Example usage: PlacePhoneCall "1-800-555-5555"
   ' ----------------------------------------------------------------------------
   '
          On Error GoTo ErrorHandling_Err

          DialAnyPhoneNumber strTelephoneNumberToDial$, "", "", ""

ErrorHandling_Exit:
   Exit Sub

ErrorHandling_Err:

   If Err Then
       'Trap your error(s) here, if any!
       Resume ErrorHandling_Exit
   End If

End Sub