Πώς να αποθηκεύσετε αυτόματα όλα τα συνημμένα από αποστολείς σε έναν συγκεκριμένο τομέα μέσω του Outlook VBA

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

Ίσως όλο το προσωπικό της εταιρείας σας να χρησιμοποιεί τις διευθύνσεις email που βρίσκονται στον ίδιο τομέα. Δεδομένου ότι στέλνετε συχνά μηνύματα ηλεκτρονικού ταχυδρομείου με διάφορα συνημμένα μεταξύ τους, ίσως θέλετε το Outlook να αποθηκεύει αυτόματα τα συνημμένα από τέτοια μηνύματα. Σε αυτήν την περίπτωση, το Outlook θα ζητηθεί να ελέγξει αυτόματα τον τομέα αποστολέα του email και συνημμένα αυτόματης αποθήκευσης. Τώρα, στα ακόλουθα, θα μοιραστούμε ένα κομμάτι κώδικα VBA που είναι σε θέση να το πραγματοποιήσει με αβίαστη ευκολία.

Αυτόματη αποθήκευση όλων των συνημμένων από αποστολείς σε έναν συγκεκριμένο τομέα

1. Αρχικά, εκτελέστε το πρόγραμμα επεξεργασίας του Outlook VBA σύμφωνα με το "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
2. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα σε μια μονάδα που δεν χρησιμοποιείται.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
   Set objInboxItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
   Dim objMail As Outlook.MailItem
   Dim strSenderAddress As String
   Dim strSenderDomain As String
   Dim objAttachment As Attachment
   Dim strFolderPath As String
   Dim strFileName As String

   If Item.Class = olMail Then
      Set objMail = Item

      'Get sender domain
      strSenderAddress = objMail.SenderEmailAddress
      strSenderDomain = Right(strSenderAddress, Len(strSenderAddress) - InStr(strSenderAddress, "@"))

      'Change to the specific domain as per your needs
      If strSenderDomain = "datanumen.net" Then
         If objMail.Attachments.Count > 0 Then
            For Each objAttachment In objMail.Attachments
                'Change the folder path where you want to save attachments
                strFolderPath = "E:\Attachments\"
                strFileName = objMail.Subject & " " & Chr(45) & " " & objAttachment.FileName
                objAttachment.SaveAsFile strFolderPath & strFileName
            Next
         End If
      End If
   End If
End Sub

3. Στη συνέχεια, επανεκκινήστε το Outlook για να ενεργοποιήσετε αυτήν τη μακροεντολή.
4. Έκτοτε, κάθε φορά που ένα εισερχόμενο email εισέρχεται στα εισερχόμενά σας, το Outlook ελέγχει αυτόματα τον τομέα αποστολέα. Εάν είναι ίδιο με τον προκαθορισμένο τομέα και περιέχει συνημμένα, το Outlook θα αποθηκεύσει αυτόματα τα συνημμένα σε συγκεκριμένο τοπικό φάκελο.

Ποτέ μην ανοίγετε συνημμένα από αποστολείς σε άγνωστους τομείς

Συνιστάται να μην εμπιστεύεστε εύκολα και να κατεβάζετε τα συνημμένα από αυτά σε άγνωστους τομείς. Είναι επειδή μπορεί να είναι προικισμένοι με κακόβουλο λογισμικό ή ιούς Μόλις τα ανοίξετε, το αρχείο Outlook ενδέχεται να επιτεθεί. Με άλλα λόγια, ενδέχεται να υποστεί καταστροφή του αρχείου Outlook. Εκείνη την εποχή, ακόμη και Σάρωση είναι ανίκανος να σας βοηθήσει. Το μοναδικό σας θέρετρο είναι είτε ένα πιο ισχυρό εργαλείο είτε μια εξειδικευμένη υπηρεσία ανάκτησης PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com