bei MS gibt es ein Telefon "Phone.ht". Kann man dies per Makro aufrufen?
Falls möglich, bitte gleich mit Code.
Für Eure Hilfe besten Dank im voraus.
Gruß
Stefan
Sub test()
Dim Ergebnis, Anwendung$, Pfad$, Datei$
Anwendung = "Notepad.exe"
Pfad = "C:\Programme\SBApps\OEMReg\HTC\common\" 'mit \ am Ende
Datei = "Phone.htc"
Ergebnis = Shell(Anwendung & " " & Pfad & Datei, 1) ' Leerzeichen nach Anwendung
End Sub
Sub test()
Dim Ergebnis, Anwendung$, Pfad$, Datei$
Anwendung = "mspaint.exe"
Pfad = "C:\windows\"
Datei = "Präriewind.bmp"
Ergebnis = Shell(Anwendung & " " & Pfad & Datei, 1) ' Leerzeichen nach Anwendung
End Sub