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

woiflower · 发表于 2010-10-12 20:55

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

dsd999 · 发表于 2010-10-13 09:05

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

yanjie · 发表于 2010-10-13 20:54

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

woiflower · 发表于 2010-10-13 20:57

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

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

woiflower · 发表于 2010-10-13 20:59

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

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

woiflower · 发表于 2010-10-13 21:01

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

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

yanjie · 发表于 2010-10-13 21:05

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

yanjie · 发表于 2010-10-13 21:07

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

woiflower · 发表于 2010-10-13 22:11

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

有的话就先谢过了，

yanjie · 发表于 2010-10-14 21:52

参考外国人的代码，修改了一下，本不想传上，有窃取别人劳动成果之嫌疑！
后来反正想是一起学习，共同进步吧！
开始在循环里面绕，绕不出来！
后来采用排序后，把相同邮件放在一起，然后删除重复邮件：
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 编辑 ]

		自动登录	找回密码
密码			免费注册

[讨论] outlook删除重复（一模一样）的邮件

评分