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 閱讀資訊，直接把資訊狀態 改成已讀狀態？謝謝！
uj5u.com熱心網友回復：
oChat.Status = 3不可以么？
uj5u.com熱心網友回復：
oChat.Status = 3不行，提示
編譯錯誤:
不能給只讀屬性賦值
有什么辦法解決嗎？謝謝！
uj5u.com熱心網友回復：
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中怎么寫？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/145084.html
標籤：VB基礎類
上一篇：求助撰寫找相同程式，可看示例說明