Jak automaticky otevírat všechny příchozí e-maily od konkrétních osob v aplikaci Outlook

Outlook neposkytuje funkci pro automatické otevírání všech příchozích e-mailů od konkrétních osob. Tento článek vám tedy odhalí takovou metodu.

Je jisté, že si nechcete nechat ujít žádné e-maily od mimořádně důležitých osob, jako jsou e-maily od vašeho nadřízeného. V takovém případě můžete použít pravidlo Outlooku k zobrazení konkrétního upozornění, když takové e-maily dorazí do vaší poštovní schránky. Kromě toho si můžete také přát, aby Outlook takové e-maily automaticky otevíral. Ačkoli to není podporováno pravidlem aplikace Outlook, stále si to můžete uvědomit prostřednictvím aplikace Outlook VBA. Nyní v následujících částech vystavíme část kódu VBA, která vám pomůže. Chcete-li to získat, přečtěte si dále.

Automatické otevírání všech příchozích e-mailů od konkrétních osob

1. Start with, access Outlook VBA editor by refering to “Jak spustit kód VBA ve vašem Outlooku".
2. Následně otevřete projekt „ThisOutlookSession“ a zkopírujte do něj následující 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

3. Poté restark aktivaci tohoto makra vaší aplikace Outlook.
4. Nyní můžete vyzkoušet. Jednoduše přesuňte e-mail od konkrétních odesílatelů do doručené pošty. Najednou se tento e-mail automaticky otevře ve vlastním okně.

Vyřešte nepříjemné problémy s aplikací Outlook

Pokud používáte Outlook po celá desetiletí, je velmi pravděpodobné, že jste se museli setkat s různými chybami a potížemi. Například když starPokud jste v aplikaci Outlook obdrželi chybovou zprávu uvádějící, že váš soubor PST aplikace Outlook je nepřístupný. Tato chyba obvykle označuje poškození PST. V takovém případě byste byli povinni opravit PST soubor. Mohlo by to být značně špinavé, pokud použijete pouze nástroj pro opravu doručené pošty. Přesto, pokud se uchýlíte k výkonnějšímu a spolehlivějšímu nástroji, jako je DataNumen Outlook Repair, úkol by byl mnohem jednodušší.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com