Τα cookies μάς βοηθούν να παρέχουμε τις υπηρεσίες μας. Με τη χρήση των υπηρεσιών μας, συμφωνείτε με τη χρήση των cookies.
Συμβουλή: Άλλες γλώσσες μεταφράζονται από την 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 πλαίσιο ελέγχου και ελέγξτε Runtime της Microsoft Scripting Επιλογή από το Διαθέσιμες αναφορές , δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε επισυνάψτε τον τύπο 1

5. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου, πατήστε τώρα F5 για να εκτελέσετε αυτόν τον κωδικό και εμφανίζεται ένα prompt πλαίσιο, εισαγάγετε τον τύπο συνημμένου που θέλετε να καταργήσετε, δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε επισυνάψτε τον τύπο 2

6. Κλίκ OK, και όλα τα συνημμένα με τον συγκεκριμένο τύπο που έχετε ορίσει έχουν διαγραφεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

doc αφαιρέστε επισυνάψτε τον τύπο 3



Kutools για το Outlook

Περισσότερες από τις προχωρημένες λειτουργίες 100 για Outlook 2010, 2013, 2016, 2019 και 365

πυροβολισμό οθόνης kutools για προοπτική μικροσκοπικό για banner 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.