Як відобразити кількість вкладень у списку електронної пошти за допомогою Outlook VBA

Поділитися зараз:

Якщо ви хочете швидко отримати кількість вкладень у кожному електронному листі в списку електронних адрес, ви можете скористатися кодом VBA у цій статті. Він автоматично підраховуватиме вкладення в кожному вхідному електронному листі та відображатиме кількість у новому стовпці.

Деяким користувачам часто доводиться рахувати вкладення електронної пошти. Чому б у цьому випадку не створити та активувати ексклюзивний стовпець для відображення кількості вкладень? Далі ми навчимо вас, як змусити Outlook автоматично підраховувати вкладення електронної пошти та показувати кількість у такому новому стовпці.

Відображення кількості вкладень у списку електронної пошти за допомогою Outlook VBA

Показати кількість вкладень у списку електронної пошти

  1. Для початку запустіть програму Outlook.
  2. Потім натисніть клавіші “Alt + F11” у головному вікні Outlook.
  3. Далі в новому вікні редактора Outlook VBA потрібно відкрити модуль, який не використовується.
  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. Пізніше вам потрібно буде створити нове правило для запуску цього сценарію для кожного вхідного електронного листа.
  • По-перше, перейдіть до меню «Файл» і натисніть кнопку «Керувати правилами та сповіщеннями» на вкладці «Інформація».
  • Потім у новому діалоговому вікні натисніть кнопку «Нове правило».
  • На наступному екрані «Майстер правил» виберіть «Застосувати правило до повідомлень, які я отримую» та натисніть «Далі».
  • Далі проігноруйте «Вибрати умови» та натисніть «Далі».
  • Потім виберіть дію «запустити сценарій» і виберіть попередньо доданий макрос, як на знімку екрана нижче.Виберіть дію «запустити сценарій».
  • Після цього кілька разів клацніть «Далі», доки не дійдете до остаточного екрана «Завершити налаштування правила».
  • Пізніше вам потрібно буде вказати нове ім’я для цього правила, увімкнути опцію «Запускати це правило для повідомлень, які вже знаходяться в папці «Вхідні»» та «Увімкнути це правило».
  • Нарешті натисніть кнопку «Готово».Завершіть встановлення правила
  1. Після цього вам слід додати стовпець «Кількість вкладень», створений кодом VBA. Просто виконайте наведені нижче дії.
  • Спочатку перейдіть на вкладку «Перегляд» на екрані списку електронних листів.
  • Потім натисніть кнопку «Переглянути налаштування».
  • У новому спливаючому діалоговому вікні натисніть кнопку «Стовпці».
  • Потім у вікні «Показати стовпці» знайдіть і виберіть стовпець «Кількість вкладених файлів» у розділі «Визначені користувачем стовпці в папці «Вхідні»» та натисніть кнопку «Додати».Додайте стовпець «Кількість вкладених файлів».
  • Нарешті натисніть кнопку «ОК», щоб зберегти зміни.
  1. Згодом ви побачите стовпець «Кількість вкладених файлів» у списку електронних листів, у якому відображається кількість вкладених файлів для кожного електронного листа, як показано на зображенні нижче:Кількість вкладень у списку електронної пошти

Уникайте неприємної втрати даних PST

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

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.