Outlook中批量保存附件的宏

利用VBA自动操作Outlook邮件

利用VBA自动操作Outlook邮件近年来，随着信息技术的迅猛发展，电子邮件已成为我们日常工作中不可或缺的一部分。

然而，随之而来的是越来越多的邮件需要进行处理和管理，这对于繁忙的工作人员来说往往是一项枯燥且耗时的工作。

好在，我们可以利用VBA自动化工具来解决这个问题，提高我们的工作效率。

VBA（Visual Basic for Applications）是微软的一种宏语言，可用于自动化执行各种任务，包括在Outlook中自动操作邮件。

它可以帮助我们快速处理和管理大量邮件，减少重复劳动和人为错误。

下面，我将介绍一些利用VBA自动操作Outlook邮件的方法。

1. 自动回复邮件在工作中，我们经常会收到很多相似或重复的邮件，例如询问公司项目进展、预约会议等。

通过编写VBA宏，我们可以设置自动回复来处理这些邮件，节省大量时间。

首先，我们需要在Outlook中打开“开发工具”选项卡，然后点击“Visual Basic”按钮进入VBA编辑器。

在VBA编辑器中，我们可以编写自定义的宏代码。

下面是一个简单的示例代码，用于自动回复收到的邮件：```Sub 自动回复邮件()Dim olApp As Outlook.ApplicationDim olNamespace As spaceDim olInbox As Outlook.MAPIFolderDim olMail As Outlook.MailItemSet olApp = New Outlook.ApplicationSet olNamespace = olApp.GetNamespace("MAPI")Set olInbox = olNamespace.GetDefaultFolder(olFolderInbox) For Each olMail In olInbox.ItemsIf olMail.UnRead = True Then '判断邮件是否已读'设置回复内容olMail.reply.Subject = "自动回复：已收到您的邮件"olMail.reply.Body = "您好，已收到您的邮件，我们会尽快回复您。

Outlook邮件附件管理

Outlook邮件附件管理随着信息技术的快速发展，电子邮件已经成为我们日常工作和生活中不可或缺的一部分。

而作为一款功能强大的邮件客户端，Outlook 提供了便捷的邮件附件管理功能，使我们能够更加高效地处理邮件中的附件。

本文将针对 Outlook 邮件附件管理进行详细介绍，帮助您更好地利用这一功能。

一、查看邮件附件在使用 Outlook 时，我们经常会收到带有附件的邮件。

为了查看这些附件，您只需要简单地点击邮件中的附件图标，即可立即打开附件。

同时，Outlook 还支持预览邮件附件的功能，您可以在不下载附件的情况下直接预览其内容。

这在您快速浏览邮件内容时非常有用。

二、下载和保存邮件附件除了预览邮件附件，我们还可以将附件下载到本地进行保存。

在查看附件的同时，您可以选择“保存”选项，将附件保存到您指定的文件夹中。

Outlook 还为用户提供了一键保存所有附件的功能，您只需要点击“保存全部”按钮，所有附件便会被自动下载到指定位置。

这样，您就可以随时随地查看和编辑这些附件。

三、重新命名附件有时候，邮件附件的命名可能不够清晰或符合个人需要。

Outlook允许您在下载或保存附件时对其进行重新命名，以便更好地组织和管理您的附件。

只需要在保存或下载附件的对话框中设置新的文件名即可，这将帮助您更加方便地查找和区分不同附件。

四、发送邮件附件作为邮件客户端，Outlook 还提供了便利的方式来发送附件。

在创建新的邮件时，您可以直接将附件拖放到邮件正文中，或通过附件图标选择要发送的附件。

Outlook 还支持批量发送附件的功能，您可以一次选择多个附件进行发送。

这大大简化了附件发送的流程，提高了工作效率。

五、压缩和解压缩邮件附件有时候，我们的邮件附件可能会比较大，不利于传输或保存。

Outlook 提供了压缩邮件附件的选项，可以将附件压缩成一个文件，从而减小附件的大小。

在下载或保存邮件附件时，您可以选择“压缩”选项，并设置压缩文件的格式和压缩级别。

VBA与Outlook邮件自动化操作的实现方式

VBA与Outlook邮件自动化操作的实现方式邮件作为我们日常工作中不可或缺的一部分，通常需要花费大量的时间来处理和管理。

然而，借助于VBA（Visual Basic for Applications）和Outlook的自动化功能，我们可以轻松地实现邮件的自动化操作，从而提高工作效率和减少工作负担。

本文将介绍VBA与Outlook邮件自动化操作的实现方式，并提供一些示例代码供参考。

在开始之前，我们需要明确一些基本概念。

VBA是一种用于Microsoft Office应用程序的编程语言，它允许我们通过编写脚本来自动化执行多种任务。

Outlook是一款常用的电子邮件客户端软件，我们可以使用VBA来操作Outlook中的邮件、联系人、日历等功能。

首先，我们需要在VBA编辑器中打开Outlook应用程序。

按下“Alt+F11”组合键，或者在“开发者”选项卡中点击“Visual Basic”按钮，即可打开VBA 编辑器。

然后，在“工具”菜单中选择“引用”，勾选“Microsoft Outlook XX.X Object Library”（其中XX.X表示Outlook的版本号），单击“确定”按钮以加载Outlook的相关对象库。

现在，让我们来看一些常见的VBA与Outlook邮件自动化操作的实现方式。

1. 发送邮件使用VBA可以轻松地编写代码来自动发送邮件。

下面是一个发送邮件的示例代码：```vbaSub SendEmail()Dim OutApp As Outlook.ApplicationDim OutMail As Outlook.MailItemSet OutApp = CreateObject("Outlook.Application")Set OutMail = OutApp.CreateItem(olMailItem)With OutMail.To="*********************".Subject = "邮件主题".Body = "邮件内容".SendEnd WithSet OutMail = NothingSet OutApp = NothingEnd Sub```在上面的示例代码中，我们首先创建了一个Outlook应用程序对象（OutApp）和一个邮件对象（OutMail）。

VBA在Outlook中的应用与技巧

VBA在Outlook中的应用与技巧Outlook作为一款常用的电子邮件客户端，具有强大的功能和灵活的定制选项，可以帮助我们管理日常邮件、日历、联系人等事务。

然而，有时候我们需要进一步提升Outlook的使用效率和便利性，这就需要借助VBA（Visual Basic for Applications）的强大功能来实现一些定制化的需求。

本文将介绍VBA在Outlook中的应用与技巧，帮助读者更好地利用VBA提升Outlook的使用体验。

一、自动化邮件处理VBA可以帮助我们实现Outlook自动化处理邮件的需求，例如自动回复、自动归档、自动转发等。

我们可以编写VBA代码来监控特定文件夹中的邮件，根据设定的条件自动执行相应的操作。

比如，可以编写VBA代码实现自动转发所有包含特定关键词的邮件到指定的人员，或者将指定日期范围内的邮件自动归档到指定的文件夹中。

二、自定义邮件模板Outlook提供了一些邮件模板，用来快速创建特定的邮件，但这些模板可能并不完全符合用户的需求。

通过VBA，我们可以自定义邮件模板，根据个人或组织的需求创建特定格式的邮件模板。

这样，我们就可以快速创建符合要求的邮件，提高邮件的撰写效率和一致性。

三、自动解析邮件有时候我们需要从邮件内容中提取特定的信息，例如提取发件人、主题、日期等字段，或者从正文中提取特定的关键词。

通过VBA，我们可以编写代码来自动解析邮件内容，提取所需的信息，并将其保存到Excel表格或其他应用程序中。

这样，我们无需手工复制粘贴，大大提高了处理邮件的效率。

四、自动创建日程安排在Outlook中，我们可以创建和管理个人的日程安排。

通过VBA，我们可以编写代码来快速创建日程安排，例如从邮件中提取会议信息，自动创建相应的日程安排，并发送会议邀请给参与人。

这样，我们无需手动创建每个日程安排，简化了工作流程，提高了工作的效率。

五、自动备份和恢复Outlook中的邮件、日历、联系人等数据对于我们来说都非常重要，一旦丢失将会造成不可挽回的损失。

使用VBA处理Outlook邮件的方法和技巧

使用VBA处理Outlook邮件的方法和技巧Outlook是一款流行的邮件客户端，广泛用于个人和商业邮件管理。

VBA（Visual Basic for Applications）是一种编程语言，适用于多种Microsoft Office应用程序，包括Outlook。

通过使用VBA，您可以自动化和定制Outlook邮件的处理。

本文将介绍一些使用VBA处理Outlook 邮件的方法和技巧，以提高您的工作效率。

1. 自动回复邮件当您需要离开办公室时，可以编写一个VBA宏来自动回复收到的邮件，以便让发送者知道您的离开时间。

您可以在Outlook的“开发者”选项卡中打开“宏编辑器”，在VBA编辑器中编写以下代码：```vbaSub AutoReply()Dim myItem As Outlook.MailItemSet myItem = Application.CreateItem(olMailItem)myItem.Subject = "自动回复：我不在办公室"myItem.Body = "我目前不在办公室，将不会立即回复您的邮件。

