Outlook-VBA-03-收件箱附件处理

系统：Windows 10
软件：Outlook 2016

本系列讲讲在Outlook中使用VBA实现一些功能

今天讲讲对收件箱中附件进行处理

Part 1：目的

对收件箱进行遍历，若邮件还有附件，将其附件保存到本地

收件箱

附件保存

Part 2：代码

Sub test2()Dim outlookItem As ObjectDim outlookMail As MailItemDim outlookFldr As FolderDim outlookName As NameSpaceDim oLoolAtt As AttachmentSet outlookName = Application.GetNamespace("MAPI")Set outlookFldr = outlookName.GetDefaultFolder(olFolderInbox)i = 1For Each outlookItem In outlookFldr.ItemsDebug.Print ("主题是：" & outlookItem.Subject)attachmentsCount = outlookItem.Attachments.CountDebug.Print ("附件数目为：" & attachmentsCount)If attachmentsCount > 0 ThenFor Each Attachment In outlookItem.AttachmentsattachmentFileName = Attachment.FileNameDebug.Print ("附件名称为：" & attachmentFileName)newFileAddress = "D:\233N\233N_1_2个公众号\2-VBA\【3】文章\Outlook\20210731-outlook-03-附件处理1-收附件\附件" & "\" & attachmentFileNameIf Dir(newFileAddress) <> "" ThenDebug.Print ("文件已存在，将删除后保存")Kill newFileAddressEnd IfAttachment.SaveAsFile (newFileAddress)NextEnd IfDebug.Print (Chr(10))i = i + 1NextEnd Sub

代码截图

立即窗口

Part 3：部分代码解读

attachmentsCount = outlookItem.Attachments.Count获取邮件的附件数目
For Each Attachment In outlookItem.Attachments，对附件进行遍历
attachmentFileName = Attachment.FileName获取附件的名称
Attachment.SaveAsFile (newFileAddress)将附件另存到本地
- 注意当拟存储的文件在本地已经存在，需要先删除之前的文件，确保附件成功保存
- 不删除之前已经存在的文件的话，测试了一下，有些会替代，有些不会，不知道啥情况。所以建议先删除之前的文件，确保没有问题

更多学习交流，可加小编微信号learningBin

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

Outlook-VBA-03-收件箱附件处理相关推荐

2g限制 outlook_【排障】Outlook Express 2G收件箱大小限制
Outlook Express 2G收件箱大小限制文:铁乐猫 ----------------------------- Outlook Express(以下简称OE)客户端收件箱大于或接近2G时, ...
如何在outlook里面把收件箱分组，以便快速的查看最重要的email。
公司越大,cc过来的邮件就越多,有些cc邮件太多了,导致可能会忽略掉在cc邮件之间的那些需要自己快速处理的重要事件.因此需要做邮件分组,把单独发给自己的列成一个文件夹.定时察看这个制定的文件夹来处理自 ...
如何在outlook里面把收件箱分组，以便快速的查看最重要的email
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 公司越大 ...
解决Outlook分组后收件箱无收件提示的方法
问题: Outlook2016PC版客户端,收件箱在分成多个小组并设置相应的规则后,发现收到邮件后Outlook无提示,未读邮件也未新增,必须点开分组才能看到有新邮件,对工作效率产生了影响. 解决方法 ...
Java MAil 链接阿里云邮箱下载收件箱附件
配置文件: <dependency><groupId>com.sun.mail</groupId><artifactId>javax.mail</ ...
已解决-Outlook 收件箱全部标记为已读，但还是有未读数字提示
问题: Outlook收件箱里面的邮件都通过右键-全部标为已读了,但是Outlook中的收件箱还是有数字提示未读邮件. 原因: 在服务器上仍然有未读邮件,没有下载到本地解决方法: 1.登录网页版的O ...
outlook exprss 的收件夹超过2G 代码0x800c0133
当outlook exprss 的收件夹超过2G,要收件的时候,会提示 "发生原因不明的错误..............错误代码 0x800c0133 解决方法: 第一种: 要经常的清理删除 ...
VBA宏：outlook收件箱中发件人使用联系人
VBA宏:outlook收件箱中发件人使用联系人前言使用方法详细代码函数1 函数2 总结前言 outlook有个特别不符合国人习惯的小问题:即使发件人已经添加到了联系人地址簿中,在收件箱中查 ...
outlook收件箱显示_Outlook中的垃圾电子邮件，混乱邮件和重点收件箱有什么区别？
outlook收件箱显示 If you use a recent version of Outlook, you've probably noticed a Junk Email folder, a ...

Outlook-VBA-03-收件箱附件处理

Part 1：目的

Part 2：代码

Part 3：部分代码解读

Outlook-VBA-03-收件箱附件处理相关推荐

最新文章

热门文章