Сохранение вложений в outlook в папку

Обновлено: 07.07.2024

Код необходимо поместить в стандартный модуль и запустить. Или скачать приложенный ниже файл - там уже есть и кнопка для запуска:

Tips_GetOutlookAttach.xls (54,0 KiB, 2 884 скачиваний)

Макросы должны быть разрешены. Если не знаете что это такое - Что такое макрос и где его искать?

После запуска код попросит указать папку, в которую сохранять вложения. После этого все вложения, являющиеся файлами Excel, будут сохранены в указанную папку. Если имена каких-то вложений совпадают, то к имени файла в скобках добавляется номер (х).
Код имеет некоторые недостатки:

Выберите папку для сохранения вложений - кнопкой справа от поля выбирается папка, в которую надо сохранить все найденные вложения.

Отбирать вложения - указываются маски для типов файлов, которые необходимо отбирать. По умолчанию установлена маска "*.*" - отбирать все файлы. Однако можно указать любой тип файлов. Например, если указать "*.jpg" - будут отобраны исключительно рисунки с расширением .jpg. Если необходимо отбирать файлы более одного типа, то все маски можно перечислить через прямую черту - |. Например, чтобы отобрать все файлы Word, Excel и PowerPoint следует указать такую маску: "*.doc*|*.xl*|*.ppt*" . Тут есть и еще один нюанс - таким образом можно указать маску не только форматов, но и имен файлов. К примеру, чтобы отобрать только файлы Excel, содержащие в имени слово "отчет" необходимо задать такую маску: "*отчет*.xl*" .

После нажатия СОХРАНИТЬ ВЛОЖЕНИЯ внизу формы отобразится информационное окно, показывающее в какой папке идет поиск вложений и каков прогресс выполнения операции поиска в этой папке(на картинке это зеленая полоса внизу формы). Если имена каких-то вложений совпадают, то к имени файла в скобках добавляется номер (х).

Sub FindIncomingFolder() Dim objOutlApp As Object, oNSpace As Object, i As Long On Error Resume Next Set objOutlApp = GetObject(, "outlook.Application") If objOutlApp Is Nothing Then Set objOutlApp = CreateObject("outlook.Application") End If Set oNSpace = objOutlApp.GetNamespace("MAPI") For i = 1 To 50 MsgBox i & " = " & oNSpace.GetDefaultFolder(i) Next End Sub

Примечание по безопасности: Outlook принимает файлы самых разных типов, но блокирует потенциально небезопасные вложения (в том числе BAT-, EXE-, VBS- и JS-файлы), которые могут содержать вирусы. Даже при Outlook вложения будьте внимательны при открытии любого вложения, особенно если оно не известно или не доверяете вам. При возникновении каких-либо сомнений подтвердите подлинность вложения у отправителя. Кроме того, следите за обновлением антивирусной программы.

Дважды щелкните значок вложения, чтобы открыть вложение.

Чтобы сохранить вложение, откройте меню вложения с помощью стрелки вниз справа от значка вложения.

Открытие вложения

Сохранение одного или нескольких вложений

На вкладке Вложения в группе Действия нажмите кнопку Сохранить как. Вы также можете щелкнуть вложение правой кнопкой мыши и выбрать пункт Сохранить как. Чтобы выбрать несколько вложений, щелкайте их, удерживая клавишу CTRL. Чтобы сохранить все вложения, нажмите кнопку Сохранить все вложения.

Выберите папку для сохранения и нажмите кнопку Сохранить.

Просмотр вложения без его открытия

Примечание: Для предварительного просмотра вложенного файла, созданного в выпуск 2007 системы Microsoft Office приложении, на компьютере должно Office 2007 приложение. Например, для предварительного Word 2007 вложения необходимо установить Word 2007 файл. Для предварительного просмотра вложения Excel необходимо установить приложение Excel.

Предварительный просмотр вложения

Щелкните вложение в области чтения. Если вложений несколько, может потребоваться прокрутить страницу по горизонтали, чтобы найти нужное вложение.

Примечание: При предварительном просмотре могут не отображаться последние изменения файла. Чтобы просмотреть наиболее полное и актуальное содержимое, откройте файл. Например, вы можете дважды щелкнуть вложение DOCX, чтобы открыть его в Microsoft Word.

