Note: The other languages of the website are Google-translated. Back to English

Как автоматически загружать / сохранять вложения из Outlook в определенную папку?

Вообще говоря, вы можете сохранить все вложения одного письма, нажав Вложения > Сохранить все вложения в Outlook. Но если вам нужно сохранить все вложения из всех полученных электронных писем и полученных электронных писем, есть идеи? В этой статье будут представлены два решения для автоматической загрузки вложений из Outlook в определенную папку.


Автоматически загружать вложения Outlook в папку с VBA и правилом

Этот метод представит сценарий VBA и запустит этот сценарий с правилом для автоматической загрузки и сохранения вложений Outlook в определенную папку. Пожалуйста, сделайте следующее:

1, нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте ниже сценарий VBA в новое открывающееся окно модуля.

VBA: автоматическое сохранение вложений Outlook в определенную папку

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Внимание: Пожалуйста, узнайте sSaveFolder = "C: \ Users \ DT168 \ Documents \ outlook-attachments \"и замените путь к целевой папке, как вам нужно.

3. Сохраните сценарий VBA и закройте окно Microsoft Visual Basic для приложений.

4, Перейти к почта просмотрите и щелкните Главная > Правила > Управление правилами и предупреждениями. Смотрите скриншот:

5. В открывшемся диалоговом окне «Правила и предупреждения» нажмите кнопку Новое правило Кнопка на Правила электронной почты таб. Смотрите скриншот:

6. Теперь в диалоговом окне мастера правил щелкните, чтобы выбрать Применить правило для сообщений, которые я получаю и нажмите Далее кнопку.

7. В диалоговом окне мастера правил (какие условия вы хотите проверить?) Снимите флажок с любого параметра и нажмите кнопку Далее кнопка. А затем нажмите Да во всплывающем диалоговом окне Microsoft Outlook. Смотрите скриншот:

8. Теперь в диалоговом окне мастера правил (что вы хотите сделать с сообщением?), Пожалуйста: (1) Проверить запустить сценарий вариант; (2) Щелкните текст скрипт чтобы открыть диалоговое окно Select Script, выберите сценарий, который мы добавили на шаге 2, и нажмите кнопку OK кнопка; (3) Нажмите Далее кнопку.

9. В диалоговом окне мастера правил (есть ли исключения?) Щелкните значок Далее кнопку напрямую.

10. Теперь в последнем диалоговом окне мастера правил укажите имя правила в Шаг 1 выберите нужные параметры в Шаг 2 и нажмите Завершить кнопку.

11. Закройте диалоговое окно «Правила и предупреждения».

И теперь все вложения загружаются из вашей учетной записи электронной почты и сохраняются в указанной папке назначения. И все вложения входящих писем будут автоматически загружены и сохранены в указанную папку.


Автоматически загружать вложения Outlook в папку с помощью Kutools for Outlook

Если у вас установлен Kutools for Outlook, вы можете применить его Авто отсоединение возможность автоматически загружать все вложения Outlook и легко сохранять их в определенной папке.

Kutools для Outlook: Добавьте более 100 удобных инструментов для Outlook, вы можете попробовать их бесплатно без ограничений в течение 60 дней. Читать далее      Бесплатная пробная версия

1. Нажмите Кутулс > Авто отсоединение > Включить для включения функции автоматического отключения.

2. Продолжайте нажимать Кутулс > Авто отсоединение > Диспетчер автоматического отключения.

3. В диалоговом окне "Автоматическое отключение вложений" установите флажок Автоматически отсоединить все полученные вложения вариант, а затем настройте следующим образом:
(1) Нажмите кнопку просмотра  указать папку назначения для сохранения автоматически отключаемых вложений;
(2) Необязательно проверять Создайте подпапки в следующем стиле вариант, а затем выберите один стиль подпапки из раскрывающегося списка ниже;
(3) Необязательно проверять Только отсоедините насадки со следующим расширением вариант, а затем введите расширения файла вложения в поле ниже;
(4) Необязательно проверять значок вложения по-прежнему остается в письмах настройки.

Внимание: Если вам нужно автоматически откреплять вложения отправителями, вы можете проверить Автоотключение вложений по правилам вариант, щелкните Новое , а затем введите адрес электронной почты отправителя и укажите папку назначения во втором диалоговом окне «Автоматическое отключение вложений».

4, Нажмите Ok чтобы сохранить настройки.

С этого момента все вложения (или вложения с указанными расширениями файлов, или вложения от указанных отправителей в зависимости от ваших настроек) будут автоматически сохраняться.

Внимание: Вы можете применить Kutools для Outlook Отключить все (Вложения) или Сохранить все (Вложения) для быстрой загрузки / сохранения всех вложений из нескольких / всех полученных писем в Outlook.


Демонстрация: автоматически загружать вложения Outlook в папку с помощью Kutools for Outlook


