Das Notes Forum

Lotus Notes / Domino 10 => ND10: Administration & Userprobleme => Thema gestartet von: shiraz am 09.11.20 - 09:13:37

Titel: Live Text and X-Phone (CTI)
Beitrag von: shiraz am 09.11.20 - 09:13:37
Hallo,

kann man Live Text mit Softphone(CTI) zum Laufen bringen?
Nummer erkennen, in Zwischenablage kopieren und das Programm starten.
Titel: Re: Live Text and X-Phone (CTI)
Beitrag von: mb974 am 09.11.20 - 11:44:23
Hallo,

wir sprechen unseren XPhone 7 Client über Livetext an.

Technisch funktioniert das so, dass eine zentrale Datenbank die als Widget zur Rufnummernsuche aktiv ist, ein Formular enthält welchem die Rufnummer übergeben wird. Im Postopen-Event wird XPhone über einen Shell-Aufruf die Nummer übergeben und schon wird gewählt.

Softphone setzen wir nicht ein, aber ich könnte mir vorstellen, dass so auch damit geht.

Code
Sub Postopen(Source As Notesuidocument)
	Dim result As Integer
	Dim xp As Variant
	
	On Error Resume Next
	
	sPath= "C:\Program Files (x86)\Common Files\C4B\AppBridge\xprun.exe "
	sNumber = source.FieldGetText("PhoneNumber")
	
		' create OLE object		
	Set xp = CreateObject("XpNotesCOMClient")
	If  (xp Is Nothing) Then 'Commander
		result = Shell(sPath + " " + sNumber)
	Else 'Connect
		retVal = xp.DialOrSearch(sNumber)	
	End If
	' destroy XPhone objects
	Set xp = Nothing	
	source.Close
End Sub

Das Formular hat nur die Felder PhoneNumber und SaveOptions(=0).