Skype4COM: MissedMessages.vbs

Skype4COM

MissedMessages.vbs

This script list all missed messages and changes message status to "Read".

Copyright � 2004-2006 Skype Limited. Licensed under BSD license.

'// Create a Skype4COM object:
Set oSkype = WScript.CreateObject("Skype4COM.Skype","Skype_")

'// Query the total number of missed messages:
WScript.Echo "Total missed message count: " & oSkype.MissedMessages.Count

'// Query the id, timestamp, and sender Skypename of the message:
For Each oMsg In oSkype.MissedMessages
  WScript.Echo "Msg id: " & oMsg.Id & " at " & oMsg.Timestamp & " from " & oMsg.FromHandle
Next  

'// Mark the missed message as "Read"
For Each oMsg In oSkype.MissedMessages
  oMsg.Seen = True
Next

Copyright � 2006 Skype Limited. All rights reserved.