Печенье помочь нам доставить наши услуги. Пользуясь нашими услугами, Вы соглашаетесь на использование нами куки.
Совет. Другие языки - Google-Translated. Вы можете посетить 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 вариант из Доступные ссылки список, см. снимок экрана:

doc удалить прикрепление по типу 1

5, Затем нажмите OK чтобы закрыть диалоговое окно, нажмите F5 ключ для запуска этого кода, и появится окно подсказки, введите тип вложения, который вы хотите удалить, см. снимок экрана:

doc удалить прикрепление по типу 2

6. Щелчок OK, и все вложения с определенным типом, который вы определили, были удалены сразу, см. снимок экрана:

doc удалить прикрепление по типу 3



Kutools for 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.