如何删除outlook中的重复邮件

问题背景：

outlook 卸载重装后，会把之前已收的邮件，再次下载到本地，出现大量重复邮件。

解决思路：

搜索outlook邮件删除重复邮件的工具，有outlook duplicate items remover，Duplicate Email Remover，NoMoreDupes for Outlook等。但这些工具都要收费。故换了个思路，用宏来删除。

使用要点：

打开outlook，按快捷键Alt+F11，建立工程，并复制宏。

Option ExplicitSub DeleteDuplicateEmailsInSelectedFolder()Dim i As Long
Dim n As Long
Dim DeletedCount As Long
Dim Message As String
Dim Items As Object
Dim AppOL As Object
Dim NS As Object
Dim Folder As ObjectSet Items = CreateObject("Scripting.Dictionary")'Initialize and instance of Outlook
Set AppOL = CreateObject("Outlook.Application")'Get the MAPI Name Space
Set NS = AppOL.GetNamespace("MAPI")'Allow the user to select a folder in Outlook
Set Folder = NS.PickFolder'Get the count of the number of emails in the folder
n = Folder.Items.Count'Set the initial deleted count
DeletedCount = 0'Check each email starting from the last and working backwards to 1
'Loop backwards to ensure that the deleting of the emails does not interfere with subsequent items in the loop
For i = n To 1 Step -1On Error Resume Next'Load the matching criteria to a variable'This is setup to use the Sunject and Body, additional criteria could be added if desiredMessage = Folder.Items(i).Subject & "|" & Folder.Items(i).Body'Check a dictionary variable for a matchIf Items.Exists(Message) = True Then'If the item has previously been added then delete this duplicateFolder.Items(i).DeleteDeletedCount = DeletedCount + 1Else'In the item has not been added then add it now so subsequent matches will be deletedItems.Add Message, True
End IfNext iExitSub:'Release the object variables from memory
Set Folder = Nothing
Set NS = Nothing
Set AppOL = NothingMsgBox "共删除" & DeletedCount & "封邮件。"End Sub

然后F5运行此宏即可。
如果提示宏被禁用，主菜单中文件->选项->信任中心，信任中心设置->宏设置，选择“启动所有宏”或者“为所有宏提供通知”。
也可以通过“自定义功能区”把宏显示在主选项卡中。不过不知道为什么，点击它好像没什么反应。好在可以通过F5运行。就不去查原因了。

如何删除outlook中的重复邮件相关推荐

php数组重复值销毁,如何从PHP中删除数组中的重复值
如何从PHP中删除数组中的重复值如何从PHP中删除数组中的重复值? 21个解决方案 204 votes 使用array_unique(). 例: $array = array(1, 2, 2, 3) ...
python删除列表中的重复元素并保持相对顺序不变
python删除列表中的重复元素并保持相对顺序不变从列表中删除重复项以便所有元素都是唯一的同时保持原有相对顺序不变对于列表我们可以使用如下方法: l1 = [1,7,7,8,5,5,4] l2 = ...
LeetCode 26 号问题删除数组中的重复项
删除数组中的重复项给定一个排序数组,你需要在原地删除重复出现的元素,使得每个元素只出现一次,返回移除后数组的新长度. 不要使用额外的数组空间,你必须在原地修改输入数组并在使用 O(1) 额外空间的条 ...
C++实现删除字符串中所有重复出现的字符
C++实现删除字符串中所有重复出现的字符 #include<iostream> using namespace std; char* DeleteRepeatCharacters(char ...
oracle中的rowid--伪列-删除表中的重复内容-实用
1.rowid是一个伪列,是用来确保表中行的唯一性,它并不能指示出行的物理位置,但可以用来定位行. 2.rowid是存储在索引中的一组既定的值(当行确定后).我们可以像表中普通的列一样将它选出来. 3 ...
java arraylist 删除回车符_2种Java删除ArrayList中的重复元素的方法
这篇文章将给出两种从ArrayList中删除重复元素的方法,分别是使用HashSet和LinkedHashSet. ArrayList是Java中最常用的集合类型之一.它允许灵活添加多个null元素, ...
python 删除链表中的重复元素
| 删除链表中的重复元素存在一个按升序排列的链表,给你这个链表的头节点 head ,请你删除所有重复的元素,使每个元素只出现一次 . 返回同样按升序排列的结果链表. 输入:head = [1,1, ...
《剑指offer》-- 两个链表的第一个公共结点、链表中环的入口结点、删除链表中的重复结点
一.两个链表的第一个公共结点: 1.题目: 输入两个链表,找出它们的第一个公共结点. 2.解题思路: (1)第一种:找出两个链表的长度,然后让长的链表先走两个链表的长度差,接着两个链表一起走. (2) ...
在 Excel 中如何使用宏示例删除列表中的重复项
概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果 ...

如何删除outlook中的重复邮件

如何删除outlook中的重复邮件相关推荐

最新文章

热门文章