Sending Skype message through Excel VBA

[minette]

Hi all, I’m trying to send a Skype message from Excel. I've posted this on a Skype forum, but no-one could help me. I have found the following code on the Skype forum, but when I try to use it as is, I get a run-time error
“CHAT: CREATE: invalid/missing userhandle(s) as argument”
on the line
“Set oChat = aSkype.CreateChatWith(skUser.Handle)”

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

So I changed the line to
“Set oChat = aSkype.CreateChatWith(skUser.DisplayName)”
and it seems to run through it OK. However, when I check Skype, I get a blank Skype screen, and although it looks like my message was sent…..it definitely didn’t go anywhere, as there’s no name at the top. It also says "drag contact that you want to add here".

Hope someone can help me.

 

[xld]

Have you set a reference to a Skype dll at all?

 

[minette]

Yes, I have -to Skyp4COM. Is that what you mean?

 

[minette]

Does anyone else have any ideas please?

 

[xld]

Is it just a wrongly dimmed variable?

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("minette")
    Set oChat = aSkype.CreateChatWith(skUser.Handle)
    oChat.OpenWindow
    oChat.SendMessage "hello.....testing"
End Sub

 

[minette]

Hi xld, I can't believe it's so easy. That solved the problem!!!! You're the best....

 

[xld]

That is not easy, you have benefitted from years of experience in various fields, coupled with an enquiring mind, and huge insight

Or in other words, I luckily noticed that difference.

 

[minette]

I'm extremely grateful you did, as it could've taken me DAYS to figure it out. The guys on the Skype forum couldn't even see that....

In my book, you're the best

 

[shanec]

Hi

I have tried using this but keep getting an error and i think is related to setting the referance as outlined in one of the questions above
"Have you set a reference to a Skype dll at all? i havent' , can you tell me how to do this.

thanks

 

[0713910067]

As we can send chat using skype feature via VBA in excel,can't we receive chat ..