Slik får du raskt det totale antallet vedlegg i utvalgte Outlook-e-poster

Har du noen gang blitt pålagt å telle antall e-postvedlegg i utvalgte e-poster? Det vil være kjedelig hvis du teller dem manuelt. Her hjelper vi deg å gjøre tellingen mye enklere og raskere med Outlook VBA.

Av forskjellige grunner kan det hende du må telle antall vedlegg i Outlook-e-poster. Hvis du bare vil ha antall vedlegg i én e-post, vil det være ganske enkelt. Men hvis du ønsker å telle vedlegg i flere e-poster, vil det være svært vanskelig å telle manuelt. Generelt er en av de vanligste måtene å lagre alle vedleggene i en lokal mappe på datamaskinen. Velg dem deretter, og Windows Utforsker vil fortelle deg antallet valgte elementer i statuslinjen.

Det kan imidlertid ikke benektes at denne metoden fortsatt er ganske tungvint. Faktisk, ved hjelp av Outlook VBA, kan du raskt få det totale antallet vedlegg i de valgte Outlook-e-postene. Les videre for å lære de detaljerte VBA-kodene og trinnene.

Få raskt det totale antallet vedlegg i utvalgte e-poster

1. Start først Outlook-applikasjonen og gå til "Utvikler" -fanen.
2. Deretter kan du klikke på "Visual Basic"-knappen. Det vil bringe deg til "Microsoft Visual Basic for Applications"-vinduet.
3. Deretter bør du åpne en ny modul som ikke er i bruk. Velg "Sett inn" > "Modul".
4. Etter det må du kopiere og lime inn følgende VBA-koder i den.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

5. Deretter kan du gå ut av "Visual Basic"-vinduet og gå tilbake til Outlook-hovedvinduet. Deretter bør du finne og trykke på pil ned i hurtigtilgangsverktøylinjen og velge "Flere kommandoer" fra rullegardinlisten.
6. Følg trinnene vist i bildet nedenfor.
7. Endelig kan du prøve.

• Etter å ha valgt flere e-poster, kan du trykke på den nye knappen i Quick Access Toolbar. Deretter vil du få en melding som forteller deg antall vedlegg i utvalgte e-poster. Det ser ut som følgende bilde:
• Men hvis du velger noen elementer som er møteforespørsler eller svar i stedet for e-poster, vil du få et varsel, som bildet nedenfor:

Reager på sporadiske Outlook-problemer

Hvis du har brukt Outlook i flere tiår, må du ha støtt på flere problemer, inkludert Outlook som ikke svarer, Outlook fryser, hyppige feilmeldinger og Outlook PST e-post korrupsjon og så videre. Har du allerede mestret noen triks for å løse dem? Generelt sett kan du starte Outlook i sikkermodus, opprette en ny Outlook-profil, reparere Office og deaktivere tredjeparts tillegg, osv. I tillegg bør du også ha et kraftig reparasjonsverktøy i nærheten, for eksempel DataNumen Outlook Repair. Det vil komme godt med når både sikkerhetskopier og reparasjonsverktøyet for innboksen mislykkes.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere korrupte SQL-data og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med