Sådan vises antal vedhæftede filer i e-mail-listen med Outlook VBA

Hvis du hurtigt vil få antallet af vedhæftede filer i hver e-mail i e-mail-listen, kan du bruge VBA-koden i denne artikel. Det tæller automatisk vedhæftede filer i hver indgående e-mail og viser optællingen i en ny kolonne.

Nogle brugere har ofte brug for at tælle e-mail-vedhæftede filer. I dette scenarie, hvorfor ikke oprette og aktivere en eksklusiv kolonne til visning af antallet af vedhæftede filer? I det følgende lærer vi dig, hvordan du får Outlook til automatisk at tælle e-mail-vedhæftede filer og vise optællingen i en sådan ny kolonne.

Vis antal vedhæftede filer i e-mail-listen

1. Til at starte med skal du starte din Outlook-applikation.
2. Tryk derefter på “Alt + F11” -tasten i hovedvinduet i Outlook.
3. Dernæst i det nye Outlook VBA-editorvindue skal du åbne et modul, der ikke bruges.
4. Kopier og indsæt derefter følgende VBA-kode i dette modul.

Sub AutoCountAttachments(objMail As Outlook.MailItem)
    Dim objAttachments As Outlook.Attachments
    Dim objProperties As Outlook.UserProperties
    Dim objProperty As Outlook.UserProperty
    Dim strPropertyName As String
 
    Set objAttachments = objMail.Attachments
 
    strPropertyName = "Attachment Count"
    Set objProperties = objMail.UserProperties
 
    'Check if there is already a column in this name
    Set objProperty = objProperties.Find(strPropertyName, True)
    If objProperty Is Nothing Then
       'If not, add this column
       Set objProperty = objProperties.Add(strPropertyName, olText, True)
    End If
 
    'Set the column value equal to the count of attachments
    objProperty.value = objAttachments.Count
    objMail.Save
End Sub

5. Derefter kan du afslutte det aktuelle vindue "Microsoft Visual Basic for Applications".
6. Senere skal du oprette en ny regel til at køre dette script på hver indgående e-mail.

• For det første skal du gå til menuen "File" og klikke på knappen "Manage Rules & Alerts" under "Info" -fanen.
• Klik derefter på knappen "Ny regel" i den nye dialogboks.
• I det efterfølgende “Regelguide” -skærmbillede skal du vælge “Anvend regel på meddelelser, jeg modtager” og trykke på “Næste”.
• Næste ignorere "Vælg betingelser" og klik på "Næste".
• Vælg derefter "kør et script" -handling, og vælg den tidligere tilføjede makro, som det følgende skærmbillede.
• Derefter skal du klikke på flere “Næste”, indtil du når den endelige “Afslut regelopsætning” skærm.
• Senere skal du angive et nyt navn til denne regel og aktivere "Kør denne regel på meddelelser, der allerede er i" Indbakke "" og "Tænd denne regel".
• Til sidst skal du klikke på knappen “Udfør”.

7. Derefter skal du tilføje kolonnen "Attachment Count" oprettet af VBA-koden. Tag bare følgende trin nedenfor:

• Gå først til "Vis" -fanen på e-mail-listeskærmen.
• Klik derefter på knappen "Vis indstillinger".
• I den ny popup-dialogboks skal du trykke på knappen "Kolonner".
• I vinduet "Vis kolonner" skal du derefter finde og vælge kolonnen "Antal vedhæftede filer" under "Brugerdefinerede kolonner i Indbakke" og trykke på knappen "Tilføj".
• Klik til sidst på “OK” -knappen for at gemme ændringerne.

8. Til sidst kan du se kolonnen "Antal vedhæftede filer" i e-mail-listen, der viser antallet af vedhæftede filer for hver e-mail, vist som billedet nedenfor:

Undgå frustrerende PST-datatab

Det menes, at ingen er villige til at acceptere tab af PST-data. Det samme skal gælde for dig. Derfor er du nødt til at tage nogle forholdsregler, såsom at foretage sikkerhedskopiering af din PST-fil og få fat i et velrenommeret fix-værktøj som DataNumen Outlook Repair. Det kan reparere Outlook problemer uden at svede.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com