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

最新推荐文章于 2024-07-24 16:54:33 发布

游无方

最新推荐文章于 2024-07-24 16:54:33 发布

阅读量6.8k

点赞数 6

文章标签：办公软件 vba

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

版权

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

摘要由CSDN通过智能技术生成

代码

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

2051

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

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

culingluan4376的博客

09-22

1652

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 自动保存邮件及附件代码

12-23

outlook VBA 自动保存邮件及附件代码

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

03-28

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

通过使用Excel VBA来进行Outlook自动邮件发送

热门推荐

李晋江的博客

04-08

1万+

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

Outlook自动下载指定邮件中附件

qc15867301542的博客

07-26

2494

适用于Outlook，当你需要下载指定邮件中的全部附件时，可以使用本回答中代码。

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

11-05

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

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

11-22

微软网站的一个实例脚本。保存 Outlook 中多个已选项目的附件对于工作中需要大量保存Outlook的人，可以减少工作量。

VBA解析outlook邮件

06-24

在Outlook中，我们可以使用VBA宏来自动化处理邮件信息。 2. Outlook对象模型: 在Outlook中，我们可以使用对象模型来访问和操作邮件信息。例如，我们可以使用`Outlook.Application`对象来访问Outlook应用程序，然后...

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

01-16

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

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

Z的博客

07-31

1012

系统：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

944

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

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

Z的博客

10-23

4627

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

如何从Excel打开特定的Outlook文件夹

Steven_Sunny的专栏

05-13

584

原文：https://www.extendoffice.com/zh-CN/documents/excel/5510-open-outlook-folder-from-excel.html 如何从Excel打开特定的Outlook文件夹？您是否曾尝试从Excel文件中打开特定的Outlook文件夹，例如打开收件箱文件夹，联系人文件夹或任何其他文件夹？本文，我将讨论如何从Excel工作簿中打...

利用VBA将Outlook邮件的信息存入数据库，批量下载附件并重命名

dlw4656的博客

05-11

1528

1.打开OutLook，用ALT+F11打开VBA编辑器 2.插入以下代码： Private Sub Application_NewMail() Dim myOlApp As Application Dim myNameSpace As NameSpace Dim myibox As MAPIFolder Dim mydelit...

vba自动下载outlook邮件附件

08-16

