请教如何改写 SKYPE 信息状态

[斯蒂芬Z]

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 阅读信息，直接把信息状态 改成已读状态？谢谢！

[threenewbee]

oChat.Status = 3 不可以么？

[斯蒂芬Z]

oChat.Status = 3 不行，提示 编译错误: 不能给只读属性赋值 有什么办法解决吗？谢谢！

[斯蒂芬Z]

SET MESSAGE SEEN – obsolete Mark message as seen by the user and remove it from the missed messages list. This command is obsolete and has been replaced by the SET CHATMESSAGE SEEN command. Syntax SET MESSAGE <id> SEEN Response MESSAGE <id> STATUS value Properties  <id> – message ID;  value – (new) status value Version Protocol 1, deprecated in protocol 3 Example -> SET MESSAGE 1578 SEEN <- MESSAGE 1578 STATUS READ 在 VBA中怎么写？