Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как импортировать файлы MSG из файловой системы в папку Outlook?

Обычно вы можете импортировать файлы MSG из файловой системы в папку Outlook путем перетаскивания. В этой статье мы покажем вам простой способ для импорта всех файлов msg из файловой системы в указанную папку Outlook.

Импортируйте файлы msg из файловой системы в папку Outlook с кодом VBA


Легко сохранять выбранные письма в виде файлов разных форматов в Outlook:

С помощью утилиты «Сохранить как файл» для Kutools для Outlook вы можете легко сохранить несколько выбранных писем в виде отдельных файлов формата HTML, файла формата TXT, документа Word, файла CSV, а также файла PDF в Outlook, как показано ниже.

Kutools for Outlook: с более чем 40 удобными надстройками Outlook, бесплатно попробовать без ограничений в 45-дни. Скачать и бесплатно пробную версию!


Импортируйте файлы 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 Установите xFSO = Новый скрипт. FileSystemObject Установите xSelFolder = CreateObject («Shell.Application»). BrowseForFolder (0, «Выбрать папку:», 0, 0) Если не TypeName (xSelFolder) = «Nothing», тогда xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Exit Sub End If Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Устанавливает xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Если TypeName (xSaveFld) = "Nothing" Затем выйдите из Sub End If для каждого xFileItem в xSourceFld.Files Установите xMSG = Session.OpenSharedItem (xFileItem.Path) Установите xMailItem = xMSG.Copy xMailItem.Move xSaveFld Установите xMailItem = Nothing xMSG.Delete Установите xMSG = Nothing Далее xFileItem Установите xFileItem = Nothing Установить xSourceFld = Nothing Установить xFSO = N othing End Sub

3. нажмите F5 для запуска кода. В открытии Просмотр папки диалоговое окно, выберите папку, содержащую файлы msg, которые вы импортируете в папку Outlook, а затем нажмите OK кнопка. Смотрите скриншот:

4. Теперь Выбор папки появится диалоговое окно, выберите Outlook папку для сохранения импортированных файлов msg и нажмите OK Кнопка.

Затем все файлы msg в определенной папке в вашей файловой системе немедленно импортируются в указанную папку Outlook.


Статьи по теме:



Рекомендуемые инструменты производительности

Office Tab

золото star1 Принесите удобные вкладки в Excel и другое программное обеспечение Office, как Chrome, Firefox и новый Internet Explorer.

Kutools for Excel

золото star1 Удивительно! Увеличьте производительность в течение 5 минут. Не нужно никаких специальных навыков, сэкономить два часа каждый день!

золото star1 Новые возможности 300 для Excel, сделать Excel намного проще и мощнее:

  • Объединить ячейки / строки / столбцы без потери данных.
  • Объединение и объединение нескольких листов и книг.
  • Сравнение диапазонов, копирование нескольких диапазонов, преобразование текста в дату, преобразование единиц и валют.
  • Подсчет количества цветов, Пейджинговые субтитры, Расширенный сортировка и Суперфильтр,
  • Подробнее Выбрать / Вставить / Удалить / Текст / Формат / Ссылка / Комментарий / Рабочие книги / Рабочие листы Инструменты ...

Снимок экрана Kutools для Excel

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 · 10 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.