Mit diesen beiden Code in der Tabelle und in einem Modul kann man aus Excel heraus telefonieren.
Da ich sehr lange Telefonlisten habe möchte ich gern einen Automatismus basteln.
die Telefonnummern stehen in B2-Bn
Wenn z. B die Nummwer in b2 angerufen wird nach 10 sekunden ende und dann in B3 usw.
sehr kniffelig vieleicht hat jemand einen Ansatz oder eine Lösung.
Gruß Peter
Tabelle
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Or Target.Column = 10 Then
Anrufen
End If
Cancel = True
End Sub
Sub Anrufen()
Dim A$
A$ = ActiveCell.Value
Telefonieren A, "C:\Windows\Dialer.exe"
End Sub
Modul
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