我将在回到办公室后尽快回复您。

谢谢！"myItem.SavemyItem.SendEnd Sub```在代码中，您可以自定义回复的主题和内容。

当您需要启用自动回复时，只需运行此宏即可。

2. 自动保存附件如果您收到很多带有附件的邮件，手动保存每个附件可能会很耗时。

使用VBA，您可以编写一个宏来自动保存所有收到的附件。

在VBA编辑器中创建以下代码：```vbaSub SaveAttachments()Dim myItem As ObjectDim myAttachment As Outlook.AttachmentDim myFolder As StringmyFolder = "C:\附件保存路径" ' 设置附件保存的文件夹路径Set myItem = Outlook.Application.ActiveExplorer.Selection.Item(1)For Each myAttachment In myItem.AttachmentsmyAttachment.SaveAsFile myFolder & "\" & myAttachment.FileNameNext myAttachmentMsgBox "附件已保存！"End Sub```在代码中，您需要将`myFolder`变量设置为您想要保存附件的文件夹的路径。

VBA与自动化邮件发送与接收的实用技巧与邮件账号的批量操作与附件的自动下载与保存方法

VBA与自动化邮件发送与接收的实用技巧与邮件账号的批量操作与附件的自动下载与保存方法自动化邮件发送和接收是在处理大量邮件时提高工作效率的重要工具。

