Někdy můžete chtít vypočítat celkový počet příjemců v konkrétním e-mailu. Ale Outlook nemá žádnou zjevnou funkci „počítání“, která by ji podporovala. Tento článek tedy představí 2 přístupy k jeho dosažení.
V některých situacích, například když jste do e-mailu přidali velké množství příjemců a je obtížné je spravovat, chtěli byste získat celkový počet těchto příjemců. Ale Outlook nemá nativní nebo výchozí podporu pro počítání. Abyste toho dosáhli, musíte vyvinout další úsilí. Zde vám řekneme 2 metody.
Metoda 1: Spočítat počet příjemců prostřednictvím skupiny kontaktů
- Nejprve byste měli vybrat všechny příjemce v polích „Komu“, „Kopie“ a „Skrytá kopie“ a zkopírovat je do prázdného místa v těle zprávy.
- Poté vyberte všechny příjemce v těle a zkopírujte je také.
- Dále přejděte do podokna Kontakty aplikace Outlook a stiskněte „Nová skupina kontaktů“. V rozbalovacím okně nastavte název na „Temp“ a poté klikněte na „Add Members“ a v rozevíracím seznamu vyberte „From Address Book“.
- Následně vložte dříve zkopírované příjemce do pole „Člen ->“, jako na následujícím snímku obrazovky:
- Poté klikněte na tlačítko „OK“ a zpět do skupiny kontaktů. Všechny duplikáty budou automaticky odstraněny. Nyní jej uložte na místní disk jako „textový“ soubor.
- Později otevřete textový soubor a odstraňte zbytečné záhlaví, jako je obrázek níže:
- Nakonec můžete umístit kurzor na poslední řádek. Ve stavovém řádku uvidíte celkový počet řádků. To je celkový počet příjemců.
Metoda 2: Počítejte počet příjemců pomocí aplikace Outlook VBA
- Nejprve stisknutím kláves „Alt + F11“ otevřete okno „Visual Basic“.
- Poté zkopírujte a vložte následující kódy VBA do nového modulu.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Poté můžete opustit okno „Visual Basic“ a přidat nové makro na panel nástrojů Rychlý přístup v hlavním okně aplikace Outlook a v okně zprávy.
- Nakonec můžete vyzkoušet:
- Když vyberete e-mail a stisknete tlačítko na panelu nástrojů Rychlý přístup, zobrazí se zpráva jako na následujícím obrázku:
- Když otevřete e-mail a kliknete na tlačítko, zobrazí se dialogové okno zobrazené jako obrázek níže:
Poznámka: Tato metoda bude považovat skupinu kontaktů za jednoho příjemce a nebude obcházet duplicitní příjemce.
Boj proti nebezpečným makrům
Jak všichni víme, e-mailové viry patří mezi nejčastější hrozby pro data. Proto je nesmírně důležité nakonfigurovat Outlook tak, aby povolil pouze digitálně podepsaná makra, která mohou blokovat viry a malware. Navíc byste měli mít robustní poškozený nástroj pro opravu souborů aplikace Outlook, Jako DataNumen Outlook Repair. Bude se vám hodit, když váš Outlook utrpí virovou infekci nebo malware.
Ú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 chybu dat mdf SQL a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com