Архив без вложений по VBA

Архив без вложений от Kutools for Outlook

Этот метод представит 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, вы можете применить его Отключить все функция для быстрого удаления всех вложений из указанной папки, которую вы архивируете, а затем легко архивируете без вложений.

1. В Почта просмотрите, откройте указанную почтовую папку, которую вы архивируете, выберите все письма, нажав Ctrl + A ключи, а затем щелкните Кутулс > Отключить все. Смотрите скриншот:

2. В диалоговом окне "Выберите папку" нажмите кнопку ЛИСТАТЬ СПИСКИ кнопка  чтобы указать папку, в которой вы сохраните вложение, укажите стиль вложенной папки из создать подпапки в следующем стиле раскрывающийся список и щелкните значок Ok кнопка. Смотрите скриншот:

3, Пожалуйста, нажмите Да кнопки и OK последовательно в всплывающих диалоговых окнах.

4. Продолжайте нажимать Файл > Инфо > Инструменты > Очистить старые предметы (или Файл > Инфо > Инструменты очистки > архив).

5. В диалоговом окне «Архив» нажмите, чтобы выделить указанную папку, которую вы будете архивировать без вложений, введите СЕГОДНЯ в Архив статей старше, чем поле, а затем щелкните ЛИСТАТЬ СПИСКИ кнопка. Смотрите скриншот:

6. В диалоговом окне «Открыть файлы данных Outlook» откройте папку, в которой вы сохраните заархивированный файл PST, назовите файл PST в Имя файла поле, а затем щелкните OK кнопка. Смотрите скриншот:

7. Теперь вы вернетесь в диалоговое окно «Архив», нажмите кнопку OK кнопку, чтобы завершить архивирование.

Вы уже заархивировали указанную почтовую папку без вложений.

Как автоматически архивировать вложения только в Outlook?

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