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）
相关·内容
我需要一些帮助与VBA计数电子邮件从7个不同的子文件夹的Outlook。
结果必须显示这些子文件夹中的电子邮件数量和上一封电子邮件的日期。
此子文件夹仅作为扩展添加到我的Outlook中，仅用于处理数据，而不是我的实际Outlook电子邮件。它有更多的子文件夹在里面，需要计算。
我希望有人能帮我这个忙。
提前感谢
浏览 1提问于2022-01-31得票数 0
我已经做了一些搜索，但我在任何地方都找不到明确的是或否的答案。
我正在写一个程序，当你按下Excel中的一个按钮时，它会转到outlook，扫描它是否有特定的电子邮件，然后以某种方式下载附件。好的，非常可行，有很多关于如何做到这一点的指南。
我找不到的是它在可变文件夹结构上是否可行。就像在中一样，每个要使用此程序的人都以不同的方式设置了outlook文件夹。有没有一种方法可以找到我想要的电子邮件，无论它们隐藏在哪里，而不需要为每个可能使用这个程序的人创建一个唯一的路径，也不需要让每个可能使用这个电子邮件的人都以同样的方式设置他们的收件箱？
电子邮件名称将每天都是相同的，并附加一个日期，这就是我
浏览 9提问于2017-03-10得票数 1
回答已采纳
我在Excel VBA中编写了以下代码，如果该代码位于Outlook的默认收件箱文件夹中，则会打开具有给定主题的电子邮件。
但是，我想在所有收件箱的子文件夹中搜索此电子邮件。
由于代码将被多个用户使用，我不知道他们的outlook收件箱子文件夹的编号和名称。关于如何在所有子文件夹中搜索此电子邮件，您有什么想法吗？
Sub GetEmail()
Dim OutApp as Object
Dim Namespace as Object
Dim Folder as Object
Dim myMail as Object
Set OutApp = Creat
浏览 35提问于2017-07-27得票数 3
回答已采纳
2回答
我编写了Excel VBA代码，以便从下载到Excel中的报告生成电子邮件。它会保存到Outlook中的“草稿”文件夹。
我想要保存到草稿中的另一个文件夹，以便将它们与我的常规草稿分开。
这就是我拥有的。
With objMail
.To = rngTo
.Subject = "Next 2 Weeks Orders"
.HTMLBody = intro & vbNewLine & po & signiature
.Save
End With
浏览 9提问于2021-07-15得票数 0
2回答
我目前使用的是Outlook2010，我目前可以通过使用“更多”按钮在Outlook中手动搜索文件夹，并添加附件:是和附件包含:我在其中输入文件名以查找电子邮件并获取发送时的时间戳。我有数以千计的附件，我需要这样做，我想自动化的过程，但我是一个outlook vba noobie和我不知道的命令来执行搜索附件名称，我已经尝试谷歌这，但没有任何帮助，将非常感谢！
浏览 0提问于2015-09-01得票数 0
我正在Outlook 2016中组织电子邮件。我需要在每个文件夹中创建三个子文件夹。
我有在每个文件夹中创建三个子文件夹的代码：
Public Sub CreateFolders()
Dim CurrentFolder As Outlook.MAPIFolder
Dim Subfolder As Outlook.MAPIFolder
Dim List As New VBA.Collection
Dim Folders As Outlook.Folders
Dim Item As Variant
List.Add Array("1
浏览 1提问于2018-12-12得票数 0
我在Excel中有VBA代码来选择主要的Outlook收件箱。我想选择收件箱中的任何文件夹或子文件夹。
例如，我想在我的主收件箱的屏幕截图中选择子文件夹ALD：
我有另一个电子邮件地址在Outlook与文件夹和子文件夹。我想选择其他电子邮件地址的任何文件夹或子文件夹。例如，我有另一个名为xxxx@yyyy.com的电子邮件地址和一个文件夹aaaa以及一个子文件夹bbbb。如何选择子文件夹bbbb
Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outloo
浏览 10提问于2021-01-06得票数 0
回答已采纳
在工作中，我有两个电子邮件帐户展望。一个是个人电子邮件，另一个是普通部门的电子邮件.
我将如何使用VBA来获取excel来访问一般的电子邮件，并将每个电子邮件的发件人拉成一个字符串？我需要遍历收件箱中的每封电子邮件，忽略任何子文件夹中的电子邮件。
这是我迄今所写的代码。希望我至少在正确的轨道上。
Public Sub test()
Dim emailApp As Outlook.Application, emailNamespace As Outlook.Namespace
Dim oFolder As MAPIFolder, oMail As Outlook.MailItem
Dim iS
浏览 2提问于2022-11-10得票数 0
回答已采纳
我正在尝试编写VBA代码，以便将默认Outlook签名插入到已在Excel中生成的电子邮件中。有几个人可能使用Excel模板，所以我需要VBA代码来获取创建电子邮件的用户的默认签名。
我在网上找到了很多有用的东西，但是我不能让它工作。我是VBA的新手，所以还在学习。
下面的代码适用于我需要的电子邮件-期待签名，因为我已经删除了所有的代码，因为我不能让它工作。
任何帮助都将不胜感激。
Sub EmailCreator()
ActiveWorkbook.Save
Dim olApp As Outlook.Application
Dim olMail As Outlook.Mai
浏览 2提问于2020-05-26得票数 0
如何使用VBA (Outlook或Excel 2007)从Windows 32位剪贴板中获取最近复制的文件的地址(文件夹)？这是宏需要的元素，它会将超链接粘贴到文件中，而不是将文件本身粘贴到电子邮件或某些Excel文件中。
我发现关于使用windows剪贴板使用VBA：的线程似乎非常有用
浏览 13提问于2014-04-23得票数 0
回答已采纳
2回答
我正在尝试将电子邮件从我公司的Outlook转发到我们公司外部的电子邮件帐户。我已经得到了这样做的许可。
我想转发主题行中包含"Excel星期五“的任何电子邮件。
Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNames
浏览 2提问于2015-05-27得票数 0
2回答
我要在我的文件夹中搜索此代码。我确实收到了一封关于"sketch“主题的电子邮件，但VBA找不到它(它转到ELSE子句)
有人能说出哪里出了问题吗？
Set olApp = GetObject(, "Outlook.Application")
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
Set olItms = olFldr.Items
Set Mail = olItms.Find("[Subject] = &#
浏览 1提问于2014-02-04得票数 10
回答已采纳
1回答
从电子邮件下载附件
、、、
我试图使用excel 2007中的VBA自动下载电子邮件附带的附件。
收到的邮件将位于相同的outlook文件夹中(称为“库存”)。我将在outlook中定义一条规则，一旦我得到它们，就会将它们移到那里，所以这个部分已经被处理了。
这些收到的邮件都将有相同的主题(称为“库存更新”)。这也是财富。
我需要做的是
将上述邮件中的附件下载到某个文件夹(称为"C:\Guncelleme“)
在保存附件之前，我不会重命名它们。
文件夹中不会有其他邮件，更新邮件将到达。因此，浏览文件夹中的所有邮件而不查找正确的主题行也是可行的。
提前谢谢。
浏览 1提问于2014-04-11得票数 0
我每天或每15天都会有几封电子邮件发送给我，我需要跟踪它们是不是按时送达。
我已经在Outlook上创建了规则，将它们存储在不同的文件夹和子文件夹中。
我想做的是有一个Excel工作表，比较目标日期/时间与实际日期/时间交付。为此，我需要从Outlook中提取发送时间和日期，并将其导出到Excel。我不确定是基于文件夹/子文件夹名称还是基于主题，因为这是为我的规则所做的。
我已经读过类似问题的答案，但无法根据我的需要进行调整。
浏览 1提问于2014-10-22得票数 1
1回答
假设我有大量的文件夹，它们代表Outlook中不同类别的电子邮件。每个文件夹至少有一千封电子邮件。文件夹的数量也很多。
如果我想复制到硬盘驱动器的文件夹与确切的名称和文件在里面，它不让我。
我必须手动为Outlook中的每个文件夹在硬盘上创建一个文件夹，然后复制该文件夹中的所有电子邮件。
有什么办法能更快地做到吗？有VBA编码解决方案吗？
浏览 3提问于2017-01-18得票数 0
回答已采纳
1回答
我需要一些VBA代码在outlook中，以保存特定的数据行从电子邮件如下到一个excel文件夹-见下面的示例excel表格。我需要的代码，以搜索所有电子邮件在我的个人收件箱，并保存到excel文件在一个特定的位置。有什么想法吗？
电子邮件：
From: Matt.Brown@hotmail.com
to: Lucy.Brown@hotmail.com
Subject: Client Orders
Product: Trunk1
Units: 463
谢谢
保存在特定位置的Excel文件：
Client Sales Product Units
xx
浏览 13提问于2022-05-13得票数 1
1回答
我试图创建一个代码，其中从excel中的特定输入(日期，主题，电子邮件正文，邮箱，文件夹导航和导出到)，我从这些特定的电子邮件下载附件。
我的问题是，即使代码获得正确的邮箱和文件夹，并下载到我想要的文件夹，它没有日期，主题和电子邮件正文。整个目标是从电子邮件中下载附件，从日期起，电子邮件主题包含一些单词，电子邮件正文包含某些单词，但是我得到的是邮箱上所有电子邮件的附件。
下面是我的代码(我试图更改& for，但它甚至没有下载)：
Sub download_attachment()
Dim olApp As Outlook.Application
Dim olNS As Outl
浏览 11提问于2021-12-16得票数 0
1回答
我有一个链接到同事帐户的共享Outlook约会日历。我正在尝试将该日历中的约会导出到Excel。
我发现有很多VBA代码页面显示了如何使用代码中的电子邮件地址从他们的主日历导出，但是这个日历只设置为约会日历，并且与用户的主日历是分开的。当我引用她的电子邮件地址时，它就会从她的主日历中抽出。
约会日历是通过电子邮件共享的，我需要接受才能将其添加到我自己的日历列表中。
我想我需要在代码中为这个特定的日历命名？
浏览 19提问于2021-06-01得票数 0
1回答
我需要推出Outlook VBA宏来禁用和显示电子邮件中的所有超链接。
最好，所有的超链接都将被禁止点击，并且对于具有“隐藏”链接的文本，该链接将被禁用，并且在该文本(仍然是蓝色)之后，该链接将显示在方括号内。
我有很多Excel VBA经验，但几乎没有Outlook VBA经验。我很惊讶这段代码不是到处都是，但经过一周的搜索，我什么也没找到。
浏览 3提问于2019-08-10得票数 0
1回答
我有下面的代码是工作的。
我现在需要找到带有该主题行的最新电子邮件并打开它。
打开电子邮件后，我想将附件保存到桌面并关闭打开的电子邮件。
Sub SearchOL()
Dim olApp As Outlook.Application
Dim olNs As NameSpace
Dim Fldr As MAPIFolder
Dim olMail As Variant
Dim i As Integer
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fl
浏览 6提问于2015-05-13得票数 1
我发现了一个VBA宏，它可以从Outlook中接收电子邮件，并将它们放入Excel的单元格中。代码可以工作，但我想告诉Excel只从特定子文件夹中获取电子邮件。在我的收件箱文件夹中，有一个名为Info的子文件夹。我希望能够从该子文件夹中获取电子邮件。
这是我现在拥有的代码：
Sub Download_Outlook_Mail_To_Excel()
'Add Tools->References->"Microsoft Outlook nn.n Object Library"
'nn.n varies as per our Outlook Install
浏览 2提问于2015-03-09得票数 1
回答已采纳
1回答
我试图导出所有的电子邮件在特定的文件夹“未激活的做”到一个CSV文件，然后移动这些电子邮件到另一个文件夹“活动的做”。
我编辑了我找到的代码。
只有最后一封电子邮件保存在csv文件上。
我需要所有的电子邮件都在同一个CSV文件中。
Sub PseudoArchive()
Dim objNamespace As Outlook.NameSpace
Dim sourceFolder As Outlook.MAPIFolder
Dim destinationFolder As Outlook.MAPIFolder
Dim Items As Outlook.Items
Dim Item As Obje
浏览 1提问于2018-06-17得票数 0
回答已采纳
我在excel中有一个电子邮件列表，我想要发送一个已经在outlook中预先制作好的电子邮件，我已经将其保存为文件夹中的模板。而不是尝试通过VBA重新创建此电子邮件。我很好奇，如果我可以有保存的Outlook模板发送到每个电子邮件。
浏览 9提问于2020-03-31得票数 0
我有一些vba代码，用附件发送电子邮件。它目前作为一个vba项目存在于excel中，但我希望能够将它保存为vbs脚本，这样我就可以使用任务调度程序每晚启动它。它只在我假设的项目模块中工作，因为我必须添加一个对outlook库的引用。如果我将脚本保存在记事本中作为一个.vbs，它将不会运行。
Option Explicit
Sub SendBasicEmail()
Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Set olApp = New Outlook.Application
浏览 2提问于2019-08-08得票数 1
回答已采纳
我正在尝试使用Excel vba通过电子邮件将选定的数据发送给收件人列表。
示例：
A列小时数
B列利率
C列合计
D列电子邮件地址
我们有一个数以百计的人的名单，他们的付款细节将被发送每周。我们将信息从Excel文件复制并粘贴到Outlook电子邮件中。
有没有办法用Excel VBA发送电子邮件？
浏览 0提问于2017-09-26得票数 0
我在Outlook规则中有VBA代码。我希望当我收到带有特定主题的电子邮件时，Outlook开始运行一个脚本。但是，当收到电子邮件时，Outlook会立即开始运行代码，以拾取以前的电子邮件，可能是因为电子邮件刚刚收到，还没有移动到特定的文件夹。
我试过了
Application.Wait (Now + TimeValue("0:00:5"))
和
Outlook.Application.Wait (Now + TimeValue("0:00:5"))
在抓取电子邮件之前
Set oLookMailitem = Application.ActiveExplorer
浏览 9提问于2022-01-11得票数 0
我每天从包含附件的.XLSX文件的电子邮件地址接收Outlook中的电子邮件。我对VBA相当熟悉，并且在Access和Excel中使用过，但我在Outlook中没有取得多大进展。我知道如何在Outlook中添加模块并运行宏。我还知道如何将脚本添加到已创建的电子邮件规则中。我只是想不出代码的变化。如果有人能帮我，我会非常感激的。
这就是我想要达到的目标。
来自发件人X的电子邮件将在Outlook收件箱中接收。I将包含Excel文件的电子邮件移动到嵌套在收件箱中的子文件夹中。(我知道如何创建消息规则来完成此任务)一旦将电子邮件移动到指定的子文件夹，附加的Excel文件将自动保存到硬盘上的特定文件路
浏览 8提问于2022-11-07得票数 0
1回答
我有一个充满电子邮件的文件夹，这些电子邮件是一个定制的消息类(iXOS，与OpenText企业存档相关)。每个电子邮件都有一个自定义元数据属性，在Outlook中可见，称为“文档标识符”。我试着用VBA脚本从电子邮件中提取这个。我找到了一个提取通用元数据(从、从、主题等)的脚本。把它写到Excel里。这个效果很好。
我尝试过调试脚本并查看电子邮件属性，但是我找不到任何包含自定义元数据的集合。
有人知道我如何通过VBA脚本访问自定义元数据吗？
浏览 6提问于2014-09-15得票数 0
1回答
我希望通过VBA从当前Outlook会话中通过Excel文件读取所有可用的非共享日历。
我用以下内容加载了默认日历：
Set Calendar = outApp.GetNamespace("Mapi").GetDefaultFolder(9)
我似乎通过在VBA编辑器的局部变量视图中手动浏览Outlook会话对象来找到可用的日历。到那里的路径(通过所有会话、文件夹和项层次结构)对于每个用户来说显然是不同的。所以我现在最好的解决办法是爬行整个物体，直到我找到一个有效的日历。有没有更好的解决办法？
我的目标是识别当前Outlook会话中的所有可用日历，并让用户选择在哪个日历中添加新
浏览 3提问于2015-07-14得票数 1
回答已采纳
1回答
我正在尝试使用python删除电子邮件。我想删除不同文件夹的电子邮件超过30天。我面临的问题:如何使用这个结构使它通过不同的文件夹？不仅文件夹“客户”，还有“报告”
import datetime
import win32com.client as win32
import datetime as dt
outlook=win32.dynamic.Dispatch('Outlook.Application').GetNamespace('MAPI')
o = win32.dynamic.Dispatch('Outlook.Application&
浏览 14提问于2022-07-14得票数 0
我正在寻找一种明确的方式来使用vba来阅读主题行的电子邮件时收到，以便创建一个新的文件夹或只是使用现有的文件夹中移动电子邮件。我见过一些vba示例，但没有一个涉及到在vba编辑器中使用outlook的新邮件方法。
浏览 5提问于2011-02-24得票数 4
1回答
我有一个我创建的系统，可以将电子邮件数据放到Excel电子表格中。这是伟大的，但我也想做的是在此运行后，提取电子邮件，包括任何附件从Outlook到我的Windows PC上的一个新文件夹。
当电子邮件在Excel电子表格上，然后电子邮件和附件被提取到我的PC上的文件夹中，我想要一个唯一的ID (可能是电子邮件的日期，或只是一个随机数)添加到电子邮件，然后将自动发送一个链接地址回到电子表格旁边的电子邮件，已提取的电子邮件，也添加唯一的ID到电子表格。听起来有点令人困惑，我希望这是有意义的(这可能吗？)
人们会回复电子邮件，我也希望回复电子邮件到一个原始的(应该有上面列出的唯一ID )使用与原始
浏览 3提问于2015-08-15得票数 0
2回答
我使用VBA代码在特定Outlook文件夹中查找电子邮件中的附件，并将其保存到某个位置。
我有一个Outlook规则，它将电子邮件发送到Outlook文件夹，然后激发宏。代码不会在我的计算机上自动启动，但在另一台计算机上会自动启动。电子邮件进入，规则将其放入文件夹，但代码不会运行。当我通过VB编辑器手动运行代码时，它会将附件保存在正确的位置。
我已经检查以确保文件夹和路径名是正确的(无论哪种方式，如果它们是错误的，当我手动运行它时，代码将不能正常运行)。
Outlook规则：
在邮件到达后应用此规则
来自xxxxxxxxxxxx
并在主题中包含xxxx
而且只在这台机器上
将其移动到xxxxx
浏览 1提问于2013-02-14得票数 2
你好，我试图提取一个特定的部分，电子邮件正文和计数多少电子邮件与相同的部分，我已经得到。我正在使用下面的vba代码，但会遇到以下问题：
输出没有填充，但是脚本正在运行，不会失败。
无法从电子邮件正文中提取该特定部分。
正在使用的代码是：
Option Explicit
Sub Download_Outlook_Mail_To_Excel()
Dim Folder As Outlook.MAPIFolder
Dim sFolders As Outlook.MAPIFolder
Dim iRow As Integer
Dim o
浏览 0提问于2016-02-24得票数 0
因为我无法在Outlook中设置运行VBA脚本的规则，所以我尝试创建一个解决方案。
当某个每日的电子邮件附带附件时，我希望下载excel附件并打开excel工作簿，并在该excel中运行vba脚本以更新信息、更新图表、保存文件并将文件发送为电子邮件。
我在整合上遇到了麻烦。理想情况下，当邮件来自具有特定主题行的特定发件人时，我希望Outlook自动下载excel附件，然后运行excel vba脚本。
我目前正在运行Outlook中的一条规则，即在子文件夹中归档电子邮件，让excel vba连接到outlook，查找电子邮件，下载文件，并从excel运行代码，所有这些都是在默认收件箱中显示带有&
浏览 2提问于2017-05-23得票数 0
在excel VBA中有没有一种方法可以从文件夹中找到一个文件并打开它？
浏览 2提问于2015-12-04得票数 1
我有直接从共享文件夹的收件箱中提取的代码。
我需要它从子文件夹中取出。
例如：
共享文件夹X
-Inbox
-子文件夹
另外，我想只拉前两行的每封电子邮件，而不是拖在整个电子邮件链。
下面的代码从共享收件箱中提取。
Sub GetEmails()
'Add Tools->References->"Microsoft Outlook nn.n Object Library"
'nn.n varies as per our Outlook Installation
Dim OutlookApp As Outlook.Application
Dim Ou
浏览 3提问于2022-05-20得票数 0
我是VBA的新手。如果有人能为我的任务提供一个Excel或Outlook脚本，我将不胜感激。
任务相对简单。我有超过4000 .msg格式文件(outlook电子邮件)在一个文件夹。我想提取某些电子邮件信息(Subject、Sender、CC、Receiver、SentDate)并将这些信息导入excel单元格，例如：
Subject Sender CC Receiver SentTime SentDate
Re:.. Mike Jane Tom 12:00:00 23 Jan 2013
我能想到的唯一方法就是一个一个地打开这些.msg
浏览 1提问于2013-04-17得票数 0
我现在的任务是一个庞大的项目，将大约50个outlook pst档案(大约100-200‘m)导入和重组到我的货运公司的单个库帐户中。
我使用的是一台Windows10Pro电脑，在本地安装了Office365商业高级版，而Outlook使用的是最新的"Exchange Online“版本的15.20.xxxx.xx，因此所有东西都可以在云中使用。
导入档案不是问题。
我的问题是不得不重命名几千个outlook文件夹，这样它们才能有条理！
最终目标是重命名所有电子邮件文件夹，从我们公司软件为此货件设置的完整文件号开始：
CHI-AE0xxxxx (air export)
CHI-AI0
浏览 9提问于2019-03-06得票数 0
回答已采纳
我有一些困难拉一个保存的电子邮件模板的身体到我的VBA。我正在使用Office 2010。我正在做的是从Excel中发送大量电子邮件。每次我发它，我都会收到一封没有人的空白电子邮件。我和2013年一起工作过。这几年在编码方面有什么不同吗？
Private Function GetRichTextTemplate() As String
Dim OLF As Outlook.MAPIFolder
Dim olMailItem As Outlook.MailItem
Set OLF = GetObject("", "Outlook.Application").G
浏览 0提问于2014-12-09得票数 0
回答已采纳
我已经从Excel发送了一段时间的Outlook电子邮件，使用它来管理我在工作中的销售和项目管理活动。我一直享受从它提高生产力，所以我想做一些更先进的事情。例如，我认为，我的代码，可能是一种粗糙的方式，让Excel帮助跟踪尚未回复的电子邮件。(我只是拥有Outlook，对于每封新邮件，打开一个工作簿，并在新行中创建一个记录，然后让Excel尝试将它与我以前发送的电子邮件匹配。)
但是，一旦我在Excel中有这样一封电子邮件的记录，它就没有与实际电子邮件的链接或连接。我想要能够点击Excel图标或电子邮件链接，然后拉出实际的电子邮件。
我发现了使用EntryIDs和MessageID、Outlo
浏览 0提问于2015-03-06得票数 1
回答已采纳
3回答
每个月，我都会发送大约2300封单独的电子邮件，其中只有一个Excel文件作为附件。 是否可以从特定位置仅导入一个Excel文件(在该位置将有多个Excel文件)，然后在发送电子邮件后，Outlook打开新的电子邮件并附加下一个Excel文件。 下面是到目前为止编写的VBA代码，但Outlook从该位置导入所有文件。 Sub Outlook_Project()
Dim origEmail As Object
Dim newEmail As MailItem
Dim MyPath As String
Set origEmail = CreateObject("Outlook.App
浏览 11提问于2020-01-28得票数 1
回答已采纳
我想移动电子邮件基于价值在InputBox。
想法是，我选择一个或多个电子邮件并运行脚本。
InputBox出现，我填写6位数字表示文件夹名。
如果该文件夹存在于Outlook收件箱中的任何位置，请将选定的电子邮件移动到此文件夹。
如果文件夹不存在，那么MsgBox (没有这样的文件夹)。
如果文件夹存在超过一次，那么MsgBox (多个记录)。
浏览 11提问于2022-05-13得票数 -1
我目前正在编写一些代码，以便当我根据特定的条件发送电子邮件时，它会将其保存在特定的文件夹中。我知道规则会做这样的事情，但相信我，这将是永远的，制定这么多的规则是不切实际的。这就是我想要做的。发送电子邮件时，代码会查看电子邮件的标题，以找到项目编号。然后弹出一个用户表单，用户可以根据需要进行多次归档选择。它首先使用VBA.SaveSetting方法保存项目编号，然后返回对象"objX“，这实际上是要发送的电子邮件对象。因此，在下面的代码中，我通过一个公用文件夹列表循环。文件夹名称的第一部分是项目编号。我要寻找的项目编号保存在"proj_folder“局部变量中。
因此，我在所有文
浏览 1提问于2015-03-05得票数 1
回答已采纳
我需要Excel中的宏扫描邮箱特定文件夹中的所有Outlook电子邮件，该文件夹从包含在括号中的主题字段、电子邮件正文和自动签名中提取任何数据，并将其发送到Excel中的各个行。但是，我想使用标记符R1、R2、R3、R4、R5、R6，以便将标记为R1的括号中的数据吐出到Excel /sheet的第1行中，括号中标记为R2的数据被吐出到第2行，等等。
标记R1-R6是原始电子邮件的一部分。
我对此完全没有经验，我一直试图为我的Excel组合不同的VBA代码，以完成所有这些工作，但没有取得多大进展。我找不到具体回答这个问题的地方，尽管试一试。我非常感谢你的帮助:)
浏览 7提问于2022-11-06得票数 0
回答已采纳
我从Windows换成了MacOS。 我使用VBA代码根据电子邮件标题在收件箱下创建了一个文件夹，并将电子邮件移动到该文件夹中。 我也在尝试用AppleScript做同样的事情。 如果有人能帮助我用AppleScript编写同样的逻辑，我将不胜感激(或者建议以某种方式继续使用VBA代码)。 Public Function ReturnNonAlpha(ByVal sString As String) As String
Dim i As Integer
For i = 1 To Len(sString)
If Mid(sString, i, 1) Like "[0-9]&
浏览 16提问于2019-05-03得票数 0
我创建了一个规则，将每天的电子邮件移动到一个特定的文件夹，并运行一个VBA脚本来保存该电子邮件正文中的表。
当收到电子邮件时，VBA开始运行并以相同的主题抓取以前的电子邮件，只有在新邮件出现在我的目标文件夹之后。
我试过睡觉。
有没有办法先将新电子邮件移动到目标文件夹，然后运行脚本？
Sub ExportOutlookTableToExcel()`
Dim oLookInspector As Inspector
Dim oLookMailitem As MailItem
Dim oLookWordDoc As Word.Document
Dim oLookW
浏览 3提问于2022-01-11得票数 0
我有从Outlook电子邮件中提取表格的VBA代码。
我在“收件箱”下有一个子文件夹，里面有所有类似的邮件。
我想根据电子邮件的主题提取数据，而不是为特定的电子邮件创建专用的子文件夹。
下面的代码。
Option Explicit
Sub ImportTable()
Cells.Clear
Dim OLApp As Outlook.Application
'Set OA = CreateObject("Outlook.Application")
Set OLApp = New Outlook.Application
Dim ONS As Outlook.Names
浏览 0提问于2021-10-27得票数 0
1回答
我试图使用Excel中的VBA在Outlook共享文件夹中创建一个新的“搜索文件夹”。
它在最后一行失败，这是保存函数。
“找不到对象”。
Sub createfolder()
Dim oApp As Outlook.Application
Dim oSearch As Outlook.Search
Dim oInbox As Outlook.mapifolder
Dim sFolderPath As String
Dim oScope As String
Dim sFilter As String
Set oApp = N
浏览 7提问于2017-07-07得票数 0
回答已采纳
我想做的是用outlook和excel创建一个简单的跟踪/票务系统。我正在使用Office 2016。这是我想要做的：
收到新电子邮件时，在excel中启动一个宏，检查它是新电子邮件还是回复/fwd。如果是新的，excel表格将创建一个新条目，并分配一个票号。现在，我想将此票据编号附加到电子邮件主题中，并向发件人发送自动回复。
我对excel vba有一些了解，但我正在与Outlook部分作斗争。任何在正确方向上的帮助或推动都将不胜感激。我试着从在线教程中提取一些信息，但我感到有点迷茫。谢谢你们的帮助！
浏览 0提问于2017-05-23得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
