Czasami możesz chcieć obliczyć całkowitą liczbę odbiorców określonej wiadomości e-mail. Ale Outlook nie ma oczywistej funkcji „liczenia”, która by go obsługiwała. W tym artykule przedstawię 2 podejścia, aby to osiągnąć.
W niektórych sytuacjach, na przykład, gdy dodajesz dużą liczbę odbiorców do wiadomości e-mail i trudno jest nimi zarządzać, chcesz uzyskać całkowitą liczbę tych odbiorców. Ale program Outlook nie ma natywnej ani domyślnej obsługi do zliczania. Dlatego musisz podjąć dodatkowe wysiłki, aby to osiągnąć. Tutaj powiemy ci 2 metody.
Metoda 1: Policz liczbę odbiorców za pomocą grupy kontaktów
- Na początek należy zaznaczyć wszystkich odbiorców w polach „Do”, „DW” i „UDW” i skopiować ich dane w puste miejsce w treści wiadomości.
- Następnie wybierz wszystkich odbiorców w treści i skopiuj ich również.
- Następnie przejdź do panelu kontaktów programu Outlook i naciśnij „Nowa grupa kontaktów”. W wyskakującym okienku ustaw nazwę jako "Temp", a następnie kliknij "Dodaj członków" i wybierz "Z książki adresowej" z rozwijanej listy.
- Następnie wklej skopiowanych wcześniej odbiorców w polu „Członek ->”, jak na poniższym zrzucie ekranu:
- Następnie kliknij przycisk „OK” i wróć do grupy kontaktów. Wszystkie duplikaty zostaną automatycznie usunięte. Teraz zapisz go na dysku lokalnym jako plik „Text”.
- Później otwórz plik tekstowy i usuń bezużyteczny nagłówek, jak na poniższym obrazku:
- Na koniec możesz umieścić kursor w ostatniej linii. Zobaczysz całkowitą liczbę linii na pasku stanu. To jest całkowita liczba odbiorców.
Metoda 2: Policz liczbę odbiorców za pomocą Outlook VBA
- Najpierw naciśnij klawisze „Alt + F11”, aby uzyskać dostęp do okna „Visual Basic”.
- Następnie skopiuj i wklej następujące kody VBA do nowego modułu.
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
- Następnie możesz wyjść z okna „Visual Basic” i dodać nowe makro do paska narzędzi szybkiego dostępu głównego okna programu Outlook i okna wiadomości.
- W końcu możesz spróbować:
- Po wybraniu wiadomości e-mail i naciśnięciu przycisku na pasku narzędzi szybkiego dostępu otrzymasz wiadomość podobną do poniższego obrazu:
- Po otwarciu wiadomości e-mail i kliknięciu przycisku pojawi się okno dialogowe pokazane na poniższym obrazku:
Uwaga: Ta metoda traktuje grupę kontaktów jako jednego odbiorcę i nie pomija zduplikowanych odbiorców.
Walka z niebezpiecznymi makrami
Jak wszyscy wiemy, wirusy rozsyłane pocztą elektroniczną stanowią jedno z najczęstszych zagrożeń dla danych. Dlatego niezwykle ważne jest skonfigurowanie programu Outlook wyłącznie do obsługi makr podpisanych cyfrowo, które mogą blokować wirusy i złośliwe oprogramowanie. Ponadto, lepiej jest zachować solidne… uszkodzone narzędzie do naprawy plików programu Outlook, Takie jak DataNumen Outlook Repair. Przyda się, gdy Twój Outlook zostanie zainfekowany wirusem lub zaatakowany przez złośliwe oprogramowanie.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw błąd danych SQL mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com