Как архивировать без вложений в Outlook?
Как правило, функция архива Outlook сохраняет все элементы электронной почты, включая содержимое электронной почты, заголовок электронной почты, вложения электронной почты и т. Д. Однако вложения могут сделать заархивированный файл PST громоздким. Здесь я представлю два решения для архивации без вложений в Outlook.
- Автоматизируйте отправку писем с помощью Авто CC / BCC, Автопересылка по правилам; отправлять Автоответчик (Нет на работе) без необходимости использования сервера обмена...
- Получайте напоминания, например Предупреждение BCC при ответе всем, пока вы находитесь в списке скрытых копий, и Напоминать об отсутствии вложений за забытые вложения...
- Повысьте эффективность электронной почты с помощью Ответить (всем) с вложениями, Автоматическое добавление приветствия или даты и времени в подпись или тему, Ответить на несколько писем...
- Оптимизируйте электронную почту с помощью Отозвать электронные письма, Инструменты для вложения (Сжать все, Автосохранить все...), Удалить дубликатыи Быстрый отчет...
Архив без вложений по VBA
Этот метод представит VBA для удаления всех вложений из указанной папки, которую вы будете архивировать, а затем вы сможете архивировать без вложений. Пожалуйста, сделайте следующее:
1. В Почта просмотра, выберите папку, которую вы хотите заархивировать, и нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модули, а затем вставьте ниже VBA в новое окно модуля.
VBA: удалить все вложения из выбранной почтовой папки в Outlook
Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & ""
End If
Wend
If xDeletedFilePath <> "" Then
If xMailItem.BodyFormat <> olFormatHTML Then
xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body
Else
xMailItem.HTMLBody = "
" & _
"The file(s) were saved to: " & xDeletedFilePath & "
" & xMailItem.HTMLBody
End If
xMailItem.Save
xDeletedFilePath = ""
End If
End If
Next
Exit Sub:
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub
3, нажмите F5 ключ или щелкните Run кнопку для запуска кода. Затем все вложения сразу удаляются из выбранной почтовой папки.
4. Нажмите Файл > Инфо > Инструменты > Очистить старые предметы (или Файл > Инфо > Инструменты очистки > архив).
5. В диалоговом окне «Архив» щелкните, чтобы выделить скопированную папку, введите СЕГОДНЯ в Архив статей старше, чем поле, а затем щелкните ЛИСТАТЬ СПИСКИ кнопка. Смотрите скриншот:
6. В диалоговом окне «Открыть файлы данных Outlook» откройте папку, в которой вы сохраните заархивированный файл PST, назовите файл PST в Имя файла поле, а затем щелкните OK кнопка. Смотрите скриншот:
7. Теперь вы вернетесь в диалоговое окно «Архив», нажмите кнопку OK кнопку, чтобы завершить архивирование.
Пока что вы заархивировали почтовую папку без вложений.
Архив без вложений от Kutools for Outlook
Если у вас установлен Kutools for Outlook, вы можете применить его Отключить все функция для быстрого удаления всех вложений из указанной папки, которую вы архивируете, а затем легко архивируете без вложений.
Kutools for Outlook: Полный набор инструментов Outlook, содержащий более 100 удобных инструментов. Попробуйте БЕСПЛАТНО в течение 60 дней, без ограничений и забот! Больше информации... Начать бесплатную пробную версию сейчас!
1. В Почта просмотрите, откройте указанную почтовую папку, которую вы архивируете, выберите все письма, нажав Ctrl + A ключи, а затем щелкните Кутулс > Отключить все. Смотрите скриншот:
2. В диалоговом окне "Выберите папку" нажмите кнопку ЛИСТАТЬ СПИСКИ кнопка чтобы указать папку, в которой вы сохраните вложение, укажите стиль вложенной папки из создать подпапки в следующем стиле раскрывающийся список и щелкните значок Ok кнопка. Смотрите скриншот:
3, Пожалуйста, нажмите Да кнопки и OK последовательно в всплывающих диалоговых окнах.
4. Продолжайте нажимать Файл > Инфо > Инструменты > Очистить старые предметы (или Файл > Инфо > Инструменты очистки > архив).
5. В диалоговом окне «Архив» нажмите, чтобы выделить указанную папку, которую вы будете архивировать без вложений, введите СЕГОДНЯ в Архив статей старше, чем поле, а затем щелкните ЛИСТАТЬ СПИСКИ кнопка. Смотрите скриншот:
6. В диалоговом окне «Открыть файлы данных Outlook» откройте папку, в которой вы сохраните заархивированный файл PST, назовите файл PST в Имя файла поле, а затем щелкните OK кнопка. Смотрите скриншот:
7. Теперь вы вернетесь в диалоговое окно «Архив», нажмите кнопку OK кнопку, чтобы завершить архивирование.
Вы уже заархивировали указанную почтовую папку без вложений.
Kutools for Outlook: Расширьте возможности Outlook, добавив в него более 100 необходимых инструментов. Тест-драйв БЕСПЛАТНО в течение 60 дней без каких-либо условий! Больше информации... Скачать
Статьи по теме
Как автоматически архивировать вложения только в Outlook?
Как заархивировать электронные письма по году / месяцу / дате в Outlook?
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.