Как импортировать файлы MSG из файловой системы в папку Outlook?
Обычно файлы MSG можно импортировать из файловой системы в папку Outlook простым перетаскиванием. В этой статье мы подробно покажем вам, как легко импортировать все файлы MSG из файловой системы в нужную папку Outlook.
Импорт файлов MSG из файловой системы в папку Outlook с помощью кода VBA
Импорт файлов MSG из файловой системы в папку Outlook с помощью кода VBA
Выполните следующие действия, чтобы импортировать файлы MSG из файловой системы в нужную папку Outlook.
1. Нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите пункт Вставка > Модуль, затем скопируйте приведённый ниже код 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)
If Not TypeName(xSelFolder) = "Nothing" Then
xSourceFldPath = xSelFolder.self.Path + "\"
Else
xSourceFldPath = ""
Exit Sub
End If
Set xSourceFld = xFSO.GetFolder(xSourceFldPath)
Set xSaveFld = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder
If TypeName(xSaveFld) = "Nothing" Then
Exit Sub
End If
For Each xFileItem In xSourceFld.Files
Set xMSG = Session.OpenSharedItem(xFileItem.Path)
Set xMailItem = xMSG.Copy
xMailItem.Move xSaveFld
Set xMailItem = Nothing
xMSG.Delete
Set xMSG = Nothing
Next xFileItem
Set xFileItem = Nothing
Set xSourceFld = Nothing
Set xFSO = Nothing
End Sub3. Нажмите клавишу F5, чтобы запустить код. В открывшемся диалоговом окне Выбор папки выберите папку, содержащую файлы MSG, которые вы хотите импортировать в папку Outlook, и нажмите кнопку ОК. См. снимок экрана:
4. Теперь появится диалоговое окно Выбор папки. Выберите папку Outlook, в которую будут сохранены импортированные файлы MSG, и нажмите кнопку ОК.
Теперь все файлы MSG из выбранной папки вашей файловой системы мгновенно импортируются в указанную папку Outlook.
Легко сохраняйте выделенные письма в Outlook в виде файлов различных форматов:
С помощью утилиты Пакетное сохранение из Kutools для Outlook вы можете легко сохранить несколько выделенных писем по отдельности в форматах HTML, TXT, документов Word, файлов CSV и PDF в Outlook — как показано на демонстрации ниже.
Скачайте бесплатную версию Kutools для Outlook прямо сейчас! /a>
Связанные статьи:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек