Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: FRIGO am 02.05.02 - 11:37:43

Titel: Telefonie über Notes
Beitrag von: FRIGO am 02.05.02 - 11:37:43

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

Titel: Re: Telefonie über Notes
Beitrag von: eknori am 02.05.02 - 11:41:57

guckst du hier  8)

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

Titel: Re: Telefonie über Notes
Beitrag von: FRIGO am 02.05.02 - 12:03:59

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?

Titel: Re: Telefonie über Notes
Beitrag von: kloeti am 02.05.02 - 13:45:45

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

Titel: Re: Telefonie über Notes
Beitrag von: eknori am 04.05.02 - 15:05:16

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