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.
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).