### 回答1：可以使用 VBA 编写代码来自动下载 Outlook 邮件附件。以下是一个示例代码： Sub DownloadAttachments() Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim objItem As Object Dim objAttachment As Outlook.Attachment Dim strFolderPath As String Dim strFileName As String ' Set the folder path where you want to save the attachments strFolderPath = "C:\Attachments\" ' Create the Outlook application object Set objOL = CreateObject("Outlook.Application") ' Get the MAPI namespace Set objNS = objOL.GetNamespace("MAPI") ' Get the Inbox folder Set objFolder = objNS.GetDefaultFolder(olFolderInbox) ' Loop through each item in the Inbox folder For Each objItem In objFolder.Items ' Check if the item is a mail item If TypeOf objItem Is MailItem Then ' Loop through each attachment in the mail item For Each objAttachment In objItem.Attachments ' Save the attachment to the specified folder strFileName = strFolderPath & objAttachment.FileName objAttachment.SaveAsFile strFileName Next objAttachment End If Next objItem ' Clean up Set objAttachment = Nothing Set objItem = Nothing Set objFolder = Nothing Set objNS = Nothing Set objOL = Nothing MsgBox "Attachments downloaded successfully!", vbInformation End Sub 请注意，此代码仅适用于 Outlook 客户端，而不适用于 Outlook Web App。 ### 回答2： VBA是Visual Basic for Applications的缩写，是一种用于编写宏的编程语言，可扩展Microsoft Office应用程序的功能。下面是如何使用VBA自动下载Outlook邮件附件的步骤： 1. 打开Outlook应用程序，并进入“开发者”选项卡。如果未看到“开发者”选项卡，请在“文件”选项卡上选择“选项”，然后在“自定义功能区”中启用“开发者”选项卡。 2. 单击“Visual Basic”按钮，打开Visual Basic编辑器。 3. 在Visual Basic编辑器中，创建一个新的模块。右键点击项目名字，选择“插入”，再选择“模块”。 4. 在新模块中，编写以下代码来自动下载Outlook邮件附件： ```VBA Sub DownloadAttachments() Dim outlookApp As Outlook.Application Dim outlookNamespace As Namespace Dim outlookFolder As MAPIFolder Dim outlookItem As MailItem Dim outlookAttachment As Attachment Dim saveFolder As String ' 设置附件保存路径 saveFolder = "C:\Attachments\" ' 初始化Outlook应用程序和名称空间 Set outlookApp = New Outlook.Application Set outlookNamespace = outlookApp.GetNamespace("MAPI") ' 设置欲遍历的文件夹（可以是收件箱、发件箱等） Set outlookFolder = outlookNamespace.GetDefaultFolder(olFolderInbox) ' 遍历文件夹中每个邮件 For Each outlookItem In outlookFolder.Items ' 检查邮件是否有附件 If outlookItem.Attachments.Count > 0 Then ' 遍历每个附件 For Each outlookAttachment In outlookItem.Attachments ' 保存附件到指定路径 outlookAttachment.SaveAsFile saveFolder & outlookAttachment.DisplayName Next outlookAttachment End If Next outlookItem ' 释放对象 Set outlookApp = Nothing Set outlookNamespace = Nothing Set outlookFolder = Nothing Set outlookItem = Nothing Set outlookAttachment = Nothing End Sub ``` 5. 在代码中，将`saveFolder`变量的值替换为你想要保存附件的文件夹路径。 6. 单击运行按钮或按下`F5`键来运行代码。 7. 运行完代码后，Outlook邮件中的附件将会自动下载到指定的文件夹路径下。以上就是使用VBA自动下载Outlook邮件附件的步骤和相关代码。请注意，该代码将会下载指定文件夹中所有邮件的附件，如果只需要下载特定邮件或特定文件夹中的附件，需要进行进一步的代码修改。 ### 回答3： VBA是Visual Basic for Applications的简称，是一种用于自动化办公任务的编程语言。要实现VBA自动下载Outlook邮件附件，可以按照以下步骤进行操作： 1. 打开Outlook应用程序并进入“开发人员”选项卡。如果未显示该选项卡，可以打开Outlook设置，并启用开发人员模式。 2. 在“开发人员”选项卡中，点击“Visual Basic”按钮，打开VBA编辑器。 3. 在VBA编辑器中，选择“工具”菜单，然后选择“引用”。 4. 在“引用”对话框中，勾选“Microsoft Outlook Object Library”选项，并点击“确定”按钮。 5. 在VBA编辑器的模块窗口中，插入一个新的模块。 6. 在新的模块中，编写VBA代码来下载Outlook邮件附件。以下是一个基本的示例代码： ``` Sub DownloadAttachments() Dim OutlookApp As Outlook.Application Dim OutlookNamespace As Namespace Dim Inbox As MAPIFolder Dim Item As Object Dim Attachment As Attachment Dim SaveFolderPath As String ' 设置保存附件的文件夹路径 SaveFolderPath = "C:\Attachments" ' 创建Outlook应用程序并登录邮箱账号 Set OutlookApp = New Outlook.Application Set OutlookNamespace = OutlookApp.GetNamespace("MAPI") Set Inbox = OutlookNamespace.GetDefaultFolder(olFolderInbox) ' 遍历收件箱中的所有邮件 For Each Item In Inbox.Items ' 判断是否有附件 If Item.Attachments.Count > 0 Then ' 遍历邮件中的所有附件 For Each Attachment In Item.Attachments ' 保存每个附件到指定的文件夹 Attachment.SaveAsFile SaveFolderPath & "\" & Attachment.Filename Next Attachment End If Next Item ' 释放内存 Set Inbox = Nothing Set OutlookNamespace = Nothing Set OutlookApp = Nothing MsgBox "附件已成功下载到指定文件夹。" End Sub ``` 7. 在代码中，可以根据实际需要修改保存附件的文件夹路径。 8. 运行该VBA代码，即可自动下载Outlook邮件中的附件到指定的文件夹中。以上是一个简单的示例代码，你可以根据实际需求进行修改和扩展。希望对你有所帮助！