Πώς να αφαιρέσετε αυτόματα τα συνημμένα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από τα απεσταλμένα στοιχεία;

Κατά την αποστολή email με ορισμένα συνημμένα, τα συνημμένα θα αποθηκεύονται με τα email στο φάκελο απεσταλμένων στοιχείων από προεπιλογή. Για να μειώσετε το μέγεθος του αρχείου PST, ίσως θελήσετε να καταργήσετε τα συνημμένα από τα απεσταλμένα στοιχεία αυτόματα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου. Αυτό το άρθρο, θα μιλήσω για αυτήν την εργασία στο Outlook.

Καταργήστε αυτόματα τα συνημμένα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από τα απεσταλμένα στοιχεία

Καταργήστε αυτόματα τα συνημμένα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από τα απεσταλμένα στοιχεία

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να διαγράψετε αυτόματα τα συνημμένα μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Outlook, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

Κωδικός VBA: Αυτόματη κατάργηση συνημμένων μετά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από τα απεσταλμένα στοιχεία:

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub

3. Αφού εισαγάγετε τον παραπάνω κώδικα, επανεκκινήστε το Outlook για να τεθεί σε ισχύ ο κώδικας.

4. Από εδώ και στο εξής, όταν στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου με συνημμένα, τα συνημμένα θα διαγράφονται αυτόματα από τα απεσταλμένα στοιχεία, όπως φαίνεται στο ακόλουθο στιγμιότυπο οθόνης: