Note: The other languages of the website are Google-translated. Back to English

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

Для тех, кто привык использовать имя вложения в качестве темы электронного письма в Outlook, каждый раз вручную вводить имя вложения в строке темы будет трудоемко. Как показано на рисунке ниже, если вы хотите автоматически заполнять строку темы электронной почты именем вложения при вставке вложения, вам поможет метод VBA, описанный в этом руководстве.


Автоматически заполнять тему электронной почты именем вложения с кодом VBA

Запустите следующий код VBA, чтобы автоматически заполнить тему электронной почты именем вставленного вложения в Outlook.

1. Запустите Outlook, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, дважды щелкните Проект1 (VbProject.OTM) > Объекты Microsoft Outlook > ThisOutlookSession для открытия ThisOutlookSession (Код) редактор.

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

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

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

Заметки:

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

Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL