Колачићи нам помоћи да испоручи наше услуге. Коришћењем наше услуге, сагласни сте да наше коришћење колачића.
Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како уклонити одређену врсту прилога из е-поште у програму Оутлоок?

Да ли сте икада покушали уклонити прилоге у више одабраних е-пошта по типу датотеке у програму Оутлоок? На пример, уклањање свих фајлова везаних за доцк или пнг из изабраних е-пошта. Како можете да решите овај посао у програму Оутлоок?

Уклоните одређену врсту прилога из е-поште помоћу ВБА кода


Уклоните одређену врсту прилога из е-поште помоћу ВБА кода

Да бисте уклонили одређену врсту прилога из изабраних е-пошта, сљедећи ВБА код вам може учинити услугу, молим вас да урадите овако:

1. Изаберите е-пошту која желите да уклоните њихову специфичну врсту прилога у маилинг листи.

2. Држите га АЛТ + ФКСНУМКС тастере за отварање Мицрософт Висуал Басиц за апликације прозор.

3. Затим кликните Убацити > Модули, копирајте и налепите испод код у отворени празни модул, погледајте сцреенсхот:

ВБА код: Уклоните одређену врсту прилога из е-поште:

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. А онда и даље Мицрософт Висуал Басиц за апликације прозор, кликните алат > Референце да одем до Референце-ПројецтКСНУМКС дијалог и провери Мицрософт Сцриптинг Рунтиме опција из Доступне референце бок бок, погледајте сцреенсхот:

доц уклонити приложити тип КСНУМКС

5. Затим кликните OK да бисте затворили дијалог, сада притисните F5 кључ за покретање овог кода и поп-уп окно, унесите тип прилога који желите уклонити, погледајте сцреенсхот:

доц уклонити приложити тип КСНУМКС

6. Клик OK, а све прилоге са одређеним типом који сте дефинисали били су брисани одједном, видите слику екрана:

доц уклонити приложити тип КСНУМКС



Кутоолс за Оутлоок

Више од КСНУМКС напредних функција за Оутлоок КСНУМКС, КСНУМКС, КСНУМКС, КСНУМКС и КСНУМКС

сцреен схот кутоолс фор оутлоок тини за баннер КСНУМКС

Још карактеристика | Бесплатно скидање | Само $ КСНУМКС за стотине функција

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.