Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
Увійти
x
or
x
x
Реєстрація
x

or

Як імпортувати файли з файлової системи в папку Outlook?

Зазвичай, ви можете імпортувати файли з файлової системи в папку Outlook, перетягнувши їх. У цій статті ми збираємося показати вам простий спосіб імпорту всіх файлів повідомлень з файлової системи у вказану папку Outlook докладніше.

Імпортувати файли з файлової системи в папку Outlook з кодом VBA


Легко збережіть вибрані електронні листи як різні файли формату в Outlook:

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

Kutools для Outlook: з додатковими доповненнями, що перевищують 40, зручні для Outlook, можна безкоштовно пробувати без обмежень в днях 45. Завантажити та безкоштовну пробну версію зараз!


Імпортувати файли з файлової системи в папку Outlook з кодом VBA

Будь ласка, виконайте такі дії, щоб імпортувати файли з файлової системи у вказану папку в Outlook.

1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть вставка > Модулі. Потім скопіюйте нижче код VBA у вікно модуля.

Код VBA: Імпортувати файли з файлової системи в папку Outlook

Sub ImportMessagesInFolder () Dim xFSO як Scripting.FileSystemObject Dim xSourceFld Як Scripting.Folder Dim xSourceFldPath Як String Dim xFileItem Як Scripting.File Dim xMSG Як об'єкт Dim xMailItem Як MailItem Dim xSaveFld Як Outlook.Folder На помилці Відновити Наступний Встановити xFSO = Нові скрипти. Налаштування FileSystemObject xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Вибрати папку:", 0, 0) Якщо TypeName (xSelFolder) = "Нічого", то xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Вийти з Sub End Якщо встановлено xSourceFld = xFSO.GetFolder (xSourceFldPath) Встановіть xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder Якщо TypeName (xSaveFld) = "Нічого" Тоді Вихід Sub End Якщо для кожного xFileItem у xSourceFld.Files встановіть xMSG = Session.OpenSharedItem (xFileItem.Path) Встановіть xMailItem = xMSG.Copy xMailItem.Move xSaveFld Набір xMailItem = Нічого xMSG.Delete Set xMSG = Нічого Наступного xFileItem Set xFileItem = Нічого Встановити xSourceFld = Nothing Set xFSO = N othing end sub

3 Натисніть кнопку F5 ключ для запуску коду. У відкритті Переглянути папку діалогове вікно, виберіть папку містить файли msg, які ви імпортуєте в папку Outlook, а потім натисніть кнопку OK кнопка Див. Знімок екрана:

4 Тепер а Вибір папки з'явиться діалогове вікно, будь ласка, виберіть прогноз папку, щоб зберегти імпортовані файлові файли і натисніть кнопку OK кнопки.

Потім всі файли повідомлень у певній папці у вашій файловій системі негайно імпортуються в певну папку Outlook.


Статті по темі:


Інструменти продуктивності Excel

Стрічка Excel (з встановленою Kutools для Excel)

300 + Додаткові можливості Збільшіть продуктивність на 70% і допоможуть вам виділитися з натовпу!

Хочете швидко і досконало завершити свою щоденну роботу? Kutools для Excel приносить 300 + круті та потужні розширені функції (Об'єднати книги, суму за кольором, вміст розділених комірок, дату перетворення і т.д. ...) Робочі сценарії 1500 +, допомагає вирішити Проблеми 80% Excel.

  • Здійснюйте всі складні завдання за лічені секунди, допоможіть підвищити вашу працездатність, отримувати успіх від жорсткої конкуренції, і ніколи не турбуватися про те, звільнені.
  • Заощаджуйте багато робочого часу, залишайте багато часу для вас, щоб любити і піклуватися про сім'ю і насолоджуватися комфортним життям зараз.
  • Зменшуйте тисячі клацань і клацань миші щодня, зніміть втомлені очі і рукиі дасть вам здорове тіло.
  • Станьте експертом Excel у хвилинах 3 і отримайте захоплюючий погляд від своїх колег або друзів.
  • Більше не потрібно запам'ятовувати будь-які болючі формули і коди VBA, мати розслабляючий і приємний розум, дати вам гострі відчуття, яких ніколи раніше не було.
  • Витрачайте тільки $ 39, але вартістю, ніж $ 4000 навчання інших. Використовуються елітами 110,000 і відомими компаніями 300 +.
  • 60-денна необмежена безкоштовна пробна версія. Гарантія повернення грошей 60-день. Безкоштовне оновлення та підтримка 2 років. Купуйте один раз, використовуйте назавжди.
  • Змініть те, як ви зараз працюєте, і негайно подаруйте вам краще життя!

Вкладка Office дає ефективні та зручні вкладки для Office (включаючи Excel), як і Chrome, Firefox і New 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.