如何在Outlook中的文件夹中重命名和保存电子邮件附件？

您所在的位置：网站首页 › 手机如何将文件重命名发送到邮箱 › 如何在Outlook中的文件夹中重命名和保存电子邮件附件？

如何在Outlook中的文件夹中重命名和保存电子邮件附件？

2024-07-13 22:07| 来源: 网络整理| 查看: 265

如何在Outlook中的文件夹中重命名和保存电子邮件附件？作者：孙最后修改时间：2020-10-23

在Outlook中，您通常会收到带有附件的邮件，并且是否尝试重命名邮件的附件并将其保存在文件夹中，如下面的屏幕快照所示？显然，您可以将它们保存到一个文件夹中并一一重命名，但是实际上，我有一个VBA代码，可以快速重命名具有相同名称的所有附件，然后保存在一个文件夹中。 doc重命名保存附件1

重命名附件并将其保存在文件夹中

使用 Kutools for Outlook 重命名并将附件保存在文件夹中

在Outlook中回复带有原始附件的邮件众所周知，当您在Outlook中将邮件回复给收件人时，附件将从原始邮件中删除。如果您想保留附件来回复按摩，可以尝试 Kutools for Outlook's 带附件回复功能，它可以回复一封带有原始附件的邮件，也适用于所有messafe。点击可使用全部功能30天免费试用！ doc附上回复

Kutools for Outlook：拥有数十个方便的 Outlook 插件，可在 30 天内免费试用，无任何限制。 Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览，让工作变得轻而易举阅读更多下载... 解锁 Outlook 的 Kutools 免费版本立即享受超过 70 项功能，永久无限制访问自动发送电子邮件自动CC / BCC, 自动转发按规则；发送自动回复（不在办公室）无需交换服务器... 获取类似提醒 BCC警告当您在密件抄送列表中回复所有内容时，以及缺少附件时提醒对于忘记的附件... 提高电子邮件效率回复（全部）并附上附件, 自动添加问候语或日期和时间到签名或主题中, 回复多封电子邮件... 简化电子邮件发送撤回电子邮件, 附件工具（压缩全部、自动保存全部...）、删除重复及快速报告... 使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受 70 多种强大功能并提升您的电子邮件体验！阅读更多下载免费版本... 重命名附件并将其保存在文件夹中

1.选择要保存其附件的邮件，然后重命名为相同的名称。

2。按 Alt + F11 k嗯，然后在 Project1 窗格，双击本次展望会议在右侧部分创建一个新的空白脚本，然后将代码复制并粘贴到该脚本中。

VBA：重命名并保存附件

Public Sub SaveAttachsToDisk() 'UpdatebyExtendoffice20180521 Dim xItem As Object 'Outlook.MailItem Dim xSelection As Selection Dim xAttachment As Outlook.Attachment Dim xFldObj As Object Dim xSaveFolder As String Dim xFSO As Scripting.FileSystemObject Dim xFile As File Dim xFilePath As String Dim xNewName, xTmpName As String Dim xExt As String Dim xCount As Integer On Error Resume Next Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16) Set xFSO = New Scripting.FileSystemObject If xFldObj Is Nothing Then Exit Sub xSaveFolder = xFldObj.Items.Item.Path & "\" Set xSelection = Outlook.Application.ActiveExplorer.Selection xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName) If Len(Trim(xNewName)) = 0 Then Exit Sub For Each xItem In xSelection For Each xAttachment In xItem.Attachments xFilePath = xSaveFolder & xAttachment.FileName xAttachment.SaveAsFile xFilePath Set xFile = xFSO.GetFile(xFilePath) xCount = 1 Saved = False xExt = "." & xFSO.GetExtensionName(xFilePath) xTmpName = xNewName xNewName = xTmpName & xExt If xFSO.FileExists(xSaveFolder & xNewName) = False Then xFile.Name = xNewName xNewName = xTmpName Else xTmpName = Left(xNewName, Len(xNewName) - Len(xExt)) While Saved = False xNewName = xTmpName & xCount & xExt If xFSO.FileExists(xSaveFolder & xNewName) = False Then xFile.Name = xNewName xNewName = xTmpName Saved = True Else xCount = xCount + 1 End If Wend End If Next Next Set xFSO = Nothing End Sub

doc重命名将附件保存在文件夹2中