Dialer wont start

P

Pat

The following code works fine under WindowsME but will not run in WindowsXP.
The message I am getting when the code is run is "Cannot start Dialer.exe"
The message has an OK option only and whae clicked will not stop the code
from running. The only course of action is to close down Excel via the Task
Manager.



Private Sub CommandButton1_Click()
CellContents = Cells(ActiveCell.Row, "AB").Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If
Appname = "Dialer"
AppFile = "Dialer.exe"
On Error Resume Next
AppActivate (Appname)
If Err <> 0 Then
Err = 0
TaskID = Shell(AppFile, 1)
If Err <> 0 Then MsgBox "Can't start " & AppFile
End If

Application.SendKeys "%n" & CellContents, True

Application.SendKeys "%d"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top