[讨论]能不能把未读邮件排在前面?

xiyang120

有些邮件是几天前但没有读的,现在要找,很麻烦,各位有好方法吗?

aduan

没有读的邮件不是有标识吗？

 

[em04]

Cappuccin0

把下面代码保存成vbs格式的文件，然后运行就可以。如果发现有未读邮件会弹出对话框里面有未读邮件的标题，选no就继续下一封，选yes就自动打开并将此邮件状态设置为已读再退出脚本

On Error Resume Next
Set outlookapp = CreateObject("outlook.application")
Set onamespace = outlookapp.GetNamespace("MAPI")
Set inbox = onamespace.GetDefaultFolder(6)

For Each element In inbox.Items
 If element.unread = True Then
  ToOpen = MsgBox(element.subject & vbcrlf & "是否现在阅读？",vbYesNo,"Found Unread Mail")
  If ToOpen = vbyes Then
   element.display
   element.unread = false
   Exit For
  End If
 End If
Next

[此贴子已经被作者于2006-11-15 11:27:48编辑过]

aaaaabbbbb

不用这么复杂，简单的事情用简单思维解决。OUTLOOK自带此功能，可以自定义视图，使用其中的筛选功能，就可以把未读邮件筛选出来处理。

xiyang120

谢谢。。。