Excel Macro to dial phone (Excel 2002 (Office XP))

Topic

New Reply

I need a macro or add-in module that will enable Excel to dial the phone for me.

I spend a lot of time working with Excel tables; these are prospect lists with contact information. I would like to be able to use the Data Form and have Excel recognize the phone number and dial the phone.

Ideas anyone?

Reply | Quote

Replies

budman

Well my question for you is where is the bottom of what MS-Excel is asked to do? My My its a spreadsheet and people use it for reports and graphs and recipe holders, calculators, and now phone dialers?! What next a microwave controller so that you don’t have to walk to it and press 3 buttons. I think you are asking too much of MS-Excel…

Oh wait a second check this website, but this website might prove that the bottom is yet to be reached… Unfortunately the URL is broken, so if you find anything useful, let us know.

Good luck

Wassim

Reply | Quote

Did you also want to tell me how to cook my pasta?

Bill was the one who created this monster by adding VBA, not me. What I’m asking for isn’t heavy lifting; I was just hoping to save some time.

FWIW, your Google search didn’t turn up anything worth while.

If I get around to writing the script myself, I’ll send it to you.

Reply | Quote

Hi,
If you’ve got the Windows Phone Dialer application, you can use a combination of Shell(“Dialer.exe”,1) and SendKeys to achieve this. I don’t normally like SendKeys but can’t think of another way of doing it off the top of my head.
Hope that helps.

Reply | Quote

Add a button to the spreadsheet that contains the phone numbers.
The phone numbers should be listed in a column.
Attach the following code to the button:
—————————————————————————————–
Sub CellToDialer() ‘by John Walkenbach
‘ Transfers active cell contents to Dialer
‘ And then dials the phone
‘ Modified by Jim Cone on Jan 18, 2002

Dim CellContents As String
Dim AppName As String
Dim AppFile As String
Dim TaskID As Variant

‘ Get the phone number
CellContents = ActiveCell.Value
If Len(CellContents) < 7 Then
MsgBox "Select a cell that contains a phone number.", _
vbInformation
Exit Sub
End If
' Activate (or start) Dialer
AppName = "Dialer"
' USE THE FULL FILE PATH APPROPRIATE FOR YOUR OPERATING SYSTEM
AppFile = "C:Program FilesWindows NTdialer.exe"
On Error Resume Next
' This activates the dialer if it showing on the desktop
AppActivate (AppName)
If Err.Number 0 Then
Err = 0
‘ This activates the dialer by opening(running) the file
TaskID = Shell(AppFile, vbNormalFocus)
If Err 0 Then
MsgBox “Can’t start ” & AppFile, vbExclamation
Exit Sub
End If
End If

‘ Transfer cell contents to Dialer
Application.SendKeys “%n” & CellContents, True

‘ Click Dial button
Application.SendKeys “%d”
‘ Application.SendKeys “{TAB}~”, True

‘ Selects the next telephone number in the column.
ActiveCell(2, 1).Select
‘ The macro button must now be clicked twice to dial the next
‘ number in the column.
End Sub
——————————————————————————————

Regards,

Jim Cone

Reply | Quote