Pokud chcete počítat e-maily podle odesílatele, můžete si přečíst tento článek. Zde vám vystavíme 2 rychlé přístupy.
Abyste zjistili, kdo je pro vás nejaktivnější odesílatel, můžete chtít spočítat e-maily podle odesílatele. Ačkoli Outlook pro to přímou funkci nenabízí, stále můžete hledat nějaká řešení, například následující Metodu 1. Pokud si myslíte, že Metoda 1 je příliš zdlouhavá, můžete zvolit Metodu 2. Je mnohem efektivnější v tom, že používá VBA k rychlému počítání e-mailů podle odesílatele a exportu počtů do Excelu. Nyní si přečtěte oba způsoby podrobněji. Zde si jako příklad vezmeme e-maily ve složce Doručená pošta.
Metoda 1: Získejte počty po seskupení položek do pole „Od“
- Nejprve spusťte aplikaci Outlook.
- Poté otevřete složku Doručená pošta.
- Dále přepněte na kartu „Zobrazit“.
- Následně ve skupině „Uspořádání“ zvolte „Od“.
- Najednou byly všechny položky doručené pošty rozděleny do různých skupin podle různých odesílatelů.
- Chcete-li nyní spočítat položky od konkrétního odesílatele, můžete vybrat všechny položky v související skupině a stisknout klávesu „Enter“. Ve vyskakovacím upozornění uvidíte počet.
To znamená, že je to docela snadné, ale počty položek ve skutečnosti zahrnují další typy položek, jako jsou pozvánky na schůzku, žádosti o úkoly a potvrzení, nejen počty e-mailů. Pokud tedy chcete počítat pouze e-maily, můžete místo toho použít následující způsob.
Metoda 2: Počítání e-mailů podle odesílatele pomocí aplikace Outlook VBA
- Pro začátek stiskněte v Outlooku klávesy „Alt + F11“.
- Poté povolte „Knihovnu objektů MS Excel“ podle pokynů „Jak přidat odkaz na knihovnu objektů ve VBA".
- Dále zkopírujte níže uvedený kód do nepoužívaného modulu.
Sub CountInboxEmailsbySender()
Dim objDictionary As Object
Dim objInbox As Outlook.Folder
Dim i As Long
Dim objMail As Outlook.MailItem
Dim strSender As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim varSenders As Variant
Dim varItemCounts As Variant
Dim nLastRow As Integer
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
For i = objInbox.Items.Count To 1 Step -1
If objInbox.Items(i).Class = olMail Then
Set objMail = objInbox.Items(i)
strSender = objMail.SenderEmailAddress
If objDictionary.Exists(strSender) Then
objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
Else
objDictionary.Add strSender, 1
End If
End If
Next
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Add
Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
With objExcelWorksheet
.Cells(1, 1) = "Sender"
.Cells(1, 2) = "Count"
End With
varSenders = objDictionary.Keys
varItemCounts = objDictionary.Items
For i = LBound(varSenders) To UBound(varSenders)
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = varSenders(i)
.Cells(nLastRow, 2) = varItemCounts(i)
End With
Next
objExcelWorksheet.Columns("A:B").AutoFit
End Sub
- Poté stiskněte tlačítko „F5“.
- Po dokončení makra se zobrazí nový soubor aplikace Excel.
- Jak vidíte, obsahuje počty doručených e-mailů od různých odesílatelů.
Zlikvidujte frustrující potíže s Outlookem
Možná jste někdy měli ve svém Outlooku mnoho problémů. Abyste je mohli účinně řešit, můžete toužit po všestranném a mocném způsobu. Ve skutečnosti však taková metoda neexistuje. Můžete si dát pozor na své vlastní operace v aplikaci Outlook a provádět pravidelné zálohy. Samozřejmě, pokud je to možné, navrhujeme, abyste si raději nechali po ruce zkušený nástroj pro opravu DataNumen Outlook Repair. Může opravit různé problémy s PST a opravit poškozený PST pilujte jako vánek.
Ú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ě zotavit se Sql Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com