Ako automaticky otvárať všetky prichádzajúce e-maily od konkrétnych osôb v programe Outlook

Riešenia pre Outlook September 29, 2025

Outlook neposkytuje funkciu na automatické otváranie všetkých prichádzajúcich e-mailov od konkrétnych osôb. Tento článok vám teda vystaví takúto metódu.

Určite si nechcete nechať ujsť žiadne e-maily od mimoriadne dôležitých osôb, napríklad e-maily od nadriadeného. V takom prípade môžete využiť pravidlo Outlooku na zobrazenie konkrétneho upozornenia, keď vám tieto e-maily prídu do poštovej schránky. Okrem toho si môžete tiež želať, aby program Outlook tieto e-maily automaticky otváral. Aj keď to nie je podporované pravidlom Outlooku, stále si to môžete uvedomiť prostredníctvom Outlooku VBA. Teraz v nasledujúcich častiach zverejníme kúsok kódu VBA, ktorý vám pomôže. Ak ju chcete získať, prečítajte si ďalej.

Automatické otvorenie všetkých prichádzajúcich e-mailov od konkrétnych osôb

K stars prístupom k editoru Outlook VBA odkazom na „Ako spustiť kód VBA v programe Outlook".
Následne otvorte projekt „ThisOutlookSession“ a skopírujte do neho nasledujúci kód 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

Po tom, restarsvoju aplikáciu Outlook aktivovať toto makro.
Teraz to môžete vyskúšať. Stačí presunúť e-mail od konkrétnych odosielateľov do doručenej pošty. Tento e-mail sa súčasne automaticky otvorí vo vlastnom okne.

Riešenie nepríjemných problémov s programom Outlook

Za predpokladu, že ste Outlook používali už celé desaťročia, je veľmi pravdepodobné, že ste sa určite stretli s rôznymi chybami a problémami. Napríklad keď starKeď otvoríte svoj program Outlook, zobrazí sa chybové hlásenie, že váš súbor PST programu Outlook je neprístupný. Táto chyba zvyčajne naznačuje poškodenie PST. V takom prípade by sa od vás vyžadovalo opraviť PST spis. Ak použijete iba nástroj na opravu doručenej pošty, môže to byť značne nepríjemné. Ak však použijete výkonnejší a spoľahlivejší nástroj, ako napr DataNumen Outlook Repair, úloha by bola oveľa ľahšia.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S