Як видалити певний тип вкладень із електронних листів в Outlook?
Ви коли-небудь пробували видаляти вкладення з кількох вибраних електронних листів за типом файлу в Outlook? Наприклад, видалення всіх файлів вкладень docx або png із вибраних електронних листів. Як ви могли вирішити цю роботу в Outlook?
Видаліть певний тип вкладень із електронних листів із кодом VBA
Видаліть певний тип вкладень із електронних листів із кодом VBA
Щоб видалити певний тип вкладень із вибраних електронних листів, наступний код VBA може зробити вам послугу, будь ласка, зробіть так:
1. У списку розсилки виберіть електронні листи, за якими ви хочете видалити їх певний тип вкладень.
2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
3. Потім натисніть кнопку Insert > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, див. знімок екрана:
Код VBA: Видаліть певний тип вкладень із електронних листів:
Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olMail Then
Set xMailItem = xItem
If xMailItem.Attachments.Count > 0 Then
For I = xMailItem.Attachments.Count To 1 Step -1
Set xAttachment = xMailItem.Attachments.Item(I)
xFileType = xFSO.GetExtensionName(xAttachment.FileName)
If InStr(xFileType, Trim(xType)) > 0 Then
xAttachment.Delete
End If
Next I
xMailItem.Save
End If
End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub
4. А потім ще в Microsoft Visual Basic для додатків вікна, натисніть Tools > посилання йти до Список літератури-Проект1 і перевірте Виконання сценаріїв Microsoft опція від Доступні посилання вікно списку, див. знімок екрана:
5. Потім натисніть OK щоб закрити діалогове вікно, натисніть F5 для запуску цього коду, і з'явиться вікно запиту, введіть тип вкладення, який потрібно видалити, див. знімок екрана:
6. Клацання OK, і всі вкладення з певним типом, який ви визначили, були видалені відразу, див. знімок екрана:
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.