VBA常用实例 | OUTLOOK批量下载选中邮件中的附件

最新推荐文章于 2025-02-10 14:04:09 发布

游无方

最新推荐文章于 2025-02-10 14:04:09 发布

阅读量7.3k

点赞数 6

文章标签：办公软件 vba

本文链接：https://blog.csdn.net/weixin_40021197/article/details/109163091

版权

本文介绍了如何使用VBA在Outlook 2019和Win10环境下批量下载选中邮件的附件。首先，需要启用宏功能，进入设置启用所有宏。接着，在Visual Basic编辑器中创建新的过程并粘贴代码，运行或保存宏，即可实现批量下载附件到指定路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码

Public Sub 批量下载附件()

Dim msg As MailItem
Dim exp As Explorer
Dim att As Attachment
Dim mailIndex As Integer
Dim path As String
Dim folder As String

Set exp

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

游无方

关注关注

6
点赞
踩
35

收藏

觉得还不错? 一键收藏
7
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

VBA应用—批量下载邮件附件

Stella的博客

05-31

2536

打开outlook > 开发工具 > 宏 > 批量下载附件（或者其它你自定的名称），这样就会将所选中的所有邮件的附件下载到path中了。原文链接：https://blog.csdn.net/weixin_40021197/article/details/109163091。outlook > 文件 > 选项 > 信任中心设置 > 宏设置 > 启用所有宏。outlook > 文件 > 选项 > 自定义功能区 > 勾选开发工具。然后粘贴下文的代码段，F5运行或者Ctrl+S保存。，我默认设置的是E盘。

outlook批量下载附件_在Outlook中批量打印PDF附件

culingluan4376的博客

09-22

1768

outlook批量下载附件This article was written by Sean Tsai, a data warehousing expert and good friend of the How-To Geek 本文由数据仓库专家兼How-To Geek的好朋友Sean Tsai撰写 Have you ever wanted to print every attachment y...

7 条评论您还未登录，请先登录后发表或查看评论

自动保存Outlook邮件的附件(利用VBA)

03-28

自动保存Outlook邮件的附件(利用VBA).docx

如何把邮件批量导出到本地

热门推荐

李晋江的博客

04-08

2万+

Outlook 批量导出多个邮件的附件

保存 Outlook 中多个已选项目的附件 (VBA)

11-22

标题“保存Outlook中多个已选项目的附件 (VBA)”提示我们，这个实例脚本将教会我们如何通过VBA代码批量保存所选邮件的附件。 VBA是一种编程语言，它内置于Microsoft Office应用程序中，包括Outlook，允许用户自定义...

使用VBA批量下载Outlook选定项目附件技巧

本实例脚本的目标是“保存Outlook中多个已选项目的附件”，意味着该脚本针对的是那些在Outlook中已经选择了一组邮件的用户场景，例如，用户可能需要从收到的大量邮件中筛选出含有特定附件的邮件，并将这些附件批量...

Excel VBA入门：向Word文档中插入数据

[Excel VBA入门：向Word文档中插入数据](https://excelchamps.com/wp-content/uploads/2020/05/2-carriage-return-and-line-feed.png) # 摘要本文旨在系统介绍Excel VBA编程语言，涵盖其基础语法、数据类型、控制...

【Word宏功能扩展】：探索VBA之外，Word宏命令的新边界

[【Word宏功能扩展】：探索VBA之外，Word宏命令的新边界](https://exceloffthegrid.com/wp-content/uploads/2017/02/Word-Visual-Basic-Editor-Open-Document.png) # 摘要本文全面探讨了Microsoft Word宏命令的...

用VBA将outlook附件保存到本地电脑

11-05

利用VBA将outlook附件保存到本地电脑支持 outlook 2003 2007 2010 2013

excel按钮vba代码发送邮箱带附件

01-16

excel按钮vba代码发送邮箱带附件自动读取收件人，发件人，附件文件。邮箱标题，内容。有需求的朋友，可以联系我编写代码。

VBA解析outlook邮件

06-24

通过outlook自带的VBA宏解析outlook邮件，提取邮件的主题，抄送，正文等信息

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

Z的博客

07-31

1132

系统：Windows 10 软件：Outlook 2016 本系列讲讲在Outlook中使用VBA实现一些功能今天讲讲对收件箱中附件进行处理 Part 1：目的对收件箱进行遍历，若邮件还有附件，将其附件保存到本地收件箱输出结果 Part 2：代码 Sub test2() Dim outlookItem As Object Dim outlookMail As MailItem Dim outlookFldr As Folder Dim outlookN

利用VBA自动保存outlook附件

未来将会如何

07-22

1万+

创建VBA方法如下： Public p As String '文件保存位置，也是解压文件存放位置 Public Sub SaveAttach(Item As Outlook.MailItem) p = "C:\Users\Administrator.TXV6HLXTU3ZW8KD\Desktop\" SaveAttachment Item, p, "*.rar" '此处...

VBA抽取OutLook邮箱邮件

weixin_46610533的博客

08-22

1279

先判断输入的收件箱子目录是否存在，然后在输入的日期范围内抽出信件并赋值给对应变量。

Outlook-VBA-05-自动获取邮件附件

Z的博客

10-23

5156

使用outlook-VBA二次开发，自动获取特定发件人，特定主题下的附件，将其存储到本地

vba outlook批量保存选中邮件的附件

09-20

在VBA (Visual Basic for Applications) 中，如果你想批量保存Outlook中的选中邮件附件，你可以编写一段宏来完成这个任务。以下是一个简单的步骤说明： 1. **启用开发者选项卡**：首先，在Outlook中你需要启用开发者选项卡，因为它包含了VBA功能。点击“文件”>“选项”>“自定义功能区”，找到“开发者”并勾选。 2. **创建新模块**：在开发者选项卡上选择“Visual Basic”，然后右键单击“This Outlook Session”下的空白区域，选择“插入”>“Module”，创建一个新的VBA模块。 3. **编写代码**： ```vba Sub SaveAttachments() Dim objApp As Object ' Outlook Application object Dim objNS As Object ' Namespace object Dim objFolder As MAPIFolder ' Current selected folder Dim objItem As Object ' Individual mail item Dim i As Integer Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") ' 获取当前选定的收件箱或特定文件夹 Set objFolder = Selection.Folder ' 如果邮件是在选集中，使用Selection；如果指定了特定文件夹，则替换这一行 For Each objItem In objFolder.Items If objItem.Attachments.Count > 0 Then ' 检查邮件是否有附件 Dim fileSavePath As String ' 定义保存路径，这里假设是同级目录下的"Attachments"文件夹 fileSavePath = "C:\YourSavingDirectory\Attachments\" & objItem.Subject & "." ' 遍历每个附件，保存到指定路径 For i = 1 To objItem.Attachments.Count objItem.Attachments.Item(i).SaveAsFile fileSavePath & CStr(i) '.AddExtension("txt") 如果需要其他格式，可以添加这句 Next i End If Next objItem Set objFolder = Nothing Set objItem = Nothing Set objNS = Nothing Set objApp = Nothing End Sub ``` 4. **运行宏**：按下快捷键 `Ctrl + Alt + F8` 打开VBA编辑器，双击刚创建的宏名称（如SaveAttachments），即可运行批量保存附件的操作。