Вам когда-нибудь приходилось подсчитывать количество вложений электронной почты в выбранных электронных письмах? Будет утомительно, если вы будете считать их вручную. Здесь мы поможем вам сделать подсчет намного проще и быстрее с помощью Outlook VBA.
По некоторым причинам вам может потребоваться подсчитать количество вложений в электронных письмах Outlook. Если вам нужно просто узнать количество вложений в одном письме, это будет довольно легко. Но если вы хотите подсчитать вложения в нескольких письмах, ручной подсчет будет очень трудоемким. Как правило, один из самых распространенных способов — сохранить все вложения в локальную папку на вашем компьютере. Затем выберите их, и проводник Windows покажет вам количество выбранных элементов в строке состояния.
Однако нельзя отрицать, что этот метод все еще довольно громоздкий. На самом деле, с помощью Outlook VBA вы можете быстро получить общее количество вложений в выбранных электронных письмах Outlook. Читайте дальше, чтобы узнать подробные коды и шаги VBA.
Быстро получить общее количество вложений в выбранных электронных письмах
- Сначала запустите приложение Outlook и перейдите на вкладку «Разработчик».
- Затем вы можете нажать кнопку «Visual Basic». Вы попадете в окно «Microsoft Visual Basic для приложений».
- Далее вы должны открыть новый модуль, который не используется. Выберите «Вставить» > «Модуль».
- После этого вам нужно скопировать и вставить в него следующие коды 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. Затем вы должны найти и нажать стрелку вниз на панели быстрого доступа и выбрать «Дополнительные команды» из выпадающего списка.
- Позже выполните шаги, показанные на изображении ниже.
- Наконец-то можно попробовать.
- Выбрав несколько писем, вы можете нажать новую кнопку на панели быстрого доступа. Впоследствии вы получите сообщение, в котором будет указано количество вложений в выбранных электронных письмах. Это выглядит следующим образом:
- Но если вы выберете какие-либо элементы, которые являются приглашениями на собрания или ответами, а не электронными письмами, вы получите предупреждение, как на картинке ниже:
Реагируйте на случайные проблемы с Outlook
Если вы использовали Outlook в течение десятилетий, вы, должно быть, сталкивались с многочисленными проблемами, в том числе с тем, что Outlook не отвечает, зависает Outlook, частыми сообщениями об ошибках и Повреждение электронной почты Outlook PST и так далее. Вы уже освоили какие-нибудь способы решения этих проблем? В общем, вы можете запустить Outlook в безопасном режиме, создать новый профиль Outlook, восстановить Office и отключить сторонние надстройки и т. д. Кроме того, вам также следует иметь под рукой мощный инструмент для восстановления, например, DataNumen Outlook Repair. Это пригодится, когда и резервное копирование, и инструмент восстановления папки «Входящие» не работают.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденные данные SQL и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com