Como realizar una llamada con Skype desde Access

Hola , hoy les voy a dejar para que descarguen los archivos para realizar llamadas desde Access con Skype , los archivos se consiguen en la categoría desarrolladores de la pagina oficial de Skype.

Pero aquí tienes los archivos que los subí a mi dropbox
http://dl.dropbox.com/u/19594155/Skype.rar

Para poder realizar el ejemplo tenes que registrar la DLL de la siguiente forma.

desde inicio ejecutar escribimos CMD y ejecutamos la sig. linea:
regsvr32 C:\Users\Pablo\Desktop\Skype\Skype4COM.dll

regsvr32 espacio mas la ubicación donde esta el archivo Skype4COM.dll (que descargaste desde este blog)

El codigo que proviene del ejemplo es el siguiente;

Private Sub Comando0_Click()
Dim sky As New SKYPE4COMLib.Skype

sky.Attach (5)
'abre el skype si no esta abierto
If Not sky.Client.IsRunning Then
sky.Client.Start True
End If
'llama a un numero
sky.Client.Focus
sky.Client.OpenDialpadTab
sky.PlaceCall ("ECHO123")

End Sub

 

Al cual le realice las siguientes modificaciones para poder reconocer tres campos distintos como puede ser el teléfono, un segundo numero de teléfono y el nombre de usuario de Skype.

Private Sub BtonLLamarPorSkype_Click()
Dim sky As New SKYPE4COMLib.Skype
Dim Numerotelefono As Double
Dim Numerotelefono2 As Double
Dim UsuarioSkype As String
Dim CampoActivo As String

CampoActivo = Screen.PreviousControl.Name

‘Variable es igual al nombre del campo del formulario Me.NombreDeUsuarioSkype.Value
Numerotelefono = Nz(Me.NúmTeléfono)
Numerotelefono2 = Me.[2° Telefono]

sky.Attach (5)
'abre el skype si no esta abierto
If Not sky.Client.IsRunning Then
    sky.Client.Start True
End If
Debug.Print CampoActivo
'llama a un numero
sky.Client.Focus
'sky.Client.OpenDialpadTab      ‘ esta linea la desactivo para que no se visualice la publicidad.

    Select Case CampoActivo
   
    Case "NúmTeléfono"
        sky.PlaceCall (Numerotelefono)
    Case "2NumTelefono"
        sky.PlaceCall (Numerotelefono2)
    Case "NombreDeUsuarioSkype"
        sky.PlaceCall UsuarioSkype

    End Select
   
End Sub

Aquí te dejo mas información desde la pagina de Skype:
http://dev.skype.com/accessories