Πώς να ανοίξετε αυτόματα όλα τα εισερχόμενα μηνύματα ηλεκτρονικού ταχυδρομείου από συγκεκριμένα άτομα στο Outlook

Λύσεις του Outlook Σεπτέμβριος 29, 2025

Το Outlook δεν παρέχει μια δυνατότητα για να ανοίγει αυτόματα όλα τα εισερχόμενα email από συγκεκριμένα άτομα. Έτσι, αυτό το άρθρο θα σας παρουσιάσει μια τέτοια μέθοδο.

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

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

Προς start με, αποκτήστε πρόσβαση στον επεξεργαστή Outlook VBA ανατρέχοντας στο "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
Στη συνέχεια, ανοίξτε το έργο "ThisOutlookSession" και αντιγράψτε τον ακόλουθο κώδικα VBA σε αυτό.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

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

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

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

Επίλυση ενοχλητικών προβλημάτων του Outlook

Με την προϋπόθεση ότι έχετε χρησιμοποιήσει το Outlook για δεκαετίες, είναι πολύ πιθανό να έχετε συναντήσει διάφορα σφάλματα και προβλήματα. Για παράδειγμα, όταν starστο Outlook, λάβατε ένα μήνυμα σφάλματος που αναφέρει ότι το αρχείο PST του Outlook δεν είναι προσβάσιμο. Αυτό το σφάλμα συνήθως υποδεικνύει καταστροφή του PST. Σε αυτή την περίπτωση, θα σας ζητηθεί επιδιορθώστε το PST αρχείο. Θα μπορούσε να είναι πολύ μπερδεμένο εάν χρησιμοποιείτε μόνο το εργαλείο επισκευής εισερχομένων. Ωστόσο, εάν καταφύγετε σε ένα πιο ισχυρό και αξιόπιστο εργαλείο, όπως π.χ DataNumen Outlook Repair, το έργο θα ήταν πολύ πιο εύκολο.

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

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