Дополнительные сведения о предварительном просмотре PDF-файлов в Outlook 2007 см. в статье Предварительный просмотр вложенных PDF-файлов.

Включение и отключение средств предварительного просмотра вложений

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

В Outlook в меню Сервис щелкните Центр управления безопасностью и нажмите кнопку Обработка вложений.

Выполните одно из указанных ниже действий.

Чтобы отключить все средства предварительного просмотра вложений, щелкните Отключить просмотр вложений.

Чтобы отключить определенное средство, нажмите кнопку Средства просмотра документов и вложений, снимите флажки всех средств предварительного просмотра, которые вы хотите отключить, и нажмите кнопку ОК.

Чтобы включить средства предварительного просмотра, щелкните Отключить просмотр вложений или установите флажки для отдельных средств.

Открытие вложения

Примечание: Если вам предлагается открыть или сохранить вложение, рекомендуется сохранить файл и проверить его с помощью антивирусной программы, прежде чем открывать.

Сохранение вложения

В контекстном меню выберите команду Сохранить как.

Выберите папку для сохранения и нажмите кнопку Сохранить.

В меню Файл наведите указатель на пункт Сохранить вложения и выберите Все вложения.

Эта статья предназначена для людей с нарушениями зрения, использующих программы чтения с экрана совместно с продуктами Office. Она входит в набор содержимого Специальные возможности Office. Дополнительные общие сведения см. на домашней странице службы поддержки Microsoft и в статье Исправления и временные решения для недавних проблем в Office.

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

Новые возможности Microsoft 365 становятся доступны подписчикам Microsoft 365 по мере выхода, поэтому в вашем приложении эти возможности пока могут отсутствовать. Чтобы узнать о том, как можно быстрее получать новые возможности, станьте участником программы предварительной оценки Office.

Дополнительные сведения о средствах чтения с экрана см. в статье о работе средств чтения с экрана в Microsoft Office.

В этом разделе

Нажимая клавишу TAB, пока не услышите слово "Изображение". Затем нажмите shift+F10, чтобы открыть контекстное меню для изображения. Вы услышите: "Вырезать, элемент меню".

Нажимая клавишу СТРЕЛКА ВНИЗ, пока не услышите "Сохранить как рисунок, элемент меню", а затем нажмите клавишу ВВОД. Вы услышите: "Сохранить файл, имя файла".

Введите имя файла изображения.

Нажимайте клавишу TAB, пока не прозвучат слова "Сохранить, кнопка", а затем нажмите ВВОД.

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

Нажимая клавишу TAB, пока не услышите "Окно «Новый документ»", а затем имя и размер файла первого вложения. Если вложений несколько, вы можете узнать их количество, например "1 из 2 вложений".

Для перемещения между вложениями используйте клавиши СТРЕЛКА ВПРАВО и СТРЕЛКА ВЛЕВО.

Чтобы сохранить выбранное вложение, нажмите ALT+J, A, V. Вы услышите "Сохранить вложение, имя файла" и исходное имя файла.

Если вы хотите изменить имя файла, введите новое имя.

Нажимайте клавишу TAB, пока не прозвучат слова "Сохранить, кнопка", а затем нажмите ВВОД.

Дополнительные сведения

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

В этой статье предполагается, что вы используете VoiceOver — средство чтения с экрана, встроенное в macOS. Дополнительные сведения об использовании VoiceOver см. в кратком руководстве по началу работы с VoiceOver.

В этом разделе

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

Нажимая клавишу TAB, пока не услышите слово "Выбрать", а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ. Все вложения сохраняются на компьютере с исходными именами файлов.

Нажимая клавишу TAB, пока не услышите количество вложений и имя первого вложения. Для перемещения между вложениями нажимая клавиши CONTROL+OPTION+СТРЕЛКА ВПРАВО или СТРЕЛКА ВЛЕВО. Когда дойдете до вложения, который вы хотите сохранить, нажмите control+OPTION+ПРОБЕЛ.

Нажимая клавишу СТРЕЛКА ВНИЗ, пока не услышите "Сохранить как", а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ.

Нажимая клавишу TAB, пока не услышите имя папки, выбранной в качестве расположения для сохранения. Чтобы изменить папку, нажмите клавиши CONTROL+OPTION+ПРОБЕЛ, нажимая клавишу СТРЕЛКА ВНИЗ, пока не услышите нужный вариант, а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ.

