Insurance Agent Forum

[Slick]

I tried to find a dialer for Excel running in XP but I couldn't find one.
I modified the one from Win98 and it works ok. Does anyone have a better one?
If not, this one works.
******************************
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 = "c:\Program Files\Windows NT\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
' Click Dial button
Application.SendKeys "%pi", [5]

' Transfer cell contents to Dialer
Application.SendKeys CellContents
' Click Dial button
Application.SendKeys "{TAB}pc"

End Sub

************************

[johnrocks]

Originally Posted by Slick

I tried to find a dialer for Excel running in XP but I couldn't find one.
I modified the one from Win98 and it works ok. Does anyone have a better one?
If not, this one works.
******************************
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 = "c:\Program Files\Windows NT\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
' Click Dial button
Application.SendKeys "%pi", [5]

' Transfer cell contents to Dialer
Application.SendKeys CellContents
' Click Dial button
Application.SendKeys "{TAB}pc"

End Sub

************************

HUH

[Slick]

C'mon, I put a geek warning label up there.

[johnrocks]

Lol I was just pickin sorry, everyone who has been reading knows I am "puter" ignorant. Besides I just wanted a repreive from another more serious thread I've been on.

[Slick]

It's cool, I'm laughing (and avoiding moral debate in internet forums).
Anyway what that is, is a macro to add to a Excel spreadsheet (like a list of turning 65's) you asign the macro to a new button on the toolbar. This will take less than 30 seconds the second time you do it.
Now you just click the cell with the phone number then click the button you assigned the macro to and your phone is dialing your potential client.
I hardly ever dial a phone by hand, even my cell is set up for voice dialing.

If anyone wants a walk through to set this up, PM me.

[johnrocks]

Originally Posted by Slick

It's cool, I'm laughing (and avoiding moral debate in internet forums).
Anyway what that is, is a macro to add to a Excel spreadsheet (like a list of turning 65's) you asign the macro to a new button on the toolbar. This will take less than 30 seconds the second time you do it.
Now you just click the cell with the phone number then click the button you assigned the macro to and your phone is dialing your potential client.
I hardly ever dial a phone by hand, even my cell is set up for voice dialing.

If anyone wants a walk through to set this up, PM me.

I would absoloutly LOVE to do that with both my office/home phone and my cell but I would literally have to have someone on the phone to walk me through it.

[Slick]

We'll talk next week, I'll set you up.

[johnrocks]

O.k. thanks a lot!!

[Frank Stastny]

Slick,

Thanks for the info. I just sent your post to the guys who program for me asking how difficult that would be to set that up in YIO. (At $125 per hour, difficult means cost. haha)

[al3]

Google is your friend:
http://www.google.com/search?hl=en&q...oogl e+Search

[johnrocks]

Yes but you got to know what to google before you do your googlin. lol

[Slick]

Originally Posted by al3

Google is your friend:
http://www.google.com/search?hl=en&q...oogl e+Search

Thanks but those are all for old versions of windows or stand alones with a price tag.

[insureagent]

'
' declare assisted-tapi function
'
Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal lpszDestAddress As String, ByVal lpszAppName As String, ByVal lpszCalledParty As String, ByVal lpszComment As String) As Long
'
' call number in active cell
'
Sub CallBtn()
Dim x As Long ' for return
Dim cPhone As String
'
CPhone = ActiveCell.Offset(0)
'
X = tapiRequestMakeCall(cPhone, "", cName, "")
'
End Sub

[Alston]

I'm a geek, but the wrong kind for your query.

There are a lot of programming forums. You might get much better responses there.

I'm on a couple, but they are focused on PHP, SEO and other web-based technologies. You need a forum that is based on (I assume) visual basic for applications and/or MS Office.