Hi,
use to use an OCX that would connect to Windows/phone & modems settings & then to the TAPI setup from my NEC phone system
Basically the ocx could list all those devices & connect.
I just use to get caller ID & log all those who phone in.
Seems to have just stopped working, I think MS is depreciating ocx perhaps? mine was from 2003 I think.
Anyway MS seems to have their own, via tapi32.dll
very little VBA anywhere, few snippets but nothing I can get started with.
I first of all need to list all the devices & then select, I cannot seem to get anything on this.
Fair bit on the actual references to many functions but not how you implement.
Just some I found from elswhere but cannot get started until I would out how to point to my "NEC1100" TAPI devide
'You can find the caller ID string at LINECALLINFO.dwCallerIDOffset/Size when
'LINECALLINFO.dwCallerIDFlags contains LINECALLPARTYID_ADDRESS.
'You can retrieve this structure by lineGetCallInfo() for a new call and on any
'changes notified via LINE_CALLINFO(LINECALLINFOSTATE_CALLERID) message.
'Test it with TB20.
use to use an OCX that would connect to Windows/phone & modems settings & then to the TAPI setup from my NEC phone system
Basically the ocx could list all those devices & connect.
I just use to get caller ID & log all those who phone in.
Seems to have just stopped working, I think MS is depreciating ocx perhaps? mine was from 2003 I think.
Anyway MS seems to have their own, via tapi32.dll
very little VBA anywhere, few snippets but nothing I can get started with.
I first of all need to list all the devices & then select, I cannot seem to get anything on this.
Fair bit on the actual references to many functions but not how you implement.
Just some I found from elswhere but cannot get started until I would out how to point to my "NEC1100" TAPI devide
Code:
Public Const ID_CANCEL = 2
Public Const MB_OKCANCEL = 1
Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
Function DialNumber(PhoneNumber, Optional vName As Variant)
Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
Dim RetVal As Long
' Ask the user to pick up the phone.
Msg = "Please pickup the phone and click OK to dial " _
& Chr(13) & Chr(13) & PhoneNumber & " " & vName
RetVal = tapiRequestMakeCall(PhoneNumber, "", vName, "")
If RetVal < 0 Then
Msg = "Unable to dial number " & PhoneNumber
GoTo Err_DialNumber
End If
Exit Function
Err_DialNumber: 'This is not an On Error routine.
Msg = Msg & Chr(13) & Chr(13) & _
"Make sure no other devices are using the Com port"
End Function'You can find the caller ID string at LINECALLINFO.dwCallerIDOffset/Size when
'LINECALLINFO.dwCallerIDFlags contains LINECALLPARTYID_ADDRESS.
'You can retrieve this structure by lineGetCallInfo() for a new call and on any
'changes notified via LINE_CALLINFO(LINECALLINFOSTATE_CALLERID) message.
'Test it with TB20.
