Making phone calls right from Excel

P

Peter

Does anybody know of a little program to help me make phone calls (via the
windows dialer and a modem) by double-clicking on a phone number in an excel
table???

Thanks, Peter
 
D

Don Guillett

right click sheet tab>view code>copy/paste this

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'Sub CellToDialer() 'John Walkenbach
' Transfers active cell contents to Dialer
' And then dials the phone

' Get the phone number
CellContents = ActiveCell.Value
If CellContents = "" Then
MsgBox "Select a cell that contains a phone number."
Exit Sub
End If

' Activate (or start) Dialer
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

' Transfer cell contents to Dialer
Application.SendKeys "%n" & CellContents, True

' Click Dial button
Application.SendKeys "%d"
' Application.SendKeys "{TAB}~", True
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

Similar Threads

Help with Excel phone list 1
Excel 4
Using Acces or Excel How Can I create a Raido Button or Something to Click on to Dial a Phone Number 2
Using TAPI in Excel VBA 2
Can't Dial From Outlook 2007 Contact List 1
Need Help with Macro Security 1
Making Phone Calls in Outlook 2
Dialer.exe - I am actually trying to get dialer.exe to dial Excel cell phone numbers. I am using Exc 1

Top