Telefonie über Notes

[FRIGO]

Gibt es eine Möglichkeit über Notes in Verbindung mit einer dementsprechenden Telefonanlage direkt zu telefonieren? bzw. aus Notes zu wählen?

[eknori]

guckst du hier  

http://www.maier-gmbh.de/products/um/notes.html

[FRIGO]

Danke für die schnelle Antwort. Aber eigentlich wollte ich nur wählen, und keine Rakete kaufen. Gibt es keine einfachere und günstigere Lösung?

[kloeti]

Wie wär's mit Telesnap ? Guckst Du hier   http://www.telesnap.de/index.html hab ich schon im Einsatz mit mehreren TK Anlagen gesehen.

[eknori]

Hallo,

hab doch noch was (bei meinem alten Arbeitgeber)
gefunden

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q141625

und ein bisschen Code habe ich auch noch ( hab ich aber noch nicht getestet )

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