Архив без прикачени файлове от VBA

Архивирайте без прикачени файлове от Kutools за Outlook

Този метод ще въведе VBA за изтриване на всички прикачени файлове от указаната папка, която ще архивирате, след което можете да архивирате без прикачени файлове. Моля, направете следното:

1. В Mail преглед, изберете папката, която ще архивирате, и натиснете Друг + 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 клавиша или щракнете върху бягане бутон за изпълнение на кода. Тогава всички прикачени файлове се премахват незабавно от избраната пощенска папка.

4. Щракнете досие > Информация > Инструменти > Почистете старите предмети (или досие > Информация > Инструменти за почистване > Архив).

5. В диалоговия прозорец Архив щракнете, за да маркирате копираната папка, въведете ДНЕС в Архивиране на елементи, по-стари от и след това щракнете върху паса бутон. Вижте екранна снимка:

6. В диалоговия прозорец Отваряне на файлове с данни на Outlook, моля, отворете папката, в която ще запишете архивирания PST файл, наименувайте PST файла в Име на файл и след това щракнете върху OK бутон. Вижте екранна снимка:

7. Сега се връщате към диалоговия прозорец Архив, моля щракнете върху OK бутон за завършване на архивирането.
Досега сте архивирали пощенската папка без никакви прикачени файлове.

Ако имате инсталиран Kutools за Outlook, можете да го приложите Отделяне на всички функция за бързо изтриване на всички прикачени файлове от указаната папка, която ще архивирате, и след това лесно архивиране без прикачени файлове.

1. В Mail изглед, отворете посочената папка за поща, която ще архивирате, изберете всички имейли с натискане Ctrl + A клавиши и след това щракнете Kutools > Отделяне на всички. Вижте екранна снимка:

2. В диалоговия прозорец Моля, изберете папка щракнете върху паса бутон  за да посочите папката, в която ще запазите прикачения файл, задайте стил на подпапка от създайте подпапки в следния стил падащ списък и щракнете върху Ok бутон. Вижте екранна снимка:

3. Моля, щракнете Да бутона и OK бутон последователно в изскачащите диалогови прозорци.

4. Продължете да щракнете досие > Информация > Инструменти > Почистете старите предмети (или досие > Информация > Инструменти за почистване > Архив).

5. В диалоговия прозорец Архивиране щракнете, за да маркирате посочената папка, която ще архивирате без прикачени файлове, въведете ДНЕС в Архивиране на елементи, по-стари от и след това щракнете върху паса бутон. Вижте екранна снимка:

6. В диалоговия прозорец Отваряне на файлове с данни на Outlook, моля, отворете папката, в която ще запишете архивирания PST файл, наименувайте PST файла в Име на файл и след това щракнете върху OK бутон. Вижте екранна снимка:

7. Сега се връщате към диалоговия прозорец Архив, моля щракнете върху OK бутон за завършване на архивирането.

Досега вече сте архивирали посочената пощенска папка без прикачени файлове.

Как автоматично да архивирате прикачени файлове само в Outlook?

Как да архивирате имейли по година/месец/дата в Outlook?