在VBA中，我们可以利用一些实用技巧来实现自动化发送和接收邮件的功能。

同时，批量操作邮件账号和自动下载保存附件也是VBA的另一个重要应用。

首先，我们需要了解如何发送邮件。

在VBA中，可以使用Outlook应用程序来发送邮件。

首先，我们需要在引用中添加Outlook库。

然后，我们可以使用CreateObject函数来创建一个Outlook应用程序的实例。

通过创建邮件对象并设置相应的属性，如收件人、主题、正文等，我们可以使用Send方法发送邮件。

以下是一个示例代码：```vbaSub SendEmail()Dim OutlookApp As ObjectDim MailItm As Object' 创建Outlook应用程序实例Set OutlookApp = CreateObject("Outlook.Application")' 创建邮件对象Set MailItm = OutlookApp.CreateItem(0)' 设置收件人MailItm.To="*********************"' 设置主题MailItm.Subject = "邮件主题"' 设置正文MailItm.Body = "邮件内容"' 发送邮件MailItm.Send' 释放对象Set MailItm = NothingSet OutlookApp = NothingEnd Sub```通过运行上面的代码，我们可以自动发送一封邮件至指定的收件人。

接下来，我们将了解如何自动接收和处理邮件。

同样地，我们可以使用Outlook应用程序来实现自动接收邮件的功能。

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

自动保存Outlook邮件的附件在工作中定期或不定期会收到一些数据文件，然后要将它们的附件保存到自己的电脑上，下面演示如何让Outlook自动做这件事情。

首先，下面的SaveAttach函数可以保存附件中的docx文档到D盘根目录下。

用ALT+F11打开VBA编辑器（注意：是打开Outlook的VBE编辑窗口），插入下述代码：Public Sub SaveAttach(Item As Outlook.MailItem)SaveAttachment Item, "D:\", "*.docx"' MsgBox "附件已保存"End Sub' 保存附件' path为保存路径，condition为附件名匹配条件Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")Dim olAtt As AttachmentDim i As IntegerIf Item.Attachments.Count > 0 ThenFor i = 1 To Item.Attachments.CountSet olAtt = Item.Attachments(i)' save the attachmentIf olAtt.FileName Like condition ThenolAtt.SaveAsFile path & olAtt.FileNameEnd IfNextEnd IfSet olAtt = NothingEnd Sub如何实现自动保存呢？利用Office Outlook 2007的规则，它可以设定对满足一定条件的邮件自动运行脚本，然后选择脚本为SaveAttach函数即可。

