提示:其他语言是Google翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何将msg文件从文件系统导入Outlook文件夹?

通常,您可以通过拖放将msg文件从文件系统导入到Outlook文件夹。 在本文中,我们将向您展示一种简单的方法,将详细介绍从文件系统导入所有msg文件到指定的Outlook文件夹。

使用VBA代码将msg文件从文件系统导入Outlook文件夹


在Outlook中轻松将选定的电子邮件保存为不同的格式文件:

使用Kutools for Outlook的另存为文件实用程序,您可以轻松地将多个选定的电子邮件保存为单独的HTML格式文件,TXT格式文件,Word文档,CSV文件以及Outlook中的PDF文件,如下面的屏幕截图所示。

Kutools for Outlook:比40更方便的Outlook加载项,可以在45天免费试用。 下载并免费试用现在!


使用VBA代码将msg文件从文件系统导入Outlook文件夹

请按照以下步骤将msg文件从文件系统导入Outlook中的指定文件夹。

1。 按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中,单击 插页 > 模块。 然后将VBA代码复制到模块窗口中。

VBA代码:将msg文件从文件系统导入Outlook文件夹

Sub ImportMessagesInFolder()Dim xFSO As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath As String Dim xFileItem As Scripting.File Dim xMSG As Object Dim xMailItem As MailItem Dim xSaveFld As Outlook.Folder On Error Resume Next Set xFSO = New Scripting。 FileSystemObject Set xSelFolder = CreateObject(“Shell.Application”)。BrowseForFolder(0,“Select a folder:”,0,0)如果不是TypeName(xSelFolder)=“Nothing”那么xSourceFldPath = xSelFolder.self.Path +“\”其他xSourceFldPath =“”退出子结束如果设置xSourceFld = xFSO.GetFolder(xSourceFldPath)设置xSaveFld = GetObject(“”,“Outlook.Application”)。GetNamespace(“MAPI”)。PickFolder如果TypeName(xSaveFld)=“Nothing”然后退出子结束如果对于xSourceFld.Files中的每个xFileItem设置xMSG = Session.OpenSharedItem(xFileItem.Path)设置xMailItem = xMSG.Copy xMailItem.Move xSaveFld设置xMailItem = Nothing xMSG.Delete设置xMSG = Nothing Next xFileItem Set xFileItem = Nothing设置xSourceFld = Nothing设置xFSO = N 没有End Sub

3。 按 F5 键来运行代码。 在开幕式上 浏览文件夹 对话框中,选择包含将导入到Outlook文件夹的msg文件的文件夹,然后单击 OK 按钮。 看截图:

4。 现在a 选择“文件夹” 弹出对话框,请选择一个 Outlook 保存导入的msg文件的文件夹,然后单击 OK 按钮。

然后将文件系统中某个文件夹中的所有msg文件立即导入到指定的Outlook文件夹中。


相关文章:


Excel生产力工具

Excel功能区(安装了Kutools for Excel)

300 +高级功能通过70%提高您的工作效率,并帮助您脱颖而出!

您想快速完美地完成日常工作吗? Kutools For Excel 带来 300 +酷炫强大的高级功能 (合并工作簿,按颜色求和,拆分单元格内容,转换日期等等) 1500 +工作场景,帮你解决 80%Excel问题.

  • 在几秒钟内处理所有复杂的任务,有助于提高您的工作能力从激烈的竞争中获得成功,从不担心被解雇。
  • 节省大量的工作时间,为您留下充足的时间来爱和关爱家庭,享受舒适的生活.
  • 每天减少数千次键盘和鼠标点击,减轻疲劳的眼睛和手,给你一个健康的身体。
  • 成为3分钟的Excel专家,从同事或朋友那里获得钦佩之情.
  • 不再需要记住任何痛苦的公式和VBA代码,拥有一个轻松愉快的心灵,给你一个前所未有的快感。
  • 仅花费$ 39,但价值超过其他人的4000培训。 被110,000精英和300 +知名公司使用。
  • 60天无限免费试用。 60天退款保证。 免费升级和支持2年。 买一次,永远使用。
  • 改变你现在的工作方式,立即给你更好的生活!

Office选项卡为Office(包括Excel)提供高效且便捷的选项卡,就像Chrome,Firefox和新IE一样

  • 查看和编辑多个文档时,可将您的工作效率提高50%。
  • 每天为您减少数百次鼠标点击,告别鼠标手。
  • 在同一窗口的新选项卡中打开并创建文档,而不是在新窗口中创建。
  • 帮助您更快速,更轻松地脱颖而出! 一秒钟在几十个打开的文件之间切换!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Amey Thombre · 11 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.