Note: The other languages of the website are Google-translated. Back to English

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

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

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

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


在Outlook中回复带有原始附件的邮件

众所周知,当您在Outlook中将邮件回复给收件人时,附件将从原始邮件中删除。 如果您想保留附件来回复按摩,可以尝试 Kutools 展望's 带附件回复 功能,它可以回复一封带有原始附件的邮件,也适用于所有messafe。    点击可使用全部功能60天免费试用!
 
doc附上回复
 
Kutools for Outlook:具有数十个方便的Outlook加载项,可以在60天内免费试用,没有限制。
Office选项卡-在Office中启用选项卡式编辑和浏览,并使工作更加容易...
Kutools for Outlook-为Microsoft Outlook带来100种强大的高级功能
  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 按规则发送多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -如果您的邮件地址在密件抄送列表中,则当您尝试全部答复时显示消息; 缺少附件时提醒,还有更多提醒功能...
  • 回复(全部)带有所有附件 在邮件对话中; 一次回复许多电子邮件; 自动添加问候语 回复时自动将日期和时间添加到主题中...
  • 附件工具:自动分离,全部压缩,重命名,自动保存所有... 快速报告,计算所选邮件, 删除重复的邮件和联系人...
  • 超过100种高级功能将 解决您的大部分问题 在 Outlook 2021 - 2010 或 Office 365 中。完整功能 60 天免费试用。

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

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中

3。 点击 鑫安工具 > 参考资料,在弹出的对话框中,选中 Microsoft脚本运行时 复选框。

doc重命名将附件保存在文件夹3中 doc箭头向右 doc重命名将附件保存在文件夹4中

4。 点击 OK, 按 F5 运行代码的关键 浏览文件夹 弹出对话框,用于选择或创建用于放置附件的文件夹。
doc重命名将附件保存在文件夹5中

5。 点击 OK,然后为附件命名。
doc重命名将附件保存在文件夹6中

6。 点击 OK,现在附件将重命名为相同的名称,如果有重复项,则重复的附件将添加数字作为后缀。


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

其实有一个功能 Kutools 展望 -Outlook的便捷加载项工具可以在保存或发送之前重命名所有附件。

Kutools for Outlook , 包括
100
 Microsoft Outlook 2016、2013、2010和Office 365的强大功能和工具。

免费安装 Kutools for Outlook,然后执行以下步骤:

1.根据需要在负窗格或“消息”框中激活电子邮件,单击 库工具 > 附件工具重命名全部.
doc重命名保存附件2

2.在弹出对话框中,键入用于每个附件的新名称。 请点击 OK,附件已使用新名称重命名。
doc重命名保存附件3 

3.右键单击一个附件,选择 保存所有附件,单击“ OK 然后选择一个文件夹以根据需要保存附件。 然后,已重命名的附件已保存在文件夹中。
doc重命名保存附件5 
doc重命名保存附件5


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
按评论排序
注释 (4)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
嘿! 您知道我们如何改进以下代码以在保存时重命名文件吗?

公共子 UnzipFileInOutlook(itm 作为 Outlook.MailItem)
将 objAtt 调暗为 Outlook.Attachment
将 saveFolder 调暗为字符串
saveFolder = "C:\Users\acheng\Desktop"
对于 itm.Attachments 中的每个 objAtt
objAtt.SaveAsFile 保存文件夹
设置 objAtt = 无
下一页
END SUB
该评论由网站上的主持人最小化
你好,Lipe,也许这段代码可以帮助你。

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
将 xCopiedAppointment 调暗为 Outlook.AppointmentItem
将 xMovedAppointment 调暗为 Outlook.AppointmentItem
将 xMeeting 调暗为 MeetingItem
将 xApoint 调暗为 AppointmentItem
出错时继续下一步
如果 Item.Class = olAppointment 那么
设置 xApoint = 项目
设置 xCopiedAppointment = xApoint.Copy
设置 xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
如果 xApoint.Subject <> xMovedAppointment.Subject 那么
如果 InStr(1, xMovedAppointment.Subject, "复制:") > 0 那么
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "复制: ", "", 1, 1)
xMovedAppointment.保存
结束如果
结束如果
ElseIf Item.Class = olMeetingRequest 然后
设置 xMeeting = 项目
设置 xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
设置 xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
如果 xMeeting.Subject <> xMovedAppointment.Subject 那么
如果 InStr(1, xMovedAppointment.Subject, "复制:") > 0 那么
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "复制: ", "", 1, 1)
xMovedAppointment.保存
结束如果
结束如果
xCopiedAppointment.Delete
结束如果
设置 xCopiedAppointment = 无
END SUB
该评论由网站上的主持人最小化
你好! 如果有多个电子邮件,这将如何工作? 这仅适用于同一电子邮件中的多个附件吗? 谢谢!
该评论由网站上的主持人最小化
谢谢,我们必须竭尽全力去做一些应该由应用程序处理的事情,这太荒谬了
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护