Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како да убаците датотеке са датотека из система датотека у Оутлоок фасциклу?

Обично можете импортирати поруке од датотека у систем датотека у Оутлоок фасциклу тако што ћете превући и отпустити. У овом чланку ћемо вам показати једноставан начин за уношење свих датотека датотека с датотека из датотеке у одређени фолдер Оутлоок.

Увези датотеке са датотека из система датотека у Оутлоок фасциклу са ВБА кодом


Једноставно сачувајте изабране е-поште као датотеке различитих формата у програму Оутлоок:

Помоћу програма Саве ас Филе за Кутоолс за Оутлоок можете лако сачувати више изабраних е-пошта као индивидуалну датотеку ХТМЛ датотеке, ТКСТ форматну датотеку, Ворд документ, ЦСВ датотеку као и ПДФ датотеку у Оутлоок-у као што је приказано испод.

Кутоолс за Оутлоок: са више од КСНУМКС-а корисних Оутлоок-ових додатака, слободно покушати без ограничења у КСНУМКС данима. Преузмите и пробајте сада!


Увези датотеке са датотека из система датотека у Оутлоок фасциклу са ВБА кодом

Молимо вас да урадите како слиједи увоз датотека са датотека из датотеке у одређени фолдер у програму Оутлоок.

КСНУМКС. притисните други + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор.

КСНУМКС. У Мицрософт Висуал Басиц за апликације прозор, кликните Убацити > Модули. Затим копирајте испод ВБА кода у прозор Модуле.

ВБА код: Увези датотеке са датотека из датотеке у Оутлооков фолдер

Суб ИмпортМессагесИнФолдер () Дим кФСО Као Сцриптинг.ФилеСистемОбјецт Дим кСоурцеФлд Ас Сцриптинг.Фолдер Дим кСоурцеФлдПатх Ас Стринг Дим кФилеИтем Ас Сцриптинг.Филе Дим кМСГ као објекат Дим кМаилИтем Ас МаилИтем Дим кСавеФлд Као Оутлоок.Фолдер На Грешка наставити следеће Сет кФСО = Нев Сцриптинг. . ФилеСистемОбјецт сет кСелФолдер = ЦреатеОбјецт ( "Схелл.Апплицатион") БровсеФорФолдер (КСНУМКС, "Изаберите фолдер:", КСНУМКС, КСНУМКС) Ако не типенаме (кСелФолдер) = "Ништа" Тада кСоурцеФлдПатх = кСелФолдер.селф.Патх + "\" елсе кСоурцеФлдПатх = "" Излаз Под Крај Ако Сет кСоурцеФлд = кФСО.ГетФолдер (кСоурцеФлдПатх) сет кСавеФлд = ГетОбјецт ( "", "Оутлоок.Апплицатион"). ГетНамеспаце ( "МАПИ"). ПицкФолдер Ако је типенаме (кСавеФлд) = "Ништа" zatim Екит Суб Енд Иф Фор Еацх кФилеИтем У кСоурцеФлд.Филес Сет кМСГ = Сессион.ОпенСхаредИтем (кФилеИтем.Патх) сет кМаилИтем = кМСГ.Цопи кМаилИтем.Мове кСавеФлд сет кМаилИтем = Ништа кМСГ.Делете сет кМСГ = Ништа Следећа кФилеИтем сет кФилеИтем = Нотхинг Сет кСоурцеФлд = Ништа Поставите кФСО = Н Крај Енд Суб

КСНУМКС. притисните F5 кључ за покретање кода. У отварању Претражите фасциклу дијалог, изаберите фолдер садржи датотеке са подацима које ћете увезати у фолдер Оутлоок, а затим кликните на дугме OK дугме. Погледајте снимак екрана:

КСНУМКС. Сада а Изаберите фасциклу дијалог бок појављује се, молим вас изаберите изгледи фасциклу да бисте сачували датотеке са увезеним подацима и кликните на OK дугме.

Затим се све датотеке са подацима у одређеном директоријуму у вашем фајл систему увозе у одређени фолдер Оутлоок одмах.


Повезани чланци:


Екцел алатке за продуктивност

Трака Екцел (са инсталираним Кутоолс за Екцел)

КСНУМКС + напредне функције Повећајте продуктивност за КСНУМКС%, и помоћи вам да се издвојите из гужве!

Желите ли брзо и савршено завршити свој свакодневни рад? Кутоолс Фор Екцел доноси КСНУМКС + цоол и моћне напредне функције (Комбинујте радне свеске, суму по боји, садржај раздвојене ћелије, датум конвертовања и тако даље ...) за КСНУМКС + радни сценарији, помаже вам да решите проблем КСНУМКС% Екцел проблема.

  • Уклоните све компликоване задатке у секунди, помогните да побољшате своју радну способност, добити успех од жестоке конкуренције, и никада се не бринути о отпуштању.
  • Уштедите пуно радног времена, оставите много времена да волите и бринете о породици и уживате у удобном животу.
  • Свакодневно смањите хиљаде кликова на тастатури и мишу, ослободите уморне очи и руке, и пружиће вам здраво тело.
  • Постаните стручњак за Екцел у КСНУМКС минута и уживајте у погледима својих колега или пријатеља.
  • Нема више потребе за памћењем болних формула и ВБА кодова, опуштајући и пријатан ум, пружиће вам узбуђење које никада раније нисте имали.
  • Проведите само $ КСНУМКС, али вреди од $ КСНУМКС обуке других. Користе га КСНУМКС елите и КСНУМКС + познате компаније.
  • КСНУМКС-дневно неограничено бесплатно суђење. КСНУМКС-дневна гаранција за враћање новца. Бесплатна надоградња и подршка за КСНУМКС године. Купите једном, користите заувек.
  • Промените начин на који сада радите и одмах вам пружите бољи живот!

Оффице Таб доноси ефикасне и практичне картице у Оффице (укључујући Екцел), баш као и Цхроме, Фирефок и Нови ИЕ

  • Повећава вашу продуктивност за КСНУМКС% приликом прегледања и уређивања више докумената.
  • Сваког дана смањите стотине кликова мишем за вас, опростите се од руке миша.
  • Отворите и креирајте документе на новим картицама истог прозора, а не у новим прозорима.
  • Помозите вам да радите брже и лакше се издвојите из гомиле! Једна секунда за пребацивање између десетака отворених докумената!
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.