Функции: В этом видео, Кутулс вкладка добавлена Kutools для Outlook. Если вам это нужно, нажмите здесь получить 60-дневную бесплатную пробную версию без ограничений!


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


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (104)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Всем привет. Скрипт у меня не работает. Нужно сделать еще кое-что. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" Для каждого oAttachment в MItem.Attachments oAttachment .SaveAsFile sSaveFolder и oAttachment.DisplayName Next End Sub
Шринивас
Этот комментарий был сведен к минимуму модератором на сайте
Привет, SRINIVAS, я считаю, что вам нужно добавить букву диска в начало вашей ссылки. т.е. C:\users\test\etc Надеюсь, это поможет! Андрей
Эндрю
Этот комментарий был сведен к минимуму модератором на сайте
В VBA вам также необходимо добавить последнюю обратную косую черту в конце пути к файлу. Следующее. "D:\АутлукАтачментс\" Надеюсь, это решит все проблемы. Мэтт
Мэтт
Этот комментарий был сведен к минимуму модератором на сайте
HI

сценарий VBA отлично сработал для меня ..... один раз - больше никогда.

Я даже удалял файлы в папке и заново запускал и ничего.

Что я делаю не так ? - правило работает, так как я получаю одновременное отображение предупреждения
Дейв Браммер
Этот комментарий был сведен к минимуму модератором на сайте
[quote]Привет всем. У меня не работает скрипт. Мне нужно сделать кое-что еще. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" Для каждого oAttachment в MItem.Attachments oAttachment .SaveAsFile sSaveFolder и oAttachment.DisplayName Next End SubШринивас[/quote] То же самое здесь, я пробовал все варианты, я чувствую, что скрипт работает, но я все еще не вижу, чтобы файлы загружались по указанному пути моего компьютера.
Кальян
Этот комментарий был сведен к минимуму модератором на сайте
скрипт, кажется, тоже не работает, все запрограммировано нормально, код и т. д., и никакие вложения не вытягиваются, когда я запускаю правило ?? работает на офис 2007? есть идеи почему??
Дэнни
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я попробовал вариант 1 (автоматически загружать вложения Outlook в папку с VBA и правилом), и он отлично работает. У меня есть следующие два вопроса: i) Есть ли способ загрузить одно и то же вложение по нескольким общим путям с расширением файла? ii) Он также сохраняет вложение с курсором на A1 на каждом листе, и лист1 должен быть выбран. Таким образом, при открытии файла из пути лист должен быть открыт с курсором на A1. Огромное спасибо заранее!! С уважением, Бхавеш Лухана
Бхавеш Лухана
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли применить это правило или подобное к версии Outlook для веб-почты?
Евгений
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я пытался выполнить шаги, как указано. но я не получаю опцию «запустить скрипт» после сохранения макроса. Я включил макросы, перезапустил Outlook несколько раз. но это все равно вариант все равно не работает. Пожалуйста помоги. Спасибо!
Авника Растоги
Этот комментарий был сведен к минимуму модератором на сайте
Согласен с АВНИКОЙ. У меня такая же проблема :-|
Динуше
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я пытался выполнить шаги, как указано, я выбрал все вышеперечисленные параметры, но после выбора параметра «запустить сценарий» и выбора ссылки «сценарий» я не получаю сценарий в этом диалоговом окне. Пожалуйста, помогите как можно скорее. Спасибо!
Harsha
Этот комментарий был сведен к минимуму модератором на сайте
У меня была такая же проблема. Я нашел решение здесь: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Как только я обновил свой реестр с помощью ключа... он снова начал работать, как и предполагалось. Попробуйте и посмотрите, работает ли это для вас.
Дин
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за столь четко упомянутые шаги.... Они мне очень помогли и очень облегчили мою работу... СПАСИБО.....!!
Harsha
Этот комментарий был сведен к минимуму модератором на сайте
Для меня это очень хорошо работает oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Как видите, я оставил имя файла, который является вложением, таким же, как при его копировании на сетевой диск. Однако, если приходит несколько электронных писем с одним и тем же именем файла для вложения, сценарий позволяет самому последнему вложению перезаписать предыдущее вложение в сетевой папке. Есть ли редактирование, которое я могу ввести в сценарий, который добавит «-02», «-00», «-1» и т. д. в конец имени файла вложения? Так, например, если вложение называется «проверка», и я получаю несколько прошедших, могу ли я переименовать их в «проверка-2», «проверка-3», «проверка-1». Любая помощь будет ОЧЕНЬ признательна! Спасибо.
Janayah
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джая. Попробуйте проверить файл перед сохранением. Dim filepath As String filepath = Dir(sSaveFolder & oAttachment.DisplayName) If filepath = "" Then oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment.DisplayName End if и так далее... поиграйтесь с кодом и дайте мне знать, как у вас дела..
боб
Этот комментарий был сведен к минимуму модератором на сайте
есть ли возможность изменить это так, чтобы копировались только файлы, в названии которых есть определенные слова?
Фабиан
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли настроить Kutools так, чтобы он сохранял вложения только из определенных электронных писем в зависимости от темы? И можно ли из одного письма сохранить один и тот же файл в несколько каталогов? Мы хотим использовать это для рассылки отчетов вместо электронной почты.
Джесс
Этот комментарий был сведен к минимуму модератором на сайте
Привет, большое спасибо за эту работу, но только один раз, в следующий раз файл не сохраняется на диске :( Я не знаю, почему, есть идеи? спасибо
Marcos
Этот комментарий был сведен к минимуму модератором на сайте
Привет, у меня такая же проблема (все работает). Не могли бы вы решить проблему?
Бенс
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Пожалуйста, проверьте, существует ли целевая папка Outlook-attachments или нет. И больше информации об этой проблеме будет полезно. Спасибо!
Техническая поддержка
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я должен сказать, что это превосходный сценарий, он решил 80% моей работы, но все же у меня есть одна проблема. Вложения, которые я получаю, имеют новую дату и отметку времени ежедневно, и я хочу автоматически сохранять эти вложения, но удаляя отметку даты/времени, чтобы в следующий раз они заменяли/переписывали и сохраняли новую копию с тем же именем. не хочу, чтобы каждый день вложения сохранялись с новой датой. вместо этого тот же файл необходимо заменить в том же месте. Не могли бы вы помочь?
ванда
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем, Как я могу настроить это так, чтобы у меня был другой скрипт для отправки файлов в разные папки? Спасибо за любую помощь, предложенную заранее!
Натан
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я настраиваю сценарий, который у вас есть в верхней части страницы, и он работает нормально, однако я хотел бы назвать сохраняемое вложение, чтобы оно перезаписывало старое. Что мне нужно добавить, чтобы это произошло? Спасибо, Дэвид.
David
Этот комментарий был сведен к минимуму модератором на сайте
Привет всем экспертам, я изо всех сил пытаюсь настроить автоматическую загрузку, как описано выше, с помощью сценария VBA, но в целевой папке ничего не сохраняется. Я попробовал это в Outlook 2007 и Outlook 2010, а также убедился, что у папки есть все необходимые права доступа. Но до сих пор ни одно вложение не сохранилось. Может ли кто-нибудь помочь мне в этом? Привет Стэнли
Стэнли
Этот комментарий был сведен к минимуму модератором на сайте
В Outlook 2013 опция «запустить скрипт» недоступна. Могу ли я сделать что-нибудь еще, чтобы сохранить вложения из электронной почты без использования Kutools
Ндесуза
Этот комментарий был сведен к минимуму модератором на сайте
Если опция «Запустить скрипт» отсутствует, это связано с тем, что она заблокирована по умолчанию после обновления безопасности несколько месяцев назад. Посмотрите здесь для получения дополнительной информации: https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
УорренДБ
Этот комментарий был сведен к минимуму модератором на сайте
Привет, скрипт работает нормально ... но вы хотите извлечь PDF-файлы из подпапки, а не из основного почтового ящика. Есть ли способ изменить сценарий?
Заранее спасибо!
Эрик В.Т.
Этот комментарий был сведен к минимуму модератором на сайте
Привет Эрик,
Ниже скрипт VBA сохранит все вложения PDF из почтовых папок. Для сохранения из определенной папки вы можете указать папку при ручном запуске правила.


Public Sub SaveAttachmentsToDisk (EmailItem As Outlook.MailItem)
Dim xAttachment как Outlook.Attachment
Dim xDotPos как целое число
Dim xSavePath как строка, xFileType как строка
xSavePath = "C:\Users\DT168\Documents\outlook-attachments\"
Для каждого xAttachment в EmailItem.Attachments
xDotPos = InStrRev(xAttachment.DisplayName, ".")
xFileType = Mid(xAttachment.DisplayName, xDotPos, Len(xAttachment.DisplayName) - xDotPos + 1)
Если xFileType = ".pdf" Тогда
xAttachment.SaveAsFile xSavePath и xAttachment.DisplayName
End If
Далее
End Sub
Техническая поддержка
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Есть ли сценарий VBA для вложения CSV. В настоящее время у меня есть задания отчетов, которые автоматически помещаются в именованные папки в Outlook. Теперь я хотел бы, чтобы эти файлы в папках извлекались и помещались в соответствующие папки на моем рабочем столе. Надеюсь, это имеет смысл. Пожалуйста помоги! Я очень новичок в VBA.
Рейнардо Пардо
Этот комментарий был сведен к минимуму модератором на сайте
Я выполнил все сценарии для загрузки вложений из почты Outlook, и мой сценарий работает нормально, когда я запускаю его вручную. Я хотел бы автоматизировать процесс с помощью параметра «Правило». Но я не мог видеть свой макрос в окне мастера правил. Я также включил следующую опцию в реестре
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Security
DWORD: Енаблеунсафеклиентмаилрулес
Значение: 1

Но все же я не мог видеть свой макрос в списке мастера правил. Мой список мастеров правил пуст, но я уже создал макрос, и он работает нормально вручную. Я должен внести макрос в свой мастер правил, чтобы автоматизировать процесс. Пожалуйста, помогите мне, если у вас есть идеи!
Динеш
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0  Характеристики
Предлагаемые места