Отправить SMS из VBA Excel в Skype - PullRequest
Новая
       15

Отправить SMS из VBA Excel в Skype

0 голосов
/ 03 февраля 2019 
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("ranya.paraprath@accenture.com")
    Set oChat = aSkype.CreateChatWith(skUser.Handle) 

    oChat.OpenWindow oChat.SendMessage "hello.....testing"

End Sub

Я получаю ошибку

Ошибка во время выполнения '-2147220991 (80040201);время ожидания

Я добавил ссылку SKYPE4COMLib в свой проект VBA

Эта проблема из-за того, что я использую SKYPE для бизнеса

SKYPE4COMLib dll не может вызвать SKYPEдля бизнеса

...