outlook删除重复（一模一样）的邮件

woiflower

我的outlook有好多邮件是相同的，据说outlook也能应用vb，请问可以用vb删除相同的邮件吗？

dsd999

相同的邮件是怎么产生的？

yanjie

可以使用norton防毒软件，它的防止垃圾邮件很好用！

woiflower

原帖由 dsd999 于 2010-10-13 09:05 发表
相同的邮件是怎么产生的？

由于电脑更新系统，按时间段备份了多个文件，重新导入的时候发现有些邮件是重复的，可能备份的时候就重复了，现在我的outlook里还有很多重复的，上百封邮件，手动删除太麻烦了~

woiflower

原帖由 yanjie 于 2010-10-13 20:54 发表
可以使用norton防毒软件，它的防止垃圾邮件很好用！

它会把重复邮件当成垃圾邮件？

woiflower

原帖由 yanjie 于 2010-10-13 20:54 发表
可以使用norton防毒软件，它的防止垃圾邮件很好用！

可以把重复邮件当成垃圾邮件吗？
公司的电脑，不允许随便装程序的~

yanjie

它自动识别！另外还可以设置！

yanjie

我的VBA还不好，但是可以做一些事，你要些代码参考一下吗？

woiflower

原帖由 yanjie 于 2010-10-13 21:07 发表
我的VBA还不好，但是可以做一些事，你要些代码参考一下吗？

有的话就先谢过了，

yanjie

参考外国人的代码，修改了一下，本不想传上，有窃取别人劳动成果之嫌疑！
后来反正想是一起学习，共同进步吧！
开始在循环里面绕，绕不出来！
后来采用排序后，把相同邮件放在一起，然后删除重复邮件：
Sub Dele()
'参考老外的代码，采用outLook2007版本！
    Dim olApp       As New Outlook.Application
    Dim fld_Inbox   As Outlook.Folder
    Dim objItems    As Outlook.Items
    Dim myItem      As Outlook.MailItem
    Dim dupItem     As Outlook.MailItem
               
    Set fld_Inbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    Set objItems = fld_Inbox.Items
   
    objItems.Sort "[Subject]", False
    Set myItem = objItems.GetFirst
        
    Do While TypeName(myItem) <> "Nothing"
        If TypeName(myItem) = "MailItem" Then
        ThisSubject = myItem.Subject
        ThisBody = myItem.Body
        
                Set dupItem = objItems.GetNext
            
                If TypeName(dupItem) = "MailItem" Then
                NextSubject = dupItem.Subject
                NextBody = dupItem.Body
                    
                    If ThisSubject = NextSubject And ThisBody = NextBody Then
                        dupItem.Delete
                    Else
                      Set myItem = dupItem
                    End If
            
                Else
                Set myItem = objItems.GetNext
                End If
        End If
    Loop
End Sub

[ 本帖最后由 yanjie 于 2010-10-14 21:56 编辑 ]