Τρόπος αυτόματης μετακίνησης εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε συγκεκριμένους φακέλους με βάση τα ονόματα αρχείων συνημμένων

Πολλοί χρήστες ελπίζουν ότι το Outlook μπορεί να μετακινεί και να αρχειοθετεί αυτόματα τα εισερχόμενα email σε συγκεκριμένους φακέλους αλληλογραφίας σύμφωνα με τα ονόματα των αρχείων συνημμένων. Έτσι, σε αυτό το άρθρο, θα εκθέσουμε έναν γρήγορο τρόπο για να σας βοηθήσουμε να το αποκτήσετε με το Outlook VBA.

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

Αυτόματη μετακίνηση εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε συγκεκριμένους φακέλους βάσει συνημμένων

1. Για ωςtart, ξεκινήστε το πρόγραμμα Outlook ως συνήθως.
2. Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" για πρόσβαση στον επεξεργαστή VBA.
3. Στο επόμενο παράθυρο "Microsoft Visual Basic for Applications", μπορείτε να βρείτε και να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά.
4. Στη συνέχεια, στο ανοιχτό παράθυρο του έργου "ThisOutlookSession", αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς VBA.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Στη συνέχεια, πρέπει να υπογράψετε ψηφιακά το νέο έργο VBA.

• Πρώτον, μπορείτε να χρησιμοποιήσετε το ενσωματωμένο εργαλείο - Ψηφιακά πιστοποιητικά για έργα VBA για να δημιουργήσετε ένα προσωπικό πιστοποιητικό.
• Στη συνέχεια, στο πρόγραμμα επεξεργασίας VBA, κάντε κλικ στο "Εργαλεία"> "Ψηφιακή υπογραφή" στη γραμμή εργαλείων.
• Στη συνέχεια, ακολουθήστε τις οδηγίες στην οθόνη για να την υπογράψετε.

6. Μετά από αυτό, μπορείτε να κλείσετε το πρόγραμμα επεξεργασίας VBA και να αλλάξετε την ασφάλεια μακροεντολών του Outlook σε χαμηλή.
7. Αργότερα θα έπρεπε να απαντήσετεtart Outlook για να ενεργοποιήσετε το νέο έργο VBA.
8. Τελικά, από τώρα και στο εξής, το Outlook θα ελέγξει αυτόματα τα ονόματα αρχείων των συνημμένων όλων των εισερχόμενων μηνυμάτων ηλεκτρονικού ταχυδρομείου και θα μετακινήσει τα συγκεκριμένα σε συγκεκριμένους φακέλους.

Προστατεύστε τα δεδομένα PST σας

Είναι αλμost ένα αδιαμφισβήτητο γεγονός ότι το Outlook είναι ευάλωτο σε διαφθορά. Ως εκ τούτου, είναι πολύ δύσκολο έργο να προστατεύσετε τα δεδομένα PST σας από ζημιές. Ωστόσο, μπορείτε να βρείτε ορισμένους κανόνες και συμβουλές. Για παράδειγμα, για να αποτρέψετε την απώλεια δεδομένων PST, μπορείτε να συνεχίσετε να δημιουργείτε τακτικά αντίγραφα ασφαλείας δεδομένων. Επιπλέον, προκειμένου να παρέχετε άμεση διάσωση μετά το σφάλμα του Outlook, μπορείτε να προετοιμάσετε έναν έμπειρο Διόρθωση PST εργαλείο, όπως DataNumen Outlook Repair.

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

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