Печиво допомогти нам доставити наші послуги. Користуючись нашими послугами, Ви погоджуєтесь на використання нами куки.
Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як видалити певний тип вкладень з електронної пошти в Outlook?

Ви коли-небудь намагалися видалити вкладення в декількох вибраних електронних листах за типами файлів у програмі Outlook? Наприклад, видалення всіх файлів вкладень docx або png із вибраних електронних листів. Як ви могли вирішити цю роботу в Outlook?

Вилучіть певний тип вкладень з електронної пошти з кодом VBA


Вилучіть певний тип вкладень з електронної пошти з кодом VBA

Щоб видалити певний тип вкладень із вибраних електронних листів, наступний код VBA може зробити вам користь, будь ласка, виконайте такі дії:

1. Виберіть електронні листи, яким потрібно видалити їх конкретний тип вкладень у списку розсилки.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Потім натисніть кнопку вставка > Модулі, скопіюйте та вставте код нижче у відкритий порожній модуль, перегляньте знімок екрана:

Код 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 для додатків вікна, натисніть інструменти > посилання йти до Довідники-Project1 діалогове вікно та перевірити Microsoft Scripting Runtime опція від Доступні літератури список, подивіться скріншот:

doc видалити прикріплення за типом 1

5. Потім натисніть OK Закрити діалогове вікно, тепер натисніть F5 клацніть, щоб запустити цей код, і з'явиться поле для введення, введіть тип вкладення, який ви хочете видалити, див. скріншот:

doc видалити прикріплення за типом 2

6. Клацання OK, і всі вкладення з певним типом, який ви визначили, були одночасно видалені, див. знімок екрана:

doc видалити прикріплення за типом 3



Kutools для Outlook

Більше 100 Розширені функції для Outlook 2010, 2013, 2016, 2019 і 365

Екран знімав kutools для перспективи крихітний для банера 201812

додаткові можливості | Безкоштовне завантаження | Тільки $ 39.00 для сотень функцій

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.