Als u snel het aantal bijlagen in elke e-mail in de e-maillijst wilt zien, kunt u de VBA-code in dit artikel gebruiken. Het telt automatisch de bijlagen in elke inkomende e-mail en geeft het aantal weer in een nieuwe kolom.
Sommige gebruikers moeten de e-mailbijlagen vaak tellen. Waarom zou u in dit scenario geen exclusieve kolom maken en inschakelen voor het weergeven van het aantal bijlagen? In het volgende zullen we u leren hoe u Outlook automatisch de e-mailbijlagen laat tellen en het aantal in zo'n nieuwe kolom laat zien.
Toon het aantal bijlagen in de e-maillijst
- Begin met het openen van de Outlook-applicatie.
- Druk vervolgens op de toetsen "Alt + F11" in het hoofdvenster van Outlook.
- Vervolgens moet u in het nieuwe Outlook VBA-editorvenster een module openen die niet wordt gebruikt.
- Kopieer en plak vervolgens de volgende VBA-code in deze module.
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
- Daarna kunt u het huidige venster "Microsoft Visual Basic for Applications" verlaten.
- Later moet u een nieuwe regel maken om dit script op elke inkomende e-mail uit te voeren.
- Ga eerst naar het menu "Bestand" en klik op de knop "Regels en waarschuwingen beheren" onder het tabblad "Info".
- Druk vervolgens in het nieuwe dialoogvenster op de knop "Nieuwe regel".
- Selecteer in het volgende scherm "Regelwizard" "Regel toepassen op berichten die ik ontvang" en klik op "Volgende".
- Negeer vervolgens de “Select conditions” en klik op “Next”.
- Selecteer vervolgens de actie "een script uitvoeren" en selecteer de eerder toegevoegde macro, zoals de volgende schermafbeelding.
- Klik daarna op verschillende “Volgende” totdat u bij het laatste “Regelinstelling voltooien” -scherm komt.
- Later moet u een nieuwe naam voor deze regel specificeren, en de optie "Deze regel uitvoeren op berichten die al in" Inbox "staan" en "Deze regel inschakelen" inschakelen.
- Klik ten slotte op de knop "Voltooien".
- Daarna moet u de kolom "Bijlagetelling" toevoegen die is gemaakt door de VBA-code. Voer gewoon de volgende stappen hieronder uit:
- Ga eerst naar het tabblad "Bekijken" in het e-maillijstscherm.
- Klik vervolgens op de knop "Instellingen bekijken".
- Druk in het nieuwe pop-upvenster op de knop "Kolommen".
- Zoek en selecteer vervolgens in het venster "Kolommen weergeven" de kolom "Aantal bijlagen" onder "Door gebruiker gedefinieerde kolommen in Inbox" en klik op de knop "Toevoegen".
- Klik ten slotte op de knop "OK" om de wijzigingen op te slaan.
- Uiteindelijk zie je een kolom 'Aantal bijlagen' in de e-maillijst, die het aantal bijlagen voor elke e-mail weergeeft, weergegeven als de onderstaande afbeelding:
Voorkom frustrerend PST-gegevensverlies
Er wordt aangenomen dat niemand bereid is PST-gegevensverlies te accepteren. Hetzelfde moet voor jou gelden. Daarom moet u enkele voorzorgsmaatregelen nemen, zoals het maken van gegevensback-ups van uw PST-bestand en het verkrijgen van een gerenommeerd reparatieprogramma zoals DataNumen Outlook Repair. Het kan reparatie Outlook problemen zonder te zweten.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com