Cum să deschideți automat toate e-mailurile primite de la anumite persoane în Outlook

Outlook nu oferă o caracteristică pentru a deschide automat toate e-mailurile primite de la anumite persoane. Astfel, acest articol vă va expune o astfel de metodă.

Este sigur că nu vrei să ratezi niciun e-mail de la persoanele extrem de importante, cum ar fi e-mailurile de la superiorul tău. În acest caz, puteți utiliza regula Outlook pentru a afișa o anumită alertă atunci când astfel de e-mailuri ajung în căsuța dvs. poștală. În afară de aceasta, este posibil să doriți ca Outlook să deschidă automat astfel de e-mailuri. Deși nu este acceptat de regula Outlook, tot puteți realiza acest lucru prin Outlook VBA. Acum, în cele ce urmează, vom expune o bucată de cod VBA pentru a vă ajuta. Vă rugăm să citiți mai departe pentru a-l obține.

Deschide automat toate e-mailurile primite de la anumite persoane

1. Pentru a start cu, accesați editorul Outlook VBA făcând referire la „Cum să rulați codul VBA în Outlook".
2. Ulterior, deschideți proiectul „ThisOutlookSession” și copiați următorul cod VBA în el.

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

3. După aceea, restaraplicația dvs. Outlook pentru a activa această macrocomandă.
4. Acum, poți să încerci. Doar mutați un e-mail care este de la anumiți expeditori în Inbox. Imediat, acest e-mail va fi deschis automat în propria fereastră.

Rezolvați problemele enervante ale Outlook

Cu condiția că ați folosit Outlook de zeci de ani, este foarte probabil să fi întâlnit diverse erori și probleme. De exemplu, când starla Outlook, ați primit un mesaj de eroare care menționează că fișierul dvs. PST Outlook este inaccesibil. Această eroare indică de obicei o corupție PST. În acest caz, vi se va cere reparați PST fişier. Ar putea fi considerabil noduri dacă folosiți doar instrumentul de reparare a căsuței de intrare. Cu toate acestea, dacă recurgeți la un instrument mai puternic și mai fiabil, cum ar fi DataNumen Outlook Repair, sarcina ar fi mult mai ușoară.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com