telefonieren nach Zeit

Hallo

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

noch offen

21.05.2003 19:42:39

ChrisL

Re: noch offen

21.05.2003 20:24:35

Peter Knierim

Re: noch offen

21.05.2003 20:31:40

Peter Knierim

Re: telefonieren nach Zeit

21.05.2003 22:03:42

ChrisL

Re: telefonieren nach Zeit

22.05.2003 11:01:20

ChrisL

Re: telefonieren nach Zeit

22.05.2003 17:18:46

Peter Knierim

Re: telefonieren nach Zeit

03.06.2003 10:59:04

ChrisL

Hallo Chris,

ersmal recht herzlichen Dank für die Mühe die du dir gemachst hast um es mir leichter zu machen danke !

Aber es klappt nicht:

Die nachfolgenden Codes stehen in der Tabelle, wo die Rufnummern sich befinden.

Option Explicit

Public Const gsMacro As String = "UpdateClock"----" Hier bleibt das Makro stehen" und Fehlermlg siehe unten erscheint
Public gdNextTime As Double
Public Zeile As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub

Sub AnrufStarten()
Zeile = 5
Call StartClock
End Sub

Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 0, 10)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub

Sub UpdateClock()
Dim A$

SendKeys ("%A")

A$ = Cells(Zeile, 5)
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

(Dies steht im Modul1 der Arbeitsmappe)----------

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
Cells(Zeile, 10) = "Fehler"
Else
Cells(Zeile, 10) = "OK"
End If
End Sub

Kannst du nochmal drüber schauen wo es klemmt.

FehlerMeldung:

Fehler beim Kompilieren

Konstanten, Zeichenfolgen fester Länge, benutzerdefinierte Datenfelder und Delace-Anweisungen sind als Public-Elemente von Objektmodulen nicht zugelassen.

Gruß Peter

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread