Om du snabbt vill få antalet bifogade filer i varje e-post i e-postlistan kan du använda VBA-koden i den här artikeln. Det räknar automatiskt bilagorna i varje inkommande e-post och räkningen visas i en ny kolumn.
Vissa användare behöver ofta räkna e-postbilagorna. I det här scenariot, varför inte skapa och aktivera en exklusiv kolumn för att visa bilagan? I det följande lär vi dig hur du gör att Outlook automatiskt räknar e-postbilagor och visar antalet i en sådan ny kolumn.
Visa antal bifogade filer i e-postlistan
- Till att börja med, starta ditt Outlook-program.
- Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
- Nästa i det nya Outlook VBA-redigeringsfönstret måste du öppna en modul som inte används.
- Kopiera sedan och klistra in följande VBA-kod i den här modulen.
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
- Därefter kan du avsluta fönstret "Microsoft Visual Basic for Applications".
- Senare måste du skapa en ny regel för att köra detta skript på varje inkommande e-post.
- Gå först till menyn "Arkiv" och klicka på knappen "Hantera regler och varningar" under fliken "Info".
- Klicka sedan på knappen "Ny regel" i den nya dialogrutan.
- I den efterföljande "Regelguiden" -skärmen väljer du "Tillämpa regel på meddelanden jag får" och trycker på "Nästa".
- Ignorera sedan "Välj villkor" och klicka på "Nästa".
- Välj sedan "kör ett skript" och välj det tidigare tillagda makrot, som följande skärmdump.
- Därefter klickar du på flera ”Nästa” tills du kommer till den slutliga skärmen ”Avsluta regelinställning”.
- Senare måste du ange ett nytt namn för denna regel och aktivera alternativet "Kör denna regel på meddelanden som redan finns i" Inkorgen "" och "Slå på den här regeln".
- Slutligen klickar du på knappen "Slutför".
- Därefter bör du lägga till kolumnen "Attachment Count" skapad av VBA-koden. Ta bara följande steg nedan:
- Gå först till fliken "Visa" på e-postlistans skärm.
- Klicka sedan på knappen "Visa inställningar".
- Klicka på knappen "Kolumner" i den nyligen popup-dialogrutan.
- I fönstret "Visa kolumner" letar du efter och väljer kolumnen "Bilageantal" under "Användardefinierade kolumner i inkorgen" och trycker på knappen "Lägg till".
- Klicka slutligen på “OK” för att spara ändringarna.
- Så småningom kan du se en kolumn "Attachment Count" i e-postlistan, som visar bifogningsantal för varje e-postmeddelande, som bilden nedan:
Undvik frustrerande PST-dataförlust
Man tror att ingen är villig att acceptera PST-dataförlust. Detsamma måste gälla för dig. Därför måste du göra några försiktighetsåtgärder, till exempel att säkerhetskopiera din PST-fil och få tag på ett ansedd fixverktyg som DataNumen Outlook Repair. Det kan reparera Outlook problem utan att svettas.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql fix och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com