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

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

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

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

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

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

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

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

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc ανοιχτά email από τον αποστολέα 1

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε τις διευθύνσεις των αποστολέων στις δικές σας.

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

doc ανοιχτά email από τον αποστολέα 2