Salt la conținutul principal

Cum se elimină un anumit tip de atașamente din e-mailurile din Outlook?

Autor: Xiaoyang Ultima modificare: 2018-05-28

Ați încercat vreodată să eliminați atașamente în mai multe e-mailuri selectate după tipul de fișier în Outlook? De exemplu, eliminarea tuturor fișierelor atașate docx sau png din e-mailurile selectate. Cum ați putea rezolva această sarcină în Outlook?

Eliminați tipul specific de atașamente din e-mailurile cu cod VBA


Eliminați tipul specific de atașamente din e-mailurile cu cod VBA

Pentru a elimina un anumit tip de atașamente din e-mailurile selectate, următorul cod VBA vă poate face o favoare, vă rugăm să procedați astfel:

1. Selectați e-mailurile pe care doriți să le eliminați tipul specific de atașamente din lista de corespondență.

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide 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, vedeți captura de ecran:

Cod VBA: eliminați un anumit tip 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 Instrumente > Referinte a merge la Referințe-Proiect1 casetă de dialog și bifați Runtime Microsoft Scripting opțiune de la Referințe disponibile casetă listă, vezi captura de ecran:

doc eliminați atașarea după tipul 1

5. Apoi apasa OK pentru a închide dialogul, acum, apăsați F5 pentru a rula acest cod și apare o casetă de prompt, introduceți tipul de atașament pe care doriți să îl eliminați, vedeți captura de ecran:

doc eliminați atașarea după tipul 2

6. Clic OKși toate atașamentele cu tipul specific pe care îl definiți au fost șterse simultan, consultați captura de ecran:

doc eliminați atașarea după tipul 3


Cele mai bune instrumente de productivitate de birou

Ultime știri: Kutools pentru lansări Outlook Versiune gratuită!

Experimentați noul Kutools pentru Outlook Versiune GRATUITĂ cu peste 70 de funcții incredibile, pe care o poți folosi PENTRU TOTDEAUNA! Faceți clic pentru a descărca acum!

🤖 Kutools AI : E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: Răspuns automat (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Rechemare e-mailuri  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente ProSalvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Amintește-ți când vin e-mailuri importante  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Deblocați instantaneu Kutools pentru Outlook cu un singur clic—permanent liber. nu astepta, descărcați acum și creșteți-vă eficiența!

 

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Awesome, I was looking for this exactly. I just made a modification to remove attachments with specific string on the name.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations