Как автоматически заполнить тему письма на основе имени вложения в Outlook?

Если вы привыкли использовать имя вложения в качестве темы письма в Outlook, каждый раз вручную вводить его в строку темы — это потеря времени. Как показано на GIF ниже, метод VBA из этого руководства автоматически заполнит поле «Тема» названием вложения сразу после его добавления.

Автоматическое заполнение Тема письма названием Имя вложения с помощью кода VBA

Выполните следующий код VBA, чтобы автоматически заполнить тему письма текстом «Вставить вложение в Outlook».

1. Запустите Outlook и нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щелкните Project1 (VbProject.OTM) > Microsoft Outlook Objects > ThisOutlookSession, чтобы открыть редактор ThisOutlookSession (Code).

3. Затем скопируйте следующий код VBA в редактор ThisOutlookSession (Code).

Код VBA: автоматическое заполнение Тема письма названием Имя вложения

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220926
Public WithEvents GInspectors As Inspectors
Public WithEvents GMail As MailItem

Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GMail = Item
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Dim xItem As Object
  Set xItem = Inspector.CurrentItem
  If xItem.Class <> olMail Then Exit Sub
  Set GMail = xItem
End Sub

Private Sub GMail_AttachmentAdd(ByVal Att As Attachment)
  Dim xFileName As String
  On Error Resume Next
  If VBA.Trim(GMail.Subject) <> "" Then Exit Sub
  If MsgBox("Do you want to use the attachment name as the subject?", vbYesNo + vbInformation, "Kutools for Outlook") = vbNo Then Exit Sub
  xFileName = Att.DisplayName
  xFileName = Left$(xFileName, VBA.InStrRev(xFileName, ".") - 1)
  GMail.Subject = xFileName
End Sub

4. Теперь сохраните код и перезапустите Outlook.

5. Отныне, когда вы вставляете вложение в письмо с незаполненной темой, появится диалоговое окно Kutools для Outlook, предлагающее использовать имя вложения в качестве темы. Нажмите кнопку Да.

После этого строка темы автоматически заполнится названием «Вставить вложение».

Примечания:

AI Mail Assistant в Outlook: умные ответы, чёткая коммуникация (волшебство в один клик!)

Оптимизируйте повседневные задачи в Outlook с помощью AI Mail Assistant от Kutools для Outlook — мощного инструмента, который анализирует ваши прошлые письма, чтобы предлагать точные и умные ответы, улучшать содержание сообщений и помогать легко создавать и редактировать тексты.

Эта функция поддерживает:

• Умные ответы: получайте персонализированные, точные и готовые к отправке ответы, созданные на основе ваших прошлых переписок.
• Улучшайте контент автоматически: делайте текст письма более ясным и выразительным.
• Лёгкое составление: просто укажите ключевые слова — и ИИ сделает всё остальное, предложив несколько стилей письма.
• Интеллектуальные дополнения: расширяйте свои идеи с помощью контекстно-зависимых предложений.
• Резюмирование: мгновенно получайте краткие обзоры длинных писем.
• Глобальный охват: легко переводите свои письма на любой язык.

Эта функция поддерживает:

• Умные ответы на письма
• Оптимизированный контент
• Черновики на основе ключевых слов
• Интеллектуальное расширение контента
• Резюмирование писем
• Многоязыковой перевод

Не ждите —скачайте AI Mail Assistant прямо сейчас и наслаждайтесь!

---

Лучшие инструменты для повышения продуктивности в Office

Оцените совершенно новый Kutools для Outlook с 100+ потрясающими функциями!Нажмите, чтобы скачать прямо сейчас!

🤖KUTOOLS AI:Использует передовые технологии ИИ для простой работы с электронной почтой: ответы, резюмирование, оптимизация, расширение, перевод и создание писем.

📧Автоматизация электронной почты: Автоответ (доступен для POP и IMAP) / Планирование отправки писем / Авто Копия/Скрытая копия по правилам при отправке писем / Автоматическое перенаправление (расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения…

📨Управление электронной почтой: Отзыв письма / Блокировка мошеннических писем по темам и другим параметрам / Удаление дубликатов писем / Расширенный поиск / Организация папок…

📁Продвинутая работа с вложениями: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие…

🌟Волшебный интерфейс: 😊Еще больше красивых и стильных эмодзи / Напоминание о важных письмах / Сворачивание Outlook вместо закрытия…

👍Чудеса в один клик: Ответить всем с вложениями / Защита от фишинговых писем / 🕘Отображение часового пояса: текущее время отправителя…

👩🏼‍🤝‍👩🏻Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделение группы контактов на отдельные / Удаление напоминания о дне рождения…

Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и более чем 40 других языков!

Мгновенно получите доступ к Kutools для Outlook одним кликом! Не теряйте времени — скачайте прямо сейчас и повысьте свою эффективность!

Список функций Kutools для Outlook      Скачать сейчас      Перейти к покупке

🚀 Скачать одним кликом — Получите все надстройки для Office

Настоятельно рекомендуется: Kutools for Office (5 в 1)

Скачайте одним кликом пять установщиковсразу —Kutools для Excel, Outlook, Word, PowerPointи Office Tab Pro.Нажмите, чтобы скачать прямо сейчас!

• ✅Удобство в один клик: Скачайте все пять установочных пакетов одним щелчком.
• 🚀Готовы к любой задаче в Office: устанавливайте нужные надстройки именно тогда, когда они вам понадобятся.
• 🧰Входит в комплект: Kutools для Excel / Kutools для Outlook / Kutools для Word / Office Tab Pro / Kutools for PowerPoint

О пакете⬇ Скачать пакет💳 Приобрести пакет