SKYPE API 请教

KenjiSato

Dim oSkype As SKYPE4COMLib.skype
Dim oChat As SKYPE4COMLib.ChatMessage

    Set oSkype = New SKYPE4COMLib.skype
     Set oChat = New SKYPE4COMLib.ChatMessage
     For Each oChat In oSkype.Messages
         If oChat.Status = 2 Then  '2=未读信息，3=已读信息
                 Debug.Print oChat.Timestamp & " / " & oChat.ChatName & " / " & oChat.Body  & " / " & oChat.IsEditable
             End If
     Next
     Set oSkype = Nothing
     Set oChat = Nothing

有未读的信息，oChat.Status = 2，点击 SKYPE新消息 oChat.Status 自动变成 3， 请教如何不打开 SKYPE 阅读信息，直接把信息状态 改成已读状态？谢谢！

或者有其他什么办法 能读取 最新收到的 SKYPE 信息，重谢！

KenjiSato

SKYPE4COM

KenjiSato

因为 SKYPE 开发者不能 注册了，查不到答案

KenjiSato

API 5