• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 659
  • Last Modified:

Need Simple Autodialer for Excel

There is a contact manager in Access.  In it is a button that will autodial a number that is selected.

I want to add that same simple function to an Excel spreadsheet.

I have a list of phone numbers to call and I am getting tired of picking up my old phone handset everytime!  I would like for my computer to pickup, dial and allow me to pick up the handset if an answer happens.

Thanx.
0
zeddock
Asked:
zeddock
  • 5
  • 5
1 Solution
 
bruintjeCommented:
Hi zeddock,

from John Walkenbach

Here's some code from my "Excel 2000 Power Programming With VBA" book. It
uses SendKeys to transfer a phone number to the Windows Dialer program.

Sub CellToDialer()
'   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

John Walkenbach
For Excel tips, macros, & downloads...
http://j-walk.com/ss

HAGD:O)Bruintje
0
 
zeddockAuthor Commented:
Well... close.  That gives me a Phone Dialer program but it is in the background and more difficult to navigate than just picking up the phone... LOL.

Any ideas?

I am on XP.  That make a difference?

0
 
bruintjeCommented:
ok i have an idea but no time

using the mscomm control you could do this easily, but i don't know how you are into VB/VBA?

http://www.hardandsoftware.net/

is a place for free downloads mostly vb oriented but easily converted to Excel, just add the comm control to the references in the VBA Editor, put in a form and a button to dial from your sheet

as said sorry in a hurry to do this completely now, maybe someone else comes up with a working solution first

:O)Bruintje
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
zeddockAuthor Commented:
Thanx.  I looked at it, but looks beyond me.

Isn't there an add-in??

0
 
zeddockAuthor Commented:
Just increased points.

0
 
bruintjeCommented:
Hello zeddock

i can't make it work but others can
http://www.am-woljo.com/exceldialer.html#exceldialer

HAGD:O)Bruintje
0
 
bruintjeCommented:
my very last try on this one

http://www.bredlum.com/ee_temp/xlDialer.xls

just place the cursor in the first column and push the dial button it will start to dial the phone number and when connected you can pick up the handset

:O)Bruintje
0
 
zeddockAuthor Commented:
i think you got it. I will need to try at home where I have Dialtone.

Let you know tomorrow!

Thanx.
0
 
bruintjeCommented:
Hello zeddock

this question is open for more then 2 months
time to clean up
if not stated otherwise

my recom will be
-PAQ and refund
-this will be finalized by an EE Moderator
-with no further update (09.11.2002)

PLEASE DO NOT ACCEPT THIS COMMENT AS ANSWER

HAGD:O)Bruintje
posted by ToolzEE v1.0
0
 
zeddockAuthor Commented:
Thanx all.
Sorry for delay.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

  • 5
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now