Как автоматически помечать электронные письма на основе определенного вложения в Outlook?
При получении некоторых писем с конкретными важными вложениями вам может потребоваться их пометить, чтобы вы могли быстро и легко найти их для последующей обработки. В этой статье я расскажу о простом способе автоматической пометки писем, содержащих вложения с определенными именами.
Автоматическая пометка писем на основе определенного вложения с помощью кода VBA
Автоматическая пометка писем на основе определенного вложения с помощью кода VBA
Чтобы автоматически помечать письма, содержащие определенные вложения, примените следующий код VBA:
1. Запустите Outlook, затем удерживайте клавиши "ALT + F11", чтобы открыть окно "Microsoft Visual Basic for Applications".
2. В окне "Microsoft Visual Basic for Applications" дважды щелкните "ThisOutlookSession" в панели "Project1(VbaProject.OTM)", чтобы открыть новый модуль, затем скопируйте и вставьте следующий код в пустой модуль.
Код VBA: Автоматическая пометка писем на основе определенного вложения:
Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
If Item.Class <> olMail Then Exit Sub
FlagEmail_SpecificAttachments Item
End Sub
Sub FlagEmail_SpecificAttachments(Mail As Outlook.MailItem)
Dim xAttachment As Outlook.Attachment
Dim xExt As String
Dim xFileName As String
If Mail.Attachments.Count = 0 Then Exit Sub
For Each xAttachment In Mail.Attachments
xExt = SplitPath(xAttachment.FileName, 2)
xFileName = SplitPath(xAttachment.FileName, 1)
Select Case xExt
Case "txt", "xlsx", "docx", "pdf"
If InStr(LCase(xFileName), LCase("KTO")) > 0 Then
With Mail
.ReminderSet = True
.ReminderTime = Now + 1
.MarkAsTask olMarkTomorrow
.Save
End With
End If
End Select
Next
End Sub
Public Function SplitPath(FullPath As String, ResultFlag As Integer) As String
Dim xSplitPos As Integer, xDotPos As Integer
xSplitPos = InStrRev(FullPath, "/")
xDotPos = InStrRev(FullPath, ".")
Select Case ResultFlag
Case 0
SplitPath = Left(FullPath, xSplitPos - 1)
Case 1
If xDotPos = 0 Then xDotPos = Len(FullPath) + 1
SplitPath = Mid(FullPath, xSplitPos + 1, xDotPos - xSplitPos - 1)
Case 2
If xDotPos = 0 Then xDotPos = Len(FullPath)
SplitPath = Mid(FullPath, xDotPos + 1)
Case Else
Err.Raise vbObjectError + 1, "SplitPath Function", "Invalid Parameter!"
End Select
End Function
Примечание: В приведенном выше коде вы можете изменить расширение файла и имя файла вложения по своему усмотрению.
3. Затем сохраните код и перезапустите Outlook, чтобы код вступил в силу. Теперь, при получении писем, имена вложений которых содержат указанный текст, Outlook автоматически пометит это письмо для последующей обработки, см. скриншот:
AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО
Оптимизируйте свои ежедневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook. Этот мощный инструмент изучает ваши прошлые письма, чтобы предлагать умные и точные ответы, оптимизировать содержание ваших писем и помогать легко создавать и редактировать сообщения.
Эта функция поддерживает:
- Умные ответы: Получайте ответы, созданные на основе ваших предыдущих разговоров — персонализированные, точные и готовые к отправке.
- Улучшенное содержание: Автоматически улучшайте текст ваших писем для большей ясности и воздействия.
- Простое составление: Просто укажите ключевые слова, и пусть ИИ сделает остальную работу, предлагая несколько стилей написания.
- Интеллектуальные расширения: Расширяйте свои мысли с помощью контекстно-зависимых предложений.
- Суммаризация: Мгновенно получайте краткие обзоры длинных писем.
- Глобальный охват: Легко переводите ваши письма на любой язык.
Эта функция поддерживает:
- Умные ответы на письма
- Оптимизированное содержание
- Черновики на основе ключевых слов
- Интеллектуальное расширение содержания
- Краткое изложение писем
- Перевод на несколько языков
Лучше всего то, что эта функция будет полностью бесплатной навсегда! Не ждите — скачайте AI Mail Assistant прямо сейчас и наслаждайтесь
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Выпущена бесплатная версия Kutools для Outlook!
Оцените совершенно новый Kutools для Outlook с более чем100 потрясающими функциями! Нажмите, чтобы скачать сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку Email / Авто Копия/Скрытая копия по правилу при отправке письма / Автоматическое перенаправление (Расширенное правило) / Автоматически добавить приветствие / Автоматическое разделение Email с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические Email по теме и другим признакам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и современных Эмодзи / Напоминания о важных письмах / Сворачивание Outlook вместо закрытия ...
👍 Мгновенные действия в один клик: Ответить всем с вложениями / Антифишинг Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных Email / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
Используйте Kutools на вашем любимом языке – поддерживается английский, испанский, немецкий, французский, китайский и более40 других языков!
