Přejete si často odpovědět všem, včetně sebe jako příjemce? Pokud vždy ručně přidáte svou vlastní e-mailovou adresu, bude to chaotické. Tento článek vás naučí, jak to udělat automaticky.
Možná máte v Outlooku nakonfigurováno několik e-mailových účtů. Proto možná z důvodu pohodlí pro budoucí kontrolu, když odpovídáte na e-mail všem příjemcům, možná budete chtít uvést jako příjemce také svou další e-mailovou adresu. Za předpokladu, že tento požadavek máte často, bude zdlouhavé, když budete vždy přidávat svůj vlastní e-mailový účet ručně. V reakci na tento problém vám zde představíme jedno řešení a také rychlou metodu prostřednictvím aplikace Outlook VBA.
Řešení: Vytvořte pravidlo aplikace Outlook
- Na úplném začátku spusťte aplikaci Outlook a klikněte na tlačítko „Pravidlo“ ve skupině „Přesunout“ na kartě „Domů“ v aplikaci Pošta. V rozevíracím seznamu vyberte „Spravovat pravidla a upozornění“.
- Poté ve vyskakovacím okně klikněte na tlačítko „Nové pravidlo“.
- Dále vyberte „Použít pravidlo na zprávy, které odesílám“ a klikněte na „Další“.
- Poté byste měli vybrat „s konkrétními slovy v předmětu“, kliknout na odkaz „konkrétní slova“ a poté přidat „RE“.

- Po přidání a kliknutí na „Další“ byste měli zadat akci. Zvolte „Kopírovat zprávu lidem nebo veřejné skupině“, klikněte na odkaz „lidé nebo veřejná skupina“ a do pole „Komu“ zadejte svou vlastní e-mailovou adresu.
- Nakonec můžete kliknout na „Další“ a dokončit nastavení pravidla jako obvykle.
Toto řešení však automaticky nepřidá vaši vlastní e-mailovou adresu jako jednoho příjemce do e-mailu s odpovědí. Vytvoří další nový e-mail a přidá vás do pole „CC“ a odešle jej. Také není schopen identifikovat počet příjemců a rozpoznat, zda se jedná o e-mail s odpovědí všem. Chcete-li vyřešit slabé stránky tohoto řešení, zde je skutečná metoda prostřednictvím aplikace Outlook VBA.
Použijte VBA k automatickému zahrnutí sebe sama do odpovědi všem
- Pro začátek spusťte Outlook a stiskněte klávesy „Alt + F11“.
- Poté ve vyskakovacím okně „Visual Basic“ otevřete projekt „ThisOutlookSession“ a zkopírujte a vložte do něj následující kódy VBA.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Recip As Recipient
Dim MyAddr As String
'Replace with your own email address
MyAddr = "youremailaddress@datanumen.com"
If InStr(Item.Subject, "RE") > 0 Then
If Item.Recipients.Count > 1 Then
If MsgBox("Reply All Including Yourself?", vbYesNo + vbQuestion) = vbYes Then
Set Recip = Item.Recipients.Add(MyAddr)
'To CC, replace "olTo" with "olCC"
'To BCC, replace "olTo" with "olBCC"
Recip.Type = olTo
Recip.Resolve
End If
End If
End If
End Sub
- Poté byste měli podepsat tento kód a změnit nastavení maker tak, aby povolovala pouze digitálně podepsaná makra.
- Nakonec to můžete zkusit. Když odpovíte všem příjemcům a kliknete na tlačítko „Odeslat“, zobrazí se výzva aplikace Outlook, jako je následující snímek obrazovky. Pokud stisknete „Ano“, Outlook automaticky přidá vaši vlastní e-mailovou adresu.
Postarejte se o své soubory PST aplikace Outlook
Vzhledem k zranitelnostem souboru PST aplikace Outlook byste si měli dávat pozor na všechna potenciální rizika, která jej obklopují. Například byste měli uchovávat soubor v malé velikosti, protože tento příliš velký soubor PST je mnohem náchylnější k poškození. Také byste měli získat hvězdu nástroj pro opravu poškozených souborů PST, který vás zachrání, když utrpíte neočekávané poškození souboru PST.
Ú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 poškozený SQL Server db a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com


