по данным из Excel сделать рассылку в Skype, ICQ. Возможно?

Sub testingskype()
Dim askype As SKYPE4COMLib.Skype
Set askype = New SKYPE4COMLib.Skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.User
    Set skUser = askype.User("profexpeditor")
    Set oChat = askype.CreateChatWith(skUser.Handle)
    oChat.OpenWindow
    oChat.SendMessage "hello.....testing"
End Sub

Sub SendSkype()
Dim oskype As New Skype, ch As Chat
Set ch = oskype.CreateChatWith("profexpeditor")
ch.SendMessage "проверка отправки текста через Скайп при помощи макроса"
End Sub

Sub SendSkype2()
Dim oskype As SKYPE4COMLib.Skype
Dim oChat As SKYPE4COMLib.Chat
oChat = oskype.Chat("profexpeditor")
oChat.SendMessage ("тест")
End Sub

Sub UsingSkypeTest()
 
    Dim askype As SKYPE4COMLib.Skype
    Set askype = New SKYPE4COMLib.Skype  
    
    Dim skUser As SKYPE4COMLib.User
    ' Set receiver id using the Skype username
    Set skUser = askype.User("profexpeditor")
    
    Dim oChat As Chat
    Set oChat = askype.CreateChatWith(skUser.Handle)
    
    oChat.OpenWindow
    oChat.SendMessage "hello.....testing. " & _
    " Message send from Excel VBA expert Kent Lau"
    
End Sub