Чтобы сохранить вложение, нажимая клавишу TAB, пока не услышите "Сохранить, кнопка", а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ.

Чтобы открыть контекстное меню, нажмите control+OPTION+SHIFT+M или SHIFT+F10.

Нажимая клавишу СТРЕЛКА ВНИЗ, пока не услышите "Сохранить как", а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ. Вы услышите: "Диалоговое окно «Сохранение»".

Нажимая клавишу TAB, пока не услышите имя папки, выбранной в качестве расположения для сохранения. Чтобы изменить папку, нажмите клавиши CONTROL+OPTION+ПРОБЕЛ, нажмите клавишу СТРЕЛКА ВНИЗ, чтобы перейти к нужному расположению, а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ.

Чтобы сохранить изображение, нажимая клавишу TAB, пока не услышите "Сохранить, кнопка", а затем нажмите клавиши CONTROL+OPTION+ПРОБЕЛ. Изображение будет сохранено на компьютере с исходным именем файла.

Дополнительные сведения

Новые возможности Microsoft 365 становятся доступны подписчикам Microsoft 365 по мере выхода, поэтому в вашем приложении эти возможности пока могут отсутствовать. Чтобы получать новые возможности быстрее, станьте участником программы предварительной оценки Office.

В этой статье предполагается, что вы используете VoiceOver — средство чтения с экрана, встроенное в iOS. Дополнительные сведения об использовании VoiceOver см. на странице Универсальный доступ в продуктах Apple.

В этом разделе

Вложение можно сохранить в iPhone или в сетевом хранилище, например в OneDrive.

Сохранение вложения на телефоне

Проводите пальцем вправо, пока не найдете нужное вложение. Вы услышите имя и размер файла, а затем — "Вложение".

Дважды коснитесь экрана. Outlook для iOS загружает вложение в режиме предварительного просмотра. Предварительный просмотр будет готов, когда про услышите "Кнопка «Закрыть»".

Проводите пальцем вправо, пока не услышите "Сохранить в файлы, кнопка", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "IPhone", а затем дважды коснитесь экрана. Проводите пальцем вправо, пока не услышите "Сохранить, кнопка", а затем дважды коснитесь экрана. Файл будет сохранен на телефоне, и вы сможете найти его в приложении Файлы.

Сохранение вложения в OneDrive

Проводите пальцем вправо, пока не услышите "Сохранить в учетную запись", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "OneDrive ", а затем — имя пользователя, а затем дважды коснитесь экрана. Файл будет сохранен в папке OneDrive.

Сохранение вложения в iCloud

Проводите пальцем вправо, пока не услышите "Сохранить в файлы, кнопка", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Диск iCloud", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите нужное вам решение, а затем дважды коснитесь экрана.

Проводите пальцем влево, пока не услышите "Сохранить, кнопка", а затем дважды коснитесь экрана. Вложение будет сохранено на диске iCloud, и вы сможете найти его в приложении Файлы.

Проводите пальцем вправо, пока не найдете внедренное изображение. VoiceOver озвучит его как "Изображение, изображение". Дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Сохранить в файлы, кнопка", а затем дважды коснитесь экрана.

Дополнительные сведения

В этой статье предполагается, что вы используете TalkBack — средство чтения с экрана, встроенное в Android. Дополнительные сведения об использовании TalkBack см. на странице Специальные возможности в Android.

В этом разделе

Сохранение внедренного изображения на телефоне

Проводите пальцем вправо, пока не найдете внедренное изображение. TalkBack озвучит его как "Изображение, рисунок". Дважды коснитесь экрана. Вы услышите: "Загрузка фотографий".

По умолчанию Outlook предлагает открыть изображение с помощью приложения коллекции, например Фотографии или Галерея. Чтобы выбрать, нужно ли открывать изображения в выбранном приложении или только один раз, проводите пальцем вправо, пока не услышите нужный вариант, а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Еще", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите название приложения, например "Upload фотографии", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Upload", а затем дважды коснитесь экрана. Изображение будет добавлено и сохранено на телефоне.

Сохранение внедренного изображения в Google Диск

Проводите пальцем вправо, пока не услышите "Еще", а затем дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Сохранить на диске", а затем дважды коснитесь экрана. Фокус перемещается в поле Название документа. Если вы услышите "Разрешить диску доступ к фотографиям, мультимедиа и файлам на вашем устройстве", проводите пальцем вправо, пока не услышите "Разрешить, кнопка", а затем дважды коснитесь экрана.

