Kā ātri saskaitīt ienākošos e-pastus pēc datuma, mēneša vai gada, izmantojot Outlook VBA

Ja vēlaties saskaitīt ienākošo e-pastu skaitu noteiktā datumā vai noteiktā mēnesī vai gadā, varat izmantot šajā rakstā ieviestos ātros līdzekļus. Tas iemācīs, kā izmantot VBA, lai to iegūtu zibenīgi.

Runājot par to, cik daudz e-pastu saņemts noteiktā datumā vai periodos, daudzi ir pieraduši izmantot Outlook meklēšanas mapi, kas ļauj mums vienā meklēšanas mapē apkopot visus konkrētajā datumā vai datumu diapazonā ienākošos e-pastus. Tad mēs varam izmantot pasta mapes funkciju “rādīt kopējo vienumu skaitu”, lai to iegūtu. Tomēr bez šaubām šī metode ir diezgan apgrūtinoša. Tādējādi šeit mēs iemācīsim jums vēl vienu triku, kas var izmantot Outlook VBA, lai palīdzētu jums iegūt kopējo skaitu. Tagad lasiet tālāk, lai uzzinātu detalizētas darbības un kodus.

Skaitiet ienākošos e-pastus pēc datuma

1. Uz start, pareizi palaidiet programmu Outlook.
2. Pēc tam varat pārslēgties uz cilni “Izstrādātājs” un noklikšķināt uz pogas “Visual Basic”.
3. Pēc tam uznirstošajā Outlook VBA redaktora logā varat atvērt jaunu moduli, izvēloties “Insert”> “Module”.
4. Pēc tam nokopējiet šādus VBA kodus jaunajā modulī.

'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strDay As String
    Dim dReceivedTime As Date
    Dim strReceivedDate As String
    Dim i, n As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strDay = InputBox("Enter the specific day.(Format: yyyy-mm-dd)", "Specify Date")
 
    If strDay <> "" Then
       n = 0
       For i = 1 To objItems.Count
           If objItems.Item(i).Class = olMail Then
              Set objMail = objItems.Item(i)
              dReceivedTime = objMail.ReceivedTime
              strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)
              If strReceivedDate = strDay Then
                 n = n + 1
              End If
           End If
       Next i
 
       strMsg = "You have received " & n & " emails on " & strDay & "."
       nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
    Else
       nPrompt = MsgBox("Please input the specific day!", vbExclamation)
    End If
End Sub

Piezīme: Šis kods darbojas, lai ienākošos e-pastus uzskaitītu pēc datuma.

5. Pēc tam jauno makro varat pievienot ātrās piekļuves rīkjoslai kā parasti.
6. Visbeidzot, jūs varat izmēģināt.

• Pirmkārt, atlasiet mapi Iesūtne.
• Pēc tam noklikšķiniet uz pogas Ātrās piekļuves rīkjoslā.
• Pēc tam jums jāievada noteikts datums formātā “gggg-mm-dd”.
• Visbeidzot, jūs saņemsit uzvedni par kopējo skaitu, piemēram, zemāk redzamo attēlu:

Skaitiet ienākošos e-pastus pēc mēneša vai gada

Tā kā iepriekšējais kods ir norādīts skaitīšanai pēc dienas, ja vēlaties skaitīt pēc mēneša vai gada, kodos ir jāveic dažas izmaiņas.

1. Pirmkārt, nomainiet visu strDay uz strMēnesis or strYear.
2. Otrkārt, aizstājiet rindu “strDay = InputBox (“ Ievadiet konkrēto dienu. (Formāts: gggg-mm-dd) ”,“ Norādiet datumu ”) ar:

• strMonth = InputBox (“Ievadiet konkrēto mēnesi. (Formāts: gggg-mm)”, “Norādiet mēnesi”)
• strYear = InputBox (“Ievadiet konkrēto gadu. (Formāts: gggg)”, “Norādiet gadu”)

3. Treškārt, mainiet rindu “strReceivedDate = Year (dReceivedTime) &“ - ”& Month (dReceivedTime) &“ - ”& Day (dReceivedTime) uz:

• strReceivedDate = Gads (dReceivedTime) & “-” & Mēnesis (dReceivedTime) [mēnesi]
• strReceivedDate = Gads (dReceivedTime) [uz gadu].

Kas notiks pēc Outlook avārijām

Daudzi lietotāji kādreiz ir cietuši no Outlook avārijas. Labākajā gadījumā pēc reztarIzmantojot Outlook, visas lietas tiks atjaunotas, proti, nekas nenotiks. Tomēr sliktākajā gadījumā jūs varat saskarties ar smagām PST korupcija. Tajā brīdī, pieņemot, ka jums nav pašreizējo datu dublējumu, neapšaubāmi jūsu pēdējais līdzeklis ir ievērojams remonta rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar