Skype aufrufen zum Chat oder für Call Eine Funktion, mit der sich Skype via WScript-Objekt zum Chatten bzw. Telefonieren aufrufen lässt.
Autor:   Heiko Jendreck	Bewertung:     [ Jetzt bewerten ]	Views:  75.272
www.phw-jendreck.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 708 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um ein externes Programm steuern zu können, verwende ich gern das Objekt "WScript.Shell".

Nachfolgend eine Funktion, mit der sich über das WScript-Objekt Skype entweder zum Chatten oder Telefonieren aufrufen lässt.

Die Funktion erwartet als Parameter den Benutzernamen, sowie die Aktion (Chatten oder Telefonieren).

Nachfolgenden Code bitte in ein Modul einfügen:

Option Explicit
 
Public Enum SkypeAction
  SkypeChat = 0
  SkypeTelephon = 1
End Enum

' Skype-Chat bzw. Skype-Telefonie starten
Public Function CallSkype(ByVal Username As String, _
  ByVal Action As SkypeAction) As Boolean
 
  Dim WShell As Object
  Dim sParam As String
 
  On Error GoTo ErrHandler
 
  ' Parameter für den Aufruf zusammenstellen
  sParam = "skype:" & Username & "?"
  If Action = SkypeChat Then
    sParam = sParam & "chat"
  ElseIf Action = SkypeTelephon Then
    sParam = sParam & "call"
  End If
 
  ' Skype aufrufen
  Set WShell = CreateObject("WScript.Shell")
  WShell.Run sParam
 
  On Error GoTo 0
  CallSkype = True
  Exit Function
 
ErrHandler:
  MsgBox "Fehler beim Aufruf von Skype!" & vbCrLf & _
    CStr(Err.Number) & " " & Err.Description, vbExclamation
End Function

Aufrufbeispiel:

' Chatten
CallSkype "Username", SkypeChat