Cookie-urile ne ajuta sa oferim serviciile noastre. Prin utilizarea serviciilor noastre, sunteți de acord cu utilizarea de cookie-uri.
Sfat: alte limbi sunt traduse de Google. Puteți vizita English versiune a acestei legături.
Contul meu
x
or
x
x
Inregistreaza-te
x

or

Cum se elimină anumite tipuri de atașamente din e-mailuri în Outlook?

Ați încercat vreodată să eliminați atașamentele din mai multe e-mailuri selectate după tipul de fișier din Outlook? Cum ar fi eliminarea tuturor fișierelor de docx sau png din e-mailurile selectate. Cum ai putut rezolva acest loc de muncă în Outlook?

Eliminați tipul specific de atașamente din e-mailuri cu codul VBA


Eliminați tipul specific de atașamente din e-mailuri cu codul VBA

Pentru a elimina anumite tipuri de atașamente din e-mailurile selectate, următorul cod VBA vă poate face o favoare, vă rugăm să faceți următoarele:

1. Selectați e-mailurile pe care doriți să le eliminați din lista de adrese.

2. Țineți apăsată tasta ALT + F11 pentru a deschide tasta Microsoft Visual Basic pentru aplicații fereastră.

3. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, consultați captura de ecran:

Codul VBA: Eliminați tipul specific de atașamente din e-mailuri:

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. Și apoi încă în Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe unelte > Referinte pentru a merge la Referințe-Project1 caseta de dialog și verificați Microsoft Runtime pentru Scripting Microsoft opțiune de la Referințe disponibile listă, vedeți captura de ecran:

doc elimina atașați după tipul 1

5. Apoi apasa OK pentru a închide dialogul, acum, apăsați F5 cheia pentru a rula acest cod, și o casetă de prompt este scos, vă rugăm să introduceți tipul de atașament pe care doriți să-l eliminați, a se vedea captura de ecran:

doc elimina atașați după tipul 2

6. Clic OK, și toate atașările cu tipul specific pe care ați definit-o au fost șterse dintr-o dată, vedeți captura de ecran:

doc elimina atașați după tipul 3



Kutools pentru Outlook

Mai mult decât funcțiile avansate 100 pentru Outlook 2010, 2013, 2016, 2019 și 365

ecran shot kutools pentru outlook minuscule pentru banner 201812

Mai multe caracteristici | Descărcare gratuită | Doar $ 39.00 pentru sute de funcții

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.