Schaltfläche belegen über VBA, Telefonieren per Tastenklick

Anmeldedatum: 19.12.2014 Beiträge: 6

Hallo erstmal.
Tüftle nun schon etwas länger, deshalb jetzt hier mal die Frage: Wie übergebe ich aus einem Skript das Feld an myphoneexplorer?
Hier das Skript:

Private Sub T_Mobil_Click()
On Error GoTo Err_T_Mobil_Click
Dim i As Integer
Dim s As String
Dim Telefonnr As String
'Wählt mit eine Telefonnummer über Myphoneexplorer
'muss der Pfad der Shell-Anweisung angepasst werden.
'Das Formular enthält eine Eingabefeld mit Namen TXT_Telnr
'welches die zu wählende Telefonnummer enthält.
Telefonnr = ""
If Trim$([Mobil-Telefon]) = "" Then Exit Sub 'Leeres Telefonnummernfeld
'Nur Zahlen und +*# erlauben
For i = 1 To Len([Mobil-Telefon])
Select Case Mid$([Mobil-Telefon], i, 1)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
s = Mid$([Mobil-Telefon], i, 1)
Case "+", "#", "*"
s = Mid$([Mobil-Telefon], i, 1)
Case Else
s = ""
End Select
Telefonnr = Telefonnr & s
Next i

If Trim$(Telefonnr) = "" Then Exit Sub

Shell "C:\Programme\MyPhoneExplorer\MyPhoneExplorer.exe action=dial number=Telefonnr"

Exit_T_Mobil_Click:
Exit Sub
Err_T_Mobil_Click:
'MsgBox Err.Description
Resume Exit_T_Mobil_Click

End Sub

Er übernimmt leider nicht die Telefonnummer aus dem Skript. Wo liegt mein gedankenfehler?

Verfasst am: Do Jan 08, 2015 23:33

Zitat:

Shell "C:\Programme\MyPhoneExplorer\MyPhoneExplorer.exe action=dial number=Telefonnr"

sollte denke ich so aussehen:

Zitat:

Shell "C:\Programme\MyPhoneExplorer\MyPhoneExplorer.exe action=dial number=" & Telefonnr

Anmeldedatum: 19.12.2014 Beiträge: 6

Das war genau das i-tüpfelchen.
Vielen vielen Dank.

MfG Steffen Reinwarth Very Happy

Informationen zum Datenschutz auf dieser Website