Note: The other languages of the website are Google-translated. Back to English

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

V naší každodenní práci možná do našeho Outlooku přijde mnoho e-mailů, v tomto případě můžete ignorovat některé důležité e-maily od konkrétní osoby. Chcete-li zabránit tomu, aby vám někdo odcházel od důležitých e-mailů, můžete e-maily otevřít automaticky při příjezdu do aplikace Outlook. V tomto článku představím kód VBA pro otevírání všech e-mailů od konkrétního odesílatele.

Otevřete všechny příchozí e-maily od konkrétní osoby automaticky pomocí kódu VBA


Otevřete všechny příchozí e-maily od konkrétní osoby automaticky pomocí kódu VBA

Chcete-li automaticky otevírat e-maily od konkrétní osoby, může vám pomoci následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete režim a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Automatické otevírání všech e-mailů od konkrétní osoby:

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 = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc otevřít e-maily od odesílatele 1

Poznámka: Ve výše uvedeném kódu můžete změnit adresy odesílatelů na své vlastní.

3. Poté uložte a zavřete toto okno kódu. Restartujte Outlook, aby se kód projevil, od nynějška se všechny e-maily přicházející od osob, které jste určili, automaticky otevřou. Viz snímek obrazovky:

doc otevřít e-maily od odesílatele 2


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (1)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
v mém případě nefungoval, restartoval jsem a přidal jsem 4 e-mailové adresy.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL