C
ccdubs
Hi all,
I was hoping someone could help me with using Excel VB to dial a phone
number and then hang up after a few rings or after a certain amount of time.
All I want to do is have a remote computer dial me when a certain event
occurs. Then I can see from caller ID that an event has occured and respond
accordingly. As I don't have to pick up the call, no charges are made
either.
I have found the following code which works well for dialling but doesn't
hang up. The solution doesn't have to be TAPI based, anything simple and
reliable will do!
Any help with this will be greatly appreciated.
Many Thanks.
****************************************************************************
*
Option Explicit
Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" ( _
ByVal Dest As String, _
ByVal AppName As String, _
ByVal CalledParty As String, _
ByVal Comment As String) As Long
Sub PhoneCall()
Dim strNumber As String
Dim strName As String
Dim lRetVal, shit As Long
strNumber = "03 365 8960"
strName = "Work"
'// Make a voice call using the default call manager application
lRetVal = tapiRequestMakeCall(Trim(strNumber), vbNull, Trim(strName), "")
'// Let the call manager application handle the errors!
End Sub
I was hoping someone could help me with using Excel VB to dial a phone
number and then hang up after a few rings or after a certain amount of time.
All I want to do is have a remote computer dial me when a certain event
occurs. Then I can see from caller ID that an event has occured and respond
accordingly. As I don't have to pick up the call, no charges are made
either.
I have found the following code which works well for dialling but doesn't
hang up. The solution doesn't have to be TAPI based, anything simple and
reliable will do!
Any help with this will be greatly appreciated.
Many Thanks.
****************************************************************************
*
Option Explicit
Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" ( _
ByVal Dest As String, _
ByVal AppName As String, _
ByVal CalledParty As String, _
ByVal Comment As String) As Long
Sub PhoneCall()
Dim strNumber As String
Dim strName As String
Dim lRetVal, shit As Long
strNumber = "03 365 8960"
strName = "Work"
'// Make a voice call using the default call manager application
lRetVal = tapiRequestMakeCall(Trim(strNumber), vbNull, Trim(strName), "")
'// Let the call manager application handle the errors!
End Sub