Access SQL   ›   Tags   ›   veriyorum

Tags
Author: karakabus - Replies: 1 - Views: 2304
Access Üzerinden Skype Chat ve Grop Chat Yapma - VBA Kodlarını Veriyorum
tek kullanıcı chat

Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
Set skUser = aSkype.User("Gönderilecek Kişi")
Set oChat = aSkype.CreateChatWith(skUser.Handle)
oChat.OpenWindow
oChat.SendMessage Me.Messaj


Grup chat


Dim aSkype As SKYPE4COMLib.Skype
Set aSkype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User

Set skUser = aSkype.User("Gönderilecek Kişiler")
Se