这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。

VBA在Outlook中的应用指南

VBA在Outlook中的应用指南Outlook作为一款常用的邮件管理软件，具备了丰富的功能和灵活的应用性。

然而，为了提高工作效率和自动化处理邮件的能力，我们可以利用VBA（Visual Basic for Applications）来扩展Outlook的功能。

VBA是一种强大且易于使用的编程语言，它可以让我们通过编写自定义宏来实现自动化操作。

本篇文章将带您了解如何在Outlook中应用VBA，以优化工作流程，提高效率。

首先，我们需要打开Outlook的开发工具。

选择“文件”选项卡，在“选项”下拉菜单中选择“自定义功能区”。

在弹出的对话框中，选择“主选项卡”，并勾选“开发工具”复选框。

点击“确定”按钮后，将会在Outlook主窗口的顶部出现“开发工具”选项卡。

现在，让我们来了解一些最常用的VBA代码示例，以及它们在Outlook中的应用。

1. 自动回复邮件在某些情况下，我们可能需要离开电脑一段时间，无法及时回复邮件。

为了让发件人知道我们暂时无法回复，可以编写一个自动回复邮件的VBA宏。

以下是一个示例代码：```Sub 自动回复邮件()Dim myOlApp As New Outlook.ApplicationDim ns As spaceDim inbox As Outlook.MAPIFolderDim item As ObjectSet ns = myOlApp.GetNamespace("MAPI")Set inbox = ns.GetDefaultFolder(olFolderInbox)For Each item In inbox.ItemsIf TypeOf item Is MailItem ThenDim replyMail As MailItemSet replyMail = item.replyreplyMail.Subject = "自动回复：我暂时无法回复"replyMail.Body = "很抱歉，我暂时无法回复您的邮件。

自动保存outlook附件的脚本

在工作中定期或不定期会收到一些数据文件，然后要将它们的附件保存到自己的电脑上，下面演示如何让Outlook自动做这件事情。

首先，下面的SaveAttach函数可以保存附件中的docx文档到D盘根目录下。

用ALT+F11打开VBA编辑器，插入下述代码：Public Sub SaveAttach(Item As Outlook.MailItem)SaveAttachment Item, "D:\", "*.docx"' MsgBox "附件已保存"End Sub' 保存附件' path为保存路径，condition为附件名匹配条件Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")Dim olAtt As AttachmentDim i As IntegerIf Item.Attachments.Count > 0 ThenFor i = 1 To Item.Attachments.CountSet olAtt = Item.Attachments(i)' save the attachmentIf olAtt.FileName Like condition ThenolAtt.SaveAsFile path & olAtt.FileNameEnd IfNextEnd IfSet olAtt = NothingEnd Sub如何实现自动保存呢？利用Office Outlook 2007的规则，它可以设定对满足一定条件的邮件自动运行脚本，然后选择脚本为SaveAttach函数即可。

这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。

补充：如果上面方法没效果，可以尝试修改下面的设置（由wfustc在留言中指出）在Outlook的信任中心勾选上“允许使用脚本”。

[转载]为Outlook写一个宏，批量保存邮件附件

[转载]为Outlook写⼀个宏，批量保存邮件附件原⽂地址：为Outlook写⼀个宏，批量保存邮件附件作者：燕浪客打开Outlook，执⾏"⼯具->宏->Visual Basic 编辑器"。

在⼯程视图中双击"Project1->Microsoft Office Outlook->ThisOutlookSession"，然后执⾏"插⼊->过程"，插⼊⼀个名为 SaveAttachments 的公共⼦程序，代码如下（其中蓝⾊部分是要保存附件的位置）：Public Sub SaveAttachments()Dim SaveToPath As StringSaveToPath = "C:temp"Set myfolder = Application.ActiveExplorer.CurrentFolderFor Each myitem In myfolder.ItemsFor Each myattachment In myitem.Attachmentsmyattachment.SaveAsFile SaveToPath & myattachment.FileNameNextNextMsgBox myfolder.FolderPath & " 中的所有附件都已保存到 " & SaveToPathEnd Sub保存宏然后关闭VB编辑界⾯，回到Outlook。

选中⼀个收件⽂件夹，执⾏"⼯具->宏->宏..."，选择刚才保存的ThisOutlookSession.SaveAttachments，点击"运⾏"，就把当前⽂件夹中所有附件保存到C:temp下了。

不过需要注意的是，如果有两个附件名字相同，那么后⾯保存的附件会把前⾯的覆盖。

VBA与邮件自动发送与接收的批量处理与附件操作的实际应用

VBA与邮件自动发送与接收的批量处理与附件操作的实际应用VBA（Visual Basic for Applications）是一个强大的编程语言，可以与Microsoft Office套件无缝集成，为办公自动化提供了许多便利。

其中，VBA在处理邮件自动发送与接收，并进行批量处理和附件操作方面具有广泛的应用。

自动发送与接收邮件是许多组织和个人日常工作中的重要任务之一。

借助VBA，我们可以节省大量时间和精力，并确保任务的准确执行。

首先，让我们看一下如何使用VBA实现自动发送邮件的批量处理。

要编写一个自动发送邮件的VBA程序，我们首先需要使用“Outlook.Application”对象来创建与Outlook之间的连接。

通过使用VBA代码中的“CreateObject”函数，我们可以创建一个Outlook应用程序对象。

以下是一个简单的示例，演示了如何使用VBA自动化发送邮件：```Sub SendEmail()Dim OutlookApp As ObjectDim Mail As ObjectSet OutlookApp = CreateObject("Outlook.Application")Set Mail = OutlookApp.CreateItem(0)With Mail.To="*********************".Subject = "自动发送邮件的测试".Body = "这是一个自动发送的测试邮件。

