Как добавить все имена вложений в текст сообщения при создании письма в Outlook?

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

Добавление всех Имя вложения в текст сообщения при создании письма с помощью кода VBA

Добавление всех Имя вложения в текст сообщения при создании письма с помощью простой функции

Добавление всех Имя вложения в текст сообщения при создании письма с помощью кода VBA

Выполните следующие шаги, чтобы завершить эту задачу:

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications дважды щёлкните по элементу ThisOutlookSession на панели Project1 (VbaProject.OTM), чтобы открыть модуль, а затем скопируйте и вставьте приведённый ниже код в пустой модуль.

Код VBA: добавление всех Имя вложения в текст сообщения:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Затем последовательно нажмите Вставка > Модуль и скопируйте приведённый ниже код в открывшийся пустой модуль (см. снимок экрана):

Код VBA: добавление всех Имя вложения в текст сообщения:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. Далее нажмите Сервис > Ссылки в окне Microsoft Visual Basic for Applications. В появившемся диалоговом окне Ссылки – Project1 установите флажок напротив пункта Microsoft Word Object Library в списке Доступные ссылки (см. снимок экрана):

5. Нажмите кнопку ОК, чтобы закрыть диалоговое окно, а затем добавьте кнопку макроса на Панель быстрого доступа. В новом окне Сообщение выберите пункт Другие команды в раскрывающемся списке Настроить панель быстрого доступа (см. снимок экрана):

6. В диалоговом окне Параметры Outlook выполните следующие действия:

(1.) Выберите пункт Макросыв раскрывающемся списке Выберите команды из;

(2.) Щёлкните имя макроса, который вы только что вставили;

(3.) Затем нажмите кнопку Добавить, чтобы добавить макрос на Панель быстрого доступа.

7. Нажмите кнопку ОК, чтобы закрыть диалоговое окно. Теперь кнопка макроса добавлена на Панель быстрого доступа (см. снимок экрана):

8. Теперь при создании нового сообщения имя вложения будет автоматически вставляться над текстом письма сразу после нажатия кнопки макроса — как показано на снимке экрана:

Добавление всех Имя вложения в текст сообщения при создании письма с помощью простой функции

Возможно, приведённый выше код покажется вам слишком сложным для применения. Если у вас установлен Kutools для Outlook, то с помощью его функции Копировать имена вы сможете быстро скопировать имя вложения сообщения и вставить его в любое нужное место.

После установки Kutools для Outlookвыполните следующие действия:

1. Сначала создайте новое письмо, а затем нажмите Kutools > Копировать имена в открывшемся окне Сообщение (см. снимок экрана):

2. Затем появится окно с уведомлением о том, что имя вложения скопировано в буфер обмена (см. снимок экрана):

3. Теперь для вставки имени вложения в нужное место текста сообщения достаточно одновременно нажать клавиши Ctrl + V (см. снимок экрана):

Другие связанные статьи:

---

Лучшие инструменты для повышения продуктивности в 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

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