Kalde op fra Access Skype

Hej

Er der nogle der ved hvordan man kan ringe op fra access via VBA til Skype

Jeg har fundet noget kode.

Public Function SkypeStart(strContactValue As String, Optional strMode As String = "Call") As Boolean
    Dim strSystemRoot As String

    strSystemRoot = Environ("SystemRoot") ' Get %SystemRoot%
   
    Select Case strMode
        Case "Call"
            Shell strSystemRoot & "\explorer.exe " & """skype:" & strContactValue & "?call""", vbHide 'for call
        Case "Chat"
            Shell strSystemRoot & "\explorer.exe " & """skype:" & strContactValue & "?chat""", vbHide 'for chat
        Case Else
            'Ignore call - You could choose to display a message that Mode incorrect, or set SkypeStart = False
            'You may also want to validate in Case "Call" if the number is a valid format before calling Skype
    End Select
   
End Function

Private Sub cmdSkype_Click()
  Call SkypeStart("123456789", "Call")
End Sub

Koden virker, nr. kommer ikke med over til skype hvad er der galt nogle bud.

Hilsen

Peter