Как да покажа броя на прикачените файлове в списъка с имейли с Outlook VBA

Споделете сега:

Ако искате бързо да получите броя на прикачените файлове във всеки имейл в имейл списъка, можете да използвате VBA кода в тази статия. Той автоматично ще преброи прикачените файлове във всеки входящ имейл и ще покаже броя в нова колона.

Някои потребители често трябва да броят прикачените файлове към имейли. Защо в този сценарий не създадете и активирате изключителна колона за показване на броя на прикачените файлове? По-нататък ще ви научим как да накарате Outlook автоматично да брои прикачените файлове и да показваме броя в такава нова колона.

Показване на броя на прикачените файлове в имейл списък с Outlook VBA

Показване на броя на прикачените файлове в списъка с имейли

  1. За начало стартирайте приложението си Outlook.
  2. След това натиснете бутоните „Alt + F11“ в главния прозорец на Outlook.
  3. След това в новия прозорец на редактора на VBA на Outlook трябва да отворите модул, който не се използва.
  4. Впоследствие копирайте и поставете следния VBA код в този модул.
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

VBA код - Показване на броя на прикачените файлове в списъка с имейли

  1. След това можете да излезете от текущия прозорец „Microsoft Visual Basic for Applications“.
  2. По-късно трябва да създадете ново правило за изпълнение на този скрипт на всеки входящ имейл.
  • Първо отидете в менюто „Файл“ и кликнете върху бутона „Управление на правила и сигнали“ в раздела „Информация“.
  • След това в новия диалогов прозорец натиснете бутона „Ново правило“.
  • В следващия екран „Съветник за правила“ изберете „Приложи правило за съобщения, които получавам“ и натиснете „Напред“.
  • След това игнорирайте „Избор на условия“ и щракнете върху „Напред“.
  • След това изберете действие „стартиране на скрипт“ и изберете добавения преди това макрос, като следната екранна снимка.Изберете действие „стартиране на скрипт“
  • След това щракнете върху няколко „Напред“, докато стигнете до крайния екран „Завършване на настройката на правилото“.
  • По-късно трябва да посочите ново име за това правило и да активирате опцията „Стартиране на това правило за съобщения, които вече са в„ Входящи “и„ Включване на това правило “.
  • Накрая кликнете върху бутона „Finish“.Завършете настройката на правилото
  1. След това трябва да добавите колоната „Брой прикачени файлове“, създадена от кода на VBA. Просто направете следните стъпки по-долу:
  • Първо отидете на раздела „Преглед“ на екрана с имейл списъка.
  • След това кликнете върху бутона „Преглед на настройките“.
  • В новия изскачащ диалогов прозорец натиснете бутона „Колони“.
  • След това в прозореца „Показване на колони“ намерете и изберете колона „Брой прикачени файлове“ под „Потребителски дефинирани колони във входящата поща“ и натиснете бутона „Добавяне“.Добавете колона "Брой прикачени файлове"
  • Накрая щракнете върху бутона „OK“, за да запазите промените.
  1. В крайна сметка можете да видите колона „Брой прикачени файлове“ в имейл списъка, която показва броя на прикачените файлове за всеки имейл, показан като изображението по-долу:Брой прикачени файлове в списък с имейли

Избягвайте разочароващата загуба на PST данни

Смята се, че никой не е готов да приеме загубата на PST данни. Същото трябва да важи и за вас. Следователно трябва да предприемете някои предпазни мерки, като например да направите резервни копия на данните на вашия PST файл и да се сдобиете с реномиран инструмент за коригиране като DataNumen Outlook Repair, То може ремонт на Outlook проблеми, без да се изпотявате.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.