Зберегти вкладення з багатьох електронних листів одночасно в Outlook?

Хтось надсилав мені 200 електронних листів за ніч, з одним файлом вкладення за штуку. зітхати

Я чекаю ще 200 кожного вечора протягом наступних трьох ночей (електронні листи надходять із сервера, тому просити їх отримати пакет неможливо).

У вкладених файлах є унікальні імена файлів, тож чи існує прямий спосіб зберегти вкладення з усієї групи електронних листів одночасно?

Мені б не хотілося відкривати кожну електронну пошту окремо, клацнути правою кнопкою миші, зберегти, промити, повторити ...

Я вільно володію VBA, дуже зручно створювати макроси Excel, тому можу уявити, що слід порівняно легко переходити дану папку для всіх повідомлень і зберігати вкладення для кожного, але я раніше не писав макрос Outlook, не знайомий з ієрархія об'єктів.

OutlookAttachView NirSoft може це зробити легко, навіть з командного рядка!

OutlookAttachView сканує всі повідомлення, що зберігаються у вашому Outlook, та відображає список усіх доданих файлів, які він знайде. Ви можете легко вибрати одне або більше вкладених файлів і зберегти їх у потрібній папці, а також можна видалити небажані великі вкладення, які займають занадто багато місця на диску у вашій поштовій скриньці. Ви також можете зберегти список вкладених файлів у файл xml / html / text / csv.

OutlookAttachView безкоштовний.

Додаток для видалення додатків для Outlook :

Безкоштовна надбудова Outlook для збереження та вилучення вкладених файлів, зменшуючи розмір файлів Outlook. Простий у використанні. Безліч особливостей.

Ось ще кілька варіантів цього.

Сайт Сью Мошер http://slipstick.com - це фантастичний ресурс для Outlook. Вона також є Microsoft MVP.

Для ваших кодерів там: Збережіть додатки на жорсткому диску, а також збережіть та відкрийте додаток за допомогою VBA .

Наступний код працює в Outlook 2000 і новіших версіях. Він зберігає вкладення з вибраних повідомлень, але не видаляє вкладення з повідомлення.

…

Скопіюйте та вставте код із цієї сторінки у свій проект ThisOutlookSession.

У Outlook натисніть Alt + F11, щоб відкрити редактор VBA та розгорнути об’єкти Microsoft Outlook, а потім двічі клацніть на ThisOutlookSession, щоб відкрити його на панелі редагування, та Ctrl + V, щоб вставити код.

Для його використання спершу потрібно створити папку під "Мої документи" під назвою OLAttachments (код не створить її для вас). Потім виберіть одне або кілька повідомлень і запустіть макрос, щоб зберегти вкладення. Вам потрібно буде встановити безпеку макросів, щоб попереджати перед включенням макросів або підписанням макросу. Ви можете змінити ім'я папки або шлях, куди зберігаються вкладення, відредагувавши код.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

А якщо ви не хочете програмувати: Інструменти управління вкладеннями для Outlook

Після того, як мене обстріляли електронною поштою від людини, яка вважала, що було б добре надіслати мені розділений RAR-файл на 30 листів, я успішно використав цей сценарій VBA, опублікований Microsoft, який називається mAttachmentSaver.

Спочатку вам потрібно завантажити архів, що містить сценарій .

Важливо, щоб макроси були включені. У Outlook 2010 ви можете це зробити, перейшовши у меню Файл »Параметри» Центр довіри »Налаштування центру довіри» Налаштування макросу »Увімкнути всі макроси» ОК »ОК . Потім потрібно перезапустити Outlook. Для попередніх версій він знаходиться в розділі Інструменти »Макрос» Безпека… .

Потім виконайте кроки, викладені в статті TechCenter:

• Натисніть, Alt+F11щоб відкрити VBE в Outlook.

• Перетягніть mAttachmentSaver.basфайл до Провідника проектів (натисніть, Ctrl+Rякщо ви не бачите його) або через Файл >> Імпортувати файл ... ( Ctrl+M).

  Запустіть ExecuteSavingмакрос, щоб зберегти вкладення.

• Поверніться до інтерфейсу Outlook, а потім натисніть, Alt+F8щоб відкрити вікно Макроси.

• Виберіть ExecuteSavingу списку імен і натисніть кнопку Запустити (Будь ласка, не забудьте вибрати елементи Outlook перед запуском цього макросу).

• Виберіть конкретну папку, щоб зберегти вкладення з діалогового вікна « Огляд папки» , а потім натисніть кнопку « ОК ».