欧非资源网:安全、免费、专业放心的资源下载站! 最新软件|软件分类

您的位置:欧非资源网 > 其他专区 > Outlook > Outlook 自动删除重复邮件VBA脚本

Outlook 自动删除重复邮件VBA脚本

时间:2021-12-24 22:47作者:admin来源:未知人气:455我要评论(0)

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
'按发信时间过滤邮件列表,
'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

Outlook 自动删除重复邮件VBA脚本的下载地址:
  • 本地下载

  • 相关阅读 ​Outlook如何设置关闭时隐藏在任务栏右下角​Outlook如何自动接收邮件​Outlook如何终止发送邮件​Outlook如何设置后台自动发送和接收邮件​Outlook如何设置定时提醒​Outlook如何在主界面中显示邮件内容​Outlook如何在界面中显示待办事项Outlook如何将英文版的界面设置为中文版​Outlook如何设置退出时也能自动发送和接收邮件​Outlook中附件无法预览

    文章评论
    发表评论

    热门文章 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook如何设置日历与手机、电脑同步

    最新文章 ​Outlook如何设置关闭时隐藏在任务栏右下角​Outlook如何自动接收邮件 ​Outlook如何终止发送邮件​Outlook如何设置后台自动发送和接收邮件​Outlook如何设置定时提醒​Outlook如何在主界面中显示邮件内容

    人气排行 Outlook邮箱注册入口_Outlook注册教程Outlook写邮件时如何快速插入表情符号Outlook 邮箱容量设置扩充教程Outlook发送邮件一直停留在发件箱的解决办法Outlook如何设置日历与手机、电脑同步Outlook如何精准搜索邮件Outlook 2019如何配置163邮箱的完整图解实例教程Outlook 如何修改邮件发件人姓名名称

    盖楼回复X

    (您的评论需要经过审核才能显示)