Ви коли-небудь вимагали підрахувати кількість вкладень електронної пошти у вибраних листах? Буде нудно, якщо їх вручну порахувати. Тут ми допоможемо вам зробити підрахунок набагато простішим і швидшим за допомогою Outlook VBA.
З певних причин вам може знадобитися підрахувати кількість вкладень в електронних листах Outlook. Якщо вам просто потрібно отримати кількість вкладень в одному електронному листі, це буде значно простіше. Але якщо ви хочете підрахувати вкладення в кількох електронних листах, підрахувати вручну буде дуже складно. Загалом, один з найпоширеніших способів – зберегти всі вкладення в локальну папку на вашому комп’ютері. Потім виберіть їх, і Провідник Windows повідомить вам кількість вибраних елементів у рядку стану.
Однак не можна заперечувати, що цей метод все ще досить громіздкий. Насправді, за допомогою Outlook VBA ви можете швидко отримати загальну кількість вкладень у вибраних електронних листах Outlook. Прочитайте далі, щоб дізнатись докладні коди та кроки VBA.
Швидко отримайте загальну кількість вкладень у вибраних електронних листах
- Спочатку запустіть програму Outlook і перейдіть на вкладку «Розробник».
- Потім ви можете натиснути кнопку “Visual Basic”. Відкриється вікно “Microsoft Visual Basic for Applications”.
- Далі слід відкрити новий модуль, який не використовується. Виберіть “Вставити”> “Модуль”.
- Після цього вам потрібно скопіювати та вставити в нього такі коди VBA.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Згодом ви можете вийти з вікна “Visual Basic” і повернутися до головного вікна Outlook. Тоді ви повинні знайти та натиснути стрілку вниз на панелі швидкого доступу та вибрати “More Commands” зі спадного списку.
- Пізніше виконайте дії, зображені на зображенні нижче.
- Нарешті можна спробувати.
- Вибравши кілька електронних листів, ви можете натиснути нову кнопку на панелі швидкого доступу. Згодом ви отримаєте повідомлення, яке повідомляє вам кількість вкладень у вибраних електронних листах. Це виглядає так:
- Але якщо ви замість електронних листів виберете будь-які елементи, які є схожими на запити на зустріч або відповіді, ви отримаєте попередження, як на малюнку нижче:
Реагуйте на випадкові проблеми з прогнозом
Якщо ви використовували Outlook протягом десятиліть, ви, мабуть, стикалися з багатьма проблемами, зокрема Outlook не реагував, зависання Outlook, часті повідомлення про помилки та Пошкодження електронної пошти Outlook PST тощо. Ви вже опанували якісь хитрощі для їх вирішення? Загалом кажучи, ви можете запустити Outlook у безпечному режимі, створити новий профіль Outlook, відновити Office та вимкнути надбудови сторонніх розробників тощо. Крім того, вам також слід мати під рукою потужний інструмент для відновлення, такий як DataNumen Outlook Repair. Це стане в нагоді, коли вийде з ладу як резервне копіювання, так і інструмент відновлення поштової скриньки.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення пошкоджених даних SQL - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com