brauche Hilfe!
Mit den nach folgenden Code möchte ich aus einer Liste alle 10 sekunden für Prüfzwecke einen Anruf tätigen.
Problem stellt sich darin,das das Programm diealer.exe nicht abgebrochen wird.
Vielleicht kann jemand nochmal drüber schauen und hat eine Idee.
Gruß Peter
Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Public Zeile As Long
Modul 1
Sub Telefonieren(TelefonNr$, derName$)
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
'an dieser stelle müßte das Programm Dialer.exe geschlossen werden!!!!!!!!!!!
Cells(Zeile, 5) = "Fehler"
Else
Cells(Zeile, 5) = "OK"
End If
End Sub
Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Sub UpdateClock()
Dim A$
SendKeys "{ESC}"
A$ = Cells(Zeile, 2)
Telefonieren A, "C:\Windows\Dialer.exe"
If Zeile = Range("B65536").End(xlUp).Row Then Exit Sub
Zeile = Zeile + 1
Call StartClock
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub
Tabelle 1
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub
Sub AnrufStarten() 'Ablauf beginnt
Dim Cr As Long
Cr = Range("E65536").End(xlUp).Row
If Cr = 2 Then
Zeile = 2
Else
Zeile = Cr + 1
End If
Call StartClock
'Damit suchst du zuerst in der Spalte C
'ob ein Eintrag drin steht der nach der zeile 2 steht, wenn ja,
'erhält die Variable den Wert des letzten Eintrages und du kannst dort
'weitermachen wo du aufgehört hast.
End Sub
Private Sub CommandButton5_Click()
Call AnrufStarten
End Sub
Private Sub CommandButton6_Click()
Call StopClock
End Sub