Paano Mabilis na Mabilang ang Mga Papasok na Email sa pamamagitan ng Petsa, Buwan o Taon sa pamamagitan ng Outlook VBA

Mga Solusyon sa Outlook Setyembre 29, 2025
Ipamahagi ngayon:

Kung nais mong bilangin ang bilang ng mga papasok na email sa isang tukoy na petsa, o sa isang tukoy na buwan o taon, maaari mong gamitin ang mabilis na paraan na ipinakilala sa artikulong ito. Ituturo sa iyo kung paano gamitin ang VBA upang makuha ito sa isang iglap.

Pagdating sa pagbibilang ng kung gaano karaming mga email ang natanggap sa tukoy na petsa o mga panahon, marami ang nasanay sa paggamit ng folder ng paghahanap sa Outlook, na nagpapahintulot sa amin na tipunin ang lahat ng mga email na papasok sa tukoy na saklaw ng petsa o petsa sa isang solong folder ng paghahanap. Pagkatapos ay maaari naming gamitin ang tampok na "ipakita ang kabuuang bilang ng mga item" para sa mail folder upang makuha ito. Gayunpaman, nang walang anumang pagdududa, ang pamamaraang ito ay medyo mahirap. Kaya, dito tuturuan ka namin ng isa pang trick, na maaaring gumamit ng Outlook VBA upang matulungan kang makuha ang kabuuang bilang. Basahin ngayon upang malaman ang detalyadong mga hakbang at code.

Bilangin ang Mga Papasok na Email ayon sa Petsa ng Buwan o Taon

Bilangin ang Mga Papasok na Email ayon sa Petsa

  1. Kay start sa, ilunsad nang maayos ang iyong programa sa Outlook.
  2. Pagkatapos ay maaari kang lumipat sa tab na "Developer" at i-click ang pindutang "Visual Basic".
  3. Susunod sa popup window ng pag-edit ng Outlook VBA, maaari kang magbukas ng isang bagong module sa pamamagitan ng "Ipasok"> "Modyul".
  4. Kasunod, kopyahin ang mga sumusunod na VBA code sa bagong module.
'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

Mga Code ng VBA - Bilangin ang Mga Papasok na Email ayon sa Petsa

tandaan: Gumagana ang code sa itaas na ito upang mabilang ang mga papasok na email ayon sa petsa.

  1. Pagkatapos nito, maaari mong idagdag ang bagong macro sa Quick Access Toolbar tulad ng dati.
  2. Panghuli, maaari kang magkaroon ng isang pagsubok.
  • Una, piliin ang folder ng Inbox.
  • Pagkatapos mag-click sa pindutan sa Quick Access Toolbar.Patakbuhin ang Macro
  • Susunod na kailangan mong maglagay ng isang tukoy na petsa sa format ng "yyyy-mm-dd".Tukuyin ang Petsa
  • Panghuli, makakatanggap ka ng isang prompt ng kabuuang bilang, tulad ng imahe sa ibaba:Bilangin ang Mga Papasok na Email ayon sa Petsa

Bilangin ang Mga Papasok na Email ayon sa Buwan o Taon

Tulad ng tinukoy sa itaas na code para sa pagbibilang sa araw, kung nais mong bilangin ayon sa buwan o taon, kailangan mong gumawa ng ilang mga pagbabago sa mga code.

  1. Una, palitan ang lahat ng "strDay" sa strMonth or strYear.
  2. Pangalawa, palitan ang linya na "strDay = InputBox (" Ipasok ang tukoy na araw. (Format: yyyy-mm-dd) "," Tukuyin ang Petsa ")" na may:
  • strMonth = InputBox ("Ipasok ang tukoy na buwan. (Format: yyyy-mm)", "Tukuyin ang Buwan")
  • strYear = InputBox ("Ipasok ang tukoy na taon. (Format: yyyy)", "Tukuyin ang Taon")
  1. Pangatlo, palitan ang linya na "strReceivedDate = Year (dReceivedTime) &" - ​​"& Month (dReceivedTime) &" - ​​"& Day (dReceivedTime)" sa:
  • strReceivedDate = Taon (dReceivedTime) & “-” & Buwan (dReceivedTime) [para sa buwan]
  • strReceivedDate = Taon (dReceivedTime) [para sa taong].

Ano ang Mangyayari pagkatapos ng Pag-crash ng Outlook

Maraming mga gumagamit ang naghirap sa pag-crash ng Outlook. Pinakamahusay, pagkatapos ng restarting Outlook, lahat ng mga bagay ay maibabalik, lalo walang mangyayari. Gayunpaman, sa pinakamalala, maaari kang makaranas ng matindi Korapsyon sa PST. Sa puntong iyon, ipinapalagay na wala kang kasalukuyang mga pag-backup ng data, ang iyong huling paraan ay, hindi mapag-aalinlanganan, isang kapansin-pansin na tool sa pag-aayos, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.