Как импортировать файлы msg из файловой системы в папку Outlook?
Обычно вы можете импортировать файлы msg из файловой системы в папку Outlook, перетаскивая их. В этой статье мы покажем вам простой способ подробно импортировать все файлы msg из файловой системы в указанную папку Outlook.
Импортировать файлы msg из файловой системы в папку Outlook с кодом VBA
Импортировать файлы msg из файловой системы в папку Outlook с кодом VBA
Пожалуйста, сделайте следующее, чтобы импортировать файлы msg из файловой системы в указанную папку в Outlook.
1. нажмите другой + 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, а затем щелкните значок OK кнопка. Смотрите скриншот:
4. Теперь Выбор папки появится диалоговое окно, выберите Outlook папку для сохранения импортированных файлов msg и щелкните значок OK .
Затем все файлы msg в определенной папке в вашей файловой системе немедленно импортируются в указанную папку Outlook.
С легкостью сохраняйте выбранные электронные письма как файлы разных форматов в Outlook:
Для Массовое сохранение полезности Kutools for Outlook, вы можете легко сохранить несколько выбранных писем в виде отдельного файла формата HTML, файла формата TXT, документа Word, файла CSV, а также файла PDF в Outlook, как показано в демонстрации ниже.
Скачайте и попробуйте прямо сейчас! (60-дневный бесплатный пробный период)
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
