Як архівувати без вкладень в Outlook?
Загалом, функція архівування Outlook зберігає всі елементи електронної пошти, включаючи вміст електронної пошти, заголовок електронної пошти, вкладення електронної пошти тощо. Однак ці вкладення можуть зробити архівний файл PST громіздким. Тут я представив два рішення для архівування без вкладень в Outlook.
- Автоматизуйте надсилання електронних листів за допомогою Авто CC / BCC, Автоматичне пересилання вперед за правилами; відправити Автовідповідь (Поза офісом) без необхідності сервера обміну...
- Отримуйте нагадування як Попередження BCC коли ви відповідаєте всім, поки ви перебуваєте в списку прихованих копій, і Нагадати про відсутність вкладень за забуті вкладення...
- Підвищте ефективність електронної пошти за допомогою Відповісти (всім) із вкладеннями, Автоматичне додавання привітання або дати й часу до підпису чи теми, Відповісти на кілька електронних листів...
- Оптимізація електронної пошти за допомогою Відкликати електронні листи, Інструменти кріплення (Стиснути все, автоматично зберегти все...), Видалити дублікати та Швидкий звіт...
Архів без вкладень VBA
Цей метод запровадить 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
Якщо у вас встановлено Kutools для Outlook, ви можете застосувати його Від'єднати всіх функція швидкого видалення всіх вкладень із зазначеної папки, яку ви архівуєте, а потім легко архівувати без вкладень.
Kutools для Outlook: найкращий набір інструментів Outlook із понад 100 зручними інструментами. Спробуйте БЕЗКОШТОВНО протягом 60 днів, без обмежень, без турбот! Детальніше ... Почніть безкоштовну пробну версію зараз!
1, в пошта перегляньте, відкрийте вказану поштову папку, яку ви заархівуєте, натисніть усі електронні листи натисканням Ctrl + A клавіші, а потім клацніть Кутулс > Від'єднати всіх. Дивіться знімок екрана:
2. У діалоговому вікні Будь ласка, виберіть папку клацніть на перегорнути button щоб вказати папку, у якій ви будете зберігати вкладення, вкажіть стиль підпапки з папки створити підпапки в наступному стилі випадаючий список і клацніть на Ok кнопку. Дивіться знімок екрана:
3. Будь ласка, натисніть Так кнопки і OK кнопку послідовно у діалогових вікнах, що вискакують.
4. Клацніть далі філе > інформація > Tools > Очистіть старі предмети (Або філе > інформація > Інструменти очищення > архів).
5. У діалоговому вікні Архів натисніть, щоб виділити вказану папку, яку ви будете архівувати без вкладень, введіть СЬОГОДНІ в Архівувати предмети, старші за , а потім клацніть на перегорнути кнопку. Дивіться знімок екрана:
6. У діалоговому вікні Відкрити файли даних Outlook відкрийте папку, в якій ви збережете заархівований файл PST, і назвіть файл PST у Файл , а потім клацніть на OK кнопку. Дивіться знімок екрана:
7. Тепер ви повернетесь до діалогового вікна "Архів", клацніть на OK , щоб закінчити архівування.
Наразі ви заархівували вказану поштову папку без вкладень.
Kutools для Outlook: Доповніть Outlook понад 100 обов’язковими інструментами. Тестуйте його БЕЗКОШТОВНО протягом 60 днів без будь-яких умов! Детальніше ... Завантажити зараз!
Статті по темі
Як автоматично архівувати вкладення лише в Outlook?
Як архівувати електронні листи за роком / місяцем / датою в Outlook?
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.