Tek tıkla telofon etmek

[yusufhamza]

evet yanlış duymadınız 1 tıkla telofon etmek bilgisayrdan hemde bu makroyla münkünmü belki ütopik bir şey ama yaklaşık 2000 kişiyi aramam lazım ama bunu tek tek telefonle değilde exel listemde üzerine tıklmayla yapmak istiyorum münkünmü??

 

[Mahmut Kök]

Sayın Rakkas'ın hazırlamış olduğu aşağıdaki kodu bir modüle ekleyip deneyebilirsiniz.

[LEFT]Option Explicit[/LEFT]
 
[LEFT]Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" ( _
  ByVal Dest As String, _
  ByVal AppName As String, _
  ByVal CalledParty As String, _
  ByVal Comment As String) As Long
Sub Cevirmeyap()
Dim strNumber As String
Dim strName As String
Dim lRetVal As Long
strNumber = InputBox("Aranacak numarayı giriniz")
strName = "Work"
lRetVal = tapiRequestMakeCall(Trim(strNumber), vbNull, Trim(strName), "")
End Sub[/LEFT]

 

[neo]

merhaba

sayın mesleki telefon numaraları excel sayfasından örnegin c5:c50 aralığındaki numaraların uzerine tıklandığında aranması mumkun olurmu acaba

saygı ve sevgilerimle

 

[hamitcan]

KOD1'i bir module yerleştirin.KOD2'yi verilerinizin bulunduğu sayfanın kod kısmına ekleyin.Hücreyi çift tıkladığınızda çalışacaktır.
'KOD1

Option Explicit
Public Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" ( _
  ByVal Dest As String, _
  ByVal AppName As String, _
  ByVal CalledParty As String, _
  ByVal Comment As String) As Long

Sub cevir()
Dim strNumber As String
Dim strName As String
Dim lRetVal As Long
strNumber = ActiveCell 'InputBox("Aranacak numarayı giriniz")
strName = "Work"
lRetVal = tapiRequestMakeCall(Trim(strNumber), vbNull, Trim(strName), "")
End Sub

'KOD2

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c5:c50]) Is Nothing Then Exit Sub
cevir
End Sub

 

[kelkitli]

Selamlar,
Modem üzerinden sesli telefon görüşmesi bu kodla mümkünmüdür?

 

[hamitcan]

Ben denemedim. Ama arkadaşımın anlattığı kadarıyla olabiliyormuş. Hatta, ses tonunu bile değiştimek mümkünmüş.

 

[serinci]

selamlar,

Ekteki dosyayı inceleyin eğer modeminiz çalışıyorsa arama ve Görüşme yapabilirsiniz.