如何将附件从电子邮件(即电子邮件)批量导出到Outlook中的另一个文件夹
将附件从电子邮件批量导出到Outlook中的另一个文件夹，可以按照以下步骤进行操作：
- 打开Outlook应用程序，并登录到您的邮箱账户。
- 在左侧的文件夹列表中，选择包含要导出附件的电子邮件文件夹。
- 在邮件列表中，按住Ctrl键并单击选择要导出附件的电子邮件。如果要导出所有邮件的附件，可以按住Ctrl+A键选择所有邮件。
- 在Outlook菜单栏中，点击“文件”选项。
- 在弹出的菜单中，选择“保存附件”。
- 在弹出的对话框中，选择要保存附件的文件夹路径，并点击“确定”。
- Outlook将会将选定邮件中的所有附件批量导出到指定的文件夹中。
需要注意的是，Outlook的具体操作界面可能因版本而异，以上步骤仅供参考。此外，如果您需要自动化批量导出附件的操作，可以考虑使用Outlook的VBA宏或者编写自定义的Outlook插件来实现。
推荐的腾讯云相关产品：由于本次问答内容不涉及云计算相关的问题，因此无法提供腾讯云相关产品的推荐和产品介绍链接地址。如有其他问题，欢迎继续提问。
相关·内容
1回答
我目前正在进行一个项目，并且在本地保存电子邮件附件时遇到了一些困难。
我目前设置了一个outlook规则，将所有相关电子邮件定向到Outlook文件夹。我想以编程方式提取所有这些电子邮件附件，并将它们全部保存到本地计算机上的一个文件夹中。
如何将附件拖到指定的位置？谢谢!
浏览 0提问于2018-08-13得票数 0
回答已采纳
1回答
我得到了一些工作代码来添加附件到Outlook。但我们必须在添加附件时指定文件的物理位置。在我的方案中，我要将datatable导出到word文档，并且需要将该文档附加到电子邮件，而不是将文档保存在文件夹中。代码如下..
Microsoft.Office.Interop.Outlook.Application oApp = new Microsoft.Office.Interop.Outlook.Application();
Microsoft.Office.Interop.Outlook._MailItem oMailItem = (Microsoft.Office.Interop.Outl
浏览 0提问于2014-10-17得票数 0
1回答
我试图创建一个代码，其中从excel中的特定输入(日期，主题，电子邮件正文，邮箱，文件夹导航和导出到)，我从这些特定的电子邮件下载附件。
我的问题是，即使代码获得正确的邮箱和文件夹，并下载到我想要的文件夹，它没有日期，主题和电子邮件正文。整个目标是从电子邮件中下载附件，从日期起，电子邮件主题包含一些单词，电子邮件正文包含某些单词，但是我得到的是邮箱上所有电子邮件的附件。
下面是我的代码(我试图更改& for，但它甚至没有下载)：
Sub download_attachment()
Dim olApp As Outlook.Application
Dim olNS As Outl
浏览 11提问于2021-12-16得票数 0
我正在尝试根据主题和发件人电子邮件扫描我的outlook收件箱，然后尝试将任何附件下载到本地的特定位置。 此代码当前永远运行，不会检测到具有所需发件人地址和主题的电子邮件。 import win32com.client
import re
# set up connection to outlook
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")
inbox = outlook.GetDefaultFolder(6)
messages = inbox
浏览 101提问于2021-07-13得票数 0
我是Python的新手，想要尝试自动化手动过程。
遍历outlook文件夹，并在电子邮件正文中按关键字“批准”或“批准”进行搜索。找到后，转换为pdf，然后保存在一个共享驱动器或SharePoint文件夹，其中唯一的名称。
如果电子邮件有附件，那么也保存附件。这可以用Python编程吗？
我们有Outlook 2013，但我了解到Outlook 365有一些功能。前景中的VBA是灰色的。任何帮助都是非常感谢的！
我向你问好，APA
浏览 6提问于2022-01-23得票数 -2
1回答
我非常确定以前已经做过这样的事情。
有谁知道如何将电子邮件导出到我的c盘上的文本文件中，我知道如何将电子邮件移动到outlook中的其他文件夹中，但在我的c盘上。
谢谢。
浏览 6提问于2012-07-25得票数 0
回答已采纳
我需要从某个范围内的电子邮件中提取.msg附件，并将其保存到另一个Outlook子文件夹中。目前，这是通过拖拽附件到“收件箱”的子文件夹中来实现的，但是有没有更快的方法呢？ 我搜索了一下，找到了将它们解压到本地文件夹的方法，但我需要将它们包含在outlook中。 感谢您的帮助和建议。 谢谢。
浏览 19提问于2019-01-23得票数 0
回答已采纳
我使用以下vba代码，它应该搜索所有带有特定主题标题的电子邮件，即主题“测试”
然后，只有当电子邮件是未读，然后保存附件从该电子邮件到一个文件夹。
可能有一个或几个电子邮件与主题测试，所以我希望所有未读的电子邮件与主题测试，以保存他们的附件到文件夹。
这是我的代码：
Sub Work_with_Outlook()
Set olApp = CreateObject("Outlook.Application")
Dim olNs As Outlook.Namespace
Dim Fldr As Outlook.MAPIFolder
Dim myI
浏览 4提问于2015-07-14得票数 0
我为Outlook开发了一个外接程序，它需要能够访问电子邮件的附件。
在桌面应用程序中，如果我将带有附件的电子邮件从共享文件夹移动到我的主收件箱，然后尝试在其上运行外接程序，就会得到错误：
The specified attachment Id is invalid.
但是，如果我通过web应用程序执行完全相同的操作，它就可以正常工作。
我已经检查过了，无论是在web上还是桌面上，Office.context.mailbox.item.itemId和Office.context.mailbox.item.attachments[i].id都是完全相同的。
带有附件的电子邮件没有从不同的文件夹中
浏览 3提问于2019-11-27得票数 0
回答已采纳
1回答
首先，我是VBA的新手，有大约20个小时的训练。
我正在尝试将项目从Outlook 2010导出到Excel 2010。我想从Outlook抓取所有未完成的“要做”项，并将它们抛到Excel中，每行只有一项，以及条目参数的列(如主题、到期日、附件等)。
下面是我解释过的第一个步骤，它只导入任务(根据我所理解的，任务是所有要做项目的子集)和它们的主题/到期日：
Function GetOutlookApp() As Object
On Error Resume Next
Set GetOutlookApp = GetObject(, "Outlook.Application"
浏览 3提问于2014-12-17得票数 1
我有这段代码，它能将附件从outlook中取出并放到本地文件夹中。从那以后，我试图修改它来重命名该文件，并从outlook中删除该电子邮件，但这就是它停止工作的地方。
当电子邮件进入新文件夹时，规则会将其移动到新文件夹中，然后将附件保存到我的C盘上的文件夹中。每天只有一封电子邮件和一个附件。
我要将附件保存到文件夹，重命名附件(覆盖现有文件)，然后从outlook中删除该电子邮件。
这就是我到目前为止所拥有的代码。
任何帮助都将不胜感激
Public Sub SaveAttachments(Item As Outlook.MailItem)
If Item.Attachments.Count
浏览 4提问于2018-08-30得票数 0
2回答
我有一些电子邮件从我以前的电子邮件提供者，我已经转发到我的Outlook 2010收件箱文件夹Received。
我的问题是，原来的电子邮件已经作为附件发送，而不是作为转发！所以我想做的是：
在Received文件夹中打开邮件&运行VBA代码
从Received文件夹中的转发邮件中解压附件，并将附件保存到Forwarded文件夹
删除Received文件夹中的转发邮件。
我不了解Outlook代码，所以我甚至没有一个起点！
我们将感激您的支持！
浏览 4提问于2011-12-21得票数 2
1回答
下面的规则是用礼品卡从sender@bookstore.com中保存附件，购买主题行到磁盘，然后将电子邮件移动到删除项目文件夹，这样它就不会再次处理它。该规则在收到新电子邮件并将该电子邮件移至Delete Items文件夹但未保存附件时运行。
我怀疑规则是先将邮件移动到Delete Items文件夹，然后执行脚本以保存不再位于Inbox文件夹中的电子邮件附件。
我无法更改下面Outlook规则的顺序，以便先执行脚本，然后再移动邮件，但Outlook不允许。
有什么建议吗？
Apply this rule after the message arrives
from sender@booksto
浏览 9提问于2018-12-04得票数 1
我试图将电子邮件中的附件复制到网络上的某个特定位置(Z:)。
我已经看到了不同的脚本，但让我感到震惊的是文件结构。
Inbox
Drafts
Outbox
My Folder
Employer Name
Project Name
Organizational Folder
Organizational Folder
Project Name
Organizational Folder
Organizational Folder
Employer Name
Project Name
Organizatio
浏览 13提问于2016-04-23得票数 0
回答已采纳
我使用VBA根据pdf附件的内容查找电子邮件。
据我所知，唯一不打开每封邮件的方法就是即时搜索。
我找到了我要找的电子邮件。如何处理显示为结果的电子邮件？
我不知道如何将它们保存到收集器或其他什么地方。
我的搜索代码：
Sub Search_Email()
Dim ol As Outlook.Application
Dim ns As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim strFilter, txtSearch As String
Set ol = New Outlook.Application
Set ns =
浏览 2提问于2020-05-05得票数 0
我已经为Outlook编写了一个移动电子邮件的脚本，具体取决于附件。
该脚本是检查所有到达的电子邮件的规则的一部分。
如果邮件没有附件，或者附件是与.pdf (.zip、.jpg或其他文件)不同的文件，则会转到错误文件夹。
如果一封电子邮件附加了.pdf文件，它就会留在收件箱里。
除了邮件有两个附件(一个.pdf文件和一个.zip文件)外，一切都正常。
如果.zip文件是第一个附件，则邮件将按其应有的方式转到错误文件夹。
如果.pdf文件是第一个附件，它将留在收件箱中，但也应该转到错误文件夹。
我试图修改循环和if，但是结果总是一样的。我尝试使用“继续”或“继续循环”。
Sub
浏览 2提问于2019-07-25得票数 0
回答已采纳
我有这个脚本自动保存附件从outlook在一个文件夹中，但它只保存附件从2个电子邮件的时间。如何将其增加到3或4？
Const olFolderInbox = 6
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objMailbox = objNamespace.Folders("Mailbox - ABC")
Set objFolder = objMailbox.Folders
浏览 6提问于2014-03-19得票数 2
1回答
我们每天都会收到包含Excel文件的Outlook电子邮件来分析。名称始终包含"WPS"。
我想每天运行一个脚本来保存附件，并按附件发送的日期组织这些附件。
我看到附件按日期排列的两种方式是：
Excel附件以文件名开头的日期重命名。
它们被放入日期已久的文件夹中。
我有一个Outlook规则，在主题标题中抓取带有"WPS"的电子邮件，并包含附件。
然后运行以下脚本：
Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Att
浏览 0提问于2017-08-16得票数 1
我目前收到一封带有2个电子邮件附件的电子邮件。我只关心其中的一个附件"Delivery Sales“，我不关心我是拉入还是忽略另一个附件。 我的工作流程应该是:检测到新邮件时运行>抓取附件>将附件推送到Blob >存档电子邮件。 我可以让所有这些都正常工作(它甚至会对电子邮件进行归档)，但它会在归档步骤中出错，因为它似乎会启动它两次(似乎每个附件一次)。 那么，我如何提取电子邮件，将附件放入blob，然后将电子邮件存档到另一个outlook文件夹中？ 下面是我当前的设置。我已经尝试将电子邮件移动到循环之外(仍然失败)，我还添加了一个条件来查看附件名称，true/fa
浏览 17提问于2021-05-06得票数 0
我每天从包含附件的.XLSX文件的电子邮件地址接收Outlook中的电子邮件。我对VBA相当熟悉，并且在Access和Excel中使用过，但我在Outlook中没有取得多大进展。我知道如何在Outlook中添加模块并运行宏。我还知道如何将脚本添加到已创建的电子邮件规则中。我只是想不出代码的变化。如果有人能帮我，我会非常感激的。
这就是我想要达到的目标。
来自发件人X的电子邮件将在Outlook收件箱中接收。I将包含Excel文件的电子邮件移动到嵌套在收件箱中的子文件夹中。(我知道如何创建消息规则来完成此任务)一旦将电子邮件移动到指定的子文件夹，附加的Excel文件将自动保存到硬盘上的特定文件路
浏览 8提问于2022-11-07得票数 0
我有将附件保存在邮件中的特定Outlook文件夹的代码。
如果电子邮件有附件，我的脚本将工作，但如果电子邮件是以附件和附件的形式发送的，则无法工作。
在这种情况下，我的电子邮件包含其他电子邮件作为附件(从自动转发规则)。然后嵌入的电子邮件附件包含excel文件。
请参阅我现在的：
Public Sub SaveOlAttachments()
Dim isAttachment As Boolean
Dim olFolder As Outlook.MAPIFolder
Dim msg As Outlook.MailItem
Dim att As Outlook.Attachment
浏览 3提问于2011-10-25得票数 4
回答已采纳
这是我拥有的代码，如果我在电子邮件中有1个附件，它运行得非常好。当电子邮件中有多个附件时，问题就出现了，我想对所有这些附件执行功能。
def get_email():
import win32com.client
import os
import time
import datetime as dt
date_time = time.strftime('%m-%d-%Y')
outlook = win32com.client.Dispatch("Outlook.Application").GetNameSpac
浏览 0提问于2017-07-29得票数 0
2回答
我正在尝试下载Excel电子表格附件，然后使用Excel中的VBA打开Outlook电子邮件中的Excel电子表格附件。我如何才能：
从我的收件箱中的第一封电子邮件(最新的电子邮件)下载
将附件保存在具有指定路径的文件中(例如：“C：.”)
将附件名称重命名为：当前日期+上一个文件名
将电子邮件保存到另一个文件夹中，路径为“C：.”
将Outlook中的电子邮件标记为"read“
打开 excel中的Excel附件
我还希望能够将以下内容保存为分配给各个变量的单个字符串：
发件人电子邮件地址
收到日期
发送日期
主题
电子邮件的信息
浏览 3提问于2012-08-02得票数 32
回答已采纳
我正在尝试使用Python和Outlook来自动化一个进程。我能够成功登录，并能够读取在“我的文件夹名”文件夹中收到的最后一条消息，但由于某些原因，我无法读取附件内容，就像我想复制电子邮件附件中的超链接一样，但没有给出电子邮件的内容。
import win32com.client
outlook = win32com.client.Dispatch("Outlook.Application").GetNamespace("MAPI")
folder = outlook.Folders("My Shared Mailbox Name")
inbox
浏览 0提问于2018-04-23得票数 0
回答已采纳
首先，我为我没有太多的开始而道歉。当涉及到VB和Outlook时，我一无所知。不过，我在Java/Python方面有很强的背景，如果这有助于更容易地解释的话。
基本上，我会通过“将此邮件作为附件转发”规则自动转发来自另一个outlook帐户的电子邮件。我使用“作为附件”部分来保持原始的“收件人”和“抄送”字段的完整性，以备所有情况的回复。
我想要做的是，当我收到这封没有正文的电子邮件时，它的附件中有我关心的实际电子邮件，将附加的电子邮件移动(复制)到我的收件箱，并删除原始的“容器电子邮件”。
我找到了一个，代码很有意义，但我找不到任何关于处理电子邮件文件夹的内容。
有没有办法用VB/Rules
浏览 2提问于2014-05-01得票数 0
我收到两个不同的文件转发给我在Outlook每日。目前，我使用下面的代码自动下载符合条件的附件到驱动器上的文件夹。
我想知道是否有一种方法来编辑它，这样我就可以将不同的文件保存到两个不同的文件夹中。即在主题=>中用A发送电子邮件，将附件保存到文件夹A，在主题中用B发送电子邮件，将附件保存到文件夹B。
Public Sub SaveOutlookAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oOutlookAttachment As Outlook.Attachment
Dim sSaveAttachmentsFolder
浏览 0提问于2019-07-06得票数 2
回答已采纳
2回答
我能够识别和提取我需要的所有必要的电子邮件。我还将每个电子邮件的附件保存到另一个变量。但是，我在将这些附件保存到本地文件夹时遇到了问题，特别是那些文件类型为.xlsx的附件。 library(RDCOMClient)
setwd("C:/Updated")
outlook_app <- COMCreate("Outlook.Application")
search <- outlook_app$AdvancedSearch(
"Inbox",
"urn:schemas:httpmail:subject like &#
浏览 10提问于2019-04-03得票数 1
回答已采纳
我想这么做：
Public Sub saveAttachment(item As Outlook.MailItem)
Dim attachment As Outlook.Attachment
Dim defaultPath As String
defaultPath = "c:\Email Exports"
For Each attachment In itm.Attachments
attachment.SaveAsFile defaultPath & "\" & attachment.DisplayName
Set attac
浏览 0提问于2021-08-18得票数 0
回答已采纳
我已经从这个链接成功地实现了VBA代码，将每个电子邮件中的附件下载到一个文件夹：
但是，问题是现在访问带有附件的电子邮件，这些电子邮件位于服务器上Outlook中的一个文件夹中。我在文件夹中看到的消息如下：
服务器上的此文件夹中有更多的项。
单击此处查看有关Microsoft的更多信息
当我单击查看电子邮件并在Outlook视图窗格中加载电子邮件时，运行代码将导致以下错误：
这个文件夹中没有消息，
我不能改变时间来增加“邮件离线”超过一个月，所以我想知道是否有什么东西，我可以编辑/更新在VBA代码运行电子邮件服务器。
谢谢
浏览 14提问于2022-07-27得票数 0
我有一个应用程序，其中拖放文件系统的文件、Outlook的电子邮件或Outlook的附件，然后代码将这些文件保存在文件系统文件夹中，以便稍后上传到SharePoint。
除了我需要识别附件的内容之外，这一切都很好，附件是电子邮件(即电子邮件嵌入的MSG上的电子邮件附件)，其中FileContents为null。是否有任何方式可以访问电子邮件的内容，以保存为.msg文件？
下面的代码片段正确地为不是电子邮件但对于电子邮件类型为null的附件创建了一个MemoryStream：
void DoDrop(object sender, DragEventArgs e)
{
var memory
浏览 8提问于2012-06-06得票数 5
我已经将outlook联系人文件夹导出到csv文件中。我注意到的一件事是，notes字段有一些联系人的附件。在csv文件中似乎没有这方面的迹象。有什么方法可以找到其笔记中包含附件的联系人吗？如果不能直接使用Outlook，我想使用C#。
浏览 0提问于2019-09-03得票数 1
回答已采纳
我需要一个客户发送文档的邮箱Outlook 2013的一个简单的脚本。我将设置一个适用于所有传入邮件的规则。如果电子邮件有附件，则需要将其保存到文件夹中。然后，需要将保存附件的邮件移动到已完成的文件夹中。
我认为这真的很简单，但我对VBA或Outlook脚本了解不多。我找到了这个脚本，它删除了附件，并在保存的文件中添加了日期，非常完美。我只需要它，然后移动完成的电子邮件到一个文件夹。希望有人能帮上忙。
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim
浏览 4提问于2014-11-24得票数 0
1回答
我有一个电子邮件帐户，其中包含两个别名，pod@和发票。有一条规则将pod@接收的邮件移动到POD文件夹(Outlook文件夹，而不是HDD)。
我运行了一个脚本VBA代码，如：
我需要设置相同的规则发票@，以便附件保存到另一个网络驱动器。
如果添加相同但具有不同位置的另一个脚本，则在设置Outlook规则时无法选择任何脚本，它们将变得不可见。
我希望脚本运行在不同的规则中，将附件保存到不同的网络文件夹中。
或
使用脚本确定发送到哪个别名邮件的规则，将邮件移动到特定的Outlook文件夹，然后将附件保存到不同的网络文件夹。
此外，我发现运行当前脚本时出现了问题。当试图保存附件时，无法访问网络文
浏览 3提问于2014-11-20得票数 0
1回答
我有一个outlook插件，它涉及到在Outlook UI中实现对WPF控件的拖放。作为这一点的一部分，我必须能够拖放电子邮件的附件。
我曾尝试使用Outlook检查器和资源管理器的AttachmentSelection属性执行此操作，但遇到了问题。
如果在拖动之前选择了附件，或者从一封电子邮件中拖出了多个附件，但当只拖动了一个附件，并且用户在未事先选择的情况下拖动该附件时，此方法有效，则AttachmentSelection属性为空。
作为OnDrop事件的一部分，我尝试从DragEventArgs获取附件信息，但是我看不到有什么用处。
在移动内置文件夹和PST存储时，我尝试复制的行为存在于
浏览 4提问于2014-03-27得票数 2
我试图下载和保存outlook电子邮件附件，从最近的电子邮件文件夹中。
我有一个代码，可以从outlook文件夹下载所有附件并保存它。
任何帮助都是非常感谢的。
from pathlib import Path
import win32com.client
output_dir = Path.home()/r"Documents\Test"
output_dir.mkdir(parents=True, exist_ok=True)
outlook = win32com.client.Dispatch("Outlook.Application").GetNam
浏览 16提问于2022-11-17得票数 0
我试图让我的代码在特定的子文件夹中遍历文件附件的主体，这样如果某个单词存在于文件附件的正文中，那么电子邮件的正文就会被读取。
目前，我只知道如何通过以下方式读取电子邮件的正文：
import win32com.client
outlook=win32com.client.Dispatch('outlook.application')
mapi=outlook.GetNamespace("MAPI")
inbox=mapi.GetDefaultFolder(6).Folders['Email']
messages=inbox.Items
for
浏览 4提问于2022-03-14得票数 0
我有一个macro1，当它在某个文件夹中检测到新的电子邮件时，它会触发另一个macro2，它会转到那个特定的文件夹，下载所有附件，删除所有电子邮件，然后返回收件箱。
Macro1运行良好，并触发macro2。
问题是: macro2只运行了一半。当它执行时，它只运行到将活动文件夹设置为我想要的文件夹的代码部分。在那之后，它就停止了。当我再次运行macro2时，它立即停止运行，并下载/删除附件。
在我看来，这是一个单一的解决方案，但我不能解决它。
1-宏1:如果我在"Relatorio“文件夹中收到一封新邮件，它将运行macro2
2-宏2将激活"Relatorio“
它停止在这
浏览 1提问于2016-02-17得票数 1
2回答
编程雷鸟电子邮件客户端？
、、、、
谁有C#/Ruby/Python/Java或Perl脚本来获取Thunderbird客户端文件夹中的所有电子邮件并下载所有附件？
我有200多份简历作为附件保存在雷鸟的简历文件夹中，我需要下载附件并对它们进行分类。
我找到了这个，但我正在寻找特定的代码示例。
其他参考文献
浏览 0提问于2010-08-02得票数 2
1回答
我创建了一个Outlook规则来保存附件，然后将其移动到“已删除邮件”文件夹中。当我在“收件箱”中突出显示收到的电子邮件，然后将该电子邮件移动到“已删除邮件”文件夹中时，代码会起作用。
当新电子邮件到达时，它会将来自不同电子邮件的附件保存在收件箱中，而不会将该电子邮件移动到已删除邮件文件夹中。
Outlook规则为：
Apply this rule after the message arrives
from Sender
and with Gift Card in the subject
and on this computer only
run Project1.SaveAttachm
浏览 4提问于2018-12-06得票数 0
1回答
我在Outlook中自动保存附件时遇到了问题，
因此，代码基本上是将选定的附件保存在电子邮件中特定的文件夹中，但是它不仅保存了电子邮件中的附件，而且还在电子邮件中保存了其他类型的图像(不是在附件中)。
我找不到任何解决方案来使代码只选择附件中要保存的项。
以下是完整的代码：
Dim Attachments As Outlook.Attachments
Dim AttachmentsCount As Integer
Dim Email As Outlook.MailItem
Dim FolderObj As Object
Dim FolderPath As String
Dim i As Lon
浏览 8提问于2022-06-09得票数 0
回答已采纳
当Outlook启动时，我需要我的VBA在第二个电子邮件帐户中的文件夹上运行，以查看在我的计算机关闭期间是否有人移动了带有附件的电子邮件。我想保存附件。
我还有其他代码可以在Outlook运行时监视文件夹并保存附件。它还在电子邮件中添加了一个注释：“文件保存到C:\Temp\TEST”。
当Outlook启动时，我希望扫描文件夹中的电子邮件，查找那些没有文本“文件已保存到C:\Temp\TEST”的邮件，然后保存这些附件。
我知道脚本的保存/添加文本部分有效，但是
“对象变量或块未设置”
在这条线上：
If InStr(1, LCase(ItemCrnt.Body), LCase(&#
浏览 1提问于2019-02-14得票数 1
2回答
我不太熟悉vba，不足以根据我的需要修改它。
我需要从一个特定的文件夹下载附件。
我找到了这个，但我不知道如何获得这些电子邮件发送到的文件夹。
我有一条规则，当这些电子邮件进来的时候，它会把它们放在另一个文件夹里。
这是我想要运行宏的地方，所以它只会从这些电子邮件中取出附件，并将它们放在本地计算机文件夹中。
我需要更换哪些部件才能让它满足我的需要？
Public Sub SaveAttachments(Item As Outlook.MailItem)
If Item.Attachments.Count > 0 Then
Dim objAttachments As Outlook.A
浏览 2提问于2016-03-14得票数 2
回答已采纳
2回答
我使用VBA代码在特定Outlook文件夹中查找电子邮件中的附件，并将其保存到某个位置。
我有一个Outlook规则，它将电子邮件发送到Outlook文件夹，然后激发宏。代码不会在我的计算机上自动启动，但在另一台计算机上会自动启动。电子邮件进入，规则将其放入文件夹，但代码不会运行。当我通过VB编辑器手动运行代码时，它会将附件保存在正确的位置。
我已经检查以确保文件夹和路径名是正确的(无论哪种方式，如果它们是错误的，当我手动运行它时，代码将不能正常运行)。
Outlook规则：
在邮件到达后应用此规则
来自xxxxxxxxxxxx
并在主题中包含xxxx
而且只在这台机器上
将其移动到xxxxx
浏览 1提问于2013-02-14得票数 2
我们使用Outlook 2010并接收带有Excel附件的电子邮件。我们手动将附件保存在网络驱动器上的分区文件夹中创建的子文件夹中。
我想知道的是
使用代码检查传入的电子邮件是否有附件，然后检查附件是否为.XLSX，如果有，则打开附件，检查特定单元格的值，然后将帐户名和帐号存储为字符串和变量< code >H19</code>，然后使用它们在适当的目录中创建子文件夹。<code>H 210</code><code>G 211</code>
**我忘记张贴我迄今所做的事。我相信布雷特回答了我的??，但也许其他人可以用它的片段
浏览 21提问于2012-02-24得票数 2
回答已采纳
我最初运行这段代码是为了保存电子邮件中的附件。我的代码将遍历整个文件夹，对于任何附件，它将保存附件并从电子邮件中删除它。我有一条规则，每当我想要邮件进来时，我就会发出宏火。然而，当邮件来时，附件将永远不会保存下来。没有错误，手动调试也很好。此外，单击“立即运行规则”按钮后立即运行该规则也会很好。因此，在尝试了上百万种不同的方法来保存附件之后，我开始感到非常恼火，并设置了一个测试，看看outlook到底在做什么。这就是问题所在。
这是我设置的outlook规则：
在来自xxxxx的消息到达后应用此规则，将其移动到宏文件夹并运行Project1.ThisOutlookSession.sayhi
不
浏览 1提问于2013-03-02得票数 2
2回答
我目前使用的是Outlook2010，我目前可以通过使用“更多”按钮在Outlook中手动搜索文件夹，并添加附件:是和附件包含:我在其中输入文件名以查找电子邮件并获取发送时的时间戳。我有数以千计的附件，我需要这样做，我想自动化的过程，但我是一个outlook vba noobie和我不知道的命令来执行搜索附件名称，我已经尝试谷歌这，但没有任何帮助，将非常感谢！
浏览 0提问于2015-09-01得票数 0
用户将选择一封电子邮件，我需要将它的所有附件保存到一个文件夹+该电子邮件没有附件在一个单独的文件夹。
我编写了代码，除了一个大问题外，它似乎运行得很好：
附件从原始电子邮件中删除，也从我的收件箱中删除。删除附件后，我将调用SaveAs方法，因此我认为不应该发生这种情况。
下面是我编写的代码：
Dim objMailItemOriginal As Outlook.MailItem
Dim objMailItemNew As Outlook.MailItem
Dim objNameSpaceUserNS As Outlook.namespace
Dim emailPath
浏览 6提问于2015-03-25得票数 2
回答已采纳
我创建了一个宏，用于从分配到特定类别的电子邮件中下载附件，并将电子邮件分配到不同的类别。 我使用规则对具有特定主题行的电子邮件进行分类，并已将宏附加到规则以下载分配给此类别的附件。之后，宏会将这些电子邮件重新分配到不同的类别。 Public Sub SaveNewInvoices(oItem As Outlook.Item)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
Dim cats() As String
Dim i As Integer
sSaveFolder = "D:\Users\fak
浏览 3提问于2019-09-26得票数 1
我正在使用Microsoft.Office.Interop.Outlook进行以下操作：-
读取一个名为“挂起”的Outlook文件夹
从“挂起”文件夹下的所有电子邮件中获取附件
将附件保存到硬盘文件夹
从保存的文件中读取附件并上载到我们的数据库。
如果我手动运行我的C#控制台应用程序，上述所有要点都能很好地工作。有时，当我从Windows启动控制台应用程序时，它也能工作。但有时不是。我在Stack的某个地方读到，Microsoft.Office.Interop.Outlook不是为Windows设计的。
什么是最好的方法(快速和快速开发)所有上述任务从Windows服
浏览 2提问于2017-07-27得票数 0
问题：从具有相同文件名的电子邮件中保存多个附件，将一个附件保存到文件夹
可能的解决方案：将接收到的时间和发送方的名称添加到新的文件名中。
我在互联网上找到了能工作的VBA代码。似乎有多种方法可以做到这一点，而且并不是所有的方法都可以使用我的代码。如果可能的话，我不想运行规则脚本。
我在Outlook 365中使用下面的VBA代码。它保存选定电子邮件的电子邮件附件。
宏不会选择同名的附件。例如，我将有多个名为"image.pdf“的附件，但它只保存一个具有该名称和文件类型的附件。我想我可以将接收到的日期和时间以及发件人的名字添加到文件名中，以使文件名成为唯一。当我尝试这个时，我会出错。
浏览 3提问于2021-07-21得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
