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

Author: Siluvia Last Modified: 2025-08-07

Для тех, кто привык использовать имя вложения в качестве темы электронного письма в 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

doc-autofill-subject-line-with-attachment-name-2

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

5. С этого момента, когда вы вставляете вложение в письмо, у которого еще не заполнена тема, появится диалоговое окно Kutools for Outlook с вопросом, хотите ли вы использовать имя вложения как тему. Нажмите кнопку Да.

doc-autofill-subject-line-with-attachment-name-3

Затем строка темы будет автоматически заполнена именем добавленного вложения.

doc-autofill-subject-line-with-attachment-name-4

Примечания:

1) Если вы уже заполнили тему, вставка вложения не вызовет появление диалогового окна.

2) Если вы удалите существующую тему из текущего письма, но курсор все еще находится в строке темы, вставка вложения также не вызовет появление диалогового окна. После удаления темы вам нужно щелкнуть вне строки темы, чтобы обновить окно сообщения, чтобы код заработал.

3) Если вы вставляете несколько вложений одновременно, только имя первого вложения может быть использовано как тема письма.

AI Mail Assistant в Outlook: Умные ответы, четкое общение (волшебство в один клик!) БЕСПЛАТНО

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

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

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

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