".SendEnd WithSet Mail = NothingSet OutlookApp = NothingEnd Sub```上述代码中，我们首先创建了一个Outlook应用程序对象（OutlookApp），然后使用CreateItem(0)方法创建一个邮件对象（Mail）。

接下来，我们使用With语句来设置邮件的收件人地址、主题和正文内容。

VBA自动化处理Outlook邮件的实例

VBA自动化处理Outlook邮件的实例在现代办公环境中，Outlook邮件是一种常见的沟通工具。

通过VBA自动化处理Outlook邮件，可以大大提高工作效率，减少人工操作的繁琐。

本文将介绍一些实用的VBA代码示例，帮助读者了解如何自动化处理Outlook邮件。

1. VBA自动回复在日常工作中，我们常常需要对接收到的邮件进行回复。

使用VBA自动回复功能，可以使回复过程更加高效。

以下是一个简单的示例：```vbaSub AutoReply()Dim objOL As Outlook.ApplicationDim objNS As spaceDim objFolder As Outlook.MAPIFolderDim objItem As Outlook.MailItemSet objOL = New Outlook.ApplicationSet objNS = objOL.GetNamespace("MAPI")Set objFolder = objNS.GetDefaultFolder(olFolderInbox)For Each objItem In objFolder.ItemsIf objItem.UnRead ThenobjItem.ReplyobjItem.Body = "感谢您的来信，我会尽快回复您。

"objItem.SendobjItem.UnRead = FalseEnd IfNext objItemSet objItem = NothingSet objFolder = NothingSet objNS = NothingSet objOL = NothingEnd Sub```上述代码会遍历收件箱中的邮件，对未读邮件进行自动回复，并修改邮件内容为“感谢您的来信，我会尽快回复您。

”然后将邮件发送，并将邮件标记为已读。

2. VBA自动转发除了自动回复外，有时我们还需要将邮件转发给他人。

VBA与Outlook的集成方法

VBA与Outlook的集成方法VBA（Visual Basic for Applications）是一种用于自动化任务和扩展功能的编程语言，可与多种应用程序集成。

Outlook是一款流行的电子邮件和日历管理软件。

VBA和Outlook的集成提供了一种强大的方式，可以自动化处理邮件、日历和其他Outlook功能。

本文将介绍如何使用VBA与Outlook的集成方法，以提高工作效率和自动化常见任务。

