Run The Windows Phone Dialer From Lotusscript

Run the Windows phone dialer from LotusScript
1. Declarations:

Function tapiRequestMakeCall& Lib "TAPI32.DLL" (Byval DestAdress$, Byval
AppName$, Byval CalledParty$, Byval Comment$)

2. Sub Dial Number

Sub DialNumber(strNumber As String, strAppName As String, strName As String)
Dim lngResult As Long
Dim strBuffer As String

lngResult = tapiRequestMakeCall&(strNumber, strAppName, strName, "")
If lngResult <> 0 Then 'error
strBuffer = "Error connecting to number: "
Select Case lngResult
Case -2&
strBuffer = strBuffer & " 'PhoneDailer not installed?"
Case -3&
strBuffer = strBuffer & "Error : " & Cstr(lngResult) & "."
End Select
Msgbox strBuffer
End If
End Sub


3. Initialize (for an Agent) or Click (for button) Event

Dim PhoneNumber As String
Dim PhoneName as String
PhoneNumber = "18005551212"
PhoneName = "800 Information"
Call DialNumber(PhoneNumber$, " Auto Dialer", PhoneName)
This was first published in November 2000

Dig deeper on Domino Resources - Part 5

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close