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

or

Як імпартаваць MSG файлаў з файлавай сістэмы ў тэчку Outlook?

Як правіла, вы можаце імпартаваць MSG файлаў з файлавай сістэмы ў тэчку Outlook, з дапамогай перацягвання. У гэтым артыкуле мы збіраемся паказаць вам просты спосаб, каб імпартаваць ўсе файлы MSG з файлавай сістэмы ў паказаную тэчку Outlook, у дэталях.

Імпарт MSG файлаў з файлавай сістэмы ў тэчку Outlook з VBA кода


Лёгка захоўваць выбраныя паведамленні як розныя файлы фармату ў Outlook:

З Захаваць як файл карыснасць Kutools для Outlook, вы можаце лёгка захаваць некалькі абранага emailsas асобных HTML-фармат файл, фармат файл TXT, дакумент Word, CSV файл, а таксама PDF-файл у Outlook, як паказана ніжэй паказаў скрыншот.

Kutools для Outlook,: З больш чым 40 зручнага Outlook, надбудовы, бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 45 дзён. Спампаваць і бясплатную пробную версію зараз!


Імпарт MSG файлаў з файлавай сістэмы ў тэчку Outlook з VBA кода

Калі ласка, выканайце наступныя дзеянні для імпарту MSG файлаў з файлавай сістэмы ў паказаную тэчку ў Outlook.

1. націсніце Alt + F11 ключы, каб адкрыць Microsoft Visual Basic для прыкладанняў акна.

2. у Microsoft Visual Basic для прыкладанняў вокны, націсніце Уставіць > Модулі, Затым скапіюйце ніжэй VBA код у акно модуля.

VBA код: Імпарт MSG файлаў з файлавай сістэмы ў тэчку Outlook,

Sub ImportMessagesInFolder () Dim xFSO Як Scripting.FileSystemObject Dim xSourceFld Як Scripting.Folder Dim xSourceFldPath As String Dim xFileItem Як Scripting.File Dim xMSG As Object Dim xMailItem Як MailItem Dim xSaveFld Як Outlook.Folder On Error Resume Next Set xFSO = Новы Scripting. . FileSystemObject Set xSelFolder = CreateObject ( "Shell.Application") BrowseForFolder (0, "Выбраць тэчку:", 0, 0) Калі не TypeName (xSelFolder) = "Нічога" Тады xSourceFldPath = xSelFolder.self.Path + "\" інакш xSourceFldPath = "" Exit Sub End If Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Set xSaveFld = GetObject ( "", "Outlook.Application"). GetNamespace ( "MAPI"). PickFolder If TypeName (xSaveFld) = "Нічога" тады Exit Sub End If For Each xFileItem У xSourceFld.Files Набор xMSG = Session.OpenSharedItem (xFileItem.Path) Set xMailItem = xMSG.Copy xMailItem.Move xSaveFld Set xMailItem = Nothing Set xMSG.Delete xMSG = Nothing Next xFileItem Set xFileItem = Nothing набор xSourceFld = Nothing Set xFSO = N ішто End Sub

3. націсніце F5 ключ для запуску кода. У адкрыцці Агляд тэчак дыялогавае акно, абярыце тэчку змяшчае ГЗС файлы будуць імпартаваныя ў тэчку Outlook, а затым націсніце OK кнопка. Глядзіце скрыншот:

4. цяпер выбар тэчкі з'яўляецца дыялогавае акно, калі ласка, абярыце Прагноз папка для захавання імпартаваных файлаў MSG, і націсніце OK кнопкі.

Тады ўсё MSG файлаў у пэўнай тэчцы ў файлавай сістэме, неадкладна імпартаваныя ў паказаную тэчку Outlook.


Артыкулы па тэме:



Рэкамендаваны інструменты для павышэння прадукцыйнасці

ўкладка Упраўленне

золата star1 Прынясіце зручныя укладкі ў Excel і іншыя офісныя праграмы, гэтак жа, як Chrome, Firefox і новы Internet Explorer.

Kutools для Excel

золата star1 Дзіўна! Павышэнне прадукцыйнасці ў 5 хвілін. Не трэба ніякіх спецыяльных навыкаў, захаваць абодва гадзіны кожны дзень!

золата star1 300 Новыя магчымасці для Excel, зрабіць Excel Шмат Лёгкі і магутны:

  • Зліццё клетак / радкоў / слупкоў без страты дадзеных.
  • Аб'яднанне і аб'яднанне некалькіх лістоў і працоўных кніг.
  • Параўнанне дыяпазонаў, капіраванне некалькіх дыяпазонаў, пераўтварэнне тэксту ў дату, групу і валютнай канверсію.
  • Граф па Colors, пэйджынгавай подытогами, Advanced Сартаванне і супер фільтр,
  • Больш Select / Insert / Delete / Тэкст / Фармат / Спасылка / каментар / Workbooks / Рабочыя лісты Інструменты ...

Здымак экрана 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.