Dial modem from a web page

  • longjing
  • Born
  • Born
  • No Avatar
  • Joined: May 07, 2004
  • Posts: 1
  • Status: Offline

Post May 7th, 2004, 8:13 am

I have a web page with a list of phone numbers. Users want windows
to dial the number when they click on it. Is it possible? Has anyone
done similar things before? Thank you.

-Long
  • Anonymous
  • Bot
  • No Avatar
  • Joined: 25 Feb 2008
  • Posts: ?
  • Loc: Ozzuland
  • Status: Online

Post May 7th, 2004, 8:13 am

  • b_heyer
  • Web Master
  • Web Master
  • User avatar
  • Joined: Jun 15, 2003
  • Posts: 4583
  • Loc: Maryland
  • Status: Offline

Post May 7th, 2004, 8:20 pm

I doubt it is, unless you use some sort of client side software and just access it through the link.
Pixel Acres V2
  • rjstephens
  • Professor
  • Professor
  • User avatar
  • Joined: Jul 28, 2003
  • Posts: 774
  • Loc: Brisbane, Australia
  • Status: Offline

Post May 8th, 2004, 4:45 am

yeah, the only way to do that is through either something the user downloads beforehand or trhough an activeX control.
  • gtrkev
  • Born
  • Born
  • No Avatar
  • Joined: Jul 08, 2009
  • Posts: 1
  • Status: Offline

Post July 8th, 2009, 2:11 pm

Hello,

You could copy & paste the phone number list to excel (or just open the web page using excel). Then use a macro to dial the phone. Here's the macro code.... Pretty easy from excel. If the name is 2 columns to the left of the phone#, it displays on the dialer. This macro code also turns the phone number red after the call is made, to help you keep track of who you dialed! Cool eh?

'********Macro********
'
' 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
Dim cName As String ' KK added
'
cPhone = ActiveCell.Offset(0)
cName = ActiveCell.Offset(0, -2) ' KK added: offset(row, column)
Selection.Font.Color = RGB(255, 0, 0) ' KK added: change color
'
x = tapiRequestMakeCall(cPhone, "", cName, "")
'
End Sub
'********End of Macro********

Hope that helps,
Kevin
p.s. using excel 2000 and Windows XP.
  • UPSGuy
  • Lurker ಠ_ಠ
  • Web Master
  • User avatar
  • Joined: Jul 25, 2005
  • Posts: 2735
  • Loc: Nashville, TN
  • Status: Offline

Post July 8th, 2009, 2:16 pm

Hi gtrkev, first off welcome to Ozzu. Glad to have you here. We appreciate that you've come to join us and contribute to our community, however, if you have a look at the last reply prior to yours, you'll noticed that this thread is a little over 5 years old. I think the information you've share is good, but I'd just like to ask that if you choose to participate in threads that you choose some that are a bit more current. Thanks. ;)
I'd love to change the world, but they won't give me the source code.

Post Information

  • Total Posts in this topic: 5 posts
  • Users browsing this forum: No registered users and 213 guests
  • You cannot post new topics in this forum
  • You cannot reply to topics in this forum
  • You cannot edit your posts in this forum
  • You cannot delete your posts in this forum
  • You cannot post attachments in this forum
 
 

© 2011 Unmelted, LLC. Ozzu® is a registered trademark of Unmelted, LLC.