Если вы не хотите использовать имя файла по умолчанию, введите новое имя в поле с помощью экранной клавиатуры. Когда все будет готово, проведите пальцем вниз, а затем влево, чтобы закрыть экранную клавиатуру.

Проводите пальцем вправо, пока не услышите "Сохранить, кнопка", а затем дважды коснитесь экрана. Изображение будет сохранено в вашем Google Диск.

Проводите пальцем вправо, пока не найдете нужное вложение. TalkBack озвучит тип, имя и размер каждого вложения.

Проведите пальцем вправо. Вы услышите: "Для". Дважды коснитесь экрана.

Проводите пальцем вправо, пока не услышите "Сохранить на устройстве", а затем дважды коснитесь экрана. Если вы услышите "Разрешить Outlook доступ к фотографиям, мультимедиа и файлам на устройстве", проводите пальцем вправо, пока не услышите "Разрешить, кнопка", а затем дважды коснитесь экрана. Вложение будет сохранено на телефоне, и его можно найти в папке "Загрузки" в приложении "Файлы".

Чтобы вернуться в почтовый ящик, проведите пальцем вниз, а затем влево.

Дополнительные сведения

Дополнительные сведения о средствах чтения с экрана см. в статье о работе средств чтения с экрана в Microsoft Office.

В настоящее время сайт Outlook.office.com обновляется (Outlook в Интернете). Некоторые пользователи уже перешли на новый интерфейс Outlook, в то время, как остальные пользуются старой версией по умолчанию до тех пор, пока не завершится обновление. Дополнительные сведения см. на странице Получение справки по Outlook в Интернете. Поскольку инструкции в этом разделе относятся к новому интерфейсу, мы рекомендуем вам перейти от классической к новой версии Outlook. Чтобы перейти на новую версию Outlook, нажимайте клавиши CTRL+F6, пока не услышите фразу "Команда, попробовать новый Outlook", а затем нажмите клавишу ВВОД. Если вы слышите фразу "Панель команд", а не "Команда, попробовать новый Outlook", значит вы уже используете новую версию Outlook.

Рекомендуем использовать Outlook в Интернете в веб-браузере Microsoft Edge. Outlook в Интернете работает в веб-браузере, поэтому в сочетаниях клавиш есть некоторые отличия от классической программы. Например, для перехода в область команд и выхода из нее вместо клавиши F6 используются клавиши CTRL+F6. Кроме того, такие распространенные команды, как F1 (справка) и CTRL+O (открыть), относятся не к Outlook в Интернете, а к интерфейсу браузера.

В этом разделе

Вложения можно сохранять по одному на компьютере или в OneDrive.

Нажимая клавишу TAB, найдите нужное вложение.

Нажимая клавишу TAB, пока не услышите "Дополнительные действия, кнопка, свернуто", а затем нажмите клавишу ПРОБЕЛ.

Выполните одно из следующих действий:

Чтобы сохранить вложение в OneDrive, нажимите клавишу TAB, пока не услышите "Сохранить в OneDrive, Майкрософт". Нажмите клавишу ВВОД.

Сохранение всех вложений одновременно

Вместо того чтобы сохранять вложения по одному, вы также можете сохранить все вложения в одном приложении.

Выполните одно из следующих действий:

Чтобы перейти в диалоговое окно уведомления, нажмите ALT+N. Нажимая клавишу TAB, пока не услышите "Сохранить, кнопка", а затем нажмите клавишу ВВОД.

Чтобы сохранить вложения в OneDrive, нажимите клавишу TAB, пока не услышите "Сохранить все файлы в OneDrive, Майкрософт", а затем нажмите клавишу ВВОД.

Сохранение изображения в окне

Нажимая клавиши SR+СТРЕЛКА ВПРАВО, пока не услышите слово "Изображение".

Нажмите клавиши SHIFT+ВВОД Изображение откроется в отдельном окне.

Дополнительные сведения

Техническая поддержка пользователей с ограниченными возможностями

