Excel vba:遍历Outlook电子邮件中的所有子文件夹以查找具有特定主题的电子邮件
Excel VBA是一种用于自动化Excel操作的编程语言。在使用VBA编写代码时，可以通过Outlook对象模型来访问和操作Outlook电子邮件。
要遍历Outlook电子邮件中的所有子文件夹以查找具有特定主题的电子邮件，可以按照以下步骤进行：
- 引用Outlook对象库：在Excel中，点击菜单栏的"工具"，选择"引用"，勾选"Microsoft Outlook XX.X Object Library"（XX.X代表Outlook的版本号），然后点击"确定"。
- 编写VBA代码：在Excel中按下Alt+F11打开VBA编辑器，然后在模块中编写以下代码：
Sub FindEmailsWithSpecificSubject()
Dim OutlookApp As Object
Dim OutlookNamespace As Object
Dim OutlookFolder As Object
Dim SubFolder As Object
Dim MailItem As Object
Dim SubjectToFind As String
' 设置要查找的主题
SubjectToFind = "特定主题"
' 创建Outlook应用程序对象
Set OutlookApp = CreateObject("Outlook.Application")
' 获取Outlook命名空间
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
' 获取Outlook的根文件夹
Set OutlookFolder = OutlookNamespace.GetDefaultFolder(6) ' 6代表收件箱
' 遍历根文件夹下的所有子文件夹
For Each SubFolder In OutlookFolder.Folders
' 遍历子文件夹中的所有邮件
For Each MailItem In SubFolder.Items
' 判断邮件主题是否匹配
If MailItem.Subject = SubjectToFind Then
' 在这里可以对匹配到的邮件进行处理，比如打印主题、发件人等信息
Debug.Print MailItem.Subject
Debug.Print MailItem.SenderEmailAddress
' ...
End If
Next MailItem
Next SubFolder
' 释放对象
Set MailItem = Nothing
Set SubFolder = Nothing
Set OutlookFolder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub- 运行代码：按下F5运行代码，Excel将连接到Outlook并遍历所有子文件夹中的电子邮件，找到具有特定主题的邮件并进行处理。
这段代码使用了Outlook对象模型中的一些常用属性和方法，例如Subject（邮件主题）、SenderEmailAddress（发件人邮箱地址）等。你可以根据自己的需求进行进一步的处理，比如保存邮件附件、将邮件内容导入Excel等。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云邮件推送（https://cloud.tencent.com/product/ses）
- 腾讯云API网关（https://cloud.tencent.com/product/apigateway）
- 腾讯云函数计算（https://cloud.tencent.com/product/scf）
- 腾讯云消息队列CMQ（https://cloud.tencent.com/product/cmq）
- 腾讯云对象存储COS（https://cloud.tencent.com/product/cos）
- 腾讯云数据库MySQL（https://cloud.tencent.com/product/cdb_mysql）
- 腾讯云容器服务TKE（https://cloud.tencent.com/product/tke）
- 腾讯云人工智能（https://cloud.tencent.com/product/ai）
- 腾讯云物联网平台（https://cloud.tencent.com/product/iotexplorer）
- 腾讯云移动推送（https://cloud.tencent.com/product/tpns）
- 腾讯云文件存储CFS（https://cloud.tencent.com/product/cfs）
- 腾讯云区块链服务（https://cloud.tencent.com/product/tbaas）
- 腾讯云游戏多媒体引擎（https://cloud.tencent.com/product/gme）
- 腾讯云直播（https://cloud.tencent.com/product/live）
- 腾讯云音视频处理（https://cloud.tencent.com/product/mps）
- 腾讯云云原生应用引擎（https://cloud.tencent.com/product/tke-serverless）
相关·内容
1回答
如何也从共享邮箱子文件夹导入电子邮件，并在Excel中标记文件夹名称
excel、vba、email、outlook
我有以下宏，在这里我从outlook导入电子邮件。宏仅从收件箱文件夹中导入电子邮件，
我希望宏通过所有收件箱文件夹的subfolders (所以没有发送项目等，但是只有收件箱文件夹的sub folders )。
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Dim objMail As Outlook.MailItem
浏览 0提问于2020-03-23得票数 1
回答已采纳
2回答
如何使用VBA从Outlook电子邮件中提取“类型”-电子邮件或Web？
vba、outlook
我尝试使用VBA从Outlook电子邮件中提取数据：
Sub DLPExtract()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As MailItem
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.G
浏览 0提问于2021-04-19得票数 0
1回答
如何从Outlook中提取电子邮件到Excel，从最新的电子邮件开始？
excel、vba、outlook
我的代码考虑了电子邮件的日期与我的阈值。例如，如果我将阈值设置为2020年4月1日，它将把从2020年4月1日到今天的所有电子邮件。 我的代码很慢，因为它以我最旧的电子邮件开头。如何使用最新的电子邮件开始索引？ 我在网上找到的使用items.sort "CreationDate"，true的代码不起作用，因为它完全删除了日期。 我简化了代码： Sub dateextract()
Dim OutlookApp As Outlook.Application
Dim Outlooknamespace As Namespace
Dim folder As MA
浏览 17提问于2021-01-20得票数 0
2回答
从Outlook获取由接收日期指定的电子邮件到Excel
vba、excel、outlook、outlook-filter
我正在创建一个宏，以获得电子邮件的主题和收到的日期，在我们的团队共享框。
我使用for循环来检查邮箱中的所有电子邮件，但是因为我的语句检查1000+邮件，所以要花费很长时间。
我怎样才能按特定日期收到电子邮件？假设我需要电子邮件12/1/2017至12/30/2017
关键是使用限制方法，但我不知道如何使用它。
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Varian
浏览 8提问于2018-01-15得票数 4
回答已采纳
1回答
使用Excel VBA记录SenderName和Body
excel、vba、outlook
我正在尝试将Outlook文件夹中的数据点记录到Excel中。 将电子邮件的主题和日期粘贴到Excel范围中可以，但不能粘贴到SenderName和Body中。 时，我得到一个应用程序定义或对象错误。 Range("email_Sender").Offset(i, 0) = OutlookMail.SenderName Sub GetOutlookData()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim Outlook
浏览 16提问于2020-12-20得票数 0
4回答
将Outlook电子邮件导入指定日期范围的Excel
excel、vba、email、outlook
我正在尝试制作一个excel宏，以便在指定的日期范围(对于接收到的电子邮件)将电子邮件从我的outlook文件夹导入到excel文件中。这个过程必须定期完成。因此，我需要继续在excel表中添加现有电子邮件下面的电子邮件。 我得到了它的工作，然而，我的日期范围似乎不工作。如果我只添加'From date'，它就可以工作并导入从指定的'From date‘到最后收到的电子邮件为止的所有电子邮件。但是如果我指定了一个日期范围，那么宏就根本不能工作，尽管它不会显示任何错误/调试。它只是给我一条消息，告诉我导入已经完成。在我的工作表中，单元格L1包含'From dat
浏览 50提问于2021-08-20得票数 1
回答已采纳
1回答
将电子邮件附件的内容读取到Excel
excel、vba、outlook
我正在将我的工作日志记录到我的Outlook电子邮件中，其中的主题包含大多数必要的详细信息，如什么工作，哪一天，什么服务器和状态。我使用日期作为参数将电子邮件导入Excel。
我正在试着让它更进一步。如果作业失败，则在电子邮件正文中或作为电子邮件附件生成日志。
对于邮件正文中的日志，我将它们带到工作表上，并使用搜索词"Error“进行解析，并捕获了这行。
对于附件，我只能将其保存在文件夹中，并在Excel中获取名称。有没有办法读取附件中的内容，搜索"Error“，然后只将这一行带到Excel工作表中。
Option Explicit
Const AttachmentPath A
浏览 0提问于2020-06-19得票数 0
3回答
为指定的日期范围将Outlook电子邮件导入Excel旧版到最新版
excel、vba、sorting、email、outlook
我试图制作一个excel宏，将电子邮件从我的outlook文件夹导入到一个excel文件中，用于指定的日期范围(接收到的电子邮件)。这一进程必须定期进行。因此，我需要继续将电子邮件添加到excel表格中现有的电子邮件下面。
在我的工作表中- cell L1包含From date，L2包含To date。
我的邮箱从最老的分类到最新的。我有2019年至今的电子邮件。我的第一封邮件是2019年8月27日。
我想获取的电子邮件范围为28/08/2020至30/08/2020。细胞L1为28/08/2020。细胞L2为30/08/2020。
下面是我使用的代码。宏不执行任何操作就退出循环。我尝试了单步
浏览 10提问于2021-08-26得票数 1
1回答
VBA从Outlook下载电子邮件附件
excel、vba、outlook
我试图创建一个代码，其中从excel中的特定输入(日期，主题，电子邮件正文，邮箱，文件夹导航和导出到)，我从这些特定的电子邮件下载附件。
我的问题是，即使代码获得正确的邮箱和文件夹，并下载到我想要的文件夹，它没有日期，主题和电子邮件正文。整个目标是从电子邮件中下载附件，从日期起，电子邮件主题包含一些单词，电子邮件正文包含某些单词，但是我得到的是邮箱上所有电子邮件的附件。
下面是我的代码(我试图更改& for，但它甚至没有下载)：
Sub download_attachment()
Dim olApp As Outlook.Application
Dim olNS As Outl
浏览 11提问于2021-12-16得票数 0
1回答
从Outlook读取信息并移动电子邮件
excel、vba、outlook
我发现这个VBA宏可以很好地读取电子邮件中的信息，我需要修改宏来在读取信息后移动另一个文件夹中的项目： Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNames
浏览 12提问于2020-07-10得票数 0
回答已采纳
2回答
Access 2010-2016 VBA:您能参考多个版本的multiple对象库吗？
vba、ms-access、reference、outlook
我被要求对从Access数据库发送电子邮件的VBA脚本进行故障排除。DB和VBA是在Access 2010 (存储在SQL db中的数据)上开发的，可能以Outlook 2010为目标。
目前，我们使用Outlook 2013和2016。
当我的脚本(下面提到)运行时，会在Outlook.Application声明上生成一个错误:用户定义的数据类型未定义。
这里是脚本的开头，在这里我们定义了数据类型.
Option Compare Database
Option Explicit
' InitOutlook sets up outlookApp and outlookNamespa
浏览 0提问于2018-05-01得票数 2
回答已采纳
1回答
按主题搜索所有文件夹中的最新电子邮件，并回复所有
excel、vba、outlook
下面的代码没有执行回所有属性，因此，我无法编辑电子邮件的正文和保持电子邮件链的对话。
我认为最好的选择是使用Application.advancesearch，因为它通过搜索所有文件夹为您提供最新的电子邮件。但我不知道如何通过Excel运行它。
目标：
1)搜索收件箱和子文件夹(多个)，并为选定的“主题”发送邮件文件夹。
2)选择最新的电子邮件并回复所有邮件
Sub ReplyMail()
' Variables
Dim OutlookApp As Object
Dim IsOutlookCreated As Boolean
Dim sFilter A
浏览 1提问于2019-02-13得票数 0
回答已采纳
1回答
从未读电子邮件中复制数据并将其标记为已读
excel、vba、email、outlook
我想将“未读电子邮件”从Outlook RSS源复制到Excel。那些复制的电子邮件应该在Outlook中标记为“已读”。
下面的代码返回
无效的过程调用或参数。
Private Sub run_btn_Click()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New O
浏览 34提问于2019-05-07得票数 1
回答已采纳
1回答
Excel VBA代码将电子邮件导入电子表格
excel、vba、email、import
我继承了一个包含VBA代码的电子表格，不幸的是，这位同事已经离开了组织，我们需要做3次修改。
代码工作在一个名为“过程”的子文件夹上，存储在您的个人收件箱中，但是我们已经移动到了一个团队邮箱，所以有人可以帮助更改代码以解决这个问题吗？我们需要提取发送者的电子邮件地址，它有时会提取邮件的名称，但这是非常有限的(这与SMTP地址有关吗？)一旦导入了这些电子邮件，可以将它们移动到一个名为“导入”的文件夹中。
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim
浏览 7提问于2022-10-25得票数 0
1回答
我可以使用VBA或C#来完成这个任务。
问题:我将100+邮件项(.msg、包含主题行的未发送电子邮件、行收件人和附件)存储在目录文件夹(例如：C:\temp)中。
如何迭代邮件项并将其发送到2010中的文件夹？
我尝试在VBA中使用FileSystemObject，我能够遍历目录中的“文件”。但是，我无法将文件转换为MailItem以将每个文件移动到MS。
我的尝试：
Public Sub Move_MailItems_To_Outlook_From_Directory_Folder()
Dim directoryPath As String
Dim di
浏览 2提问于2016-01-19得票数 1
回答已采纳
1回答
使用VBA将元数据从Outlook拉到Excel
excel、vba、outlook
我试图从发送的邮件邮箱中提取用于度量跟踪(发送时间)的元数据。
我搞错了
尝试操作失败。找不到对象。
我尝试了几个不同的代码，但无法从Outlook中提取任何电子邮件数据。
我确保了Outlook 2016和Excel 2016对象在引用下是活动的。
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set Ou
浏览 1提问于2018-12-12得票数 0
3回答
从Outlook获取大量电子邮件到Excel -内存不足错误
excel、vba、outlook
我正在尝试获取我的Outlook帐户中的所有电子邮件及其“正文”元素，并在Excel工作表中列出它们。
有许多电子邮件，因此它会给出一个内存不足的错误。
我相信它的发生是因为“身体”。
我的代码如下，如果你能告诉我应该做什么，我将不胜感激。
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp
浏览 0提问于2020-05-12得票数 0
2回答
如何使用VBA访问Outlook中的共享子文件夹
vba、outlook
我有一些VBA，它有时会在行Set Folder = Inbox.Folders("xxx")上失败，并带有下面的错误消息。
Folder = Inbox.Folders正在返回0文件夹，尽管我可以在Outlook窗格中看到它们。
运行时错误“-2147221233(8004010f)”
尝试操作失败。找不到对象。
Sub Export()
Select_Date.Show
'Dim OutlookApp As Outlook.Application
'Dim OutlookNamespace As NameSpace
'Dim Folder
浏览 2提问于2021-05-28得票数 0
1回答
在excel VBA代码中提取电子邮件正文中的表
excel、vba、email、extract
嗯，我对这个VBA代码非常陌生。我已经找到代码来提取电子邮件细节在excel中。这段代码正在以我想要的方式工作，但唯一的问题是我在电子邮件正文中获得了excel的结果。我有一个表与相关细节在电子邮件中，我希望在excel中的输出同样的方式，为每个单独的电子邮件。 下面是代码。 Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integ
浏览 114提问于2021-05-04得票数 1
2回答
从多个共享邮箱提取电子邮件
excel、vba、outlook
我在Excel中创建了一个工具，用于从特定邮箱中提取电子邮件。
Sub GetFromOutlook()
Dim OutlookApp as Outlook.Application
Dim OutlookNameSpace As Namespace
Dim Folder as MAPIfolder
Dim OutlookMail As Variant
Dim objowner As Variant
Dim i as Integer
Set OutlookApp = New Outlook.Application
Set Outl
浏览 5提问于2022-11-04得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