1. 引用Outlook库在使用VBA与Outlook集成之前，首先需要引用Outlook库。

在VBA编辑器中，点击“工具”->“引用”，然后勾选“Microsoft Outlook xx.x Object Library”。

这将允许您访问Outlook应用程序和相关对象模型。

2. 发送邮件VBA可以通过Outlook应用程序对象来发送邮件。

下面是一个简单的示例，展示了如何使用VBA代码发送电子邮件：```vbaDim outlookApp As Outlook.ApplicationDim outlookMail As Outlook.MailItemSet outlookApp = New Outlook.ApplicationSet outlookMail = outlookApp.CreateItem(olMailItem) With outlookMail.Subject = "邮件标题".Body = "邮件正文".To = "收件人邮箱地址".SendEnd WithSet outlookMail = NothingSet outlookApp = Nothing```通过创建Outlook应用程序对象和邮件项对象，您可以设置邮件的标题、正文、收件人等属性，并使用`.Send`方法发送邮件。

3. 自动保存邮件附件在某些情况下，您可能需要自动保存接收的附件。

VBA中的邮件自动化处理技巧详解

VBA中的邮件自动化处理技巧详解随着技术的发展和普及，电子邮件已经成为了我们日常生活和工作中必不可少的沟通工具之一。

对于那些频繁处理邮件的人来说，提高工作效率就显得尤为重要。

在这篇文章中，我们将详细介绍VBA中的邮件自动化处理技巧，以帮助您更高效地处理邮件。

一、自动发送邮件在某些情况下，我们需要定时发送邮件，例如每天早上给团队成员发送日报邮件。

通过VBA，我们可以轻松实现这一功能。

以下是实现步骤：1. 导入Outlook库：在VBA编辑器中选择“工具”-“引用”，勾选“Microsoft Outlook XX.X Object Library”。

2. 编写VBA代码：使用CreateItem方法创建Outlook应用程序对象，并设置邮件的相关属性，例如收件人、主题、正文等。

3. 设置定时发送：使用Application.OnTime方法指定发送的具体时间。

这样，您就可以利用VBA自动发送邮件，并提高工作效率。

二、自动处理邮件附件在接收邮件时，我们经常会遇到需要保存邮件附件的情况。

如果邮件较多，手动保存附件将会是一项繁琐的任务。

幸运的是，VBA可以帮助我们自动处理这个任务。

以下是实现步骤：1. 导入Outlook库：同样，在VBA编辑器中选择“工具”-“引用”，勾选“Microsoft Outlook XX.X Object Library”。

2. 编写VBA代码：使用CreateItem方法创建Outlook应用程序对象，并遍历邮件中的附件集合，使用SaveAsFile方法将附件保存到指定文件夹中。

通过这种方法，您可以自动保存邮件附件，省去了繁琐的手动操作。

三、自动过滤邮件当收件箱中充斥着大量的邮件时，找到并筛选特定邮件将是一项耗时的任务。

通过使用VBA的自动过滤功能，我们可以快速定位和处理特定类型的邮件。

以下是实现步骤：1. 导入Outlook库：同样，在VBA编辑器中选择“工具”-“引用”，勾选“Microsoft Outlook XX.X Object Library”。

Outlook2007添加答复所有人时带附件的操作方法

Outlook2007添加答复所有人时带附件的操作方法一、打开outlook，点击菜单【工具】—【宏(M)】—【宏(M)】二、输入宏名后点击创建。

三、删除默认内容四、把以下代码拷贝到VB编辑窗口内。

