Telefoniefunktion in Excel?

Computer: Software & Programmierung Office Software
1

Moin zusammen,

ich hab hier Office 2000 und in Outlokk integriert ist die Telefoniefunktion mittels Tapischnittstelle.
Nun hab ich ein Dokument in Excel drinne, in dem viele Telefonnummern hinterlegt sind.
Ist es möglich diese Telefonnummern bzw. zu erstellende Buttons mit der Telefoniefunktion zu belegen.

Gibts da irgendwelche Möglichkeiten??

CU - Dominik

2

Füge den Code in die Prozedur des entsprechende Tabellenblatt ein (stammt nicht von mir!):

Private Sub Worksheet\_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 1 Then
 Anrufen
 End If
 Cancel = True
End Sub

Sub Anrufen()
 Dim A$
 A$ = ActiveCell.Value
 MsgBox A$ & strAdresse
 End
 'Pfad für das Windows-Programm Dialer.exe anpassen
 Telefonieren A, "C:\Windows\Dialer.exe"
End Sub

Füge den Code in ein Standard-Modul ein:

Declare Function tapiRequestMakeCall Lib "Tapi32.dll" \_
(ByVal DestAddress As String, ByVal AppName As String, \_
ByVal CalledParty As String, ByVal Comment As String) As Long

Sub Telefonieren(TelefonNr$, derName$)
 Dim Retval As Long
 Retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
 If Retval 0 Then
 MsgBox "Beim Verbindungsaufbau ist ein Fehler aufgetreten!"
 End If
End Sub
3

Moin,

ich danke Dir schonmal - hätte ja nicht gedacht, das es sowas gibt…

Füge den Code in die Prozedur des entsprechende

Aber wie muß ich das wo eintragen, bin eher nur ein Nutzer von Excel, kein Experte… :smile:

CU - Dominik

4

Füge den Code in die Prozedur des entsprechende

Aber wie muß ich das wo eintragen, bin eher nur ein Nutzer von
Excel, kein Experte… :smile:

Hi Dominik,
in Excel Alt+F11 , es öffnet sich der VB-Editor.
Oben dann Einfügen—Modul
Dort dann den Code reinkopieren der ins Standardmodul soll.
Dann links doppelt auf Tabelle1 (bzw den tabellenblattnamen) klicken, dort den Code eingeben der in das enstprechende abellenblatt soll.
Wie carni sagte, mit Start—Suchen herausfinden wo deine dialer.exe ist, dann ggfs „C:\Windows\Dialer.exe“ im Code abhändern.
Vb-Editor schliessen.
Durch Doppelklick auf eine der Telefonnummern müsste diese dann gewählt werden.
Gruß
Reinhard

5

Danke - wird am Montag direkt getestet o.w.T.
siehe oben