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.

 

[MauriceVC]

i have made the procedure sendmessage in excel and it is working at my place.. but this needs to work at the office too.
i have 2 contacts with 2 words in it, separated with a space.. but i can not reach to send to these.. it creates automatically an other contact.. what i don't want.
how do i see what the skype names are.. how does the system knows which skype to call?

please help me with this matter.. thanks

 

[minhanh0011]

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.

In VBA to Tools/References tick Skype4COM 1.0 Type Library, OK Run your macro

 

[indo070591]

Hello everyone,

I am trying to send skype(initially lync) meeting invites using excel VBA. I have script ready for normal 'Appointments', but I have to convert them into skype meetings. Could you please let me know how I can go about in this?

Thanks in advance

 

[alijaveed]

Hi Everyone,
while running below code I am getting an error message as "Wait Timeout". Please help me resolve this issue.

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) <---{Error message on this line}
oChat.OpenWindow
oChat.SendMessage "hello.....testing"
End Sub