Skype Chat
18.06.2008 09:47:00
peter
Ich habe auf der Skype Homepage
https://developer.skype.com/Docs/Skype4COMLib/Multichat_vbs
folgenden Visual Basic Code gefunden und ins Excel eingebunden.
' Create a Skype4COM object:
Set oSkype = CreateObject("Skype4COM.Skype", "Skype_")
' Start the Skype client
If Not oSkype.Client.IsRunning Then
oSkype.Client.Start
End If
' Create a UserCollection object and add the multichat users to this collection:
Set oMembers = CreateObject("Skype4COM.UserCollection")
oMembers.Add (oSkype.User("skypeuser2"))
oMembers.Add (oSkype.User("skypeuser3"))
' Create a multichat:
Set oChat = oSkype.CreateChatMultiple(oMembers)
' Open a chat window:
oChat.OpenWindow
' Set a chat topic:
oChat.Topic = "Skype is cool"
' Send a chat message:
Set oMsg = oChat.SendMessage("Greetings!")
' Leave a chat:
oChat.Leave
Leider funktioniert das Senden von Nachrichten nicht in der EXCEL VBA Umgebung.
Danke für die Unterstützung.
Grüße
Peter