如何在Outlook中将多个选定的电子邮件批量保存为MSG文件?
在Outlook中将电子邮件另存为MSG文件很容易。 如何在Outlook中批量保存多个选定的电子邮件作为单个MSG文件? 本文将向您展示一种实现它的方法。
使用VBA代码将多个选定的电子邮件另存为MSG文件
以下VBA代码可以帮助您在Outlook中批量存储多个选定的电子邮件作为单个MSG文件。 请执行以下操作。
1.选择要另存为MSG文件的电子邮件。 然后,同时按Alt + F11键以打开“ Microsoft Visual Basic应用程序”窗口。
2.在“ Microsoft Visual Basic应用程序”窗口中,单击“插入”>“模块”,然后将以下VBA代码复制到“模块”窗口中。
VBA代码:将多个选定的电子邮件另存为Outlook中的单个MSG文件
Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
Set xFolderItem = xFolder.self
xFileName = xFolderItem.Path & "\"
Else
xFileName = ""
Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
If xObjItem.Class = olMail Then
Set xMail = xObjItem
xName = xMail.Subject
xDtDate = xMail.ReceivedTime
xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
vbUseSystem) & Format(xDtDate, "-hhnnss", _
vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
xPath = xFileName + xName
xMail.SaveAs xPath, olMSG
End If
Next
End Sub
3.按F5键运行代码。
4.在“浏览文件夹”对话框中,请指定一个文件夹以保存MSG文件,然后单击“确定”按钮。 看截图:
现在,所有选择的电子邮件都保存为单个MSG文件,如下图所示。
在Outlook中轻松将选定的电子邮件另存为不同格式的文件:
随着 批量保存 实用程序 Kutools for Outlook,您可以轻松地将多个选定的电子邮件另存为Outlook中的单个HTML格式文件,TXT格式文件,Word文档,CSV文件以及PDF文件,如下图所示。 立即下载并试用! (60 天免费试用)
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。