Съвет: Други езици са преведени от 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

() DimFFSF As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath Като стринг Dim xFileItem като Scripting.File Dim xMSG Като обект Dim xMailItem Като MailItem Dim xSaveFld Като Outlook.Folder при възобновяване на грешката След това Задайте xFSO = Ново скриптово. (0, "Избор на папка:", 0, 0) Ако не е Тип (xSelFolder) = "Нищо" Тогава xSourceFldPath = xSelFolder.self.Path + "\ "PickFolder" Ако TypeName (xSaveFld) = "Нищо" не може да се изтрие. След това излезте от подразделението Ако за всеки xFileItem в xSourceFld.Files Задайте xMSG = Session.OpenSharedItem (xFileItem.Path) Задайте xMailItem = xMSG.Copy xMailItem.Move xSaveFld Задайте xMailItem = Нищо xMSG.Delete Задайте xMSG = Нищо Следваща xFileItem Задаване xFileItem = Нищо Задаване xSourceFld = Нищо Зададено xFSO = N в края

3. Натисни F5 ключ за изпълнение на кода. В отварянето Търсене за папка диалоговия прозорец, изберете папката съдържа съобщенията, които ще импортирате в папката на Outlook, след което щракнете върху OK бутон. Вижте екранна снимка:

4. Сега а Изберете папка диалогов прозорец се появява, моля изберете перспектива папка, за да запазите файловете за импортирани съобщения, и щракнете върху OK бутон.

След това всички файлове с файлове в определена папка във вашата файлова система се внасят незабавно в определена папка на Outlook.


Още по темата:



Препоръчителни инструменти за производителност

Таб на Office

златна звезда1 Носете удобни раздели в Excel и друг софтуер на Office, също като Chrome, Firefox и новия Internet Explorer.

Kutools за Excel

златна звезда1 Невероятно! Увеличете производителността си в 5 минути. Не се нуждаете от специални умения, освен два часа всеки ден!

златна звезда1 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.