- wps云文档使用教程:wps表格分类汇总功能怎么使用
- word教程零基础教程免费:WPS Excel工作表的标签不见了怎么解决
- word怎么删除空白页:WPS非标准日期批量转换为标准日期
- 手机版wps怎么做word文档:wps文字如何输入定积分公式
OUTLOOK自动删除重复邮件脚本
Sub DeleteMail()
'outLook2007版本验证!使用前请调低宏安全性
Dim olApp As New Outlook.Application
Dim fld_Inbox As Outlook.Folder
Dim objItems As Outlook.Items
Dim myItem As Object
Dim dupItem As Object
Dim i As Long
Dim ThisSenderEmailAddress, NextSenderEmailAddress As String
Dim ThisSize, NextSize As Long
Dim ThisSentOn, NextSentOn As Date
Dim ThisBody, NextBody As String
Set fld_Inbox = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set objItems = fld_Inbox.Items
'按发信时间过滤邮件列表,word教程零基础教程,
'Set objItems = objItems.Restrict("[SentOn] > '8/1/2014'")
objItems.Sort "[SentOn]", True
Set myItem = objItems.GetFirst
i = 0
Do While TypeName(myItem) <> "Nothing"
If TypeName(myItem) = "MailItem" Then
ThisSenderEmailAddress = myItem.SenderEmailAddress '发件人邮箱
ThisSize = myItem.Size '邮件大小
ThisSentOn = myItem.SentOn '发信时间,如"2015/8/28 9:57:02"
ThisBody = myItem.Body '邮件文本内容
Set dupItem = objItems.GetNext
If TypeName(dupItem) = "MailItem" Then
NextSenderEmailAddress = dupItem.SenderEmailAddress
NextSize = dupItem.Size
NextSentOn = dupItem.SentOn
NextBody = dupItem.Body
'删除发件人、发信时间和邮件内容完全相同的邮件
If ThisSenderEmailAddress = NextSenderEmailAddress And ThisSentOn = NextSentOn And ThisBody = NextBody Then
dupItem.Delete
i = i + 1
Else
Set myItem = dupItem
End If
Else
Set myItem = dupItem
End If
Else
Set myItem = objItems.GetNext
End If
Loop
End Sub
本地下载
,word制作表格教程基础入门,word多出来一页空白页删不掉上一篇:word基本操作教程:Outlook 自动删除重复邮件VBA脚本 下一篇:word制作表格教程基础入门:Outlook VBA自动处理邮件
郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。