Tapi And Notes


Declare Sub tapiRequestMakeCall Lib "TAPI32" (Byval lpszDestAddress$,Byval
lpszAppName$, Byval lpszCalledParty$, Byval lpszComment$)

Sub Initialize
Dim s As New NotesSession
Dim doc As NotesDocument
Dim strPhoneNumber As String
Dim strAppName As String
Dim strCallParty As String
Dim strComment As String
Dim docTmp As NotesDocument

Set doc=s.CurrentDatabase.UnprocessedDocuments.GetFirstdocument
If Not doc Is Nothing Then
strPhoneNumber=doc.OfficePhoneNumber(0)
If strPhoneNumber="" Then strPhoneNumber=doc.PhoneNumber(0)
If strPhoneNumber="" Then strPhoneNumber=doc.phone_number(0)
strAppName="Notes Dialer"
strComment="Automatic Dialing"
strCallParty=doc.FullName(0)
If strPhoneNumber="" Then
Set docTmp= s.CurrentDatabase.CreateDocument
Dim ws As New NotesUIWorkspace
docTmp.CallParty=strCallParty
If ws.DialogBox ( "Notes Dialer", True, True, False, False, False, False,
"Notes Dialer",docTmp) Then
strPhoneNumber=docTmp.PhoneNumber(0)
strCallParty=docTmp.CallParty(0)
End If
End If
If Instr(strPhoneNumber," x") Then
strPhoneNumber=Left$(strPhoneNumber,Instr(strPhoneNumber, " x")-1)
If strCallParty="" Then strCallParty=doc.orgName(0)
If Trim(strPhoneNumber) <>"" Then Call
tapiRequestMakeCall(strPhoneNumber,strAppName,strCallParty,strComment)
End If

End Sub

Dig Deeper on Lotus Notes Domino Administration Tools

SearchWindowsServer

Search400

  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury

SearchDataCenter

SearchContentManagement

Close