Архів без вкладень VBA

Архів без вкладень за допомогою Kutools для Outlook

Цей метод запровадить VBA для видалення всіх вкладень із зазначеної папки, яку ви архівуєте, а потім ви можете архівувати без вкладень. Будь ласка, виконайте наступне:

1, в пошта виберіть папку, яку ви архівуєте, і натисніть інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Клацання Insert > Модулі, а потім вставте нижче 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 або клацніть на прогін для запуску коду. Потім усі вкладення негайно видаляються з обраної папки.

4. Клацання філе > інформація > Tools > Очистіть старі предмети (Або філе > інформація > Інструменти очищення > архів).

5. У діалоговому вікні Архів натисніть, щоб виділити скопійовану папку, введіть СЬОГОДНІ в Архівувати предмети, старші за , а потім клацніть на перегорнути кнопку. Дивіться знімок екрана:

6. У діалоговому вікні Відкрити файли даних Outlook відкрийте папку, в якій ви збережете заархівований файл PST, і назвіть файл PST у Файл , а потім клацніть на OK кнопку. Дивіться знімок екрана:

7. Тепер ви повернетесь до діалогового вікна "Архів", клацніть на OK , щоб закінчити архівування.
Наразі ви заархівували поштову папку без вкладень.

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

1, в пошта перегляньте, відкрийте вказану поштову папку, яку ви заархівуєте, натисніть усі електронні листи натисканням Ctrl + A клавіші, а потім клацніть Кутулс > Від'єднати всіх. Дивіться знімок екрана:

2. У діалоговому вікні Будь ласка, виберіть папку клацніть на перегорнути button  щоб вказати папку, у якій ви будете зберігати вкладення, вкажіть стиль підпапки з папки створити підпапки в наступному стилі випадаючий список і клацніть на Ok кнопку. Дивіться знімок екрана:

3. Будь ласка, натисніть Так кнопки і OK кнопку послідовно у діалогових вікнах, що вискакують.

4. Клацніть далі філе > інформація > Tools > Очистіть старі предмети (Або філе > інформація > Інструменти очищення > архів).

5. У діалоговому вікні Архів натисніть, щоб виділити вказану папку, яку ви будете архівувати без вкладень, введіть СЬОГОДНІ в Архівувати предмети, старші за , а потім клацніть на перегорнути кнопку. Дивіться знімок екрана:

6. У діалоговому вікні Відкрити файли даних Outlook відкрийте папку, в якій ви збережете заархівований файл PST, і назвіть файл PST у Файл , а потім клацніть на OK кнопку. Дивіться знімок екрана:

7. Тепер ви повернетесь до діалогового вікна "Архів", клацніть на OK , щоб закінчити архівування.

Наразі ви заархівували вказану поштову папку без вкладень.

Як автоматично архівувати вкладення лише в Outlook?

Як архівувати електронні листи за роком / місяцем / датою в Outlook?