----------------------------------------------复制以下代码----------------------------------------------------- Sub 带附件答复()Dim rpl As Outlook.MailItemDim itm As ObjectSet itm = GetCurrentItem()If Not itm Is Nothing ThenSet rpl = itm.ReplyAllCopyAttachments itm, rplrpl.DisplayEnd IfSet rpl = NothingSet itm = NothingEnd SubFunction GetCurrentItem() As ObjectDim objApp As Outlook.ApplicationSet objApp = ApplicationOn Error Resume NextSelect Case TypeName(objApp.ActiveWindow)Case "Explorer"Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)Case "Inspector"Set GetCurrentItem = objApp.ActiveInspector.CurrentItemEnd SelectSet objApp = NothingEnd FunctionSub CopyAttachments(objSourceItem, objTargetItem)Set fso = CreateObject("Scripting.FileSystemObject")Set fldTemp = fso.GetSpecialFolder(2) ' TemporaryFolderstrPath = fldTemp.Path & "\"For Each objAtt In objSourceItem.AttachmentsstrFile = strPath & objAtt.FileNameobjAtt.SaveAsFile strFileobjTargetItem.Attachments.Add strFile, , , objAtt.DisplayNamefso.DeleteFile strFileNextSet fldTemp = NothingSet fso = NothingEnd Sub----------------------------------------------复制以上代码----------------------------------------------------- 1.粘贴后效果如下：2.点击【保存】按钮保存代码五、关闭VB编辑器窗口，打开outlook，点击菜单【视图】—【工具栏】—【自定义】六、点击【宏】选项七、按住鼠标左键拖动【回复邮件：带附件答复】到菜单工具栏的合适位置。

OutlookVBA开发保存选中邮件的所有附件到一个目录中

OutlookVBA开发保存选中邮件的所有附件到一个目录中Outlook VBA开发第二讲-保存选中邮件的所有附件到一个目录中(如有问题，请联系***************)需求：添加按钮，保存选中邮件的所有附件到一个目录中。

代码：Private WithEvents vsoCommbandSaveAttach As CommandBarButtonPrivate Sub Application_Startup()Call addTotalButtonEnd Sub增加工具栏Sub addTotalButton()On Error Resume NextDim vsoCommandBar As CommandBar‘得到要添加的工具栏Set vsoCommandBar = mandBars("ExcelClub")‘如果工具栏为空，则增加If (vsoCommandBar Is Nothing) ThenSet vsoCommandBar = mandBars.add("ExcelClub", msoBarT op)‘在工具栏上增加一个按钮Set vsoCommbandSaveAttach = vsoCommandBar.Controls.add(1) vsoCommbandSaveAttach.Caption = "Save Attachment" vsoCommbandSaveAttach.FaceId = 66vsoCommbandSaveAttach.Style = msoButtonIconAndCaption‘显示增加的工具栏vsoCommandBar.Visible = TrueElseSet vsoCommbandSaveAttach = vsoCommandBar.Controls(1) End IfEnd Sub‘增加的按钮（Save Attachment）的执行Private Sub vsoCommbandSaveAttach_Click(ByVal Ctrl As mandBarButton, CancelDefault As Boolean) ‘出现错误时下一句代码继续运行On Error Resume NextDim objItem As Outlook.MailItemDim Attachment As Outlook.Attachment‘遍历所有选中的项For Each objItem In Application.ActiveExplorer.Selection‘如果选中的是邮件If objItem.Class = olMail Then‘遍历邮件中的所有附件For Each Attachment In objItem.Attachments‘将附件保存在c盘根目录下Attachment.SaveAsFile "c:\" & Attachment.FileNameNextEnd IfNextMsgBox "附件保存在c盘根目录下"End Sub结果如图。

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

自动保存Outlook邮件的附件在工作中定期或不定期会收到一些数据文件，然后要将它们的附件保存到自己的电脑上，下面演示如何让Outlook自动做这件事情。

首先，下面的SaveAttach函数可以保存附件中的docx文档到D盘根目录下。

用ALT+F11打开VBA编辑器（注意：是打开Outlook的VBE编辑窗口），插入下述代码：Public Sub SaveAttach(Item As Outlook.MailItem)SaveAttachment Item, "D:\", "*.docx"' MsgBox "附件已保存"End Sub' 保存附件' path为保存路径，condition为附件名匹配条件Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")Dim olAtt As AttachmentDim i As IntegerIf Item.Attachments.Count > 0 ThenFor i = 1 To Item.Attachments.CountSet olAtt = Item.Attachments(i)' save the attachmentIf olAtt.FileName Like condition ThenolAtt.SaveAsFile path & olAtt.FileNameEnd IfNextEnd IfSet olAtt = NothingEnd Sub如何实现自动保存呢？利用Office Outlook 2007的规则，它可以设定对满足一定条件的邮件自动运行脚本，然后选择脚本为SaveAttach函数即可。

这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。