Корпорация Майкрософт стремится к тому, чтобы все наши клиенты получали наилучшие продукты и обслуживание. Если у вас ограниченные возможности или вас интересуют вопросы, связанные со специальными возможностями, обратитесь в службу Microsoft Disability Answer Desk для получения технической поддержки. Специалисты Microsoft Disability Answer Desk знакомы со многими популярными специальными возможностями и могут оказывать поддержку на английском, испанском, французском языках, а также на американском жестовом языке. Перейдите на сайт Microsoft Disability Answer Desk, чтобы узнать контактные сведения для вашего региона.

Если вы представитель государственного учреждения или коммерческой организации, обратитесь в службу Disability Answer Desk для предприятий.

Автоматическое копирование вложений из писем в папку

Для автоматического копирования вложений из приходящих в Outlook писем в указанную папку можно воспользоваться правилом, исполняющим ниже прописанный скрипт VBA. Скрипт также модифицирует имя файла в соответствии с датой создания письма. Вариант из примера работает корректно для писем с одним вложением. Для писем с несколькими вложениями нужно изменить код в месте формирования имени файла.

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd") saveFolder = "C:\\Test" If Dir(saveFolder, vbDirectory) = "" Then MkDir saveFolder End If For Each objAtt In itm.Attachments 'Проверяем наличие файла с таким же именем j = " " For i = 1 To 1000 If Not Dir(saveFolder & "\" & dateOfMailItem & j & objAtt.FileName) = "" Then j = "_" & i & "_" Else Exit For End If Next i 'Конец проверки objAtt.SaveAsFile saveFolder & "\" & dateOfMailItem & j & objAtt.FileName Set objAtt = Nothing Next End Sub

Решение проблем

Если часть созданного правила выполняется, но сам скрипт не срабатывает, то, возможно, дело в настройках безопасности Outlook 2010/2013/2016 (в Outlook 2007 и старше эта опция находится в Tools -> Macro Security). Чтобы макрос сработал:

Обработка msg-вложений

Ниже пример кода, который сохраняет каждое вложение из письма в папку с названием, совпадающим с темой письма. Если вложенные файлы сами являются письмами (т.е. имеют расширение *.msg), то сохраняются только вложения из них в подпапку с названием таким же, как тема вложенного *.msg файла.
Чтобы код работал нужно включить Microsoft Scripting Runtime как описано в другой статье.

Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim objAttachments As Outlook.Attachment Dim saveFolder As String Dim openMsg As MailItem dateOfMailItem = Format(itm.ReceivedTime, "yyyy.mm.dd") saveFolder = "C:\Test\" If Dir(saveFolder, vbDirectory) = "" Then MkDir saveFolder End If For t = 1 To Len(itm.Subject) s = Mid(itm.Subject, t, 1) If Not LCase(s) Like "[?/\|*<>:]" Then sSubject = sSubject & s End If Next t For Each objAtt In itm.Attachments saveFolderFull = saveFolder & sSubject If Dir(saveFolderFull, vbDirectory) = "" Then MkDir saveFolderFull End If 'Проверяем наличие файла с таким же именем j = " " For i = 1 To 1000 If Not Dir(saveFolderFull & "\" & dateOfMailItem & j & objAtt.FileName) = "" Then j = "_" & i & "_" Else Exit For End If Next i 'Конец проверки objAtt.SaveAsFile saveFolderFull & "\" & dateOfMailItem & j & objAtt.FileName 'Из msg файлов достаём вложения и удаляем If LCase(Right(objAtt.FileName, 4)) = ".msg" Then Set openMsg = Application.CreateItemFromTemplate(saveFolderFull & "\" & dateOfMailItem & j & objAtt.FileName) sSubject2 = "" For t = 1 To Len(openMsg.Subject) s = Mid(openMsg.Subject, t, 1) If Not LCase(s) Like "[?/\|*<>:]" Then sSubject2 = sSubject2 & s End If Next t If Dir(saveFolderFull & "\" & sSubject2, vbDirectory) = "" Then MkDir saveFolderFull & "\" & sSubject2 End If 'Сохраняем вложения из msg-файла For Each objAttachments In openMsg.Attachments objAttachments.SaveAsFile saveFolderFull & "\" & sSubject2 & "\" & dateOfMailItem & objAttachments.FileName Next openMsg.Close olDiscard Kill saveFolderFull & "\" & dateOfMailItem & j & objAtt.FileName 'Удаляем файл msg-файла End If Set objAtt = Nothing Next End Sub

Сохранение письма с вложениями на диск

Если нужно сохранить само письмо, а не только вложения, то код упрощается:

Читайте также: