Following Code for dialing phone works with modem in PC connected to phone.I know that TAPI is used to dial phone.I need to integrate this with 3Com NBX 100 Phone System.How this can be acheived.Please help.
Dim ret As Long
Dim session As New notessession
Dim db As notesdatabase
Dim doccol As notesdocumentcollection
Dim doc As notesdocument
Dim docPhone As Variant
Dim varphone As String
Dim varcontact As Variant
Dim vartime,vardate As Variant
Set db=session.currentdatabase
Set doccol=db.unprocesseddocuments
If doccol.count >1 Then
Msgbox “Please select one contact at a time”
Elseif doccol.count=0 Then
Msgbox “Please select a contact”
Else
Set doc=doccol.getfirstdocument
If doc.isresponse Then
Msgbox “Please select main contact document”
Else
docPhone = doc.getitemvalue(“phone”)
docphone1=docphone(0)
varcontact=doc.contact
varcontact1=varcontact(0)
If Len(docphone1) = 0 Then
Msgbox varcontact1 + " 's phone number not found"
Else
varphone=docphone(0)
vartime="Date " & Str(Time())
vardate="Time " & Str(Date())
ret = tapiRequestMakeCall(varPhone,vardate,varcontact1,vartime)
If ret <> 0 Then Print “Call failed!”
End If
End If
End If
Thanks in advance,
Babita