Πώς να περιορίσετε τον αριθμό των email που άνοιξαν ταυτόχρονα με το Outlook VBA

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

Το Outlook είναι επιρρεπές σε σφάλμα όταν υπερφορτώνεται, όπως όταν ανοίγουν πάρα πολλά email ταυτόχρονα. Επομένως, καλύτερα να διατηρείτε ανοιχτά τα περιορισμένα μηνύματα ηλεκτρονικού ταχυδρομείου κάθε φορά. Παρόλο που το Outlook δεν το υποστηρίζει εγγενώς, μπορείτε εύκολα να το επιτύχετε με τα ακόλουθα μέσα.

Περιορίστε τον αριθμό των email που άνοιξαν ταυτόχρονα

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

Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

5. Μετά από αυτό, πρέπει να υπογράψετε αυτήν τη μακροεντολή.

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

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

Ανάκτηση πολύτιμων δεδομένων του Outlook

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

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

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